<%doc>
############################################################################
###    (C)opyright 2003 - 2008 RIPE NCC
###    This file is part of DNSMon
###
###    DNSMon is free software: you can redistribute it and/or modify
###    it under the terms of the GNU General Public License as published by
###    the Free Software Foundation, either version 3 of the License, or
###    (at your option) any later version.
###
###    DNSMon is distributed in the hope that it will be useful,
###    but WITHOUT ANY WARRANTY; without even the implied warranty of
###    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
###    GNU General Public License for more details.
###
###    You should have received a copy of the GNU General Public License
###    along with DNSMon.  If not, see <http://www.gnu.org/licenses/>.
############################################################################

This is the main autohandler defining the page format.

The page format has all constant elements like menus 
along the top in order to provide maximum width to 
the plots which are, after all, the whole point of
the pages.
</%doc>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
<head>
	<title>RIPE NCC DNS Monitoring Services</title>

	<link rel="SHORTTCUT ICON" href="http://www.example.net/favicon.ico" />
	<meta http-equiv="Content-Language" content="en" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta http-equiv="Content-Script-Type" content="text/javascript" />
	<meta name="Format" content="HTML" />
	<meta name="Type" content="Web Page" />
	<meta name="Function" content="Home Page" />
	<meta name="Availability" content="Public - Members" />
	<meta name="Description" content="The RIPE Network Co-ordination Centre (RIPE NCC) is a non profit organisation supporting the RIPE Community. The RIPE NCC is one of four Regional Internet Registries that manage Internet resource allocations such as IP addresses and Autonomous System numbers." />
	<meta name="keywords" content="RIPE Network Coordination Centre, RIPE NCC, RIPE, Regional Registry, RIR, Whois Database,Address Supporting Organisation, ASO, IP numbers,Whois Database, RIPE Region Hostcount, RIPE Database, RIPE Whois Database, RIPE Meeting, IPv4, IPv6,IP Address Space,Local IR, RIR, ERX, ENUM, Reverse Delegation, ARIN, APNIC, LACNIC, ICANN, IANA" />

	<meta name="author" content="RIPE NCC" />
	<meta name="copyright" content="RIPE NCC" />
	<meta name="expires" content="never" />
	<meta name="revisted-after" content="7 days" />
	<meta name="robots" content="all" />

	<!--start stylesheet defenitions-->

	<link rel="stylesheet" href="http://www.example.net/css/ripe-ncc.css" type="text/css" />
	<link rel="stylesheet" href="/dnsmon.css" type="text/css" />

	<!--end of style sheet info-->

	<!-- load javascripts -->

	<script language="javascript" src="/js/prototype.js" type="text/javascript" ></script>
	<script language="javascript" src="/js/scriptaculous.js" type="text/javascript" ></script>

	<!-- end of loading javascripts -->

</head>
<body>

<!--end of head, start of body-->

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bg-topnav">
	<tr> 
		<td align="left"><img src="http://www.example.net/images/navigation/tabs-ncc-new.gif" alt="" width="443" height="24" border="0" usemap="#maintabs" /></td>
		<td align="right" nowrap="nowrap" ><a href="http://www.example.net/info/ncc/about.html" class="topnav" title="About the RIPE NCC">About RIPE NCC</a>  &nbsp; &nbsp; </td>
	</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" summary="Main content">
	<tr>
		<td colspan="2" rowspan="3" align="left" valign="top">
			<a href="http://www.example.net/" title="Link to the RIPE NCC Homepage"><img src="http://www.example.net/images/logo-ncc.gif" alt="Homepage RIPE NCC" title="Homepage RIPE NCC" width="176" height="101" border="0" /></a>
		</td>
		<td width="1" height="62">&nbsp;</td>
		<td colspan="2" valign="top"  class="bg-header">
			<table width="100%" border="0" cellpadding="2" cellspacing="0" summary="markup table">
				<tr>
					<td width="100%" height="62" valign="bottom">
						<span class="titleheader">DNSMON</span>
					</td>
					<td width="231" valign="bottom" nowrap="nowrap" align="right">
					</td>
				</tr>
			</table>
		</td>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
	</tr>
	<tr>
		<td height="18"></td>
		<td width="100%"></td>
		<td width="1"></td>
		<td></td>
		<td></td>
	</tr>
	<!--create some gutter for breadcrumbs, use middle table-->

	<tr>
		<td height="21"></td>
		<td valign="top" class="breadcrumbs"><img src="http://www.example.net/images/spacer.gif" width="1" height="10" alt="Next Section" /> 
			<a href="/dns-servmon/index.html">Home</a> 
% if (exists($ARGS{af}) && $ARGS{af} eq 'ipv4') {
			| <b>IPv4</b> / <a href="<& /lib/url, path => $r->uri, query => { %ARGS, af => 'ipv6' } &>">IPv6</a> 
% } elsif (exists($ARGS{af}) && $ARGS{af} eq 'ipv6') {
			| <a href="<& /lib/url, path => $r->uri, query => { %ARGS, af => 'ipv4' } &>">IPv4</a> / <b>IPv6</b>
% } else {
			| <a href="<& /lib/url, path => $r->uri, query => { %ARGS, af => 'ipv4' } &>">IPv4</a> / <a href="<& /lib/url, path => $r->uri, query => { %ARGS, af => 'ipv6' } &>">IPv6</a> 
% }
% my %myARGS = map { $_ => $ARGS{$_}} grep {/^(af)$/} keys %ARGS;
% if (exists($ARGS{domain})) {
			| <a href="<& /lib/url, path => '/dns-servmon/domain/', query => { %myARGS, domain => $ARGS{domain} } &> ">Domains</a>
% }  else {
			| <a href="<& /lib/url, path => '/dns-servmon/domain/', query => { %myARGS } &> ">Domains</a>
% }

% if (exists($ARGS{server})) {
			| <a href="<& /lib/url, path => '/dns-servmon/server/', query => { %myARGS, server => $ARGS{server} } &>">Servers</a> 
% }  else {
			| <a href="<& /lib/url, path => '/dns-servmon/server/', query => { %myARGS } &>">Servers</a> 
% }

% if (exists($ARGS{probe})) {
			| <a href="<& /lib/url, path => '/dns-servmon/probe/', query => { %myARGS, probe => $ARGS{probe} } &>">Probes</a> 
% }  else {
			| <a href="<& /lib/url, path => '/dns-servmon/probe/', query => { %myARGS } &>">Probes</a> 
% }
			| <a href="/dns-servmon/contact.html">Contact</a> 
			| <a href="/dns-servmon/guide.html">User Guide</a> | 

% if (not $TICKET) { 
			<a href="<% $linkLogin %>">Login</a> 
% }  else  { 
			<a href="<% $linkLogout %>">Logout</a>  | <a href="<% $linkChgPass %>">Change Password</a> 
% }
			| <a href="/dns-servmon/about.html">About DNSMON</a>
		</td>
		<td></td>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
	</tr>
	<tr>
		<td width="33"  valign="top"><img src="http://www.example.net/images/spacer.gif" width="33" height="1" alt="Next Section" /></td>
		<td colspan="4" valign="top">
			<!--end of left side, start of middle-->
			<table width="97%" border="0" cellpadding="0" cellspacing="0" summary="Main content">
				<tr>
					<td width="100%" rowspan="2" valign="top" align="left">
						<a name="top"></a>
%if ($TICKET && exists($CONFIG{customer_site_url}) && $r->hostname ne URI->new($CONFIG{customer_site_url})->host) {
						<div id="subscriber_site_available">A subscriber site <a href="<& /lib/url, host => URI->new($CONFIG{customer_site_url})->host, path => $r->uri, query => {split /[;&=]/, $r->args } &>">is available</a>!</div>
%}

						<!--end of top, start of content-->

% $m->call_next;

						<!--begin v6 disclaimer-->
% if (exists($ARGS{af}) && $ARGS{af} eq 'ipv6' ) {
    <h3>Important note regarding the interpretation of the IPv6 dnsmon data</h3>
<p>When you interpret the IPv6 dnsmon data, please note that dnsmon does
not measure the servers themselves, but the quality of the IPv6 service
at the probe locations. This includes the networks between our probes
and the target servers. Please also note that there are currently fewer
IPv6 probes than IPv4 probes.</p>

%}
						<!--end v6 disclaimer-->
						<!--end of included content-->

						<div id="w3cvalid">
							<p>
								<a href="http://jigsaw.w3.org/css-validator/check/referer">
								  <img style="border:0;width:88px;height:31px"
									   src="http://jigsaw.w3.org/css-validator/images/vcss" 
									   alt="Valid CSS!" />
								 </a>
								<a href="http://validator.w3.org/check?uri=referer"><img
								    style="border:0;width:88px;height:31px"
									src="http://www.w3.org/Icons/valid-xhtml10-blue"
									alt="Valid XHTML 1.0 Transitional" /></a>
							  </p>
						</div>
						<!--end of content-->
					</td>
				</tr>
			</table>
		</td>
        <td width="16" rowspan="2" valign="top"><img src="http://www.example.net/images/spacer.gif" alt="spacer" width="5" height="1" /></td>
        <td width="1"><img src="http://www.example.net/images/spacer.gif" alt="spacer" width="5" height="1" /></td>
	</tr>
<!--end of right side-->
	<tr>
		<td height="18" valign="top"></td>
		<td width="143" valign="top"></td>
		<td></td>
		<td></td>
		<td></td>
		<td></td>
	</tr>
</table>

<br /> 

<table width="100%" border="0" cellspacing="0" cellpadding="0" summary="footer">
	<!--DWLayoutTable-->
	<tr> 
		<td height="19" colspan="2" valign="top"><hr size="1" noshade="noshade" /> </td>
	</tr>
	<tr> 
		<td width="33" height="18" valign="top"><img src="http://www.example.net/images/spacer.gif" width="33" height="1" alt="spacer" /></td>
		<td width="100%"  align="left" valign="top">
			&nbsp;&nbsp;&nbsp;<a href="/dns-servmon/contact.html" class="footer" title="Contact DNSMON">Contact</a> 
			| <span class="footer">&copy;&nbsp;RIPE NCC. All rights reserved.</span> 
		</td>
	</tr>
	<tr>
		<td height="0"></td>
		<td></td>
	</tr>
</table>

<map name="maintabs" id="maintabs">
	<area shape="rect" coords="174,7,257,24" href="http://www.example.net/index.html" alt="home" title="RIPE NCC Homepage" />
	<area shape="rect" coords="267,3,351,24" href="https://lirportal.example.net/" alt="lirportal"  title="LIR Portal" />
	<area shape="rect" coords="358,4,441,24" href="http://www.example.net/ripe/index.html" alt="ripe" title="RIPE Community pages" />
</map>


</body>
</html>

<%flags>
    inherit => 'syshandler'
</%flags>

<%init>

	my (undef,$dir, $file) = File::Spec->splitpath($r->uri);

	my $linkChgPass = $m->scomp('/lib/url', path => '/dns-servmon/auth/password');
	my $linkLogin   = $m->scomp('/lib/url', path => '/dns-servmon/auth/login' );

	my $uri = URI->new($CONFIG{logout_url});
	my $linkLogout  = $m->scomp('/lib/url',
		scheme => $uri->scheme,
		host => $uri->host,
		port => $uri->port,
		path => $uri->path,
		query => {
			conf => $CONFIG{conf},
			forward_success => $m->scomp('/lib/url', host => $r->hostname,
				port => $r->get_server_port,
				path => '/dns-servmon/index.html'),
			forward_fail    => $m->scomp('/lib/url', host => $r->hostname,
				port => $r->get_server_port,
				path => '/dns-servmon/index.html'),
		  }
	  );

	use POSIX qw(strftime);

	my $source = $m->base_comp->comp_id;
	my $last_modified = undef;
	if ($source) {
		$last_modified =  strftime("%e %B %Y",localtime($m->interp->code_cache->{$source}->{'lastmod'}));
	}

</%init>
