#!/usr/bin/perl
use warnings;
use strict;

package manageusers;

BEGIN {
	use vars qw($VERSION @ISA @EXPORT);
	use DBI;

#    $ENV{DBI_TRACE}=1;
#    $ENV{PERL_DBI_DEBUG}=1;

	require Exporter;

	@ISA = qw(Exporter);

	# exported functions
	our @EXPORT_OK = qw(

           $attempts
           $adminaccess
           $LoggedOn_user_id  
           Now
	   CheckValidLoginChar
	   CheckValidEmailChar
	   print_md5_javascript);

	$VERSION = '0.0.1';
}

our $LoggedOn_user_id=33;
our $attempts = 99;
1;