Scripts/psh/psh.pl

#!/usr/bin/perl

#use warnings;
use strict;

BEGIN {
  sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
  if (RUNNING_IN_HELL()) {
    push @INC, '../perl-libs/lib_win32';
  } else {
    push @INC, '../perl-libs/lib_linux';
  }
  push @INC, '../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	#!/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	push @INC, '../perl-libs/lib_win32';
10	} else {
11	push @INC, '../perl-libs/lib_linux';
12	}
13	push @INC, '../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