On Monday 20 February 2006 10:06, Tom Allison wrote:
> package AuthServer;
>
> @ISA = qw[Net::Server];
>
> my $server = bless {
> port => 8081,
> }, 'AuthServer';
>
> $server->run();
No. This _works_:
package AuthServer;
use Net::Server;
@ISA = qw[Net::Server];
AuthServer->run( port => 8081 );
exit;
1;
You need a 'use Net::Server'; you may want to pick
one of new server's sub classes: New::Server::PreFork,
etc.
You should pass 'port' as a parameter to 'run'.
Add at least a 'sub process_request' method to
actually do the work.
READ the docs; my example above is straight from the
SYNOPSIS! :)
--
Aloha => Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
