/[scire]/branches/new-fu/client/scireclient.pl
Gentoo

Diff of /branches/new-fu/client/scireclient.pl

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

Revision 264 Revision 265
160# close FILE; 160# close FILE;
161 my $client_key = "124567890"; 161 my $client_key = "124567890";
162 send_command("IDENTIFY", $client_key); 162 send_command("IDENTIFY", $client_key);
163 my $response = get_response(); 163 my $response = get_response();
164 $response =~ /^(OK|ERROR)(?: (.+))?$/; 164 $response =~ /^(OK|ERROR)(?: (.+))?$/;
165 if($1 eq "ERROR") { 165 unless ($1 and ($1 eq "OK")) {
166 print "Could not identify to server: $2\n"; 166 print "Could not identify to server: $response\n";
167 return 0; 167 return 0;
168 } 168 }
169# print "Registered client $conf{client_id}\n" if $conf{debug}; 169# print "Registered client $conf{client_id}\n" if $conf{debug};
170 return 1; 170 return 1;
171} 171}

Legend:
Removed from v.264  
changed lines
  Added in v.265

  ViewVC Help
Powered by ViewVC 1.1.20