Select Code to Download

# mocksyslogserver.pl.

...
@ARGV and usage();

do_syslog_server( $myhostname, $port, $sleep_after_accept, $sleep_afte
+r_recv );

# mocksyslogclient.pl.
# Simple test of mocksyslogserver.pl
...

# send_tcp_messages_inet( $host, $port, $delaysecs, @messages );
send_tcp_messages( $host, $port, $delaysecs, @messages );

> perl mocksyslogserver.pl -p 9949 -a 3
[Info] 10:24:35: Start on host 'myhost' at 10:24:35
...
[Info] 10:25:42: Closing server
[Info] 10:25:42: End do_syslog_server
>

> perl mocksyslogclient.pl -h localhost -p 9949 "hello1"
host='localhost' port='9949' delaysecs='0'
...
1: send message
1: sent message ok
>

> perl mocksyslogclient.pl -h localhost -p 9949 "hello2"
host='localhost' port='9949' delaysecs='0'
Send 1 messages
1: send message
1: sent message ok