New subject: 2 telnet sessions

14 Apr 2003


      run as many 'fsh' (filer shell) on Unix host as you want to one filer. fsh requires the Term::Shell module.
- Moritz
#!/usr/bin/perl -wT
# @(#) $Id: fsh,v 1.5 2003/03/20 12:45:14 willers Exp $
# Moritz.Willers@ubsw.com, Perot Systems, 2002
use strict;
my $filer = shift || 'filer';
$filer =~ m/^(\w+)$/; $filer = $1; # untaint
die "check on hostname argument failed. stopping right here\n"
    unless defined $filer;
FSH->new($filer)->cmdloop;
exit 0;
package FSH;
use English;
use vars qw($dir $filer $getroot);
BEGIN { # untaint
    ($dir = $0) =~ m#(.*/)#go; $dir = $1;
    $ENV{PATH} = "/usr/bin";
}
use lib "$dir/../lib/perl";
use base qw(Term::Shell);
sub init {
    my $self = shift;
$filer = ${$self->{API}{args}}[0];
$getroot = $UID == 0 ? undef :
    	-x '/usr/bin/pbrun' ? '/usr/bin/pbrun' :
    	-x '/usr/bin/sudo' ? '/usr/bin/sudo' :
    	-x '/sbclocal/bin/sudo' ? '/sbclocal/bin/sudo' :
    	    die "Can't find sudo or pbrun\n";
}
sub prompt_str {
    my $self = shift;
    return "$filer> ";
}
sub run_ { ; } # don't exit on empty input line
sub catch_run {
    my ($self, @stuff) = @_;
my @cmd = ('/usr/bin/rsh', $filer, @stuff);
    unshift @cmd, ($getroot) if (defined $getroot);
    system(@cmd);
}
sub run_help {
    print qq(fsh - filer shell
      Commands:
      exit - exits the filer shell
      help - prints this screen
      type ? to get the help on the filer commands
    );
}
1;
__END__
=head1 NAME
fsh - filer shell
=head1 SYNOPSIS
fsh [hostname]
=head1 DESCRIPTION
I<fsh> is a non-interactive shell to a NetApp filer with comandline editing
and history functionality.  It has been written to allow more than one
administrator at a time to have a shell on the filer.  It executes all
commands on the filer via rsh and thus only allows for the non interactive
filer commands, type '?' at the prompt to see them.
The I<fsh> must be executed on a host that has trusted access to the filer via
rsh, i.e. the maintenance server.  If executed as unpriviledged user it will
prepend every execution of rsh by sudo.  This slows command execution down
considerably.  It is recommended to run the fsh as root.
If no hostname is given it will execute all commands on I<filer>.
The shell uses GNU readline (3) for the command prompt.  The behaviour of the
command line can be changed with settings in the I<.inputrc>, e.g. adding
set editing-mode vi
will enable vi command line editing.  See the readline (3) manpage for
details.
=head1 AUTHOR
Moritz.Willers@ubsw.com, Perot Systems, 2002
=cut
Visit our website at http://www.ubswarburg.com
This message contains confidential information and is intended only 
for the individual named.  If you are not the named addressee you 
should not disseminate, distribute or copy this e-mail.  Please 
notify the sender immediately by e-mail if you have received this 
e-mail by mistake and delete this e-mail from your system.
E-mail transmission cannot be guaranteed to be secure or error-free 
as information could be intercepted, corrupted, lost, destroyed, 
arrive late or incomplete, or contain viruses.  The sender therefore 
does not accept liability for any errors or omissions in the contents 
of this message which arise as a result of e-mail transmission.  If 
verification is required please request a hard-copy version.  This 
message is provided for informational purposes and should not be 
construed as a solicitation or offer to buy or sell any securities or 
related financial instruments.

RE: 2 telnet sessions