42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
#!/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; |