#!/usr/bin/perl -wT

#  Licensed to the Apache Software Foundation (ASF) under one
#  or more contributor license agreements.  See the NOTICE file
#  distributed with this work for additional information
#  regarding copyright ownership.  The ASF licenses this file
#  to you under the Apache License, Version 2.0 (the
#  "License"); you may not use this file except in compliance
#  with the License.  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
#  Unless required by applicable law or agreed to in writing, software
#  distributed under the License is distributed on an "AS IS" BASIS,
#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#  See the License for the specific language governing permissions and
#  limitations under the License.
use strict;
use CGI;

my $q = new CGI;

my $timestamp=localtime;
my $temlate=$ENV{HTTP_X_TEMPLATE};
my $template="on";

my $ip_addr="209.131.50.200";

if ( $template ) {
  print $q->header ( -type => "text/html", -x_template => "true" );
  print $q->start_html( -title => "Template page" );

  print "<TABLE COLS=2 WIDTH=\"500\" HEIGHTH=\"300\" NOSAVE >";
  print "<TR NOSAVE>";
  print "<TD BGCOLOR=\"#FFCCCC\" NOSAVE><FONT SIZE=+2>";
  print "<DYNAMIC>\n";
  print   "CACHEABLE=true\n";
  print	  "BLOCKNAME=block1\n";
  print   "URL=http://$ip_addr/cgi-bin/block1.cgi?QSTRING\n";
  print   "TTL=3600\n";
  print   "KEY\n";
  print     "QUERY=user\n";
  print"</DYNAMIC>";
  print "</FONT></TD>";
  print "<TD BGCOLOR=\"#FFFFCC\" NOSAVE><FONT SIZE=+2>";
  print "<DYNAMIC>\n";
  print    "CACHEABLE=true\n";
  print    "BLOCKNAME=block2\n";
  print    "URL=http://$ip_addr/cgi-bin/block2.cgi?QSTRING\n";
  print    "TTL=60\n";
  print    "KEY\n";
  print       "QUERY=city\n";
  print "</DYNAMIC>";
  print "</FONT></TD>";
  print "</TR>";
  print "<TR NOSAVE>";
  print "<TD BGCOLOR=\"#CCFFFF\" NOSAVE><FONT SIZE=+2>";
  print "<DYNAMIC>\n";
  print    "CACHEABLE=false\n";
  print    "BLOCKNAME=block3\n";
  print    "URL=http://$ip_addr/cgi-bin/block3.cgi?QSTRING\n";
  print "</DYNAMIC>";
  print "</FONT></TD>";
  print "<TD BGCOLOR=\"#99FFCC\" NOSAVE><FONT SIZE=+2>";
  print "<DYNAMIC>\n";
  print    "CACHEABLE=true\n";
  print    "BLOCKNAME=block4\n";
  print    "URL=http://$ip_addr/cgi-bin/block4.cgi?QSTRING\n";
  print    "TTL=30\n";
  print    "KEY\n";
  print       "QUERY=news\n";
  print "</DYNAMIC>";
  print "</FONT></TD>";
  print "</TR>";
  print "</TABLE>";



} else {
  print $q->header ( -type => "text/html" );
  print $q->start_html( -title => "Regular Html page" );
  print $q->p( "Sorry you're proxy is not template enabled" );

}

print $q->p( "<FONT SIZE=+2>" );
print $q->p( "Template page generated on ", $q->b( $timestamp ) ); 
print $q->p( "</FONT>" );

print $q->end_html;