aisa/scripts/operators.pl

#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;
# unless ($username eq 'handre') { print "<<<<<<<<<<<< MAINTENANCE IN PROGRESS >>>>>>>>>" ; exit ; }
#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Crypt::PasswdMD5;

&today;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

@ARGV   = split(/\\*\&/, $ENV{'QUERY_STRING'});
$action = $ARGV[0] ;

our ($q)                 = CGI -> new() ;
our $iaction                 = $q -> param('iaction')                || $action ;
our $isaved                  = $q -> param('isaved')                 || '' ;

# our $debug = 1 ;

#-------- page opts --------------------------------------------------------------------------------------------------------------------------------------------------

&page_opts ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

print "Content-type: text/html\n\n";

&common_min_action;

exit;

#------------------------------------------------------------------------------------------

sub validate {

	&users_validate;
	
} #------------------------------------------------------------------------------------------

sub insert {

	&users_insert ;

} #------------------------------------------------------------------------------------------

sub update {

	&users_update ;
	
} #------------------------------------------------------------------------------------------

sub process_multi_select {
	
	&users_process_multi_select ;
    
} #------------------------------------------------------------------------------------------

sub list_screen {

	&users_list_screen ;

} #------------------------------------------------------------------------------------------

sub sort_fields {

	&users_sort_fields ;

} #-------------------------------------------------------------------------------

sub add_db_fields {

	&users_add_db_fields ;

} #------------------------------------------------------------------------------------------

sub edit_db_fields {

	&users_edit_db_fields ;
	
} #------------------------------------------------------------------------------------------

sub add_screen {

	# called from common_add_screen
	&users_add_screen ;

} #------------------------------------------------------------------------------------------

sub edit_screen {

	&users_edit_screen ;

} #------------------------------------------------------------------------------------------

sub thead {

	&users_thead ;
    
} #-------------------------------------------------------------------------------

sub page_opts {

our $glyphicon = 'user' ;
our $lcpage    = 'operator' ; $ucpage = uc $lcpage ; $ucfirstpage = ucfirst $lcpage ;
our $table     = 'users' ;
our $user_type = 'casual' ; 

&common_min_add_extras ;

} #-------------------------------------------------------------------------------

use common ;
use today ;
use users ;

1;