[Refdb-cvs] CVS: perlmod/RefDBClient Client.pm,1.10,1.11

[Markus H. <mho...@us...>]

Update of /cvsroot/refdb/perlmod/RefDBClient
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17712

Modified Files:
	Client.pm 
Log Message:
implemented new client/server protocol

Index: Client.pm
===================================================================
RCS file: /cvsroot/refdb/perlmod/RefDBClient/Client.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -U2 -r1.10 -r1.11
--- Client.pm	22 Jan 2005 01:11:04 -0000	1.10
+++ Client.pm	21 Apr 2005 21:26:45 -0000	1.11
@@ -73,5 +73,5 @@
 Title   : new
 
-Usage   : $data = new RefDBClient::Risdata();
+Usage   : new RefDBClient::Risdata();
 
 Function: Creates a new Risdata object
@@ -97,8 +97,10 @@
 Title   : read_ris
 
-Usage   : $data->read_ris($file)
+Usage   : $data->read_ris($file);
[...2876 lines suppressed...]
     while (defined(my $inbuffer = $self->_tread(OUTBUF_LEN))) {
-	$result .= $inbuffer;
-	if ($result =~ s/$self->{CS_TERM}//) {
+	$self->{server_summary} .= $inbuffer;
+	if ($self->{server_summary} =~ s/$self->{CS_TERM}//) {
 	    last;
 	}
     }
 
-    syswrite($self->{socket}, "POS" . $self->{CS_TERM});
+    $self->_send_status("000", TERM_NO);
 
     close ($self->{socket});
 
-    # return result as a list
-    $result;
+    # return command summary
+    $self->{server_summary};
 }