basic functionality

bin/delvhost.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+use Regexp::Common qw/net/;
+
+my $host = shift || die "No vhost provided";
+
+die "Hostname must end in a dot"
+    unless ($host =~ /^[a-zA-Z0-9\.]+\.$/);
+
+my $ddns = Martnet::DDNS->new();
+$ddns->delvhost($host);