Und schon wieder brauche ich eure Hilfe!
Ich moechte gerne per Internet auf meine Indy zugreifen (Webserver / FTP...). Da ich leider nur ueber eine Waehlverbindung verfuege (dynamische IP -- T-DSL) habe ich mich nun bei einem der unzaehligen kostenlosen Dienste, fuer eine solche Umleitung auf die jeweilige dynamische IP, angemeldet.
Der auserkorene Anbieter (
http://www.dynip.de) stellt fuer Unix auch ein Perl Skript zur Verfuegung, welches den Update der IP bewerkstelligen soll. Da ich jedoch keinerlei Ahnung von Perl habe bitte ich um eure Hilfe.
Koennt ihr einen Blick auf das Skript werfen und dieses Irix tauglich abaendern. Ich waere euch auf ewigen Dank verpflichtet.
System: Irix 6.2
Schon im Voraus herzlichen Dank
Erich
#!/usr/bin/perl
############################################
# #
# dynIP.de Authentication Client 1.0 #
# (c) by Joerg 'brainy' Staedele #
# Trusted Network #
# #
############################################
# #
# http://www.dynip.de #
# #
############################################
# Config
##########
my $USERNAME = "fill in your username";
my $PASSWORD = "fill in your password, case sensitive";
# Leave this untouched!
###################################################################
my $SERVER_PORT = 8188;
my $SERVER_NAME = 'auth.dynip.de';
my $IP = pop @ARGV;
use IO::Socket;
use strict;
if (defined (my $remote = IO::Socket::INET->new(
Proto => 'tcp',
PeerAddr => $SERVER_NAME,
PeerPort => $SERVER_PORT)))
{
print "Connected to $SERVER_NAME.\n";
while (<$remote>)
{
if ($_ =~ /^101/)
{
print $remote "IP $IP\n" if ($IP);
print $remote "USER $USERNAME\n";
} elsif ($_ =~ /110/) {
print $remote "PASS $PASSWORD\n";
} elsif ($_ =~ /999/) {
print "Server closed connection.\n\n";
exit 0;
} elsif ($_ =~ /^[4,5]+\d+\s*(.*)/) {
print "An Error occured:\n\t$1\n";
} elsif ($_ =~ /^150\s*(.*)/) {
print "Server says:\n\t$1\n";
}
}
} else {
print "An Error occured:\n\tCan't connect to $SERVER_NAME:$SERVER_PORT\n";
exit 0;
}
Thema: Perl Skript: Dynamische IP -> Umleitung (Gelesen 4603 mal)