9 my $socket = IO::Socket::INET->new(
16 print "SERVER Waiting for client connection on port 4096\n";
19 my $client_socket = $socket->accept();
22 my $text = join('', @_);
24 print $client_socket "$text\r\n";
27 # get the host and port number of newly connected client.
28 my $peer_address = $client_socket->peerhost();
29 my $peer_port = $client_socket->peerport();
31 print "Connection from: $peer_address:$peer_port\n";
33 while ($client_socket->connected) {
34 my $line = <$client_socket>;
38 if ( $line =~ m/^\.SQ ([\d\.]+) (\S+)/ ) {
40 } elsif ( $line =~ m/^\.CFG/ ) {
41 client_send ".CFG OK %s";
42 } elsif ( $line =~ m/\.SERVER LIST/ ) {
43 client_send ".ERROR NO-ENTERPRISE";
44 } elsif ( $line =~ m/\.CARD (\S+)/ ) {
45 client_send ".CARD OK pero peric (pero\@example.com)";
46 } elsif ( $line =~ m/\.ACTION$/ ) {
47 client_send ".ACTION CMENUS2";
48 } elsif ( $line =~ m/\.ACTION COPY/ ) {
49 client_send ".ACTION COPY";
50 client_send ".COPY Mozete kopirati (pero)";
51 } elsif ( $line =~ m/(\.NOP)/ ) {