Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.305.2.4, 2006/02/10 09:48:17 | version 1.305.2.5, 2006/03/27 19:52:16 |
---|---|
Line 5149 sub sub_sql_reply { | Line 5149 sub sub_sql_reply { |
Type => SOCK_STREAM, | Type => SOCK_STREAM, |
Timeout => 10) | Timeout => 10) |
or return "con_lost"; | or return "con_lost"; |
print $sclient "$cmd\n"; | print $sclient "$cmd:$currentdomainid\n"; |
my $answer=<$sclient>; | my $answer=<$sclient>; |
chomp($answer); | chomp($answer); |
if (!$answer) { $answer="con_lost"; } | if (!$answer) { $answer="con_lost"; } |