DYNDNS scripts and stuff

dyndns-add-entry.pl

#!/usr/bin/perl

use WWW::Mechanize;

my $options = "options: name (A|CNAME|ALIAS|...) value [ttl]";

my $k = shift || die $options;
my $t = shift || die $options;
my $v = shift || die $options;
my $ttl = shift || 600;

my $u = "USERNAME";
my $p = "PASSWORD";
my $d = "DOMAIN";

my $m = WWW::Mechanize->new();
$m->get('https://www.dyndns.com/account/entrance/');
$m->submit_form(
          form_number => 1
        , fields => {
                  'username' => $u
                , 'password' => $p
        }
);

if ($t == 'CNAME') {
        # CNAME record
        $m->get("https://www.dyndns.com/account/services/zones/dns/cname.html?zone=${d}");
        $m->submit_form(
                  form_number => 1
                , fields => {
                          'host' => $k
                        , 'data' => $v
                }
        );
} elsif ($t == 'A') {
        # A record
        $m->get("https://www.dyndns.com/account/services/zones/dns/host.html?zone=${d}");
        $m->submit_form(
                  form_number => 1
                , fields => {
                          'host' => $k
                        , 'cur_ip' => $v
                }
        );
} else {
        # Anything else
        $m->get("https://www.dyndns.com/account/services/zones/dns/${d}");
        $m->submit_form(
                  form_number => 2
                , fields => {
                          'name_new' => $k
                        , 'type_new' => $t
                        , 'data_new' => $v
                        , 'ttl_new' => $ttl
                }
        );}