1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl -w
use lib ".";
require "config.cgi";
###############################################################################
# USUALLY NO NEED TO EDIT ANYTHING BELOW THIS LINE
# @@@@@@ NON-USER EDITED VARIABLES @@@@@@
our $verCurrent;
# @@@@@@ DATABASE CONNECT @@@@@@
use DBI;
our $dbh = DBI->connect("DBI:mysql:$db:$host:$port", $user, $pass);
# @@@@@@ GET/POST QUERY STRING SUBROUTINES @@@@@@
sub populateQueryFields {
%queryString = ();
our $tmpStr = $ENV{ "QUERY_STRING" };
@parts = split( /\&/, $tmpStr );
foreach $part (@parts) {
( $name, $value ) = split( /\=/, $part );
$queryString{ "$name" } = $value;
}
}
sub populatePostFields {
%postFields = ();
read( STDIN, $tmpStr, $ENV{ "CONTENT_LENGTH" } );
@parts = split( /\&/, $tmpStr );
foreach $part (@parts) {
( $name, $value ) = split( /\=/, $part );
$value =~ ( s/%23/\#/g );
$value =~ ( s/%2F/\//g );
$postFields{ "$name" } = $value;
}
}
# @@@@@@ DISPLAY HTML & RESULTS @@@@@@
print "Content-type: text/html\n\n";
print "
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\">
<head>... |
