Scripts/psh/psh.pl

#!/usr/bin/perl

#use warnings;
use strict;

BEGIN {
  sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
  if (RUNNING_IN_HELL()) {
    use lib '../perl-libs/lib_win32';
  } else {
    use lib '../perl-libs/lib_linux';
  }
  use lib '../perl-libs/lib_poe';
}

use lib 'lib';
use MJAM;
use POE;

MJAM::Command::Core::start('cmdcore');

# start a core-shell-console
#$poe_kernel->post( cmdcore => docmd => 'tell console start core-shell');

# start a login-shell-console
$poe_kernel->post( cmdcore => docmd => 'tell console start login-shell');

$poe_kernel->run();
1	cvsjoko	1.1	#!/usr/bin/perl
2
3			#use warnings;
4			use strict;
5
6			BEGIN {
7			sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
8			if (RUNNING_IN_HELL()) {
9			use lib '../perl-libs/lib_win32';
10			} else {
11			use lib '../perl-libs/lib_linux';
12			}
13			use lib '../perl-libs/lib_poe';
14			}
15
16			use lib 'lib';
17			use MJAM;
18			use POE;
19
20			MJAM::Command::Core::start('cmdcore');
21
22			# start a core-shell-console
23			#$poe_kernel->post( cmdcore => docmd => 'tell console start core-shell');
24
25			# start a login-shell-console
26			$poe_kernel->post( cmdcore => docmd => 'tell console start login-shell');
27
28			$poe_kernel->run();
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26