#!/usr/bin/perl 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 $auth = new Authen::Users(dbtype => 'SQLite', dbname => "$c{PROPS_REL_PATH}/$c{PROPS_USERS_DB}"); my $q = new CGI; my $authdigest = new Digest::MD5; # Global Variables my $auth_ok; my $props_group = 'props'; $q->import_names('in'); # Sanitize Inputs $in::email = CGI::escape($in::email); $in::email =~ s/%40/\@/; $in::password = CGI::escape($in::password); if ($in::Action eq 'Login') { # Check Required Fields if ( !$in::password || !$in::email ) { print $q->header; print qq[