package SITE::USERS_lib; # use strict; # $USERS_libPackage = "USERS_lib"; # $USERS_libPackage::Version = "001108"; # $::USERS_lib = $USERS_libPackage; use Lady::Lady_TM; use Lady::Lady_DATE; # sub new(%){ my $class = shift; my $self = {}; bless $self, $class; local (%SITE) = @_; $self{'access_log_path'} = $SITE{'access_log_path'}; %SITE=(); $self->init(); return $self; } sub init(){ my $ref = new Lady_TM("$self{'access_log_path'}"); return; }