SOA Record	MX Record	CNAME Record
A Record	NS Record

resetRR(); #set the RR counter to zero # Set a default view if($viewChoice =="") { $viewChoice = "View"; $type="SOA"; } /*********************************************/ /******* Main Functions begin below ********/ /*********************************************/ /******* ADD FUNCION *******/ if ($viewChoice == "Add") { switch ($type) { case("NS"): print "

"; print ""; print "
\n"; print ""; print "
\n"; print ""; print "

Domain Name
Preference
Hostname

\n"; print "getRR()) { # Remeber not to change the value of $rr but to $zone since # that's what really refers to the actual zone file if ( $rr->type=="A" && $rr->rhs->ipAddress == $ip ){ $zone->rr[$zone->curRR-1]->lhs = $host; } } $zone->saveZone(); print ""; break; case("AddA"): while ($rr = $zone->getRR()) { if ( $rr->type=="A" && $rr->rhs->ipAddress == $ip ){ $zone->error="Same IP already exist, Please check it"; $quit = 1; break; } } if ($quit) { print $zone->error; return(0); } else { $zone->addA($host, $ip); $zone->saveZone(); print ""; } break; case("MX"): while ($rr = $zone->getRR()) { if ( $rr->type == "MX" && $rr->rhs->preference == $pref && $rr->lhs == $domain){ $zone->rr[$zone->curRR-1]->rhs->hostname = $host; } } $zone->saveZone(); print ""; break; case("SOA"): while ($rr = $zone->getRR()) { if ( $rr->type == "SOA" ){ $zone->rr[$zone->curRR-1]->rhs->refresh = $refresh; $zone->rr[$zone->curRR-1]->rhs->retry = $retry; $zone->rr[$zone->curRR-1]->rhs->expire = $expire; } } $zone->saveZone(); print ""; break; # Be careful here, we only have one Name Server. For those of you who has # the luxury of having two, you gotta put more condition here. case("NS"): while ($rr = $zone->getRR()) { if ( $rr->type == "NS" && $rr->lhs == $domain){ $zone->rr[$zone->curRR-1]->rhs->hostname = $host; } } $zone->saveZone(); print ""; break; case("AddNS"): print "$domain
"; print "$host
"; print "$pref
"; break; } } /******* EDIT FUNCION *******/ elseif ($viewChoice == "Edit") { switch ($type) { case "A": print ""; print "\n"; print "

IP	$ip
Input New Name	"; print "

\n"; print ""; print "

"; print "*DO NOT forget the trailing dot if you ARE inputting a fully qualify domain name.
"; break; case "NS": print ""; print "

Input New Name

"; print "

\n"; print ""; print ""; print "*DO NOT forget the trailing dot if you ARE inputting a fully qualify domain name.
"; break; case "MX": print ""; print "\n"; print "\n"; print "

Domain	$domain
Preference	$pref
Input New Hostname	"; print "

\n"; print ""; print ""; print "*DO NOT forget the trailing dot if you ARE inputring a fully qualify domain name.
"; break; case "SOA": echo "\n"; while ($rr = $zone->getRR()) { if ($seenSOA == 0) { print ""; $seenSOA = 1; } if ($rr->type == "SOA"){ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n

SOA RECORD
Domain Name	" . $zone->domainName . "
Primary Name Server	" . $rr->rhs->priNS . "
Serial Number	" . $rr->rhs->serial . "
Refresh Timer	"; print "
Retry Timer	"; print "
Expire Timer	"; print "

"; print " "; $seenNS = 1; } if($rr->type == "NS") { print "" . $rr->lhs . " lhs . "&host=" . $rr->rhs->hostname . ">" . $rr->rhs->hostname . " \n"; } } print "\n"; break; case("A"): echo "\n"; while ($rr = $zone->getRR()) { if ($seenA == 0) { print ""; print ""; print ""; $seenA = 1; } if($rr->type == "A"){ print "\n"; } } print "

A RECORD
IP	Hostname
" . $rr->rhs->ipAddress . "	rhs->ipAddress . "&host=" . $rr->lhs . ">" . $rr->lhs . "

\n"; break; case("CNAME"): echo "\n"; while ($rr = $zone->getRR()) { if ($seenA == 0) { print ""; print ""; $seenA = 1; } if($rr->type == "CNAME"){ print "\n"; } } break; case("MX"): echo "

A RECORD
Host	CNAME To
$rr->lhs	rhs->hostname . ">" . $rr->rhs->hostname . "

\n"; while ($rr = $zone->getRR()) { if ($seenMX == 0) { print ""; print ""; $seenMX = 1; } if($rr->type == "MX") { print "\n"; print "\n"; print "\n"; } } print "

MX RECORD
Domain Name	MX Preference	Mail Server Name
" . $rr->lhs . "	" . $rr->rhs->preference . "	lhs . "&pref=" . $rr->rhs->preference . "&host=" . $rr->rhs->hostname . ">" . $rr->rhs->hostname . "

\n"; break; case("SOA"): echo "\n"; while ($rr = $zone->getRR()) { if ($seenSOA == 0) { print ""; $seenSOA = 1; } if ($rr->type == "SOA"){ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } } print "

SOA RECORD
Domain Name	" . $zone->domainName . "
Primary Name Server	" . $rr->rhs->priNS . "
Serial Number	" . $rr->rhs->serial . "
Refresh Timer	" . $rr->rhs->refresh . "
Retry Timer	" . $rr->rhs->retry . "
Expire Timer	" . $rr->rhs->expire . "

\n"; break; } } print $zone->error; ?>