| 1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
| 2 |
|
## |
| 3 |
|
## psh -- Perl Shell |
| 4 |
|
## |
| 5 |
|
## Opens a Login-Shell/Terminal and sends typed commands either |
| 6 |
|
## to its Core or to a certain handler via a Connector. |
| 7 |
|
## |
| 8 |
|
## Core |
| 9 |
|
## The core is used both in "Perl Shell" (psh.pl) |
| 10 |
|
## and "Perl Shell Daemon" (pshd.pl) |
| 11 |
|
## |
| 12 |
|
## Connector |
| 13 |
|
## It can use various Connectors |
| 14 |
|
## to recieve data (LocalFile, TcpHttp, TcpRpcXml). |
| 15 |
|
## |
| 16 |
|
## Login-Shell |
| 17 |
|
## psh spawns a "Login-Shell" after start. It's Terminal sends |
| 18 |
|
## commands to a Connector or directly to the core. |
| 19 |
|
## |
| 20 |
|
## psh/pshd relies on POE to by asynchronous, it won't work without it! |
| 21 |
|
## |
| 22 |
|
## You will also need some POE-Components which may not be |
| 23 |
|
## available on CPAN and a bunch of "standard" Perl-Modules you |
| 24 |
|
## can download from there. Some POE versions on CPAN seem to |
| 25 |
|
## be not quite up-to-date sometimes, so i tried to include all needed |
| 26 |
|
## Perl-Modules for linux/win32 in '../perl-libs'. |
| 27 |
|
## |
| 28 |
|
## |
| 29 |
|
## $Id$ |
| 30 |
|
## |
| 31 |
|
## $Log$ |
| 32 |
|
## Revision 1.3 2002/06/15 04:22:50 cvsjoko |
| 33 |
|
## + header |
| 34 |
|
## |
| 35 |
|
## |
| 36 |
|
## |
| 37 |
|
|
|
#use warnings; |
|
| 38 |
use strict; |
use strict; |
| 39 |
|
use warnings; |
| 40 |
|
|
| 41 |
BEGIN { |
BEGIN { |
| 42 |
sub RUNNING_IN_HELL () { $^O eq 'MSWin32' } |
sub RUNNING_IN_HELL () { $^O eq 'MSWin32' } |
| 43 |
if (RUNNING_IN_HELL()) { |
if (RUNNING_IN_HELL()) { |
| 44 |
use lib '../perl-libs/lib_win32'; |
push @INC, '../perl-libs/lib_win32'; |
| 45 |
} else { |
} else { |
| 46 |
use lib '../perl-libs/lib_linux'; |
push @INC, '../perl-libs/lib_linux'; |
| 47 |
} |
} |
| 48 |
use lib '../perl-libs/lib_poe'; |
push @INC, '../perl-libs/lib_poe'; |
| 49 |
} |
} |
| 50 |
|
|
| 51 |
use lib 'lib'; |
use lib 'lib'; |
Parent Directory
| 
Revision Log
| 
Patch
