andi2002
Meister
- Registriert
- 16. Februar 2016
- Beiträge
- 880
- Lösungen
- 3
- Reaktionspunkte
- 225
- Punkte
- 113
Hallo Leute,
ich wollte mir wie hier beschrieben #56 eine wöchentliche Anmeldung bei meinem DynDns Anbieter einrichten.
Auf meinem Server läuft Debian.
Im Ordner unter etc/ cron.weekly habe ich in die Datei man-db folgenden Eintrag hinzugefügt
D.h. er sollte sich jeden Samstag um 20.59 Uhr anmelden. Log Datei sollte unter var/log liegen.
Da befindet sich aber nichts.
Ebenfalls habe ich die Datei FreeDNS.pl (wie von Schimmelreiter beschrieben) im Verzeichnis /usr/bin mit folgendem Inhalt erstellt:
Wo liegt der Fehler ?
Viele Grüße
Keiner ?
ich wollte mir wie hier beschrieben #56 eine wöchentliche Anmeldung bei meinem DynDns Anbieter einrichten.
Auf meinem Server läuft Debian.
Im Ordner unter etc/ cron.weekly habe ich in die Datei man-db folgenden Eintrag hinzugefügt
59 20 * * 6 /usr/bin/FreeDNS.pl NUTZER PASS >> /var/log/FreeDNS-Accounts.log
D.h. er sollte sich jeden Samstag um 20.59 Uhr anmelden. Log Datei sollte unter var/log liegen.
Da befindet sich aber nichts.
Ebenfalls habe ich die Datei FreeDNS.pl (wie von Schimmelreiter beschrieben) im Verzeichnis /usr/bin mit folgendem Inhalt erstellt:
#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
use utf8;
use Encode;
use LWP::UserAgent;
die "Benutzung:\n\tFreeDNS.pl <Benutzername> <Passwort>\n" unless $ARGV[1];
my $FDNSUser=$ARGV[0];
my $FDNSPass=$ARGV[1];
my $FDNSbaseurl="
my $FDNSBrowser = LWP::UserAgent->new;
$FDNSBrowser->agent("Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36");
$FDNSBrowser->default_header('Accept-Encoding' => "deflate");
$FDNSBrowser->cookie_jar( {} );
$FDNSBrowser->timeout(20);
print(encode("utf-8","Verlängern des FreeDNS-Accounts ...\n"));
my $response = $FDNSBrowser->post( $FDNSbaseurl."/zc.php",
[
'username' => $FDNSUser,
'password' => $FDNSPass,
'action' => 'auth',
'submit' => qq{Login},
]
);
$response = $FDNSBrowser->get( $FDNSbaseurl."/menu/?ls=1" );
if ($response->content=~ m/.*UserID:<\/td><td bgcolor="#eeeeee" align="right">([^<]+)<\/.+/gis and (lc($1) eq lc($FDNSUser))) {
print(encode("utf-8","Anmeldung als User ".$1." erfolgreich!\n"));
exit 0;
} else {
print(encode("utf-8","Anmeldung als User ".$FDNSUser." gescheitert!\n"));
exit 1;
}
use strict;
use warnings;
use POSIX;
use utf8;
use Encode;
use LWP::UserAgent;
die "Benutzung:\n\tFreeDNS.pl <Benutzername> <Passwort>\n" unless $ARGV[1];
my $FDNSUser=$ARGV[0];
my $FDNSPass=$ARGV[1];
my $FDNSbaseurl="
Sie müssen registriert sein, um Links zu sehen.
";my $FDNSBrowser = LWP::UserAgent->new;
$FDNSBrowser->agent("Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36");
$FDNSBrowser->default_header('Accept-Encoding' => "deflate");
$FDNSBrowser->cookie_jar( {} );
$FDNSBrowser->timeout(20);
print(encode("utf-8","Verlängern des FreeDNS-Accounts ...\n"));
my $response = $FDNSBrowser->post( $FDNSbaseurl."/zc.php",
[
'username' => $FDNSUser,
'password' => $FDNSPass,
'action' => 'auth',
'submit' => qq{Login},
]
);
$response = $FDNSBrowser->get( $FDNSbaseurl."/menu/?ls=1" );
if ($response->content=~ m/.*UserID:<\/td><td bgcolor="#eeeeee" align="right">([^<]+)<\/.+/gis and (lc($1) eq lc($FDNSUser))) {
print(encode("utf-8","Anmeldung als User ".$1." erfolgreich!\n"));
exit 0;
} else {
print(encode("utf-8","Anmeldung als User ".$FDNSUser." gescheitert!\n"));
exit 1;
}
Wo liegt der Fehler ?
Viele Grüße
Keiner ?
Zuletzt bearbeitet von einem Moderator:
