5 use Data::Dump qw(dump);
11 my $socket = IO::Socket::INET->new(
18 print "SERVER Waiting for client connection on port 4096\n";
21 my $client_socket = $socket->accept();
24 my $text = join('', @_);
26 print $client_socket "$text\r\n";
29 # get the host and port number of newly connected client.
30 my $peer_address = $client_socket->peerhost();
31 my $peer_port = $client_socket->peerport();
33 print "Connection from: $peer_address:$peer_port\n";
35 while ($client_socket->connected) {
36 my $line = <$client_socket>;
37 $line =~ s/[\r\n]+$//;
41 if ( $line =~ m/^\.SQ ([\d\.]+) (\S+)/ ) {
43 } elsif ( $line =~ m/^\.CFG/ ) {
44 client_send ".CFG OK %s";
45 } elsif ( $line =~ m/\.SERVER LIST/ ) {
46 client_send ".ERROR NO-ENTERPRISE";
47 } elsif ( $line =~ m/\.CARD (\S+)/ ) {
48 client_send ".CARD OK Ime Prezime (nobody\@example.com)";
49 } elsif ( $line =~ m/\.ACTION$/ ) {
50 client_send ".ACTION CMENUS0"; # FIXME can be CMENUS2
51 } elsif ( $line =~ m/\.ACTION COPY/ ) {
52 client_send ".ACTION COPY";
53 client_send ".COPY Mozete kopirati (pero)";
54 } elsif ( $line =~ m/(\.NOP)/ ) {
57 die "UNKNOWN: ",dump($line);