#!/usr/bin/perl

use CGI;

$dnsdir = "/var/named/";
$dnsdaemon = "/usr/sbin/in.named";
$dnspidfile = "/var/run/named.pid";
$rndc = "/usr/local/sbin/rndc";
$comment = "Added_by_web_update";

$ENV{PATH} = '/bin:/usr/bin';

$query = new CGI;
$entryname = $query->param('entryname');
$domain = $query->param('domain');
$destination = $query->param('destination');
$todo = $query->param('todo');

print "Content-type: text/html\n\n";
print $query->start_html();

#print "VALUES: $entryname $domain $destination $todo<BR><BR>";

if ($todo eq "add") {
#print "ADD!<BR>";
$isitthere = `grep -w $entryname $dnsdir$domain`;
#print "<BR>ISITTHEREADD = $isitthere";
if ($isitthere eq "") {
	#print "<BR>OK TO ADD ENTRY<BR>";
	$addcommand = "echo \"$entryname\t\t\t7200\tIN\tA\t$destination\t;$comment\" >> $dnsdir$domain";
	#print "<BR>ADDCOMMAND: <BR> $addcommand <BR>";
	system("$addcommand");
	}
else { print "<BR><B>ERROR:Entry already exists!</B><BR>"; exit; }
}

if ($todo eq "delete") {
#print "<BR>DELETE!<BR>";
#verify that we're deleteing a addition by this program
$isitthere = `grep -w $entryname $dnsdir$domain`;
#print "<BR>ISITTHERE: $isitthere<BR>";
@split = split /;/,$isitthere;
$addbyme = @split[1];
chop $addbyme;
#print "ADBYME: $addbyme<BR>";
#print "<BR>COMMENT: $comment ADBYME: $addbyme<BR>";
if ($addbyme eq $comment) {
	#print "<BR>OK TO DELETE<BR>";
	$delcommand = "grep -v -w $entryname $dnsdir$domain > $dnsdir$domain.temp ; rm $dnsdir$domain; mv $dnsdir$domain.temp $dnsdir$domain";
	#print "<BR>DELECOMMD:$delcommand<BR>";
	system("$delcommand");
	}
else { print "<BR><B>ERROR:Entry not added by webadmin!</B><BR>"; exit; }
}


#update the serial
$oldsline = `grep '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]' $dnsdir$domain`;
@split = split /;/,$oldsline;
$oldserial = @split[0];
$year = (localtime)[5] + 1900;
$mnth = ((localtime)[4] + 1);
$day = (localtime)[3];
if ($day <=9 ) { $day = "0".$day };
if ($mnth <=9 ) { $mnth = "0".$mnth };
$newserial = "$year$mnth$day"."00";
while ($newserial <= $oldserial) {
	$newserial = $newserial + 1;
	};
#print "<BR>NEW NEW SN=$newserial<BR>";
 
$replacesncommand = "cat $dnsdir$domain | sed '/[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/s//$newserial/' > $dnsdir$domain.temp ; rm $dnsdir$domain; mv $dnsdir$domain.temp $dnsdir$domain";
#print "<BR>$replacesncommand<BR>";
system("$replacesncommand");

#restart the name server
$output = system("$rndc reload");
print "<BR><B>OK</B><BR>";