#! /usr/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser);
require './header.cgi';
require './cat.cgi';

sub fillinform {
  $search = $_[0];
  $database =~ s/\r//;
  open ( DATA, $database );
  while ( $field1 = <DATA> ) {
    ( $field2 = <DATA> ) =~ s/[\n,\r]//g;
    ( $field3 = <DATA> ) =~ s/[\n,\r]//g;
    ( $field4 = <DATA> ) =~ s/[\n,\r]//g;
    ( $field5 = <DATA> ) =~ s/[\n,\r]//g;
    ( $field6 = <DATA> ) =~ s/[\n,\r]//g;
    if ( $field3 eq $search ) {
      %FORM = (
        'year' => $field2,
        'comment' => $field4,
      	'imgsrc' => $field5,
      	'source' => $field6 );
      close ( DATA );
      return $FORM;
    }
  }
  close ( DATA );
  print "<b>There seems to be an error finding the requested id. Please report.</b>";
  
  return $FORM;
}

sub print_source () {
  ( $id2 = $_[0] ) =~ s/[\n,\r]//g;;
  open ( FILE, "sources" );
  $id = "None";
  
  while ( ( $id ne $id2 ) && ( $id = <FILE> ) ) {
    $id =~ s/[\n,\r]//g;
    $address = <FILE>;
    $comment = <FILE>;
  }
  
  close ( FILE );

  if ( !$id ) {
    print "<b>Bron:</b> Onbekend<br>\n";
  }
  else {
    print "<b>Bron:</b> <a href=\"http://$address\">$comment</a><br>\n";
  }
}

sub parseinput {
  $buffer = $ENV{'QUERY_STRING'};
  @pairs = split(/&/, $buffer); 

  foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $FORM{$name} = $value;
  } 
  
  if ( $FORM{'id'} ) {
    # go and find the record with this ID in the database.
    $database = $FORM{'file'};
    $FORM = &fillinform ( $FORM{'id'} );
  }
    
  return $FORM;
}

header ( "Foto" );

$FORM = &parseinput;

print "<table cellpadding = 10><tr>\n";
$imgsrc = $FORM{'imgsrc'};
$imgsrc =~ s/ /%20/g;
print<<END 
  <td halign = center><img src="$imgsrc">
END
;
print "<td valign=top>\n";
print "<b>Jaar:</b> $FORM{'year'}<br>";
print "$FORM{'comment'}<br>";
&print_source ( $FORM{'source'} );
print "</table>\n";

cat ( "footer.html" );