#!/bin/perl -Tw
package main;
#
# Perl Development Kit Automated CGI Database Form Generator
#
use 5.004;
use strict;
use vars qw( $VERSION );
use lib qw( . );
use IHG::Wrap 1.000;
use IHG::Init 0.001;
use IHG::Session 0.001;
$VERSION = 0.001;
############
IHG::Init->enviroment('testfile');
my $session = new IHG::Session;
my $database = new IHG::DB;
print "content-type: text/html\nhej: hopp\n\n";
print "Test\n";
print "Testsida
\n";
#print '\n";
print "\n";
$session->{handler}->test;
my %form;
foreach ($session->{form}->param)
{
$form{$_} = $session->{form}->param($_);
}
use Data::Dumper;
warn Dumper(\%form) if $ENV{DEBUG};
warn Dumper(\%ENV) if $ENV{DEBUG}>1;
warn "INC: @INC\n" if $ENV{DEBUG}>2;