#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

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

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";

# unless ($username eq 'rory') { print ">>>> DEVELOPMENT IN PROGRESS <<<<" ; exit ; }

&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     = 'analytics-client' ; $ucpage = uc $lcpage ; $ucfirstpage = ucfirst $lcpage ;
	our $table      = 'users' ;
	our $user_type  = 'analytics_client' ; 

	&common_min_add_extras ;

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

use common ;
use today ;
use users ;

1;