| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Server/ProtocolXML.pm |
package Server::ProtocolXML;
use strict;
sub new {
my $class = shift;
my $self = {};
$self->{'PAR'} = shift;
bless($self,$class);
return($self);
}
#***********************************************************************
sub server_send {
my $self = shift;
my $obj = shift;
my $sock = shift;
print $sock $obj . "\n";
}
#***********************************************************************
sub client_send {
my $self = shift;
my $obj = shift;
my $sock = shift;
$self->server_send($obj,$sock);
}
#**********************************************************************
sub server_receive {
my $self = shift;
my $sock = shift;
my $zeilen = shift;
my $erg = "";
my $o;
my $EndTag = "";
my $zaehler = 1;
while (0 == 0) {
if (eof($sock)) {
print "___EOF___\n";
return("___EOF___",0);
} else {
$o = <$sock>;
}
if (!$EndTag) {
if ($o =~ /\<([A-Za-z0-9]+) /) {
$EndTag = $1;
}
}
$erg = $erg . $o;
last if ($o =~ /\<\/$EndTag\>/);
}
return($erg,1) if ($o);
return("___EOF___",0);
}
#**********************************************************************
sub client_receive {
my $self = shift;
my $sock = shift;
return($self->server_receive($sock));
}
#**********************************************************************
1;