--- joko/Scripts/psh/pshd.pl 2002/06/14 21:22:09 1.1 +++ joko/Scripts/psh/pshd.pl 2002/06/15 04:22:50 1.3 @@ -1,16 +1,53 @@ #!/usr/bin/perl +## +## pshd -- Perl Shell Daemon +## +## Listens for incoming commands via Connectors +## and dispatches them to handlers by passing them +## to the CommandRouter or to its Core. +## +## Core +## The core is used both in "Perl Shell" (psh.pl) +## and "Perl Shell Daemon" (pshd.pl) +## +## Connector +## It can use various Connectors +## to recieve data (LocalFile, TcpHttp, TcpRpcXml). +## +## Core-Shell +## pshd spawns a "Core-Shell" after start. It's Terminal is working the +## same way as in a "Login-Shell" of the Perl Shell (psh.pl), except it's +## commands are routed directly to the core. +## +## psh/pshd relies on POE to by asynchronous, it won't work without it! +## +## You will also need some POE-Components which may not be +## available on CPAN and a bunch of "standard" Perl-Modules you +## can download from there. Some POE versions on CPAN seem to +## be not quite up-to-date sometimes, so i tried to include all needed +## Perl-Modules for linux/win32 in '../perl-libs'. +## +## +## $Id: pshd.pl,v 1.3 2002/06/15 04:22:50 cvsjoko Exp $ +## +## $Log: pshd.pl,v $ +## Revision 1.3 2002/06/15 04:22:50 cvsjoko +## + header +## +## +## -#use warnings; use strict; +use warnings; BEGIN { sub RUNNING_IN_HELL () { $^O eq 'MSWin32' } if (RUNNING_IN_HELL()) { - use lib '../perl-libs/lib_win32'; + push @INC, '../perl-libs/lib_win32'; } else { - use lib '../perl-libs/lib_linux'; + push @INC, '../perl-libs/lib_linux'; } - use lib '../perl-libs/lib_poe'; + push @INC, '../perl-libs/lib_poe'; } use lib 'lib';