ip_html.pl
!/usr/bin/perl -w
#
# / etc/ppp/ipup.pl
# Erstellt eine html-Seite mit der IP-Nummer der ISDN-Karte von Arktur
#
# Aufruf aus /etc/ppp/ip-up
# mit einem Parameter: die aktuelle IP der ISDN-Karte (aus der Variablen $myip):
# ip_html.pl $myip
#
# Vorsicht: Diese Datei beginnt mit der Zeile !/usr/bin/perl -w
# Sie muss als Unix-Text gespeichert werden, d.h. unter joe duerfen keine
# Zeilenvorschubzeichen ^M sichtbar sein !
use Net::FTP;
system "rm -f ip.html";
$localIP = @ARGV[0];
if ( $localIP) {
#
$now=localtime ;
#
open (HTM,">> ip.html") || die "Fehler beim Oeffnen von ip.html";
print HTM "\n";
print HTM "IP-Nummer Arktur\n";
print HTM "\n";
print HTM "Zeit: $now
\n";
print HTM "
\n";
print HTM "IP-Nummern der letzten, vielleicht noch aktuellen Internetvebindung von Arktur.fals.de
print HTM "
\n";
print HTM "
\n";
print HTM "local IP = $localIP";
print HTM "
\n";
print HTM "
\n";
print HTM "\n\n";
#
close(HTM);
#
# jetzt upload
$ftp = Net::FTP->new ("www.soundso.de"); # Provider
$ftp->login ("login","geheim"); # Loginname und Passwort
$ftp->cwd ("www/Verzeichnis/Arktur"); # Verzeichnis
$ftp->put ("ip.html");
$ftp->quit();
}