#!/usr/bin/perl5

$templates = "oncatalog/templates/";
$datafiles = "oncatalog/datafiles/";
$header = "header.txt";
$footer = "footer.txt";


local (*in) = @_ if @_;  local ($i, $loc, $key, $val);
 if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'};} 
 elsif ($ENV{'REQUEST_METHOD'} eq "POST")
      {read(STDIN,$in,$ENV{'CONTENT_LENGTH'});}
 @in = split(/&/,$in);
 foreach $i (0 .. $#in) {
  $in[$i] =~ s/\+/ /g;    ($key, $val) = split(/=/,$in[$i],2);
  $key =~ s/%(..)/pack("c",hex($1))/ge;
  $val =~ s/%(..)/pack("c",hex($1))/ge;
  $in{$key} .= "\0" if (defined($in{$key})); 
  $in{$key} .= $val;  
  } 

  $number = $in{'id'};


print "Content-Type: text/html\n\n";



open(TXT,"$datafiles$number/$number.txt");
   @data = <TXT>;
close(TXT);

@line0 = split(/\|/, @data[0]);
$title = @line0[2];

open(HEADER,"$templates$header");
foreach $line (<HEADER>) {
   $line =~ s/##TITLE##/$title/g;
   print $line;
}
close(HEADER);


open(TXT,"$datafiles$number/pop.txt");
   @popdata = <TXT>;
close(TXT);

for ($i = 1; $i < @data; $i++) {

   @splitpop = split(/\|/, @popdata[$i]); 
   @splitdata = split(/\|/, @data[$i]);



   open(FILE,"$templates@splitdata[0].txt");
      @file = <FILE>;
   close(FILE);

   if (@splitdata[1] =~ /.txt/) {
      open(TXT,"$datafiles$number/@splitdata[1]");
         @data1 = <TXT>;
      close(TXT);
   }
   else {
      if (@splitpop[1] =~ /EXP/) {
         @data1 = qq!<a href="$datafiles$number/EXP@splitdata[1]"><img alt="Click here for larger view" border="0" src="$datafiles$number/@splitdata[1]"></a>!;
      }
      else {
         @data1 = qq!<img border="0" src="$datafiles$number/@splitdata[1]">!;
      }
   }

   if (@splitdata[2] =~ /.txt/) {
      open(TXT,"$datafiles$number/@splitdata[2]");
         @data2 = <TXT>;
      close(TXT);
   }
   else {
      if (@splitpop[2] =~ /EXP/) {
         @data2 = qq!<a href="$datafiles$number/EXP@splitdata[2]"><img alt="Click here for larger view" border="0" src="$datafiles$number/@splitdata[2]"></a>!;
      }
      else {
         @data2 = qq!<img border="0" src="$datafiles$number/@splitdata[2]">!;
      }
   }

   if (@splitdata[3] =~ /.txt/) {
      open(TXT,"$datafiles$number/@splitdata[3]");
         @data3 = <TXT>;
      close(TXT);
   }
   else {
      if (@splitpop[3] =~ /EXP/) {
         @data3 = qq!<a href="$datafiles$number/EXP@splitdata[3]"><img alt="Click here for larger view" border="0" src="$datafiles$number/@splitdata[3]"></a>!;
      }
      else {
         @data3 = qq!<img border="0" src="$datafiles$number/@splitdata[3]">!;
      }
   }

   if (@splitdata[4] =~ /.txt/) {
      open(TXT,"$datafiles$number/@splitdata[4]");
         @data4 = <TXT>;
      close(TXT);
   }
   else {
      if (@splitpop[4] =~ /EXP/) {
         @data4 = qq!<a href="$datafiles$number/EXP@splitdata[4]"><img alt="Click here for larger view" border="0" src="$datafiles$number/@splitdata[4]"></a>!;
      }
      else {
         @data4 = qq!<img border="0" src="$datafiles$number/@splitdata[4]">!;
      }
   }


   foreach $line (@file) {
      $line =~ s/##F1##/@data1/g;
      $line =~ s/##F2##/@data2/g;
      $line =~ s/##F3##/@data3/g;
      $line =~ s/##F4##/@data4/g;

      $line =~ s/##T1##/@data1/g;
      $line =~ s/##T2##/@data2/g;
      $line =~ s/##T3##/@data3/g;
      $line =~ s/##T4##/@data4/g;
      print $line;
   }
}

if (-e "parts/data/$number.pdf") {
   $bfill = qq!<a href="parts/data/$number.pdf">Click here for parts and maintenance information</a><BR>!;
}


for ($i=0; $i < 50; $i++) {

if (-e "parts/data/$number\_$i.pdf") {
$m = $i+2;
   $bfill .= qq!<a href="parts/data/$number\_$i.pdf">Page $m</a>  !;
}
}

open(FOOTER,"$templates$footer");
foreach $line (<FOOTER>) {
   $line =~ s/##bfill##/$bfill/g;
   print $line;
}
close(FOOTER);