Shellskript auf einem Server über Telnet starten

Inhalt:

Name

telnetklient.pl

Aufgabe

Ich brauche ein Perlscript, dass einen Telnetserver anspricht, sich authorisiert und ein Shellscript zur Fernwartung laufen lässt.

Aufruf mit Parametern

Die Parameterübergabe sollte folgendermassen stattfinden:

 
perl telnetklient -s server -n port -u user -p passwort -s shellscript 

Skript

#!/usr/local/bin/perl 
 
use Net::Telnet (); 
use Getopt::Long; 
 
my $server; 
my $port; 
my $user; 
my $passwort; 
my $shellscript; 
GetOptions('-s=s' => \$server, 
                 '-n=s' => \$port, 
                 '-p=s' => \$passwort, 
                 '-u=s' => \$user, 
                 '-sh=s' => \$shellscript); 
 
unless($server && $port && $passwort && $user && $shellscript){ 
  print "Usage: telnetklient -s <server> -n <port> -u <user> -p <passwort> -sh <shellscript>\n"; 
} 

Ergänzungen, Kommentare

ReneeBaecker - 14 Jul 2003 - Eingestellt
SaschaKieferAkaEsskar - 11 Aug 2004 - Namen eingefügt