Scripts/psh/pshd.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');

$poe_kernel->post('cmdcore', 'docmd', 'tell cmdfd start');
#$poe_kernel->post('cmd', 'docmd', 'tell httpd start');
$poe_kernel->post('cmdcore', 'docmd', 'tell rpcxmld start');
#$poe_kernel->post('cmd', 'docmd', 'tell dbagent start');

# start a core-shell-console
$poe_kernel->post( cmdcore => docmd => 'tell console start core-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			$poe_kernel->post('cmdcore', 'docmd', 'tell cmdfd start');
23			#$poe_kernel->post('cmd', 'docmd', 'tell httpd start');
24			$poe_kernel->post('cmdcore', 'docmd', 'tell rpcxmld start');
25			#$poe_kernel->post('cmd', 'docmd', 'tell dbagent start');
26
27			# start a core-shell-console
28			$poe_kernel->post( cmdcore => docmd => 'tell console start core-shell');
29
30			$poe_kernel->run();
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26