Net::Daemon::SSL
am 19.01.2006 05:35:38 von bz800kHi
I'm now making a simple script using Net::Daemon::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::Daemon::SSL.
Thanks!
----- script start -----
use Net::Daemon::SSL;
package MyDaemon;
@MyDaemon::ISA =3D qw (Net::Daemon::SSL);
sub Run {
my $this =3D shift;
my $buffer;
$this->{socket}->print ( "vasja was here=A5n" );
$this->{socket}->sysread ( $buffer, 100 );
}
package main;
my $daemon =3D new MyDaemon ({}, =A5@ARGV);
$daemon || die "error create daemon instance: $!=A5n";
$daemon->Bind();
----- script end -----