AW: CCcam auf vserver installieren und betreiben
Hier mal ein Script
#! /usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
my $user = 'user; # dein DynDNS Username
my $key = 'pw'; # dein DynDNS Passwort
my $domain = 'meine.domain.com'; # dein DynDNS Virtualhost
my $iface = 'eth0'; # das Interface über das du online gehst, z.b. ppp0 bei DSL, ippp0 bei ISDN, oder eth0 bei statischer Verbindung
my $url = qq|
$user:$key\@members.dyndns.org/nic/update?system=dyndns&host
name=$domain&myip=<%IP%>&wildcard=ON&offline=NO|;
# IP holen
my $ifconfig = `/sbin/ifconfig $iface`;
if($ifconfig =~ m/inet Adresse
.*?) /i) { $ip = $1 }
die("$ip Konnte keine IP ermitteln") if (length($ip) < 7 || length($ip) > 1
5);
$url =~ s/<\%IP\%>/$ip/;
my $agent = new LWP::UserAgent;
my $req = new HTTP::Request GET => $url;
$req->header('Accept' => '*/*');
my $response = $agent->request( $req );
my $reply = $response->content;
($status,undef) = split(' ',$reply);
%status = (
"badauth" => "Bad authorization (username or password)",
"badsys" => "The system parameter given was not valid.",
"badagent" => "The user agent that was sent has been blocked or is invalid. Support of this return code is optional",
"good" => "Update good and successful, IP updated",
"nochg" => "No changes, update considered abusive",
"notfqdn" => "A Fully-Qualified Domain Name was not provided.",
"nohost" => "The hostname specified does not exist (or is not in that service)",
"!donator" => "The offline setting was set, but the user is not a credited user. This is only returned once",
"!yours" => "The hostname specified exists, but not under the username currently being used",
"!active" => "The hostname specified is in a Custom DNS domain which has not yet been activated",
"abuse" => "The hostname specified is blocked for update abuse; contact support to be unblocked",
"notfqdn" => "will be returned once if no hosts are given.",
"numhost" => "Too many or too few hosts found ",
"dnserr" => "DNS error encountered" );
print "$status{$status}\n";
Dazu muss Perl auf dein Server Installiert werden.
Viel Support kann ich hierzu nicht geben da ich kein Perl experte bin.
