This is a discussion on Net::Daemon::SSL - Perl ; Hi I'm now making a simple script using Net: aemon::SSL. However, the code listed below(which appeared in http://softbrain.co.kr/CPANdoc/Net/Daemon/SSL.html ) does not work . The error message of this script is "Cannot create socket: No such file or directory at /usr/lib/perl5/site_perl/5.6.1/Net/Daemon/SSL.pm ...
Hi
I'm now making a simple script using Net:aemon::SSL.
However, the code listed below(which appeared in
http://softbrain.co.kr/CPANdoc/Net/Daemon/SSL.html)
does not work .
The error message of this script is
"Cannot create socket: No such file or directory at
/usr/lib/perl5/site_perl/5.6.1/Net/Daemon/SSL.pm line 108.
at /usr/lib/perl5/site_perl/5.6.1/Net/Daemon/Log.pm line 136."
I want to know a "REAL" sample of Net:aemon::SSL.
Thanks!
----- script start -----
use Net:aemon::SSL;
package MyDaemon;
@MyDaemon::ISA = qw (Net:aemon::SSL);
sub Run {
my $this = shift;
my $buffer;
$this->{socket}->print ( "vasja was hereĽn" );
$this->{socket}->sysread ( $buffer, 100 );
}
package main;
my $daemon = new MyDaemon ({}, Ľ@ARGV);
$daemon || die "error create daemon instance: $!Ľn";
$daemon->Bind();
----- script end -----