#! /usr/bin/perl
#==============================================================================
use Net::SMTP;
#==============================================================================
$domain = "ny.shelden-associates.com";
$uid    = 9999;
$secret = "XzFXQTZ1fCk4NF9JZUxJRjokUVU0QGgwPWYudlJ";
$mailhost = "localhost";
%to     = ("dnsrobot\@gratisdns.de" => "GratisDNS Robot");
$from   = "your_address\@$domain";
$prettyfrom = "Your Name Here";

#==============================================================================

$host = shift;
$ip = shift;

die("usage: $0 short-host ip\n") unless ($host && $ip);

$xml = <<"EOF";
<auth>
 <uid>$uid</uid>
 <updatesecret>$secret</updatesecret>
</auth>
<dynamicupdate>
 <zone>
  <nameofzone>$domain</nameofzone>
  <update>${host}.${domain}:${ip}</update>
 </zone>
</dynamicupdate>
EOF

($smtp = Net::SMTP->new($mailhost))
    || die("new($mailhost): $!\n");

print $smtp-> banner(), "\n";
$smtp-> hello() || die ("hello(): $!\n");

$smtp-> mail($from) || die("mail(): error settting from: $!\n");
foreach my $to (keys %to) {
    $smtp-> to($to);
}
$smtp-> data();
$smtp-> datasend("Subject: ${host}.${domain}-> $ip\n");
$smtp-> datasend("From: \"$prettyfrom\" <$from>\n");
foreach my $x (keys %to) {
    $to = join('', "To: ", $to{$x}, " <", $x, ">", "\n");
    print $to;
    $smtp-> datasend($to);
}
$smtp-> datasend("\n");
$smtp-> datasend($xml);
                 
$smtp-> dataend();
$smtp-> quit();