#!/usr/bin/perl
$domain = "www.thing.net";
$cgi_path = "/aps/people/sawad/home/aporia";
$db_path = "/aps/people/sawad/home/aporia/db";
$img_path = "/~sawad/aporia/img";
$cgi_entry = "aporia-entry.cgi";
$cgi_chooser = "aporia-chooser.cgi";
$cgi_sublime = "aporia-sublime.cgi";
# set this to your cgi-bin directory
push(@INC,"$cgi_path");
require 'cgi-lib.pl';
&ReadParse;
print &PrintHeader;
$maxtoys = 98;
# $maxtoys = 1;
$maxselection = 5;
for ($i = 0; $i < $maxtoys; $i++) {
@usedtoys[$i] = 0;
}
print "";
print "";
print "a p o r i a : doubt in forms";
print "";
print "";
print "";
print " a p o r i a email
";
print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
";
print "";
print "";
print "";
print "";