1 |
|
#!/usr/bin/perl |
2 |
|
## |
3 |
|
## MJAM::Command::Shell -- CommandShell |
4 |
|
## |
5 |
|
## $Id$ |
6 |
|
## |
7 |
|
## $Log$ |
8 |
|
## Revision 1.3 2002/06/15 08:10:01 cvsjoko |
9 |
|
## + modifications in Term::ReadKey behaviour |
10 |
|
## + header |
11 |
|
## |
12 |
|
## |
13 |
|
## |
14 |
package MJAM::Command::Shell; |
package MJAM::Command::Shell; |
15 |
|
|
16 |
use strict; |
use strict; |
20 |
use IO::File; |
use IO::File; |
21 |
use POE; |
use POE; |
22 |
use MJAM::main; |
use MJAM::main; |
23 |
|
use Term::ReadKey; |
24 |
|
|
25 |
my @sh_commands_local = qw ( connect sc exit quit help ? ); |
my @sh_commands_local = qw ( connect sc exit quit help ? ); |
26 |
my @sh_commands_remote = qw ( tell bye ); |
my @sh_commands_remote = qw ( tell bye ); |
132 |
#print "lCmd: $cmd", "\n"; |
#print "lCmd: $cmd", "\n"; |
133 |
|
|
134 |
#if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
#if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
135 |
if ($cmd eq 'quit' || $cmd eq 'exit') { exit; } |
if ($cmd eq 'quit' || $cmd eq 'exit') { |
136 |
|
ReadMode 0; |
137 |
|
exit; |
138 |
|
} |
139 |
|
|
140 |
if ($cmd =~ m/(help|\?)\s*(.*)/) { |
if ($cmd =~ m/(help|\?)\s*(.*)/) { |
141 |
my $helpkey = $2; |
my $helpkey = $2; |
394 |
} |
} |
395 |
|
|
396 |
|
|
|
1; |
|
397 |
|
1; |