/[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.4 by cvsjoko, Sat Jun 15 08:15:50 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.4  2002/06/15 08:15:50  cvsjoko
9    ## + bugfixes in ReadKey-behavious for Linux
10    ##
11    ## Revision 1.3  2002/06/15 08:10:01  cvsjoko
12    ## + modifications in Term::ReadKey behaviour
13    ## + header
14    ##
15    ##
16    ##
17  package MJAM::Command::Shell;  package MJAM::Command::Shell;
18    
19  use strict;  use strict;
# Line 7  use Env qw ( HOME ); Line 23  use Env qw ( HOME );
23  use IO::File;  use IO::File;
24  use POE;  use POE;
25  use MJAM::main;  use MJAM::main;
26    use Term::ReadKey;
27    
28  my @sh_commands_local = qw ( connect sc exit quit help ? );  my @sh_commands_local = qw ( connect sc exit quit help ? );
29  my @sh_commands_remote = qw ( tell bye );  my @sh_commands_remote = qw ( tell bye );
# Line 118  sub lCmd { Line 135  sub lCmd {
135    #print "lCmd: $cmd", "\n";    #print "lCmd: $cmd", "\n";
136        
137    #if ($cmd eq 'quit' || $cmd eq 'exit') { exit; }    #if ($cmd eq 'quit' || $cmd eq 'exit') { exit; }
138    if ($cmd eq 'quit' || $cmd eq 'exit') { exit; }    if ($cmd eq 'quit' || $cmd eq 'exit') {
139        ReadMode 1;
140        exit;
141      }
142        
143    if ($cmd =~ m/(help|\?)\s*(.*)/) {    if ($cmd =~ m/(help|\?)\s*(.*)/) {
144      my $helpkey = $2;      my $helpkey = $2;
# Line 377  sub start { Line 397  sub start {
397  }  }
398    
399    
 1;  
400    1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed