#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
use Mail::POP3Client;
use MIME::Parser;
use Fcntl qw(:flock) ;
use DBI ;
use MIME::Lite;
use Mail::Sendmail;
    
require cfg_paths ;

&config_set_vars ;
&config_set_paths ;

# https://itvadmin.co.za/cgi-bin/scripts/cron/auto_getmail.pl?debug=1

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

&today;

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

our $debug = $ARGV[0] ; our $username = 'rory' if $debug == 1 ;

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

exit; # tickets not being used on the system

&getmail_fetch;

exit;

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

use db ;
use common ;
use today ;
use getmail ;

1;