Apache-DnsZone
view release on metacpan or search on metacpan
htdocs/style.css view on Meta::CPAN
body { color: #111111; font-size: 10pt; font-family: Verdana, Helvetica, Arial; }
H1 { color: black; font-size: 16pt; font-weight: bold; font-family: Helvetica, Arial; }
H2 { color: black; font-size: 14pt; font-weight: bold; font-family: Helvetica, Arial; }
H3 { color: black; font-size: 12pt; font-family: Helvetica, Arial; }
PRE { color: black; font-size: 12pt; font-family: courier; }
TD { color: black; font-size: 10pt; font-family: Verdana, Helvetica, Arial; }
TH { color: white; font-size: 10pt; font-weight: bold; font-family: Verdana, Helvetica, Arial; }
TH A:visited { color: white; };
TH A:link { color: white; };
.menu { color: black; font-size: 10pt; font-family: Verdana, Helvetica, Arial; }
.submenu { color: black; font-size: 10pt; font-family: Verdana, Helvetica, Arial; }
.content { color: black; font-family: Verdana, Arial, Helvetica; }
.toc { font-family: Verdana, Arial, Helvetica; color: #666666; }
.loc { font-family: Verdana, Arial, Helvetica; color: #999999; font-size: 8pt; }
.login { text-align: center; border-width: 2px; border-color: gray; }
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(ADDITIONAL_MENU => qq{<a href="/admin?action=default">$lang{LIST_DOMAIN}</a> | });
}
$tpl->assign(LANG_VALUE => $dbh->lang_select_box($uid, $lang_id));
$tpl->assign(EMAIL_VALUE => encode_entities(apr()->param('user_email')));
$tpl->assign(NEW_PASSWORD_VALUE => encode_entities(apr()->param('password')));
$tpl->assign(CONFIRM_PASSWORD_VALUE => encode_entities(apr()->param('password_confirm')));
if (!($user_email = check_email($user_email))) {
$tpl->assign(EMAIL => qq{<font color="red">} . $lang{EMAIL} . qq{</font>});
}
if (!check_lang($lang_id)) {
$tpl->assign(LANGUAGE => qq{<font color="red">} . $lang{LANGUAGE} . qq{</font>});
}
if (apr()->param('password') && apr()->param('password') ne '' && apr()->param('password_confirm') && apr()->param('password_confirm') ne '') {
if (!(apr()->param('password') eq apr()->param('confirm_password'))) {
$tpl->assign(NEW_PASSWORD => qq{<font color="red">} . $lang{NEW_PASSWORD} . qq{</font>});
$tpl->assign(CONFIRM_PASSWORD => qq{<font color="red">} . $lang{CONFIRM_PASSWORD} . qq{</font>});
}
}
if ((apr()->param('password') && !apr()->param('password_confirm')) || (!apr()->param('password') && apr()->param('password_confirm'))) {
$tpl->assign(NEW_PASSWORD => qq{<font color="red">} . $lang{NEW_PASSWORD} . qq{</font>});
$tpl->assign(CONFIRM_PASSWORD => qq{<font color="red">} . $lang{CONFIRM_PASSWORD} . qq{</font>});
}
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["settings", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
output_headers($r, 1, length(${$content_ref}));
$r->print(${$content_ref});
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'a/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IP_ADDRESS_VALUE => encode_entities(apr()->param('ip')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!($ip = check_ip($ip))) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_A
if ($all_set) {
# this means check_before_add_A failed!
# text for error?
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'aaaa/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IPV6_ADDRESS_VALUE => encode_entities(apr()->param('ipv6')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!ip_is_ipv6($ipv6)) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IPV6}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_AAAA
if ($all_set) {
# this means check_before_add_AAAA failed!
# text for error?
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'cname/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(CNAME_VALUE => encode_entities(apr()->param('cname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!check_cname_host($cname)) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_CNAME}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
# means check_before_add_CNAME failed
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'mx/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(MX_VALUE => encode_entities(apr()->param('exchanger')));
$tpl->assign(PREFERENCE_VALUE => encode_entities(apr()->param('preference')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_exchanger($exchanger)) {
$tpl->assign(MX => qq{<font color="red">} . $lang{MX} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_MX}};
}
if (!check_preference($preference)) {
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_PREFERENCE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
# means check_before_add_MX failed
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'ns/add.tpl');
$tpl->assign(ZONE_VALUE => encode_entities(apr()->param('zone')));
$tpl->assign(NS_VALUE => encode_entities(apr()->param('nsdname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($zone = check_fqdn_ns(apr()->param('zone'), $domain))) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ZONE}};
}
if (!check_nameserver($nameserver)) {
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_NS}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'ptr/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(REVERSE_HOST_VALUE => encode_entities(apr()->param('reverse')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
# and the error text getting
my $error_text = $lang{ERROR_CORRECT};
if (!(check_host(apr()->param('host')))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!($host = check_reverse(apr()->param('reverse'), $domain))) {
$tpl->assign(REVERSE => qq{<font color="red">} . $lang{REVERSE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REVERSE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
# check_before_add_PTR
if ($all_set) {
# this means check_before_add_PTR failed!
# text for error?
$tpl->assign(REVERSE => qq{<font color="red">} . $lang{REVERSE} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
my $content_ref = $tpl->fetch("MAIN");
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'txt/add.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(TXT_VALUE => encode_entities(apr()->param('txtdata')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_txt($txtdata)) {
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TXT}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('default_ttl')));
my ($auth_ns, $serial) = $dbh->get_authns_serial($dom_id);
$tpl->assign(AUTH_NS_VALUE => $auth_ns);
$tpl->assign(SERIAL_VALUE => $serial);
my $error_text = $lang{ERROR_CORRECT};
if (!check_ttl($refresh)) {
$tpl->assign(REFRESH => qq{<font color="red">} . $lang{REFRESH} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REFRESH}};
}
if (!check_ttl($retry)) {
$tpl->assign(RETRY => qq{<font color="red">} . $lang{RETRY} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_RETRY}};
}
if (!check_ttl($expire)) {
$tpl->assign(EXPIRE => qq{<font color="red">} . $lang{EXPIRE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_EXPIRE}};
}
if (!check_ttl($default_ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if (!($soa_email = check_email($soa_email))) {
$tpl->assign(ADMIN_EMAIL => qq{<font color="red">} . $lang{ADMIN_EMAIL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ADMIN_EMAIL}};
}
if ($soa_email =~ /\..*?\@/) {
# is there a dot before the @ => invalid for a soa email
$tpl->assign(ADMIN_EMAIL => qq{<font color="red">} . $lang{ADMIN_EMAIL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ADMIN_EMAIL}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'a/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IP_ADDRESS_VALUE => encode_entities(apr()->param('ip')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!($ip = check_ip(apr()->param('ip')))) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(IP_ADDRESS => qq{<font color="red">} . $lang{IP_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'aaaa/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(IPV6_ADDRESS_VALUE => encode_entities(apr()->param('ipv6')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!ip_is_ipv6($ipv6)) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IPV6}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(IPV6_ADDRESS => qq{<font color="red">} . $lang{IPV6_ADDRESS} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'cname/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(CNAME_VALUE => encode_entities(apr()->param('cname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!check_cname_host($cname)) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_CNAME}};
}
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(CNAME => qq{<font color="red">} . $lang{CNAME} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'mx/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(MX_VALUE => encode_entities(apr()->param('exchanger')));
$tpl->assign(PREFERENCE_VALUE => encode_entities(apr()->param('preference')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_exchanger($exchanger)) {
$tpl->assign(MX => qq{<font color="red">} . $lang{MX} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_MX}};
}
if (!check_preference($preference)) {
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_PREFERENCE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(PREFERENCE => qq{<font color="red">} . $lang{PREFERENCE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'ns/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('zone')));
$tpl->assign(NS_VALUE => encode_entities(apr()->param('nsdname')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($zone = check_fqdn_ns(apr()->param('zone'), $domain))) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_ZONE}};
}
if (!check_nameserver($nameserver)) {
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_NS}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(ZONE => qq{<font color="red">} . $lang{ZONE} . qq{</font>});
$tpl->assign(NS => qq{<font color="red">} . $lang{NS} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->define(record => 'ptr/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host'))); # maybe it needs to fully qualify it if it was okay?
$tpl->assign(REVERSE_HOST_VALUE => encode_entities(apr()->param('reverse')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
# do the red-marker assignment
my $error_text = $lang{ERROR_CORRECT};
if (!(check_host(apr()->param('host')))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_IP}};
}
if (!($host = check_reverse(apr()->param('reverse'), $domain))) {
$tpl->assign(REVERSE_HOST => qq{<font color="red">} . $lang{REVERSE_HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_REVERSE}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(REVERSE_HOST => qq{<font color="red">} . $lang{REVERSE_HOST} . qq{</font>});
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
lib/Apache/DnsZone.pm view on Meta::CPAN
$tpl->assign(TITLE => $page_title);
$tpl->define(record => 'txt/edit.tpl');
$tpl->assign(HOST_VALUE => encode_entities(apr()->param('host')));
$tpl->assign(TXT_VALUE => encode_entities(apr()->param('txtdata')));
$tpl->assign(TTL_VALUE => encode_entities(apr()->param('ttl')));
my $error_text = $lang{ERROR_CORRECT};
if (!($host = check_fqdn(apr()->param('host'), $domain))) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_HOST}};
}
if (!check_txt($txtdata)) {
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TXT}};
}
if (!check_ttl($ttl)) {
$tpl->assign(TTL => qq{<font color="red">} . $lang{TTL} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_TTL}};
}
if ($all_set) {
$tpl->assign(HOST => qq{<font color="red">} . $lang{HOST} . qq{</font>});
$tpl->assign(TXT => qq{<font color="red">} . $lang{TXT} . qq{</font>});
$error_text .= qq{<br>$lang{ERROR_DUPLICATE}};
}
$tpl->assign(EXPLANATION => $error_text);
$tpl->assign(DOM_ID => $dom_id);
$tpl->assign(RECORD_ID => $record_id);
$tpl->parse(MENU => "menu");
$tpl->parse(MAIN => ["record", "layout"]);
templates/standard/view_domain/a.tpl view on Meta::CPAN
<font face="Helvetica">A</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$HOST</th>
<th colspan="2" width="200" align="left">$IP_ADDRESS</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$A_ADD</th>
</tr>
$A_RECORD
</table>
<br>
templates/standard/view_domain/aaaa.tpl view on Meta::CPAN
<font face="Helvetica">AAAA</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$HOST</th>
<th colspan="2" width="200" align="left">$IPV6_ADDRESS</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$AAAA_ADD</th>
</tr>
$AAAA_RECORD
</table>
<br>
templates/standard/view_domain/cname.tpl view on Meta::CPAN
<font face="Helvetica">CNAME</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$HOST</th>
<th colspan="2" width="200" align="left">$CNAME</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$CNAME_ADD</th>
</tr>
$CNAME_RECORD
</table>
<br>
templates/standard/view_domain/mx.tpl view on Meta::CPAN
<font face="Helvetica">MX</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$HOST</th>
<th width="98" align="left">$MX</th>
<th width="98" align="left">$PREFERENCE</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$MX_ADD</th>
</tr>
$MX_RECORD
</table>
templates/standard/view_domain/ns.tpl view on Meta::CPAN
<font face="Helvetica">NS</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$ZONE</th>
<th colspan="2" width="200" align="left">$NS</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$NS_ADD</th>
</tr>
$NS_RECORD
</table>
<br>
templates/standard/view_domain/ptr.tpl view on Meta::CPAN
<font face="Helvetica">PTR</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$REVERSE_HOST</th>
<th colspan="2" width="200" align="left">$HOST</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$PTR_ADD</th>
</tr>
$PTR_RECORD
</table>
<br>
templates/standard/view_domain/soa.tpl view on Meta::CPAN
<font face="Helvetica">SOA</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$SERIAL</th>
<th width="200" colspan="2" align="left">$ADMIN_EMAIL</th>
<th width="204" colspan="2" align="left">$AUTH_NS</th>
<!-- <th align="left">$REFRESH</th>
<th align="left">$RETRY</th>
<th align="left">$EXPIRE</th>
<th align="left">$TTL</th>-->
<!--<th width="100"> </th>-->
templates/standard/view_domain/txt.tpl view on Meta::CPAN
<font face="Helvetica">TXT</font><br>
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#6699CC">
<th width="100" align="left">$HOST</th>
<th colspan="2" width="200" align="left">$TXT</th>
<th width="100" align="left">$TTL</th>
<th width="100" align="right">$TXT_ADD</th>
</tr>
$TXT_RECORD
</table>
<br>
( run in 2.510 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )