#!/usr/local/bin/perl
$POST_MAX = 5000;
alarm(30);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;

##
## Internetprogrammering 3, uppgift 7, gesällprovet
## Henrik Johansson, DS80, vt2002
## 5/8 - 2002

if(param) {
  $user = param('id');
  print header('text/html');
  $file = "./templates/error.template";
  open TEMPLATE, "< $file" or die "Kunde inte öppna templatefilen: $file. $!";
  while($row = <TEMPLATE>) {
    $row =~ s/<!---user--->/$user/;
    print $row;
  }
  close TEMPLATE;
}