package common;

use strict;
use Exporter;
use CGI qw/:standard :delete_all :escapeHTML :html3 :all/;

# Setup to export common subroutines and variables used by many scripts
our ( @ISA, @EXPORT_OK, $q );
@ISA = qw( Exporter );


@EXPORT_OK = qw( $query
					is_tainted 
					check_user 
					authenticate
					set_path
					print_header 
					print_footer 
					error_form
					log_msg 
					);




# Instantiate a new CGI object
$query = CGI->new;

sub check_user {

....


}


sub is_tainted {

....


}


sub authenticate {

....


}

sub set_path {

....


}


sub print_header {

....


}


sub print_footer {

....


}


sub error_form {

....


}

sub log_msg {

....


}

1;