![[BACK]](/icons/back.gif){kind=icon}
Return to lonr.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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; } |
| } | } |