7 |
use IO::File; |
use IO::File; |
8 |
use POE; |
use POE; |
9 |
use MJAM::main; |
use MJAM::main; |
10 |
|
use Term::ReadKey; |
11 |
|
|
12 |
my @sh_commands_local = qw ( connect sc exit quit help ? ); |
my @sh_commands_local = qw ( connect sc exit quit help ? ); |
13 |
my @sh_commands_remote = qw ( tell bye ); |
my @sh_commands_remote = qw ( tell bye ); |
119 |
#print "lCmd: $cmd", "\n"; |
#print "lCmd: $cmd", "\n"; |
120 |
|
|
121 |
#if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
#if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
122 |
if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
if ($cmd eq 'quit' || $cmd eq 'exit') { |
123 |
|
ReadMode 1; |
124 |
|
exit; |
125 |
|
} |
126 |
|
|
127 |
if ($cmd =~ m/(help|\?)\s*(.*)/) { |
if ($cmd =~ m/(help|\?)\s*(.*)/) { |
128 |
my $helpkey = $2; |
my $helpkey = $2; |
381 |
} |
} |
382 |
|
|
383 |
|
|
|
1; |
|
384 |
|
1; |