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};
}
|
