#!/usr/local/bin/perl 
print "Content-Type: text/html\015\012\015\012";

$initpage=$ENV{HTTP_REFERER};



($header,$dummy,$url,$page) = split(/\//,$initpage,4);

($a,$b) = split(/\?/,$page);
$page=$a;

$url =~ tr/a-z/A-Z/;
$pag2=$page;
$pag2 =~ tr/a-z/A-Z/;
$pos1=rindex $url, "ECHOECHO.COM";
$pos2=rindex $url, "WWW.ECHOECHO.COM";
$pos3=rindex $url, "..";
$pos4=rindex $pag2, ".HTM";
if ($page ne "" && ($pos1==0 || $pos2==0) && $pos3==-1 && $pos4>1)
{
 print '<link rel="stylesheet" type="text/css" href="http://www.echoecho.com/ee.css" />';
 print '<style type="text/css">';
 print '.headline{font-family:"times new roman"; font-size:26px; color:#aa0000;font-weight:bold;}';
 print '.subline{font-family:technical; font-size:16px; color:#000000;font-weight:bold;}';
 print '</style>';

 open(FILE,$page);
 @lines=<FILE>;
 close(FILE);
 $go=0;
# print "<table><tr><td><img src='logo.gif'></td><td><font style='font-size:28px;font-weight:bold;'>Better Than Books<br>- As Easy As It Gets!</font></td></tr></table>";

 print '<table width="568"><tr>';
 foreach $line (@lines)
 {
  if ($go==0)
  {
   $pos1= rindex $line, '<div class="subline"';
   $pos2= rindex $line, '<div class="headline"';
   if ($pos1>-1 && $pos2>-1) 
   {
   print "<td><hr>$line<hr><div align='center'><small><small>Printed from http://www.echoecho.com/".$page." - Copyright &copy; 1999-2002 by NetKontoret, Copenhagen, Denmark</small></small></div><hr><td></tr><tr>";
   }
   $pos= rindex $line, "<!-- MAIN -->"; 
   if ($pos>-1) {$go=1}
  }
  if ($go==1){$pos= rindex $line, "<!-- /MAIN -->"; if ($pos>-1) {$go=2}}
  if ($go==1) 
  {
   $posx= rindex $line, 'class="boxprevnext"';
   if ($posx==-1) {print $line;}
  }
 }
 print "</tr><tr><td>";
 print "<hr>";
 print '<small><small><b>Copyright &copy; 1999, 2000, 2001, 2001 by NetKontoret - All Rights Reserved<br>This page can be found online at: <a href="'.initpage.'">'.$initpage.'</a><br>The print is for personal use - and may not be reproduced in any form without written approval from NetKontoret.<br>For full details about copyright and contact information please visit <a href="http://www.echoecho.com/termsofuse.htm">http://www.echoecho.com/termsofuse.htm</a></b></small></small><hr>';
 print "</td></tr></table>";
}
else
{
print 'An error occured, when trying to generate the page: '.$page.'['.$a.'] ['.$b.'] ['.$initpage.'] <br><br>please report to <a href="mailto:error@netkontoret.dk">error@netkontoret.dk</a>';
}