view release on metacpan or  search on metacpan

TODO  view on Meta::CPAN

[Fixed] Install documentation
[Fixed] $VERSION in all files: ($VERSION) = qq$Revision: 1.23 $ =~ /([\d\.]+)/;
[Fixed] Remove old data in sql/mysql.sql
[Fixed] Check_before needs Debug?
[Fixed] Howto make a set of templates?
[Fixed] Added README
[Fixed] Cname *'s anyway
[Fixed] Length of records can be exceeded?
[Fixed] Color of fields in view_domain should be changeable via PerlSetVar. Apache::DnsZone::Config has defaults, remember to write docs for this
[Fixed] PTR support (for ipv4)
[Fixed] AAAA support using Net::IP for expanding addresses (including bin/ for AAAA)

For 1.0 to be released (So far):

[Medium] Use of uninitialized value (SOA)
[Medium] remove references to /admin and to specific action=blah stuff? $SUBMIT_URL in all templates?
[Medium] use of uninitialized value in DnsZone.pm (maybe be turned of with PerlWarn off

Documentation/Configuration page on website

Forgotten password feature?

lib/Apache/DnsZone.pm  view on Meta::CPAN

 	            $dbh->close();
		    return OK;
	        }
	    }
	    elsif (/^AAAA$/) { 
		# actually there needs to be another check to see if they really exists the parameters maybe up in the checking of the rec_lock
		my $all_set = 1;
		my $ipv6 = apr()->param('ipv6');

		if (ip_is_ipv6($ipv6)) {
		    $ipv6 = ip_expand_address($ipv6, 6); # to always have the correct full address to match against
		} else {
		    $all_set = 0;
		}
		my $host = "";
		if (!($host = check_fqdn(apr()->param('host'), $domain))) {
		    $all_set = 0;
		}
		my $ttl = apr()->param('ttl');
		if (!check_ttl($ttl)) {
		    $all_set = 0;

lib/Apache/DnsZone.pm  view on Meta::CPAN

 	            $dbh->close();
		    return OK;
	        }
	    }
	    elsif (/^AAAA$/) { 
		# actually there needs to be another check to see if they really exists the parameters maybe up in the checking of the rec_lock
		my $all_set = 1;
		my $ipv6 = apr()->param('ipv6');
                if (ip_is_ipv6($ipv6)) {
		    $ipv6 = ip_expand_address($ipv6, 6); # to always have the correct full address to match against
		} else {
		    $all_set = 0;
		}
		my $host = "";
		if (!($host = check_fqdn(apr()->param('host'), $domain))) {
		    $all_set = 0;
		}
		my $ttl = apr()->param('ttl');
		if (!check_ttl($ttl)) {
		    $all_set = 0;