#!/local/bin/perl
#use LWP::Simple;

if ($ENV{'QUERY_STRING'} eq "h") { # Hjemmetabell
  $tab = "htab.txt";
  $overskrift = "Hjemmetabell";
  $navn = "hjemmetabellen";
} elsif ($ENV{'QUERY_STRING'} eq "b") { # Bortetabell
  $tab = "btab.txt";
  $overskrift = "Bortetabell";
  $navn = "bortetabellen"; 
} else { # Vanlig tabell
  $tab = "tab.txt";
  $overskrift = "Tabell";
  $navn = "tabellen";
}

#mirror("http://www.dagbladet.no/tippeligaen/".$navn.".html", "$tab");


open(INFILE,"$tab") || die &error;

my($line);
$tab_begin = 0;
$tabhead_begin = 0;
$linecnt = 0;

print ("Content-type: text/html\n\n");
&include("/www/www.vpn.no/docs/arkivet/00/incl/meny.html"); # includes-fil
&include("/www/www.vpn.no/docs/arkivet/00/incl/topp.shtml"); # includes-fil

print <<HeadOfTable1;
<b>Tabellen</b>
</FONT>
&nbsp;</TD>
</TR>
</TABLE>
&nbsp;<br>
<FONT  face="Arial, Helvetica" size="+1" class="overskrift"><b>
<img src="../gfx/dot.gif">
HeadOfTable1

print $overskrift." for 2000-sesongen";

print <<HeadOfTable2;
</b></FONT><br>
<IMG src="../gfx/hr.gif" width="410" height="2" alt="-"><br>
<FONT face="Arial, Helvetica" size="-1"><p>
HeadOfTable2




foreach $line  (<INFILE>) {
   $line =~ s/<b>//g; # Fjerner alle <b>-tagger
   $line =~ s/<B>//g;
   
   $line =~ s/<\/b>//g;# Fjerner alle </b>-tagger
   $line =~ s/<\/B>//g;
   
   $line =~ s/<\/a>//g;# Fjerner alle </a>-tagger
   $line =~ s/<\/A>//g;

   if ($line =~ /face=\"arial,helvetica\">$navn<\/font>/i) { # Her starter overskriften for tabellen
     $tabhead_begin = 1;
   }
   if (($tabhead_begin) && ($line =~ /<table/i)) { # Deteksjon av start paa <table>-koden
     $tab_begin = 1;
     $tabhead_begin = 0;
   }
   if (($tab_begin) && ($line =~ /<\/table/i)) { # Deteksjon av slutt paa <table>-koden
     $tab_begin = 0;
     print "$line";
   }
   
   if ($tab_begin){ # Start "rensking" av tabell
   
     if ($line =~ /<tr/i) { # Teller antall linjer/plassering
       $linecnt++;
       if ($linecnt eq 13) { # Legger til <HR> for kvalikkslag
         print "<tr>\n<td colspan=\"7\">\n<hr size=\"1\" noshade color=\"silver\">\n</td>\n</tr>\n";
       } elsif ($linecnt eq 14) { # Legger til <HR> for nedrykkslag
         print "<tr>\n<td colspan=\"7\">\n<hr size=\"1\" noshade color=\"black\">\n</td>\n</tr>\n";
       }
     }
     
     if ($line =~ /<tr bgcolor=/i) { # Fjerner bakgrunnsfarge i heading 
       print "<TR>\n";
       
     } elsif ($line =~ /color/i) { # Fjerner forgrunnsfarge i heading
       @words = split(/ /, $line);
       foreach $word (@words) {
         if ($word =~ /color/i) {
           #print '';
         } else {
           #print ' '.$word; 
         }
       }
       
     } elsif ($line =~ /href/i) { # Fjerner linker til lagene
       @words = split(/html\">/i, $line);
       foreach $word (@words) {
         if ($word =~ /size=\"/i){
           print '<TD ALIGN="LEFT"><FONT FACE="Arial,Helvetica" SIZE="-1">';
         } elsif ($word =~ /lerenga/i) { # Legger til <B> for Vaalerenga
           print '<b>V&aring;lerenga</b></FONT></TD>'."\n";
         } else {
           print $word; 
         }
       }
         
     } elsif (($line =~ /<td/i) && ($linecnt == 2)) { # Erstatter "size=+0" med "size=-1" for lag nr 1
       @words = split(/"/, $line);
       foreach $word (@words) {
         if ($word =~ /\+0/){
           print '"-1"';
         } else {
           print $word; 
         }  
       }

    } else {
       print $line;
     }   
        
    
   } # end if tab_begin
} # end foreach
close(INFILE);

	print	<<MiddleOfFile;
<!---------//Hovedtekst------------->
</TD>
<TD width="10" valign="top"><IMG src="../gfx/hvdot2.gif" width="10" height="1"></TD>
<TD width="120" valign="top" bgcolor="EEEEEE" rowspan="2">
<TABLE width="100%" border="0" cellpadding="3"><TR><TD>
<!---------Høyremarg------------->
<font size="-1">
Hjemmetabell <A href="?h"><IMG src="../gfx/pil.gif" width="13" border="0" height="13" alt="Les mer"></a>
Bortetabell <A href="?b"><IMG src="../gfx/pil.gif" width="13" border="0" height="13" alt="Les mer"></a>
<!---------//Høyremarg------------->
MiddleOfFile


&include("/www/www.vpn.no/docs/arkivet/00/incl/bunn.html"); # includes-fil


sub include {
  my($m) = ($_[0]);
  open (PLUG,$m);
  foreach $ret  (<PLUG>) {
    print ($ret);
  }
  close(PLUG);
}


sub error {
  print "Feil ved lesing av tabell";
}