Return to lonr.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.6, 2009/06/23 03:01:15 | version 1.7, 2009/08/12 15:30:16 |
---|---|
Line 273 sub runscript { | Line 273 sub runscript { |
} | } |
} | } |
} | } |
foreach my $line (split(/\;/s,$fullscript)) { | foreach my $line (split(/[\n\r]+/s,$fullscript)) { |
if ($line=~/\w/) { $reply=&rreply($socket,$line.";\n"); } | if ($line=~/\w/) { $reply=&rreply($socket,$line.";\n"); } |
if ($reply=~/^Error\:/) { return $reply; } | if ($reply=~/^Error\:/) { return $reply; } |
} | } |