hello!!
i have the same problem i look in message log and i find this
"Connection refused at /sbin/e-smith/dynamic-dns/dyndns line 56"
the i look in dyndns line 56 and "connect(S,$that) || die $!;
"
and all
($ip, $user, $pass, $domain) = @ARGV;
$AF_INET = 2;
$SOCK_STREAM = 1;
$SIG{'INT'} = 'dokill';
sub dokill {
kill 9,$child if $child;
}
$sockaddr = "S n a4 x8";
(
chop($ip = /sbin/ifconfig ppp0 | /bin/grep inet | /usr/bin/cut -f2 -d: | /usr/bin/cut -c1-15) &&
$ip =~ s/\s+//g
) unless $ip;
$user = "username" unless $user;
$pass = "password" unless $pass;
$domain = "dyndns.com" unless $domain;
# Added by JMorrison so that this works properly for dynamic DNS or
# dynamic domain services:
if ($user ne 'postmaster')
{
$domain = 'dyndns.com';
}
$info = pack("a20", $user) . pack("a20", $pass) . pack("a16", $ip) . pack("a64", $domain);
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname(50, 'tcp') unless $port =~ /^d+$/;
($name, $aliases, $type, $len, $thisaddr) = gethostbyname(chop($hostname = /bin/hostname));
($name, $aliases, $type, $len, $thataddr) = gethostbyname("dyndns.com");
$this = pack($sockaddr, $AF_INET, 0, $thisaddr);
$that = pack($sockaddr, $AF_INET, 50, $thataddr);
socket(S, $AF_INET, $SOCK_STREAM, $proto) || die $!;
bind(S, $this) || die $!;
connect(S,$that) || die $!;
select(S); $| = 1; select(STDOUT);
if ($child = fork) {
print "Waiting for routing tables to update...\n";
sleep 10;
print S $info;
sleep 3;
do dokill();
}
else {
while (<S>) {
printf("%s", $_);
}
print;
}
"
any help?
23 Replies
7532 Views