/[cvs]/joko/Scripts/psh/lib/MJAM/Command/Shell.pm
ViewVC logotype

Diff of /joko/Scripts/psh/lib/MJAM/Command/Shell.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by cvsjoko, Fri Jun 14 21:22:09 2002 UTC revision 1.2 by cvsjoko, Sat Jun 15 07:45:19 2002 UTC
# Line 7  use Env qw ( HOME ); Line 7  use Env qw ( HOME );
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 );
# Line 118  sub lCmd { Line 119  sub lCmd {
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;
# Line 377  sub start { Line 381  sub start {
381  }  }
382    
383    
 1;  
384    1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed