Props

#!/usr/bin/perl # Libraries use strict; use lib '../../../propslib'; use vars qw(%c); use Authen::Users; use CGI qw/:push/; use CGI::Cookie; use Digest::MD5; use PropsConfig ( ) ; *c = \%PropsConfig::c; # Global Constructors my $q = new CGI; my $auth = new Authen::Users(dbtype => 'SQLite', dbname => "$c{PROPS_REL_PATH}/$c{PROPS_USERS_DB}"); my $db_authdigest = new Digest::MD5; # Global Variables my $props_group = 'props'; $q->import_names('in'); my $id = CGI::cookie('id'); my $token = CGI::cookie('propsauth'); if ( $id && $token ) { # Cookie values must exist if ($auth->is_in_table($props_group, $id)) { # Cookie id must exist my $db_auth = $auth->user_info_hashref($props_group, $id); # Retrieve user data based on provided id from cookie (trust = none) $db_authdigest->Digest::MD5::add($db_auth->{email},$db_auth->{password},$c{SESSION_SECRET}); # Recreate the authdigest for the id from the cookie my $db_authtoken = $db_authdigest->b64digest; # Recreate the token for the id from the cookie if ($db_authtoken eq $token) {; # Check to see if the re-created token matches the token stored in the cookie # Use case for valid, authenticated user, safe zone starts here my $dbh = DBI->connect("dbi:SQLite:dbname=../$c{PROPS_REL_PATH}/$c{PROPS_DB}","",""); $db_auth->{fullname} =~ s/%20/ /g; $db_auth->{question} =~ s/%20/ /g; $db_auth->{question} =~ s/%20/ /g; $db_auth->{question} =~ s/%3F/?/g; $db_auth->{answer} =~ s/%20/ /g; print $q->header; print < Props

Top Givers
$donor ($count)

Top Recipients EOHTML my @recipients; my $recipients_query = qq[select count(recipient), recipient from props group by recipient order by count(all recipient) desc limit 10]; my $recipients_sth = $dbh->prepare($recipients_query); $recipients_sth->execute; my ($count,$recipient); $recipients_sth->bind_col(1, \$count); $recipients_sth->bind_col(2, \$recipient); while ($recipients_sth->fetchrow_arrayref) { push (@recipients,$recipient); print qq[

$recipient ($count)

\n]; } print < EOHTML my $donor_detail_sth = $dbh->prepare("select id, recipient, reason from props where donor = ?;"); $donor_detail_sth->execute; foreach ( @donors ) { $donor_detail_sth->bind_param(1, $_); my $rv = $donor_detail_sth->execute; my ($id,$donor,$reason,$timestamp); $donor_detail_sth->bind_col(1, \$id); $donor_detail_sth->bind_col(2, \$recipient); $donor_detail_sth->bind_col(3, \$reason); print < EOHTML print qq[

$recipient

$reason

\n] while $donor_detail_sth->fetchrow_arrayref; print < EOHTML } my $recipient_detail_sth = $dbh->prepare("select id, donor, reason from props where recipient = ?;"); foreach ( @recipients ) { $recipient_detail_sth->bind_param(1, $_); my $rv = $recipient_detail_sth->execute; my ($id,$recipient,$reason,$timestamp); $recipient_detail_sth->bind_col(1, \$id); $recipient_detail_sth->bind_col(2, \$recipient); $recipient_detail_sth->bind_col(3, \$reason); print < EOHTML print qq[

$recipient

$reason

\n] while $recipient_detail_sth->fetchrow_arrayref; print < EOHTML } print < EOHTML # End safe zone } else { # Use case for invalid id or invalid token - clear cookies and redirect to login print <user_info_hashref($props_group, $id); # Retrieve user data based on provided id from cookie (trust = none) #my $db_authdigest->add($db_auth->{email},$db_auth->{password},$c{SESSION_SECRET}); # Recreate the authdigest for the id from the cookie #my $db_authtoken = $db_authdigest->b64digest; # Recreate the token for the id from the cookie print $q->header; print < Props

Ensure your browser accepts cookies and login again.

EOHTML }

Props

Access Denied

Ensure your browser accepts cookies and login again.