--- joko/Scripts/psh/psh.pl	2002/06/14 21:22:09	1.1
+++ joko/Scripts/psh/psh.pl	2002/06/15 04:22:50	1.3
@@ -1,16 +1,51 @@
 #!/usr/bin/perl
+##
+## psh -- Perl Shell
+##
+##   Opens a Login-Shell/Terminal and sends typed commands either 
+##   to its Core or to a certain handler via a Connector.
+## 
+##   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).
+##     
+##   Login-Shell
+##     psh spawns a "Login-Shell" after start. It's Terminal sends
+##     commands to a Connector or 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: psh.pl,v 1.3 2002/06/15 04:22:50 cvsjoko Exp $
+##
+## $Log: psh.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';