/[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.3 by cvsjoko, Sat Jun 15 08:10:01 2002 UTC
# Line 1  Line 1 
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;
# Line 7  use Env qw ( HOME ); Line 20  use Env qw ( HOME );
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 );
# Line 118  sub lCmd { Line 132  sub lCmd {
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;
# Line 377  sub start { Line 394  sub start {
394  }  }
395    
396    
 1;  
397    1;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed