[system] / trunk / webwork / system / courseScripts / dangerousMacros.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/courseScripts/dangerousMacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6 Revision 7
… …
351 351
352 $inputString = $tthPreambleContents . $inputString; 352 $inputString = $tthPreambleContents . $inputString;
353 $inputString = "<<END_OF_TTH_INPUT_STRING;\n\n\n" . $inputString . "\nEND_OF_TTH_INPUT_STRING\necho \"\" >/dev/null"; #it's not clear why another command is needed. 353 $inputString = "<<END_OF_TTH_INPUT_STRING;\n\n\n" . $inputString . "\nEND_OF_TTH_INPUT_STRING\necho \"\" >/dev/null"; #it's not clear why another command is needed.
354 ##WARNING -- how should we get the value of $scriptDirectory to this macro? 354 ##WARNING -- how should we get the value of $scriptDirectory to this macro?
355 ## perhaps tth belongs in displayMacros??? 355 ## perhaps tth belongs in displayMacros???
356 my $tthpath = "${main::scriptDirectory}tth"; 356 my $tthpath = "/usr/local/bin/tth";
357 my $out; 357 my $out;
358 358
359 if (-x $tthpath ) { 359 if (-x $tthpath ) {
360 my $tthcmd = "$tthpath -L -f5 -r 2>/dev/null " . $inputString; 360 my $tthcmd = "$tthpath -L -f5 -r 2>/dev/null " . $inputString;
361 if (open(TTH, "$tthcmd |")) { 361 if (open(TTH, "$tthcmd |")) {
Legend:
Removed from v.6  
changed lines
  Added in v.7
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9