From 55974d21a824378b287e563bce4c32597060cfca Mon Sep 17 00:00:00 2001 From: Mike Crute Date: Sun, 17 Jan 2010 12:06:15 -0500 Subject: Initial import --- cgi-bin/sketchbook.pl | 142 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 142 insertions(+) create mode 100755 cgi-bin/sketchbook.pl (limited to 'cgi-bin/sketchbook.pl') diff --git a/cgi-bin/sketchbook.pl b/cgi-bin/sketchbook.pl new file mode 100755 index 0000000..8103bd4 --- /dev/null +++ b/cgi-bin/sketchbook.pl @@ -0,0 +1,142 @@ +#!/usr/bin/perl + +$|=1; + +srand; + +use strict; + +use Apache::Request; +use Apache::Constants qw(REDIRECT); +use Benchmark::Timer; +use HTML::Template; +use MIME::Base64 qw(encode_base64 decode_base64); +use Compose::local_lib; +use Compose::db_connection; + +my $r = Apache::Request->new(Apache->request); + +my $local_lib = new Compose::local_lib(); + +my $dbh_aes = new Compose::db_connection('localhost','aes','apache','webconnect'); +my $dbh = new Compose::db_connection('localhost','designer','apache','webconnect'); + +my $form; +foreach my $key (sort $r->param) { + $form->{$key} = $local_lib->fix_spaces($r->param($key)); +} + +my %cookiejar = Apache::Cookie->new($r)->parse; +my $newcookie = Apache::Cookie->new($r); +my ($user, $password, %user_info, $qry, %user_info, %cookie_hash); + +################################################## +# +unless ($cookiejar{'Site'}) { + print "Content-type: text/html\n"; + print "Status: 403\n"; + exit(0); +################################################## +# +} elsif ( $cookiejar{'Site'} ) { + + my @values = $cookiejar{'Site'}->value; + + for (my $i=0;$i); + $cookie_hash{$values[$i]} = $values[$i+1]; + } + + ($user, $password) = split /:/, decode_base64($cookie_hash{'Cookie'}), 2; + + $qry = qq(select * from admin_user_info where user_name="$user"); + + %user_info = $dbh_aes->queryRawDB($qry); + + if ($user_info{'0'}{'id'} eq "") { + print "Content-type: text/html\n"; + print "Status: 403\n"; + exit(0); + } +} + + + +################################################## +# +if ($r->method() eq "GET") { + + $qry = qq(select * from sketchbook where user_id="$user_info{'0'}{'id'}"); + + my %data = $dbh->queryRawDB($qry); + + if ($data{'0'}{'sketchbook_data'} eq "") { + if ($form->{'interactive'} ne "false") { + $r->send_http_header('text/html'); + print qq{ + + + + Logged In + + + + +

Logged In

Thanks for logging in. You can close this card now.

+ +