2 use strict;
3 use CGI qw/:standard :html3 :netscape/;
4 use Win32::ODBC;
5 use POSIX qw(strftime);
6
7 my $q = new CGI;
8 my ($mdy, $nomname, $nomemail, $nominst, $submitname, $submitemail, $submitcat, $submitinst, $submitdiv, $mentor, $ptcare, $clinres, $comments);
9
10 my %in = map { $_ => $q->param($_) } $q->param;
11 for (keys %in) {
12	$in{$_} =~ s/'/''/g;
13	print "$_ = $in{$_}</p>";
14 }
15
16 $mdy = strftime "%m/%d/%Y %H:%M:%S",localtime;
17 $nomname = $in{NOMNAME};
18 $nomemail = $in{NOMEMAIL};
19 $nominst = $in{NOMINST};
20 $submitname = $in{SUBMITNAME};
21 $submitemail = $in{SUBMITEMAIL};
22 $submitcat = $in{SUBMITCAT};
23 $submitinst = $in{SUBMITINST};
24 $submitdiv = $in{SUBMITDIV};
25 $mentor = $in{MENTOR};
26 $ptcare = $in{PTCARE};
27 $clinres = $in{CLINRES};
28 $comments = $in{COMMENTS};
.
.
33 print "('$mdy','$nomname','$nomemail','$nominst','$submitname','$submitemail', '$submitcat','$submitinst','$submitdiv','$mentor','$ptcare','$clinres', '$comments')";