| 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 |
$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(); |
Parent Directory
| 
Revision Log
