Added the ability to use Automated Reports with standard SFTP and FTPSSL remote servers.
git-svn-id: svn://192.168.202.10@3253 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
@@ -506,6 +506,9 @@ OTHER CHANGES:
|
|||||||
141. Added "3-Way Recording Stop Exception" campaign option to override the
|
141. Added "3-Way Recording Stop Exception" campaign option to override the
|
||||||
"3-Way Recording Stop" setting based upon the 3way phone number dialed.
|
"3-Way Recording Stop" setting based upon the 3way phone number dialed.
|
||||||
|
|
||||||
|
142. Added the ability to use Automated Reports with standard SFTP and FTPSSL
|
||||||
|
remote servers.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
#
|
#
|
||||||
# /usr/share/astguiclient/AST_email_web_report.pl --email-list=test@gmail.com --email-sender=test@test.com
|
# /usr/share/astguiclient/AST_email_web_report.pl --email-list=test@gmail.com --email-sender=test@test.com
|
||||||
#
|
#
|
||||||
# Copyright (C) 2017 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||||
#
|
#
|
||||||
# CHANGES
|
# CHANGES
|
||||||
# 90225-1247 - First version
|
# 90225-1247 - First version
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
# 170306-0915 - Fixed proper file extensions for different download report types
|
# 170306-0915 - Fixed proper file extensions for different download report types
|
||||||
# 170719-1242 - Added more debug and '8days' date option
|
# 170719-1242 - Added more debug and '8days' date option
|
||||||
# 170825-1114 - Added report filename_override option
|
# 170825-1114 - Added report filename_override option
|
||||||
|
# 200601-0941 - Added support to launch an SFTP process using settings containers, added settings container CLI option for Email/FTP settings
|
||||||
#
|
#
|
||||||
|
|
||||||
$txt = '.txt';
|
$txt = '.txt';
|
||||||
@@ -29,6 +30,7 @@ $US = '_';
|
|||||||
$MT[0] = '';
|
$MT[0] = '';
|
||||||
$log_to_adminlog=0;
|
$log_to_adminlog=0;
|
||||||
$report_id='';
|
$report_id='';
|
||||||
|
$container_entry_length=0;
|
||||||
|
|
||||||
|
|
||||||
$secX = time();
|
$secX = time();
|
||||||
@@ -143,6 +145,63 @@ if ($Mmin < 10) {$Mmin = "0$Mmin";}
|
|||||||
if ($Msec < 10) {$Msec = "0$Msec";}
|
if ($Msec < 10) {$Msec = "0$Msec";}
|
||||||
|
|
||||||
|
|
||||||
|
# default path to astguiclient configuration file:
|
||||||
|
$PATHconf = '/etc/astguiclient.conf';
|
||||||
|
|
||||||
|
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
||||||
|
@conf = <conf>;
|
||||||
|
close(conf);
|
||||||
|
$i=0;
|
||||||
|
foreach(@conf)
|
||||||
|
{
|
||||||
|
$line = $conf[$i];
|
||||||
|
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
|
||||||
|
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
|
||||||
|
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
|
||||||
|
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
|
||||||
|
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
|
||||||
|
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
|
||||||
|
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
|
||||||
|
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
|
||||||
|
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
|
||||||
|
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
|
||||||
|
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
|
||||||
|
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
|
||||||
|
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
|
||||||
|
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
|
||||||
|
# {$VARREPORT_host = $line; $VARREPORT_host =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
|
||||||
|
# {$VARREPORT_user = $line; $VARREPORT_user =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
|
||||||
|
# {$VARREPORT_pass = $line; $VARREPORT_pass =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
|
||||||
|
# {$VARREPORT_dir = $line; $VARREPORT_dir =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
|
||||||
|
{$VARREPORT_port = $line; $VARREPORT_port =~ s/.*=//gi;}
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Customized Variables
|
||||||
|
$server_ip = $VARserver_ip; # Asterisk server IP
|
||||||
|
|
||||||
|
use DBI;
|
||||||
|
|
||||||
|
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
|
||||||
|
or die "Couldn't connect to database: " . DBI->errstr;
|
||||||
|
|
||||||
|
|
||||||
### begin parsing run-time options ###
|
### begin parsing run-time options ###
|
||||||
if (length($ARGV[0])>1)
|
if (length($ARGV[0])>1)
|
||||||
{
|
{
|
||||||
@@ -164,7 +223,8 @@ if (length($ARGV[0])>1)
|
|||||||
print " [--remove-links] = Will parse through the output file and remove any links in the HTML\n";
|
print " [--remove-links] = Will parse through the output file and remove any links in the HTML\n";
|
||||||
print " [--log-to-adminlog] = Put an entry in the admin log after this report runs\n";
|
print " [--log-to-adminlog] = Put an entry in the admin log after this report runs\n";
|
||||||
print " [--report-id=XXXXXXXX] = Report ID in the system to gather settings from\n";
|
print " [--report-id=XXXXXXXX] = Report ID in the system to gather settings from\n";
|
||||||
print " NOTE: this will override any other options set below this one\n";
|
print " [--container-id=XXX] = System settings container to pull CLI flags from, WILL REPLACE ALL CLI FLAGS BELOW!\n";
|
||||||
|
print " NOTE: the two above options will override any other options set below this one\n";
|
||||||
print " [--email-subject=XYZ] = Email message subject, which will be followed by the date of the report\n";
|
print " [--email-subject=XYZ] = Email message subject, which will be followed by the date of the report\n";
|
||||||
print " [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
|
print " [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
|
||||||
print " [--email-sender=vicidial@localhost] = sender for the email results\n";
|
print " [--email-sender=vicidial@localhost] = sender for the email results\n";
|
||||||
@@ -222,8 +282,35 @@ if (length($ARGV[0])>1)
|
|||||||
$report_id =~ s/:/,/gi;
|
$report_id =~ s/:/,/gi;
|
||||||
if ($DB > 0) {print "\n----- REPORT ID: $report_id -----\n\n";}
|
if ($DB > 0) {print "\n----- REPORT ID: $report_id -----\n\n";}
|
||||||
}
|
}
|
||||||
else
|
if ( (length($report_id) < 1) || ($args =~ /--container_id|--container-id/i) )
|
||||||
{
|
{
|
||||||
|
if ($args =~ /--container_id|--container-id/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--container_id=|--container-id=/,$args);
|
||||||
|
$container_id = $data_in[1];
|
||||||
|
$container_id =~ s/ .*//gi;
|
||||||
|
|
||||||
|
$stmtA= "SELECT container_entry from vicidial_settings_containers where container_id='$container_id';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$container_entry = $aryA[0];
|
||||||
|
$container_entry =~ s/\t|\r|'|;|`|\\\\|\///gi;
|
||||||
|
$container_entry =~ s/\n/ /gi;
|
||||||
|
$container_entry_length = length($container_entry);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($DB) {print "\n----- SETTINGS CONTAINER CLI DEFINED: $container_id ($container_entry_length) -----\n\n";}
|
||||||
|
|
||||||
|
if ($container_entry_length > 10)
|
||||||
|
{
|
||||||
|
if ($DB) {print "\n----- CLI FLAGS REPLACED: $args ($container_entry) -----\n\n";}
|
||||||
|
$args = $container_entry;
|
||||||
|
}
|
||||||
|
}
|
||||||
if ($args =~ /--ftp-server=/i)
|
if ($args =~ /--ftp-server=/i)
|
||||||
{
|
{
|
||||||
@data_in = split(/--ftp-server=/,$args);
|
@data_in = split(/--ftp-server=/,$args);
|
||||||
@@ -396,56 +483,6 @@ if (length($Bstart_date) < 8)
|
|||||||
if (length($begindate) < 8)
|
if (length($begindate) < 8)
|
||||||
{$begindate = $shipdate;}
|
{$begindate = $shipdate;}
|
||||||
|
|
||||||
# default path to astguiclient configuration file:
|
|
||||||
$PATHconf = '/etc/astguiclient.conf';
|
|
||||||
|
|
||||||
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
|
||||||
@conf = <conf>;
|
|
||||||
close(conf);
|
|
||||||
$i=0;
|
|
||||||
foreach(@conf)
|
|
||||||
{
|
|
||||||
$line = $conf[$i];
|
|
||||||
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
|
|
||||||
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
|
|
||||||
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
|
|
||||||
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
|
|
||||||
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
|
|
||||||
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
|
|
||||||
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
|
|
||||||
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
|
|
||||||
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
|
|
||||||
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
|
|
||||||
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
|
|
||||||
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
|
|
||||||
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
|
|
||||||
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
|
|
||||||
# if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
|
|
||||||
# {$VARREPORT_host = $line; $VARREPORT_host =~ s/.*=//gi;}
|
|
||||||
# if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
|
|
||||||
# {$VARREPORT_user = $line; $VARREPORT_user =~ s/.*=//gi;}
|
|
||||||
# if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
|
|
||||||
# {$VARREPORT_pass = $line; $VARREPORT_pass =~ s/.*=//gi;}
|
|
||||||
# if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
|
|
||||||
# {$VARREPORT_dir = $line; $VARREPORT_dir =~ s/.*=//gi;}
|
|
||||||
if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
|
|
||||||
{$VARREPORT_port = $line; $VARREPORT_port =~ s/.*=//gi;}
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Customized Variables
|
|
||||||
$server_ip = $VARserver_ip; # Asterisk server IP
|
|
||||||
|
|
||||||
if (!$Q)
|
if (!$Q)
|
||||||
{
|
{
|
||||||
@@ -454,14 +491,6 @@ if (!$Q)
|
|||||||
print "\n";
|
print "\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
if ( (length($report_id) > 1) || ($log_to_adminlog > 0) )
|
|
||||||
{
|
|
||||||
use DBI;
|
|
||||||
|
|
||||||
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
|
|
||||||
or die "Couldn't connect to database: " . DBI->errstr;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (length($report_id) > 1)
|
if (length($report_id) > 1)
|
||||||
{
|
{
|
||||||
### Grab Server values from the database
|
### Grab Server values from the database
|
||||||
@@ -473,16 +502,13 @@ if (length($report_id) > 1)
|
|||||||
{
|
{
|
||||||
@aryA = $sthA->fetchrow_array;
|
@aryA = $sthA->fetchrow_array;
|
||||||
$report_destination = $aryA[0];
|
$report_destination = $aryA[0];
|
||||||
if ($report_destination =~ /EMAIL/)
|
if ( ($report_destination =~ /EMAIL/) && ($container_entry_length < 10) )
|
||||||
{
|
{
|
||||||
$email_sender = $aryA[1];
|
$email_sender = $aryA[1];
|
||||||
$email_list = $aryA[2];
|
$email_list = $aryA[2];
|
||||||
$email_subject = $aryA[3];
|
$email_subject = $aryA[3];
|
||||||
$email_subject =~ s/--A--date--B--|--A--today--B--/$year-$mon-$mday/gi;
|
|
||||||
$email_subject =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
|
||||||
$email_subject =~ s/--A--datetime--B--/$year-$mon-$mday $hour:$min:$sec/gi;
|
|
||||||
}
|
}
|
||||||
if ($report_destination =~ /FTP/)
|
if ( ($report_destination =~ /FTP/) && ($container_entry_length < 10) )
|
||||||
{
|
{
|
||||||
$VARREPORT_host = $aryA[4];
|
$VARREPORT_host = $aryA[4];
|
||||||
$VARREPORT_user = $aryA[5];
|
$VARREPORT_user = $aryA[5];
|
||||||
@@ -492,6 +518,9 @@ if (length($report_id) > 1)
|
|||||||
$location = $aryA[8];
|
$location = $aryA[8];
|
||||||
$filename_override = $aryA[9];
|
$filename_override = $aryA[9];
|
||||||
if ($DB) {print "RAW LOCATION: |$location|\n";}
|
if ($DB) {print "RAW LOCATION: |$location|\n";}
|
||||||
|
$email_subject =~ s/--A--date--B--|--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$email_subject =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$email_subject =~ s/--A--datetime--B--/$year-$mon-$mday $hour:$min:$sec/gi;
|
||||||
$location =~ s/\&/\\&/gi;
|
$location =~ s/\&/\\&/gi;
|
||||||
$location =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
$location =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
||||||
$location =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
$location =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
@@ -571,6 +600,48 @@ if (length($report_id) > 1)
|
|||||||
{$HTMLfile = "$filename_override$file_extension";}
|
{$HTMLfile = "$filename_override$file_extension";}
|
||||||
$HTMLfileLOG = $report_id . "_" . $start_date . "_" . $hms . '' . $txt;
|
$HTMLfileLOG = $report_id . "_" . $start_date . "_" . $hms . '' . $txt;
|
||||||
$shipdate='';
|
$shipdate='';
|
||||||
|
|
||||||
|
### check for SFTP Settings Container
|
||||||
|
if ($VARREPORT_host =~ /^SFTPCNTR|^FTPSCNTR/)
|
||||||
|
{
|
||||||
|
$SFTPcontainer_entry_length=0;
|
||||||
|
$temp_VARREPORT_host = $VARREPORT_host;
|
||||||
|
$temp_VARREPORT_host =~ s/^SFTPCNTR|^FTPSCNTR//gi;
|
||||||
|
|
||||||
|
$stmtA= "SELECT container_entry from vicidial_settings_containers where container_id='$temp_VARREPORT_host';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$SFTPcontainer_entry = $aryA[0];
|
||||||
|
$SFTPcontainer_entry =~ s/\t|\r|'|;|`|\\\\//gi;
|
||||||
|
$SFTPcontainer_entry =~ s/\n/ /gi;
|
||||||
|
$SFTPcontainer_entry_length = length($SFTPcontainer_entry);
|
||||||
|
print "$SFTPcontainer_entry\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($SFTPcontainer_entry_length > 10)
|
||||||
|
{
|
||||||
|
$FTP_EMAIL_WEB_SCRIPT = 'AST_email_web_report.pl';
|
||||||
|
if ($VARREPORT_host =~ /^SFTPCNTR/) {$FTP_EMAIL_WEB_SCRIPT = 'AST_email_web_reportSFTP.pl';}
|
||||||
|
if ($VARREPORT_host =~ /^FTPSCNTR/) {$FTP_EMAIL_WEB_SCRIPT = 'AST_email_web_reportFTPSSL.pl';}
|
||||||
|
|
||||||
|
if (!$Q) {print "SFTP server settings detected, launching separate SFTP process: $VARREPORT_host ($temp_VARREPORT_host)|$SFTPcontainer_entry_length \n";}
|
||||||
|
|
||||||
|
$ar_command = "$PATHhome/$FTP_EMAIL_WEB_SCRIPT --quiet --remove-images --remove-links --log-to-adminlog --report-id=$report_id --container-id=$temp_VARREPORT_host ";
|
||||||
|
|
||||||
|
if ($DB) {print "starting SFTP automated report process in a screen... |ARS$report_id| $ar_command \n";}
|
||||||
|
`/usr/bin/screen -d -m -S ARS$report_id $ar_command `;
|
||||||
|
|
||||||
|
$stmtA="UPDATE vicidial_automated_reports SET run_now_trigger='N' where run_now_trigger='Y' and report_server IN('$server_ip'$THISserver_voicemailSQL) and report_id='$report_id';";
|
||||||
|
$ARaffected_rows = $dbhA->do($stmtA);
|
||||||
|
if ($DB) {print "FINISHED: $ARaffected_rows|$stmtA| \n";}
|
||||||
|
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|||||||
@@ -0,0 +1,815 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
#
|
||||||
|
# AST_email_web_reportFTPSSL.pl version: 2.14
|
||||||
|
#
|
||||||
|
# This script is designed to wget a web report and then email it as an attachment or send it to an FTP server with SSL encryption
|
||||||
|
# this script should be run from a vicidial web server.
|
||||||
|
#
|
||||||
|
# NOTE: you need to either use Automated Reports in the admin web screens, or alter the URL within this script to change the report that is run by this script
|
||||||
|
#
|
||||||
|
# /usr/share/astguiclient/AST_email_web_reportFTPSSL.pl --email-list=test@gmail.com --email-sender=test@test.com
|
||||||
|
#
|
||||||
|
# ************* IMPORTANT!!!!!!!!!!!!!!!!!!!! ***************************
|
||||||
|
# THIS SCRIPT REQUIRES THE Net::FTPSSL PERL MODULE TO RUN!!!
|
||||||
|
# $ cpan
|
||||||
|
# cpan> install ExtUtils::MakeMaker
|
||||||
|
# cpan> install IO::Socket::SSL
|
||||||
|
# cpan> install Net::SSLeay::Handle
|
||||||
|
# cpan> install Net::FTPSSL
|
||||||
|
# cpan> quit
|
||||||
|
#
|
||||||
|
# MAKE SURE YOU TEST THAT THIS IS WORKING MANUALLY!!!
|
||||||
|
#
|
||||||
|
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||||
|
#
|
||||||
|
# CHANGES
|
||||||
|
# 200601-1047 - First version, based upon AST_email_web_report.pl
|
||||||
|
#
|
||||||
|
|
||||||
|
$txt = '.txt';
|
||||||
|
$html = '.html';
|
||||||
|
$US = '_';
|
||||||
|
$MT[0] = '';
|
||||||
|
$log_to_adminlog=0;
|
||||||
|
$report_id='';
|
||||||
|
$container_entry_length=0;
|
||||||
|
|
||||||
|
|
||||||
|
$secX = time();
|
||||||
|
$time = $secX;
|
||||||
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||||
|
$year = ($year + 1900);
|
||||||
|
$mon++;
|
||||||
|
if ($mon < 10) {$mon = "0$mon";}
|
||||||
|
if ($mday < 10) {$mday = "0$mday";}
|
||||||
|
if ($hour < 10) {$hour = "0$hour";}
|
||||||
|
if ($min < 10) {$min = "0$min";}
|
||||||
|
if ($sec < 10) {$sec = "0$sec";}
|
||||||
|
$timestamp = "$year-$mon-$mday $hour:$min:$sec";
|
||||||
|
$filedate = "$year$mon$mday";
|
||||||
|
$filedatetime = "$year$mon$mday$hour$min$sec";
|
||||||
|
$shipdate = "$year-$mon-$mday";
|
||||||
|
$start_date = "$year$mon$mday";
|
||||||
|
$datestamp = "$year/$mon/$mday $hour:$min";
|
||||||
|
$hms = "$hour$min$sec";
|
||||||
|
|
||||||
|
use Time::Local;
|
||||||
|
|
||||||
|
### find epoch of 2AM today
|
||||||
|
$TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
|
||||||
|
### find epoch of 2AM yesterday
|
||||||
|
$TWOAMsecY = ($TWOAMsec - 86400);
|
||||||
|
### find epoch of 2AM 6 days ago
|
||||||
|
$TWOAMsecF = ($TWOAMsec - 518400);
|
||||||
|
### find epoch of 2AM 7 days ago
|
||||||
|
$TWOAMsecG = ($TWOAMsec - 604800);
|
||||||
|
### find epoch of 2AM 8 days ago
|
||||||
|
$TWOAMsecM = ($TWOAMsec - 691200);
|
||||||
|
### find epoch of 2AM 13 days ago
|
||||||
|
$TWOAMsecJ = ($TWOAMsec - 1123200);
|
||||||
|
### find epoch of 2AM 14 days ago
|
||||||
|
$TWOAMsecK = ($TWOAMsec - 1209600);
|
||||||
|
### find epoch of 2AM 15 days ago
|
||||||
|
$TWOAMsecL = ($TWOAMsec - 1296000);
|
||||||
|
### find epoch of 2AM 30 days ago
|
||||||
|
$TWOAMsecH = ($TWOAMsec - 2592000);
|
||||||
|
|
||||||
|
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
|
||||||
|
$Tyear = ($Tyear + 1900);
|
||||||
|
$Tmon++;
|
||||||
|
if ($Tmon < 10) {$Tmon = "0$Tmon";}
|
||||||
|
if ($Tmday < 10) {$Tmday = "0$Tmday";}
|
||||||
|
if ($Thour < 10) {$Thour = "0$Thour";}
|
||||||
|
if ($Tmin < 10) {$Tmin = "0$Tmin";}
|
||||||
|
if ($Tsec < 10) {$Tsec = "0$Tsec";}
|
||||||
|
|
||||||
|
($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime($TWOAMsecF);
|
||||||
|
$Fyear = ($Fyear + 1900);
|
||||||
|
$Fmon++;
|
||||||
|
if ($Fmon < 10) {$Fmon = "0$Fmon";}
|
||||||
|
if ($Fmday < 10) {$Fmday = "0$Fmday";}
|
||||||
|
if ($Fhour < 10) {$Fhour = "0$Fhour";}
|
||||||
|
if ($Fmin < 10) {$Fmin = "0$Fmin";}
|
||||||
|
if ($Fsec < 10) {$Fsec = "0$Fsec";}
|
||||||
|
|
||||||
|
($Gsec,$Gmin,$Ghour,$Gmday,$Gmon,$Gyear,$Gwday,$Gyday,$Gisdst) = localtime($TWOAMsecG);
|
||||||
|
$Gyear = ($Gyear + 1900);
|
||||||
|
$Gmon++;
|
||||||
|
if ($Gmon < 10) {$Gmon = "0$Gmon";}
|
||||||
|
if ($Gmday < 10) {$Gmday = "0$Gmday";}
|
||||||
|
if ($Ghour < 10) {$Ghour = "0$Ghour";}
|
||||||
|
if ($Gmin < 10) {$Gmin = "0$Gmin";}
|
||||||
|
if ($Gsec < 10) {$Gsec = "0$Gsec";}
|
||||||
|
|
||||||
|
($Hsec,$Hmin,$Hhour,$Hmday,$Hmon,$Hyear,$Hwday,$Hyday,$Hisdst) = localtime($TWOAMsecH);
|
||||||
|
$Hyear = ($Hyear + 1900);
|
||||||
|
$Hmon++;
|
||||||
|
if ($Hmon < 10) {$Hmon = "0$Hmon";}
|
||||||
|
if ($Hmday < 10) {$Hmday = "0$Hmday";}
|
||||||
|
if ($Hhour < 10) {$Hhour = "0$Hhour";}
|
||||||
|
if ($Hmin < 10) {$Hmin = "0$Hmin";}
|
||||||
|
if ($Hsec < 10) {$Hsec = "0$Hsec";}
|
||||||
|
|
||||||
|
($Jsec,$Jmin,$Jhour,$Jmday,$Jmon,$Jyear,$Jwday,$Jyday,$Jisdst) = localtime($TWOAMsecJ);
|
||||||
|
$Jyear = ($Jyear + 1900);
|
||||||
|
$Jmon++;
|
||||||
|
if ($Jmon < 10) {$Jmon = "0$Jmon";}
|
||||||
|
if ($Jmday < 10) {$Jmday = "0$Jmday";}
|
||||||
|
if ($Jhour < 10) {$Jhour = "0$Jhour";}
|
||||||
|
if ($Jmin < 10) {$Jmin = "0$Jmin";}
|
||||||
|
if ($Jsec < 10) {$Jsec = "0$Jsec";}
|
||||||
|
|
||||||
|
($Ksec,$Kmin,$Khour,$Kmday,$Kmon,$Kyear,$Kwday,$Kyday,$Kisdst) = localtime($TWOAMsecK);
|
||||||
|
$Kyear = ($Kyear + 1900);
|
||||||
|
$Kmon++;
|
||||||
|
if ($Kmon < 10) {$Kmon = "0$Kmon";}
|
||||||
|
if ($Kmday < 10) {$Kmday = "0$Kmday";}
|
||||||
|
if ($Khour < 10) {$Khour = "0$Khour";}
|
||||||
|
if ($Kmin < 10) {$Kmin = "0$Kmin";}
|
||||||
|
if ($Ksec < 10) {$Ksec = "0$Ksec";}
|
||||||
|
|
||||||
|
($Lsec,$Lmin,$Lhour,$Lmday,$Lmon,$Lyear,$Lwday,$Lyday,$Lisdst) = localtime($TWOAMsecL);
|
||||||
|
$Lyear = ($Lyear + 1900);
|
||||||
|
$Lmon++;
|
||||||
|
if ($Lmon < 10) {$Lmon = "0$Lmon";}
|
||||||
|
if ($Lmday < 10) {$Lmday = "0$Lmday";}
|
||||||
|
if ($Lhour < 10) {$Lhour = "0$Lhour";}
|
||||||
|
if ($Lmin < 10) {$Lmin = "0$Lmin";}
|
||||||
|
if ($Lsec < 10) {$Lsec = "0$Lsec";}
|
||||||
|
|
||||||
|
($Msec,$Mmin,$Mhour,$Mmday,$Mmon,$Myear,$Mwday,$Myday,$Misdst) = localtime($TWOAMsecM);
|
||||||
|
$Myear = ($Myear + 1900);
|
||||||
|
$Mmon++;
|
||||||
|
if ($Mmon < 10) {$Mmon = "0$Mmon";}
|
||||||
|
if ($Mmday < 10) {$Mmday = "0$Mmday";}
|
||||||
|
if ($Mhour < 10) {$Mhour = "0$Mhour";}
|
||||||
|
if ($Mmin < 10) {$Mmin = "0$Mmin";}
|
||||||
|
if ($Msec < 10) {$Msec = "0$Msec";}
|
||||||
|
|
||||||
|
|
||||||
|
# default path to astguiclient configuration file:
|
||||||
|
$PATHconf = '/etc/astguiclient.conf';
|
||||||
|
|
||||||
|
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
||||||
|
@conf = <conf>;
|
||||||
|
close(conf);
|
||||||
|
$i=0;
|
||||||
|
foreach(@conf)
|
||||||
|
{
|
||||||
|
$line = $conf[$i];
|
||||||
|
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
|
||||||
|
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
|
||||||
|
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
|
||||||
|
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
|
||||||
|
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
|
||||||
|
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
|
||||||
|
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
|
||||||
|
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
|
||||||
|
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
|
||||||
|
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
|
||||||
|
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
|
||||||
|
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
|
||||||
|
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
|
||||||
|
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
|
||||||
|
# {$VARREPORT_host = $line; $VARREPORT_host =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
|
||||||
|
# {$VARREPORT_user = $line; $VARREPORT_user =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
|
||||||
|
# {$VARREPORT_pass = $line; $VARREPORT_pass =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
|
||||||
|
# {$VARREPORT_dir = $line; $VARREPORT_dir =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
|
||||||
|
{$VARREPORT_port = $line; $VARREPORT_port =~ s/.*=//gi;}
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Customized Variables
|
||||||
|
$server_ip = $VARserver_ip; # Asterisk server IP
|
||||||
|
|
||||||
|
use DBI;
|
||||||
|
|
||||||
|
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
|
||||||
|
or die "Couldn't connect to database: " . DBI->errstr;
|
||||||
|
|
||||||
|
|
||||||
|
### begin parsing run-time options ###
|
||||||
|
if (length($ARGV[0])>1)
|
||||||
|
{
|
||||||
|
$i=0;
|
||||||
|
while ($#ARGV >= $i)
|
||||||
|
{
|
||||||
|
$args = "$args $ARGV[$i]";
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($args =~ /--help/i)
|
||||||
|
{
|
||||||
|
print "allowed run time options:\n";
|
||||||
|
print " [--quiet] = quiet\n";
|
||||||
|
print " [--test] = test\n";
|
||||||
|
print " [--debug] = debugging messages\n";
|
||||||
|
print " [--debugX] = Super debugging messages\n";
|
||||||
|
print " [--remove-images] = Will parse through the output file and remove any images in the HTML\n";
|
||||||
|
print " [--remove-links] = Will parse through the output file and remove any links in the HTML\n";
|
||||||
|
print " [--log-to-adminlog] = Put an entry in the admin log after this report runs\n";
|
||||||
|
print " [--report-id=XXXXXXXX] = Report ID in the system to gather settings from\n";
|
||||||
|
print " [--container-id=XXX] = System settings container to pull CLI flags from, WILL REPLACE ALL CLI FLAGS BELOW!\n";
|
||||||
|
print " NOTE: the two above options will override any other options set below this one\n";
|
||||||
|
print " [--email-subject=XYZ] = Email message subject, which will be followed by the date of the report\n";
|
||||||
|
print " [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
|
||||||
|
print " [--email-sender=vicidial@localhost] = sender for the email results\n";
|
||||||
|
print " [--date=YYYY-MM-DD] = date override, can also use 'today' and 'yesterday'\n";
|
||||||
|
print " [--begin-date=YYYY-MM-DD] = begin date override, can also use '6days', '7days', '8days' and '30days', if not filled in will only use the --date\n";
|
||||||
|
print " [--ftp-server=XXXXXXXX] = FTP SSL server to send file to\n";
|
||||||
|
print " [--ftp-login=XXXXXXXX] = FTP SSL user\n";
|
||||||
|
print " [--ftp-pass=XXXXXXXX] = FTP SSL pass\n";
|
||||||
|
print " [--ftp-port=XXX] = FTP SSL port number, optional, default is 21\n";
|
||||||
|
print " [--ftp-dir=XXXXXXXX] = remote FTP SSL server directory to post files to\n";
|
||||||
|
print " [--ftp-encrypt=X] = FTPSSL encryption type, E=Explicit, I=Implicit, default=E\n";
|
||||||
|
print "\n";
|
||||||
|
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($args =~ /--debug/i)
|
||||||
|
{
|
||||||
|
$DB=1;
|
||||||
|
print "\n----- DEBUG MODE -----\n\n";
|
||||||
|
}
|
||||||
|
if ($args =~ /--debugX/i)
|
||||||
|
{
|
||||||
|
$DBX=1;
|
||||||
|
print "\n----- SUPER DEBUG MODE -----\n\n";
|
||||||
|
}
|
||||||
|
if ($args =~ /-q/i)
|
||||||
|
{
|
||||||
|
$q=1; $Q=1;
|
||||||
|
}
|
||||||
|
if ($args =~ /--test/i)
|
||||||
|
{
|
||||||
|
$T=1; $TEST=1;
|
||||||
|
if ($DB > 0) {print "\n----- TESTING -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--remove-images/i)
|
||||||
|
{
|
||||||
|
$remove_images=1;
|
||||||
|
if ($DB > 0) {print "\n----- REMOVE IMAGES -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--remove-links/i)
|
||||||
|
{
|
||||||
|
$remove_links=1;
|
||||||
|
if ($DB > 0) {print "\n----- REMOVE LINKS -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--log-to-adminlog/)
|
||||||
|
{
|
||||||
|
$log_to_adminlog=1;
|
||||||
|
if ($DB > 0) {print "\n----- LOGGING TO THE ADMIN LOG -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--report-id=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--report-id=/,$args);
|
||||||
|
$report_id = $data_in[1];
|
||||||
|
$report_id =~ s/ .*//gi;
|
||||||
|
$report_id =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- REPORT ID: $report_id -----\n\n";}
|
||||||
|
}
|
||||||
|
if ( (length($report_id) < 1) || ($args =~ /--container_id|--container-id/i) )
|
||||||
|
{
|
||||||
|
if ($args =~ /--container_id|--container-id/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--container_id=|--container-id=/,$args);
|
||||||
|
$container_id = $data_in[1];
|
||||||
|
$container_id =~ s/ .*//gi;
|
||||||
|
|
||||||
|
$stmtA= "SELECT container_entry from vicidial_settings_containers where container_id='$container_id';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$container_entry = $aryA[0];
|
||||||
|
$container_entry =~ s/\t|\r|'|;|`|\\\\//gi;
|
||||||
|
$container_entry =~ s/\n/ /gi;
|
||||||
|
$container_entry_length = length($container_entry);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($DB) {print "\n----- SETTINGS CONTAINER CLI DEFINED: $container_id ($container_entry_length) -----\n\n";}
|
||||||
|
|
||||||
|
if ($container_entry_length > 10)
|
||||||
|
{
|
||||||
|
if ($DB) {print "\n----- CLI FLAGS REPLACED: $args ($container_entry) -----\n\n";}
|
||||||
|
$args = $container_entry;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($args =~ /--ftp-server=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-server=/,$args);
|
||||||
|
$VARREPORT_host = $data_in[1];
|
||||||
|
$VARREPORT_host =~ s/ .*//gi;
|
||||||
|
$VARREPORT_host =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP SERVER: $VARREPORT_host -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_host = '';}
|
||||||
|
if ($args =~ /--ftp-login=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-login=/,$args);
|
||||||
|
$VARREPORT_user = $data_in[1];
|
||||||
|
$VARREPORT_user =~ s/ .*//gi;
|
||||||
|
$VARREPORT_user =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP LOGIN: $VARREPORT_user -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_user = '';}
|
||||||
|
if ($args =~ /--ftp-pass=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-pass=/,$args);
|
||||||
|
$VARREPORT_pass = $data_in[1];
|
||||||
|
$VARREPORT_pass =~ s/ .*//gi;
|
||||||
|
$VARREPORT_pass =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP PASS: <SET> -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_pass = '';}
|
||||||
|
if ($args =~ /--ftp-port=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-port=/,$args);
|
||||||
|
$VARREPORT_port = $data_in[1];
|
||||||
|
$VARREPORT_port =~ s/ .*//gi;
|
||||||
|
$VARREPORT_port =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP port: $VARREPORT_port -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_port = '21';}
|
||||||
|
if ($args =~ /--ftp-dir=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-dir=/,$args);
|
||||||
|
$VARREPORT_dir = $data_in[1];
|
||||||
|
$VARREPORT_dir =~ s/ .*//gi;
|
||||||
|
$VARREPORT_dir =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP DIR: $VARREPORT_dir -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_dir = '';}
|
||||||
|
if ($args =~ /--ftp-encrypt=/i)
|
||||||
|
{
|
||||||
|
my @data_in = split(/--ftp-encrypt=/,$args);
|
||||||
|
$VARFTP_encrypt = $data_in[1];
|
||||||
|
$VARFTP_encrypt =~ s/ .*//gi;
|
||||||
|
if ($VARFTP_encrypt =~ /E/) {$VARFTP_encrypt = 'EXP_CRYPT';}
|
||||||
|
if ($VARFTP_encrypt =~ /I/) {$VARFTP_encrypt = 'IMP_CRYPT';}
|
||||||
|
if (length($VARFTP_encrypt)<5) {$VARFTP_encrypt = 'EXP_CRYPT';}
|
||||||
|
$CLIFTP_encrypt=1;
|
||||||
|
if ($DB > 0)
|
||||||
|
{print "\n----- FTPSSL ENCRYPTION: $VARFTP_encrypt -----\n\n";}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($args =~ /--email-subject=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-subject=/,$args);
|
||||||
|
$email_subject = $data_in[1];
|
||||||
|
$email_subject =~ s/ .*//gi;
|
||||||
|
$email_subject =~ s/\+/ /gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL SUBJECT: $email_subject -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_subject = 'VICIDIAL REPORT';}
|
||||||
|
if ($args =~ /--email-list=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-list=/,$args);
|
||||||
|
$email_list = $data_in[1];
|
||||||
|
$email_list =~ s/ .*//gi;
|
||||||
|
$email_list =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL NOTIFICATION: $email_list -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_list = '';}
|
||||||
|
if ($args =~ /--email-sender=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-sender=/,$args);
|
||||||
|
$email_sender = $data_in[1];
|
||||||
|
$email_sender =~ s/ .*//gi;
|
||||||
|
$email_sender =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL NOTIFICATION SENDER: $email_sender -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_sender = 'vicidial@localhost';}
|
||||||
|
if ($args =~ /--date=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--date=/,$args);
|
||||||
|
$shipdate = $data_in[1];
|
||||||
|
$shipdate =~ s/ .*//gi;
|
||||||
|
if ($shipdate =~ /today/)
|
||||||
|
{
|
||||||
|
$shipdate="$year-$mon-$mday";
|
||||||
|
$time = $TWOAMsec;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($shipdate =~ /yesterday/)
|
||||||
|
{
|
||||||
|
$shipdate="$Tyear-$Tmon-$Tmday";
|
||||||
|
$year = $Tyear;
|
||||||
|
$mon = $Tmon;
|
||||||
|
$mday = $Tmday;
|
||||||
|
$time=$TWOAMsecY;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
@cli_date = split("-",$shipdate);
|
||||||
|
$year = $cli_date[0];
|
||||||
|
$mon = $cli_date[1];
|
||||||
|
$mday = $cli_date[2];
|
||||||
|
$cli_date[1] = ($cli_date[1] - 1);
|
||||||
|
$time = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$start_date = $shipdate;
|
||||||
|
$start_date =~ s/-//gi;
|
||||||
|
if (!$Q) {print "\n----- DATE OVERRIDE: $shipdate($start_date) -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$time=$TWOAMsec;
|
||||||
|
}
|
||||||
|
if ($args =~ /--begin-date=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--begin-date=/,$args);
|
||||||
|
$begindate = $data_in[1];
|
||||||
|
$begindate =~ s/ .*//gi;
|
||||||
|
if ($begindate =~ /6days/)
|
||||||
|
{
|
||||||
|
$begindate="$Fyear-$Fmon-$Fmday";
|
||||||
|
$Byear = $Fyear;
|
||||||
|
$Bmon = $Fmon;
|
||||||
|
$Bmday = $Fmday;
|
||||||
|
$Btime=$TWOAMsecF;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($begindate =~ /7days/)
|
||||||
|
{
|
||||||
|
$begindate="$Gyear-$Gmon-$Gmday";
|
||||||
|
$Byear = $Gyear;
|
||||||
|
$Bmon = $Gmon;
|
||||||
|
$Bmday = $Gmday;
|
||||||
|
$Btime=$TWOAMsecG;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($begindate =~ /30days/)
|
||||||
|
{
|
||||||
|
$begindate="$Hyear-$Hmon-$Hmday";
|
||||||
|
$Byear = $Hyear;
|
||||||
|
$Bmon = $Hmon;
|
||||||
|
$Bmday = $Hmday;
|
||||||
|
$Btime=$TWOAMsecH;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
@cli_date = split("-",$begindate);
|
||||||
|
$Byear = $cli_date[0];
|
||||||
|
$Bmon = $cli_date[1];
|
||||||
|
$Bmday = $cli_date[2];
|
||||||
|
$cli_date[1] = ($cli_date[1] - 1);
|
||||||
|
$Btime = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$Bstart_date = $begindate;
|
||||||
|
$Bstart_date =~ s/-//gi;
|
||||||
|
if (!$Q) {print "\n----- DATE OVERRIDE: $begindate($Bstart_date) -----\n\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
print "no command line options set, using defaults.\n";
|
||||||
|
$email_subject = 'VICIDIAL REPORT';
|
||||||
|
}
|
||||||
|
### end parsing run-time options ###
|
||||||
|
|
||||||
|
if (length($Bstart_date) < 8)
|
||||||
|
{$Bstart_date = $start_date;}
|
||||||
|
if (length($begindate) < 8)
|
||||||
|
{$begindate = $shipdate;}
|
||||||
|
if (length($VARFTP_encrypt)<5)
|
||||||
|
{$VARFTP_encrypt = 'EXP_CRYPT';}
|
||||||
|
|
||||||
|
|
||||||
|
if (!$Q)
|
||||||
|
{
|
||||||
|
print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_email_web_reportFTPSSL.pl --\n\n";
|
||||||
|
print "This program is designed to wget a web report and email or FTPSSL it. \n";
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (length($report_id) > 1)
|
||||||
|
{
|
||||||
|
### Grab Server values from the database
|
||||||
|
$stmtA = "SELECT report_destination,email_from,email_to,email_subject,ftp_server,ftp_user,ftp_pass,ftp_directory,report_url,filename_override from vicidial_automated_reports where report_id='$report_id';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$report_destination = $aryA[0];
|
||||||
|
if ( ($report_destination =~ /EMAIL/) && ($container_entry_length < 10) )
|
||||||
|
{
|
||||||
|
$email_sender = $aryA[1];
|
||||||
|
$email_list = $aryA[2];
|
||||||
|
$email_subject = $aryA[3];
|
||||||
|
}
|
||||||
|
if ( ($report_destination =~ /FTP/) && ($container_entry_length < 10) )
|
||||||
|
{
|
||||||
|
$VARREPORT_host = $aryA[4];
|
||||||
|
$VARREPORT_user = $aryA[5];
|
||||||
|
$VARREPORT_pass = $aryA[6];
|
||||||
|
$VARREPORT_dir = $aryA[7];
|
||||||
|
}
|
||||||
|
$location = $aryA[8];
|
||||||
|
$filename_override = $aryA[9];
|
||||||
|
if ($DB) {print "RAW LOCATION: |$location|\n";}
|
||||||
|
$email_subject =~ s/--A--date--B--|--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$email_subject =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$email_subject =~ s/--A--datetime--B--/$year-$mon-$mday $hour:$min:$sec/gi;
|
||||||
|
$location =~ s/\&/\\&/gi;
|
||||||
|
$location =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$location =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$location =~ s/--A--6days--B--/$Fyear-$Fmon-$Fmday/gi;
|
||||||
|
$location =~ s/--A--7days--B--/$Gyear-$Gmon-$Gmday/gi;
|
||||||
|
$location =~ s/--A--8days--B--/$Myear-$Mmon-$Mmday/gi;
|
||||||
|
$location =~ s/--A--13days--B--/$Jyear-$Jmon-$Jmday/gi;
|
||||||
|
$location =~ s/--A--14days--B--/$Kyear-$Kmon-$Kmday/gi;
|
||||||
|
$location =~ s/--A--15days--B--/$Lyear-$Lmon-$Lmday/gi;
|
||||||
|
$location =~ s/--A--30days--B--/$Hyear-$Hmon-$Hmday/gi;
|
||||||
|
$filename_override =~ s/[^-_0-9a-zA-Z]//gi;
|
||||||
|
$filename_override =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$filename_override =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$filename_override =~ s/--A--6days--B--/$Fyear-$Fmon-$Fmday/gi;
|
||||||
|
$filename_override =~ s/--A--7days--B--/$Gyear-$Gmon-$Gmday/gi;
|
||||||
|
$filename_override =~ s/--A--8days--B--/$Myear-$Mmon-$Mmday/gi;
|
||||||
|
$filename_override =~ s/--A--13days--B--/$Jyear-$Jmon-$Jmday/gi;
|
||||||
|
$filename_override =~ s/--A--14days--B--/$Kyear-$Kmon-$Kmday/gi;
|
||||||
|
$filename_override =~ s/--A--15days--B--/$Lyear-$Lmon-$Lmday/gi;
|
||||||
|
$filename_override =~ s/--A--30days--B--/$Hyear-$Hmon-$Hmday/gi;
|
||||||
|
$filename_override =~ s/--A--filedatetime--B--/$filedatetime/gi;
|
||||||
|
if ($DB) {print "FINAL LOCATION: |$location|\n";}
|
||||||
|
if ($DB) {print "FILENAME OVERRIDE: |$filename_override|\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: Report not found: $report_id\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
|
||||||
|
### gather user information for last manager who edited the automated report
|
||||||
|
$stmtA = "SELECT user from vicidial_admin_log where event_section='AUTOREPORTS' and record_id='$report_id' and event_type IN('ADD','MODIFY','COPY') order by admin_log_id desc limit 1;";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$http_user = $aryA[0];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: No report manager user found: $report_id\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
### gather user information for last manager who edited the automated report
|
||||||
|
$stmtA = "SELECT pass,custom_five from vicidial_users where user='$http_user';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$http_pass = $aryA[0];
|
||||||
|
if (length($http_pass) < 1)
|
||||||
|
{$http_pass = $aryA[1];}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: No report manager user found: $http_user\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
|
||||||
|
$file_extension = $html;
|
||||||
|
if ($location =~ /call_report_export|lead_report_export|call_report_export_carrier|list_download/)
|
||||||
|
{$file_extension = '.txt'}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($location =~ /&file_download=\d/)
|
||||||
|
{$file_extension = '.csv'}
|
||||||
|
}
|
||||||
|
$HTMLfile = $report_id . "_" . $start_date . "_" . $hms . '' . $file_extension;
|
||||||
|
if (length($filename_override) > 0)
|
||||||
|
{$HTMLfile = "$filename_override$file_extension";}
|
||||||
|
$HTMLfileLOG = $report_id . "_" . $start_date . "_" . $hms . '' . $txt;
|
||||||
|
$shipdate='';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
######################################################
|
||||||
|
##### CHANGE REPORT NAME AND URL HERE!!!!!!!!!
|
||||||
|
######################################################
|
||||||
|
$file_extension = $html;
|
||||||
|
#$HTMLfile = "Outbound_Report_ALL_$shipdate$html";
|
||||||
|
$HTMLfile = "DISCH_SURVEY_$start_date$file_extension";
|
||||||
|
$HTMLfileLOG = "DISCH_SURVEY_$start_date$txt";
|
||||||
|
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/fcstats.php?db_log=1\\&query_date=$shipdate\\&group=$group\\&shift=$shift\\&archive=1";
|
||||||
|
#$location = "http://6666:1234\@192.168.1.101/vicidial/AST_VDADstats.php?query_date=$shipdate\\&end_date=$shipdate\\&group[]=--ALL--\\&shift=ALL";
|
||||||
|
#$location = "http://8888:8888\@127.0.0.1/vicidial/AST_VDADstats.php?query_date=$shipdate\\&end_date=$shipdate\\&group[]=--ALL--\\&shift=ALL";
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/AST_inbound_daily_report.php?query_date=$shipdate\\&end_date=$shipdate\\&group=5001\\&shift=ALL\\&SUBMIT=SUBMIT\\&hourly_breakdown=checked";
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/AST_agent_performance_detail.php?DB=\\&query_date=$shipdate\\&end_date=$shipdate\\&group[]=2001\\&user_group[]=--ALL--\\&shift=ALL\\&SUBMIT=SUBMIT";
|
||||||
|
|
||||||
|
# Outbound IVR Export Report:
|
||||||
|
$location = "http://127.0.0.1/vicidial/call_report_export.php?query_date=$begindate\\&end_date=$shipdate\\&list_id[]=--ALL--\\&status[]=--ALL--\\&campaign[]=RSIDESVY\\&run_export=1\\&ivr_export=YES\\&export_fields=EXTENDED\\&header_row=NO\\&rec_fields=NONE\\&custom_fields=NO\\&call_notes=NO";
|
||||||
|
|
||||||
|
$http_user = '6666';
|
||||||
|
$http_pass = '1234';
|
||||||
|
######################################################
|
||||||
|
######################################################
|
||||||
|
}
|
||||||
|
|
||||||
|
### GRAB THE REPORT
|
||||||
|
if (!$Q) {print "Running Report $ship_date\n$location\n";}
|
||||||
|
`/usr/bin/wget --auth-no-challenge --http-user=$http_user --http-password=$http_pass --output-document=/tmp/X$HTMLfile --output-file=/tmp/Y$HTMLfileLOG $location `;
|
||||||
|
|
||||||
|
if ($DBX > 0) {print "DEBUG: |/usr/bin/wget --auth-no-challenge --http-user=$http_user --http-password=$http_pass --output-document=/tmp/X$HTMLfile --output-file=/tmp/Y$HTMLfileLOG |";}
|
||||||
|
|
||||||
|
if ( ($remove_images > 0) || ($remove_links > 0) )
|
||||||
|
{
|
||||||
|
open(input, "/tmp/X$HTMLfile") || die "can't open /tmp/X$HTMLfile: $!\n";
|
||||||
|
@input = <input>;
|
||||||
|
close(input);
|
||||||
|
$i=0;
|
||||||
|
$newfile='';
|
||||||
|
foreach(@input)
|
||||||
|
{
|
||||||
|
$Xline = $input[$i];
|
||||||
|
if ($remove_images > 0)
|
||||||
|
{$Xline =~ s/<img .*>//gi;}
|
||||||
|
if ($remove_links > 0)
|
||||||
|
{$Xline =~ s/\<a [^>]*\>//gi;}
|
||||||
|
$newfile .= "$Xline";
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
open(output, ">/tmp/$HTMLfile") || die "can't open /tmp/$HTMLfile: $!\n";
|
||||||
|
print output "$newfile";
|
||||||
|
close(output);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{`mv /tmp/X$HTMLfile /tmp/$HTMLfile `;}
|
||||||
|
|
||||||
|
###### BEGIN EMAIL SECTION #####
|
||||||
|
if (length($email_list) > 3)
|
||||||
|
{
|
||||||
|
if (!$Q) {print "Sending email: $email_list\n";}
|
||||||
|
|
||||||
|
use MIME::QuotedPrint;
|
||||||
|
use MIME::Base64;
|
||||||
|
use Mail::Sendmail;
|
||||||
|
|
||||||
|
$mailsubject = "$email_subject $shipdate";
|
||||||
|
|
||||||
|
%mail = ( To => "$email_list",
|
||||||
|
From => "$email_sender",
|
||||||
|
Subject => "$mailsubject",
|
||||||
|
);
|
||||||
|
$boundary = "====" . time() . "====";
|
||||||
|
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
|
||||||
|
|
||||||
|
$message = encode_qp( "$email_subject $shipdate:\n\n Attachment: $HTMLfile" );
|
||||||
|
|
||||||
|
$Zfile = "/tmp/$HTMLfile";
|
||||||
|
|
||||||
|
open (F, $Zfile) or die "Cannot read $Zfile: $!";
|
||||||
|
binmode F; undef $/;
|
||||||
|
$attachment = encode_base64(<F>);
|
||||||
|
close F;
|
||||||
|
|
||||||
|
$boundary = '--'.$boundary;
|
||||||
|
$mail{body} .= "$boundary\n";
|
||||||
|
$mail{body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
|
||||||
|
$mail{body} .= "Content-Transfer-Encoding: quoted-printable\n\n";
|
||||||
|
$mail{body} .= "$message\n";
|
||||||
|
$mail{body} .= "$boundary\n";
|
||||||
|
$mail{body} .= "Content-Type: application/octet-stream; name=\"$HTMLfile\"\n";
|
||||||
|
$mail{body} .= "Content-Transfer-Encoding: base64\n";
|
||||||
|
$mail{body} .= "Content-Disposition: attachment; filename=\"$HTMLfile\"\n\n";
|
||||||
|
$mail{body} .= "$attachment\n";
|
||||||
|
$mail{body} .= "$boundary";
|
||||||
|
$mail{body} .= "--\n";
|
||||||
|
|
||||||
|
sendmail(%mail) or die $mail::Sendmail::error;
|
||||||
|
if (!$Q) {print "ok. log says:\n", $mail::sendmail::log;} ### print mail log for status
|
||||||
|
}
|
||||||
|
###### END EMAIL SECTION #####
|
||||||
|
|
||||||
|
|
||||||
|
###### BEGIN FTP SECTION #####
|
||||||
|
|
||||||
|
# FTP overrides-
|
||||||
|
# $VARREPORT_host = '10.0.0.4';
|
||||||
|
# $VARREPORT_port = '21';
|
||||||
|
# $VARREPORT_user = 'cron';
|
||||||
|
# $VARREPORT_pass = 'test';
|
||||||
|
# $VARREPORT_dir = '';
|
||||||
|
|
||||||
|
if (length($VARREPORT_host) > 7)
|
||||||
|
{
|
||||||
|
if (length($VARREPORT_port) < 1) {$VARREPORT_port = '21';}
|
||||||
|
|
||||||
|
use Net::FTPSSL;
|
||||||
|
|
||||||
|
if (!$Q) {print "Sending File Over FTPSSL: $HTMLfile\n";}
|
||||||
|
|
||||||
|
$FTPdb=0;
|
||||||
|
if ($DBX>0) {$FTPdb=1;}
|
||||||
|
|
||||||
|
# Some versions of the FTPSSL perl module require you to hard code the encryption value: IMP_CRYPT or EXP_CRYPT
|
||||||
|
# $ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => $VARFTP_encrypt, Debug => $FTPdb);
|
||||||
|
if ( $VARFTP_encrypt eq "IMP_CRYPT" )
|
||||||
|
{
|
||||||
|
$ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => IMP_CRYPT, Debug => $FTPdb);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => EXP_CRYPT, Debug => $FTPdb);
|
||||||
|
}
|
||||||
|
# for "TLS Session Resumption", use the below connection options:
|
||||||
|
# $ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => IMP_CRYPT, Debug => $FTPdb, Trace => 1, SSL_Client_Certificate => { SSL_session_cache_size => 100 });
|
||||||
|
|
||||||
|
# For advanced debug, you may need to do the following:
|
||||||
|
# Here is how to enable high debug in the IO::Socket::SSL library that Net::FTPSSL is using:
|
||||||
|
# $IO::Socket::SSL::DEBUG = 3;
|
||||||
|
# and here are the possible values:
|
||||||
|
# 0 - No debugging (default).
|
||||||
|
# 1 - Print out errors from IO::Socket::SSL and ciphers from Net::SSLeay.
|
||||||
|
# 2 - Print also information about call flow from IO::Socket::SSL and progress information from Net::SSLeay.
|
||||||
|
# 3 - Print also some data dumps from IO::Socket::SSL and from Net::SSLeay.
|
||||||
|
|
||||||
|
if($DBX){print STDERR "DEBUG: auth: ($VARREPORT_user|$VARREPORT_pass)\n";}
|
||||||
|
$ftps->login($VARREPORT_user,$VARREPORT_pass);
|
||||||
|
$ftps->cwd("$VARREPORT_dir");
|
||||||
|
$ftps->binary();
|
||||||
|
$ftps->put("/tmp/$HTMLfile", "$HTMLfile");
|
||||||
|
$ftps->quit;
|
||||||
|
|
||||||
|
if (!$Q) {print "FTPSSL File Sending Process Complete, Exiting... \n";}
|
||||||
|
}
|
||||||
|
###### END FTP SECTION #####
|
||||||
|
|
||||||
|
|
||||||
|
$secY = time();
|
||||||
|
$secRUN = ($secY - $secX);
|
||||||
|
if ($secRUN < 1) {$secRUN=1;}
|
||||||
|
|
||||||
|
if (length($report_id) > 1)
|
||||||
|
{
|
||||||
|
$stmtA="UPDATE vicidial_automated_reports set report_last_run=NOW(), report_last_length='$secRUN' where report_id='$report_id';";
|
||||||
|
$affected_rows = $dbhA->do($stmtA);
|
||||||
|
|
||||||
|
if ($log_to_adminlog > 0)
|
||||||
|
{
|
||||||
|
$location =~ s/;|\\|\'|\"//gi;
|
||||||
|
$stmtB="INSERT INTO vicidial_admin_log set event_date=NOW(), user='$http_user', ip_address='$server_ip', event_section='AUTOREPORTS', event_type='EXPORT', record_id='$report_id', event_code='ADMIN REPORT EXPORT RUN $report_destination', event_sql=\"$location\", event_notes='Run time: $secRUN seconds. Sent $report_destination';";
|
||||||
|
$Iaffected_rows = $dbhA->do($stmtB);
|
||||||
|
if ($DB) {print "ADMIN LOGGING FINISHED: $affected_rows|$Iaffected_rows|$stmtA|$stmtB\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($log_to_adminlog > 0)
|
||||||
|
{
|
||||||
|
$location =~ s/;|\\|\'|\"//gi;
|
||||||
|
$stmtA="INSERT INTO vicidial_admin_log set event_date=NOW(), user='$http_user', ip_address='$server_ip', event_section='REPORTS', event_type='EXPORT', record_id='email_web_report', event_code='ADMIN REPORT EXPORT RUN', event_sql=\"$location\", event_notes='Run time: $secRUN seconds';";
|
||||||
|
$Iaffected_rows = $dbhA->do($stmtA);
|
||||||
|
if ($DB) {print "ADMIN LOGGING FINISHED: $Iaffected_rows|$stmtA\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
exit;
|
||||||
@@ -0,0 +1,803 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
#
|
||||||
|
# AST_email_web_reportSFTP.pl version: 2.14
|
||||||
|
#
|
||||||
|
# This script is designed to wget a web report and then email it as an attachment or send it to an SFTP server
|
||||||
|
# this script should be run from a vicidial web server.
|
||||||
|
#
|
||||||
|
# NOTE: you need to either use Automated Reports in the admin web screens, or alter the URL within this script to change the report that is run by this script
|
||||||
|
#
|
||||||
|
# /usr/share/astguiclient/AST_email_web_reportSFTP.pl --email-list=test@gmail.com --email-sender=test@test.com
|
||||||
|
#
|
||||||
|
# ************* IMPORTANT!!!!!!!!!!!!!!!!!!!! ***************************
|
||||||
|
# THIS SCRIPT REQUIRES THE Net::SFTP::Foreign PERL MODULE TO RUN!!!
|
||||||
|
# $ cpan
|
||||||
|
# cpan> install Net::SFTP::Foreign
|
||||||
|
# cpan> quit
|
||||||
|
#
|
||||||
|
# MAKE SURE YOU TEST THAT THIS IS WORKING MANUALLY!!!
|
||||||
|
#
|
||||||
|
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||||
|
#
|
||||||
|
# CHANGES
|
||||||
|
# 200601-1047 - First version, based upon AST_email_web_report.pl
|
||||||
|
#
|
||||||
|
|
||||||
|
$txt = '.txt';
|
||||||
|
$html = '.html';
|
||||||
|
$US = '_';
|
||||||
|
$MT[0] = '';
|
||||||
|
$log_to_adminlog=0;
|
||||||
|
$report_id='';
|
||||||
|
$container_entry_length=0;
|
||||||
|
|
||||||
|
|
||||||
|
$secX = time();
|
||||||
|
$time = $secX;
|
||||||
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||||
|
$year = ($year + 1900);
|
||||||
|
$mon++;
|
||||||
|
if ($mon < 10) {$mon = "0$mon";}
|
||||||
|
if ($mday < 10) {$mday = "0$mday";}
|
||||||
|
if ($hour < 10) {$hour = "0$hour";}
|
||||||
|
if ($min < 10) {$min = "0$min";}
|
||||||
|
if ($sec < 10) {$sec = "0$sec";}
|
||||||
|
$timestamp = "$year-$mon-$mday $hour:$min:$sec";
|
||||||
|
$filedate = "$year$mon$mday";
|
||||||
|
$filedatetime = "$year$mon$mday$hour$min$sec";
|
||||||
|
$shipdate = "$year-$mon-$mday";
|
||||||
|
$start_date = "$year$mon$mday";
|
||||||
|
$datestamp = "$year/$mon/$mday $hour:$min";
|
||||||
|
$hms = "$hour$min$sec";
|
||||||
|
|
||||||
|
use Time::Local;
|
||||||
|
|
||||||
|
### find epoch of 2AM today
|
||||||
|
$TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
|
||||||
|
### find epoch of 2AM yesterday
|
||||||
|
$TWOAMsecY = ($TWOAMsec - 86400);
|
||||||
|
### find epoch of 2AM 6 days ago
|
||||||
|
$TWOAMsecF = ($TWOAMsec - 518400);
|
||||||
|
### find epoch of 2AM 7 days ago
|
||||||
|
$TWOAMsecG = ($TWOAMsec - 604800);
|
||||||
|
### find epoch of 2AM 8 days ago
|
||||||
|
$TWOAMsecM = ($TWOAMsec - 691200);
|
||||||
|
### find epoch of 2AM 13 days ago
|
||||||
|
$TWOAMsecJ = ($TWOAMsec - 1123200);
|
||||||
|
### find epoch of 2AM 14 days ago
|
||||||
|
$TWOAMsecK = ($TWOAMsec - 1209600);
|
||||||
|
### find epoch of 2AM 15 days ago
|
||||||
|
$TWOAMsecL = ($TWOAMsec - 1296000);
|
||||||
|
### find epoch of 2AM 30 days ago
|
||||||
|
$TWOAMsecH = ($TWOAMsec - 2592000);
|
||||||
|
|
||||||
|
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
|
||||||
|
$Tyear = ($Tyear + 1900);
|
||||||
|
$Tmon++;
|
||||||
|
if ($Tmon < 10) {$Tmon = "0$Tmon";}
|
||||||
|
if ($Tmday < 10) {$Tmday = "0$Tmday";}
|
||||||
|
if ($Thour < 10) {$Thour = "0$Thour";}
|
||||||
|
if ($Tmin < 10) {$Tmin = "0$Tmin";}
|
||||||
|
if ($Tsec < 10) {$Tsec = "0$Tsec";}
|
||||||
|
|
||||||
|
($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime($TWOAMsecF);
|
||||||
|
$Fyear = ($Fyear + 1900);
|
||||||
|
$Fmon++;
|
||||||
|
if ($Fmon < 10) {$Fmon = "0$Fmon";}
|
||||||
|
if ($Fmday < 10) {$Fmday = "0$Fmday";}
|
||||||
|
if ($Fhour < 10) {$Fhour = "0$Fhour";}
|
||||||
|
if ($Fmin < 10) {$Fmin = "0$Fmin";}
|
||||||
|
if ($Fsec < 10) {$Fsec = "0$Fsec";}
|
||||||
|
|
||||||
|
($Gsec,$Gmin,$Ghour,$Gmday,$Gmon,$Gyear,$Gwday,$Gyday,$Gisdst) = localtime($TWOAMsecG);
|
||||||
|
$Gyear = ($Gyear + 1900);
|
||||||
|
$Gmon++;
|
||||||
|
if ($Gmon < 10) {$Gmon = "0$Gmon";}
|
||||||
|
if ($Gmday < 10) {$Gmday = "0$Gmday";}
|
||||||
|
if ($Ghour < 10) {$Ghour = "0$Ghour";}
|
||||||
|
if ($Gmin < 10) {$Gmin = "0$Gmin";}
|
||||||
|
if ($Gsec < 10) {$Gsec = "0$Gsec";}
|
||||||
|
|
||||||
|
($Hsec,$Hmin,$Hhour,$Hmday,$Hmon,$Hyear,$Hwday,$Hyday,$Hisdst) = localtime($TWOAMsecH);
|
||||||
|
$Hyear = ($Hyear + 1900);
|
||||||
|
$Hmon++;
|
||||||
|
if ($Hmon < 10) {$Hmon = "0$Hmon";}
|
||||||
|
if ($Hmday < 10) {$Hmday = "0$Hmday";}
|
||||||
|
if ($Hhour < 10) {$Hhour = "0$Hhour";}
|
||||||
|
if ($Hmin < 10) {$Hmin = "0$Hmin";}
|
||||||
|
if ($Hsec < 10) {$Hsec = "0$Hsec";}
|
||||||
|
|
||||||
|
($Jsec,$Jmin,$Jhour,$Jmday,$Jmon,$Jyear,$Jwday,$Jyday,$Jisdst) = localtime($TWOAMsecJ);
|
||||||
|
$Jyear = ($Jyear + 1900);
|
||||||
|
$Jmon++;
|
||||||
|
if ($Jmon < 10) {$Jmon = "0$Jmon";}
|
||||||
|
if ($Jmday < 10) {$Jmday = "0$Jmday";}
|
||||||
|
if ($Jhour < 10) {$Jhour = "0$Jhour";}
|
||||||
|
if ($Jmin < 10) {$Jmin = "0$Jmin";}
|
||||||
|
if ($Jsec < 10) {$Jsec = "0$Jsec";}
|
||||||
|
|
||||||
|
($Ksec,$Kmin,$Khour,$Kmday,$Kmon,$Kyear,$Kwday,$Kyday,$Kisdst) = localtime($TWOAMsecK);
|
||||||
|
$Kyear = ($Kyear + 1900);
|
||||||
|
$Kmon++;
|
||||||
|
if ($Kmon < 10) {$Kmon = "0$Kmon";}
|
||||||
|
if ($Kmday < 10) {$Kmday = "0$Kmday";}
|
||||||
|
if ($Khour < 10) {$Khour = "0$Khour";}
|
||||||
|
if ($Kmin < 10) {$Kmin = "0$Kmin";}
|
||||||
|
if ($Ksec < 10) {$Ksec = "0$Ksec";}
|
||||||
|
|
||||||
|
($Lsec,$Lmin,$Lhour,$Lmday,$Lmon,$Lyear,$Lwday,$Lyday,$Lisdst) = localtime($TWOAMsecL);
|
||||||
|
$Lyear = ($Lyear + 1900);
|
||||||
|
$Lmon++;
|
||||||
|
if ($Lmon < 10) {$Lmon = "0$Lmon";}
|
||||||
|
if ($Lmday < 10) {$Lmday = "0$Lmday";}
|
||||||
|
if ($Lhour < 10) {$Lhour = "0$Lhour";}
|
||||||
|
if ($Lmin < 10) {$Lmin = "0$Lmin";}
|
||||||
|
if ($Lsec < 10) {$Lsec = "0$Lsec";}
|
||||||
|
|
||||||
|
($Msec,$Mmin,$Mhour,$Mmday,$Mmon,$Myear,$Mwday,$Myday,$Misdst) = localtime($TWOAMsecM);
|
||||||
|
$Myear = ($Myear + 1900);
|
||||||
|
$Mmon++;
|
||||||
|
if ($Mmon < 10) {$Mmon = "0$Mmon";}
|
||||||
|
if ($Mmday < 10) {$Mmday = "0$Mmday";}
|
||||||
|
if ($Mhour < 10) {$Mhour = "0$Mhour";}
|
||||||
|
if ($Mmin < 10) {$Mmin = "0$Mmin";}
|
||||||
|
if ($Msec < 10) {$Msec = "0$Msec";}
|
||||||
|
|
||||||
|
|
||||||
|
# default path to astguiclient configuration file:
|
||||||
|
$PATHconf = '/etc/astguiclient.conf';
|
||||||
|
|
||||||
|
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
||||||
|
@conf = <conf>;
|
||||||
|
close(conf);
|
||||||
|
$i=0;
|
||||||
|
foreach(@conf)
|
||||||
|
{
|
||||||
|
$line = $conf[$i];
|
||||||
|
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
|
||||||
|
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
|
||||||
|
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
|
||||||
|
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
|
||||||
|
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
|
||||||
|
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
|
||||||
|
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
|
||||||
|
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
|
||||||
|
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
|
||||||
|
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
|
||||||
|
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
|
||||||
|
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
|
||||||
|
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
|
||||||
|
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
|
||||||
|
# {$VARREPORT_host = $line; $VARREPORT_host =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
|
||||||
|
# {$VARREPORT_user = $line; $VARREPORT_user =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
|
||||||
|
# {$VARREPORT_pass = $line; $VARREPORT_pass =~ s/.*=//gi;}
|
||||||
|
# if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
|
||||||
|
# {$VARREPORT_dir = $line; $VARREPORT_dir =~ s/.*=//gi;}
|
||||||
|
if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
|
||||||
|
{$VARREPORT_port = $line; $VARREPORT_port =~ s/.*=//gi;}
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Customized Variables
|
||||||
|
$server_ip = $VARserver_ip; # Asterisk server IP
|
||||||
|
|
||||||
|
use DBI;
|
||||||
|
|
||||||
|
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
|
||||||
|
or die "Couldn't connect to database: " . DBI->errstr;
|
||||||
|
|
||||||
|
|
||||||
|
### begin parsing run-time options ###
|
||||||
|
if (length($ARGV[0])>1)
|
||||||
|
{
|
||||||
|
$i=0;
|
||||||
|
while ($#ARGV >= $i)
|
||||||
|
{
|
||||||
|
$args = "$args $ARGV[$i]";
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($args =~ /--help/i)
|
||||||
|
{
|
||||||
|
print "allowed run time options:\n";
|
||||||
|
print " [--quiet] = quiet\n";
|
||||||
|
print " [--test] = test\n";
|
||||||
|
print " [--debug] = debugging messages\n";
|
||||||
|
print " [--debugX] = Super debugging messages\n";
|
||||||
|
print " [--remove-images] = Will parse through the output file and remove any images in the HTML\n";
|
||||||
|
print " [--remove-links] = Will parse through the output file and remove any links in the HTML\n";
|
||||||
|
print " [--log-to-adminlog] = Put an entry in the admin log after this report runs\n";
|
||||||
|
print " [--report-id=XXXXXXXX] = Report ID in the system to gather settings from\n";
|
||||||
|
print " [--container-id=XXX] = System settings container to pull CLI flags from, WILL REPLACE ALL CLI FLAGS BELOW!\n";
|
||||||
|
print " NOTE: the two above options will override any other options set below this one\n";
|
||||||
|
print " [--email-subject=XYZ] = Email message subject, which will be followed by the date of the report\n";
|
||||||
|
print " [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
|
||||||
|
print " [--email-sender=vicidial@localhost] = sender for the email results\n";
|
||||||
|
print " [--date=YYYY-MM-DD] = date override, can also use 'today' and 'yesterday'\n";
|
||||||
|
print " [--begin-date=YYYY-MM-DD] = begin date override, can also use '6days', '7days', '8days' and '30days', if not filled in will only use the --date\n";
|
||||||
|
print " [--ftp-server=XXXXXXXX] = SFTP server to send file to\n";
|
||||||
|
print " [--ftp-login=XXXXXXXX] = SFTP user\n";
|
||||||
|
print " [--ftp-pass=XXXXXXXX] = SFTP pass\n";
|
||||||
|
print " [--ftp-port=XXX] = SFTP port number, optional, default is 22\n";
|
||||||
|
print " [--ftp-port=XXXXXXXX] = SFTP port\n";
|
||||||
|
print " [--ftp-dir=XXXXXXXX] = remote SFTP server directory to post files to\n";
|
||||||
|
print "\n";
|
||||||
|
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($args =~ /--debug/i)
|
||||||
|
{
|
||||||
|
$DB=1;
|
||||||
|
print "\n----- DEBUG MODE -----\n\n";
|
||||||
|
}
|
||||||
|
if ($args =~ /--debugX/i)
|
||||||
|
{
|
||||||
|
$DBX=1;
|
||||||
|
print "\n----- SUPER DEBUG MODE -----\n\n";
|
||||||
|
}
|
||||||
|
if ($args =~ /-q/i)
|
||||||
|
{
|
||||||
|
$q=1; $Q=1;
|
||||||
|
}
|
||||||
|
if ($args =~ /--test/i)
|
||||||
|
{
|
||||||
|
$T=1; $TEST=1;
|
||||||
|
if ($DB > 0) {print "\n----- TESTING -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--remove-images/i)
|
||||||
|
{
|
||||||
|
$remove_images=1;
|
||||||
|
if ($DB > 0) {print "\n----- REMOVE IMAGES -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--remove-links/i)
|
||||||
|
{
|
||||||
|
$remove_links=1;
|
||||||
|
if ($DB > 0) {print "\n----- REMOVE LINKS -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--log-to-adminlog/)
|
||||||
|
{
|
||||||
|
$log_to_adminlog=1;
|
||||||
|
if ($DB > 0) {print "\n----- LOGGING TO THE ADMIN LOG -----\n\n";}
|
||||||
|
}
|
||||||
|
if ($args =~ /--report-id=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--report-id=/,$args);
|
||||||
|
$report_id = $data_in[1];
|
||||||
|
$report_id =~ s/ .*//gi;
|
||||||
|
$report_id =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- REPORT ID: $report_id -----\n\n";}
|
||||||
|
}
|
||||||
|
if ( (length($report_id) < 1) || ($args =~ /--container_id|--container-id/i) )
|
||||||
|
{
|
||||||
|
if ($args =~ /--container_id|--container-id/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--container_id=|--container-id=/,$args);
|
||||||
|
$container_id = $data_in[1];
|
||||||
|
$container_id =~ s/ .*//gi;
|
||||||
|
|
||||||
|
$stmtA= "SELECT container_entry from vicidial_settings_containers where container_id='$container_id';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$container_entry = $aryA[0];
|
||||||
|
$container_entry =~ s/\t|\r|'|;|`|\\\\//gi;
|
||||||
|
$container_entry =~ s/\n/ /gi;
|
||||||
|
$container_entry_length = length($container_entry);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($DB) {print "\n----- SETTINGS CONTAINER CLI DEFINED: $container_id ($container_entry_length) -----\n\n";}
|
||||||
|
|
||||||
|
if ($container_entry_length > 10)
|
||||||
|
{
|
||||||
|
if ($DB) {print "\n----- CLI FLAGS REPLACED: $args ($container_entry) -----\n\n";}
|
||||||
|
$args = $container_entry;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($args =~ /--ftp-server=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-server=/,$args);
|
||||||
|
$VARREPORT_host = $data_in[1];
|
||||||
|
$VARREPORT_host =~ s/ .*//gi;
|
||||||
|
$VARREPORT_host =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP SERVER: $VARREPORT_host -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_host = '';}
|
||||||
|
if ($args =~ /--ftp-login=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-login=/,$args);
|
||||||
|
$VARREPORT_user = $data_in[1];
|
||||||
|
$VARREPORT_user =~ s/ .*//gi;
|
||||||
|
$VARREPORT_user =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP LOGIN: $VARREPORT_user -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_user = '';}
|
||||||
|
if ($args =~ /--ftp-pass=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-pass=/,$args);
|
||||||
|
$VARREPORT_pass = $data_in[1];
|
||||||
|
$VARREPORT_pass =~ s/ .*//gi;
|
||||||
|
$VARREPORT_pass =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP PASS: <SET> -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_pass = '';}
|
||||||
|
if ($args =~ /--ftp-port=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-port=/,$args);
|
||||||
|
$VARREPORT_port = $data_in[1];
|
||||||
|
$VARREPORT_port =~ s/ .*//gi;
|
||||||
|
$VARREPORT_port =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP port: $VARREPORT_port -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_port = '22';}
|
||||||
|
if ($args =~ /--ftp-dir=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--ftp-dir=/,$args);
|
||||||
|
$VARREPORT_dir = $data_in[1];
|
||||||
|
$VARREPORT_dir =~ s/ .*//gi;
|
||||||
|
$VARREPORT_dir =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- FTP DIR: $VARREPORT_dir -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$VARREPORT_dir = '';}
|
||||||
|
|
||||||
|
if ($args =~ /--email-subject=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-subject=/,$args);
|
||||||
|
$email_subject = $data_in[1];
|
||||||
|
$email_subject =~ s/ .*//gi;
|
||||||
|
$email_subject =~ s/\+/ /gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL SUBJECT: $email_subject -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_subject = 'VICIDIAL REPORT';}
|
||||||
|
if ($args =~ /--email-list=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-list=/,$args);
|
||||||
|
$email_list = $data_in[1];
|
||||||
|
$email_list =~ s/ .*//gi;
|
||||||
|
$email_list =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL NOTIFICATION: $email_list -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_list = '';}
|
||||||
|
if ($args =~ /--email-sender=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--email-sender=/,$args);
|
||||||
|
$email_sender = $data_in[1];
|
||||||
|
$email_sender =~ s/ .*//gi;
|
||||||
|
$email_sender =~ s/:/,/gi;
|
||||||
|
if ($DB > 0) {print "\n----- EMAIL NOTIFICATION SENDER: $email_sender -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{$email_sender = 'vicidial@localhost';}
|
||||||
|
if ($args =~ /--date=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--date=/,$args);
|
||||||
|
$shipdate = $data_in[1];
|
||||||
|
$shipdate =~ s/ .*//gi;
|
||||||
|
if ($shipdate =~ /today/)
|
||||||
|
{
|
||||||
|
$shipdate="$year-$mon-$mday";
|
||||||
|
$time = $TWOAMsec;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($shipdate =~ /yesterday/)
|
||||||
|
{
|
||||||
|
$shipdate="$Tyear-$Tmon-$Tmday";
|
||||||
|
$year = $Tyear;
|
||||||
|
$mon = $Tmon;
|
||||||
|
$mday = $Tmday;
|
||||||
|
$time=$TWOAMsecY;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
@cli_date = split("-",$shipdate);
|
||||||
|
$year = $cli_date[0];
|
||||||
|
$mon = $cli_date[1];
|
||||||
|
$mday = $cli_date[2];
|
||||||
|
$cli_date[1] = ($cli_date[1] - 1);
|
||||||
|
$time = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$start_date = $shipdate;
|
||||||
|
$start_date =~ s/-//gi;
|
||||||
|
if (!$Q) {print "\n----- DATE OVERRIDE: $shipdate($start_date) -----\n\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$time=$TWOAMsec;
|
||||||
|
}
|
||||||
|
if ($args =~ /--begin-date=/i)
|
||||||
|
{
|
||||||
|
@data_in = split(/--begin-date=/,$args);
|
||||||
|
$begindate = $data_in[1];
|
||||||
|
$begindate =~ s/ .*//gi;
|
||||||
|
if ($begindate =~ /6days/)
|
||||||
|
{
|
||||||
|
$begindate="$Fyear-$Fmon-$Fmday";
|
||||||
|
$Byear = $Fyear;
|
||||||
|
$Bmon = $Fmon;
|
||||||
|
$Bmday = $Fmday;
|
||||||
|
$Btime=$TWOAMsecF;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($begindate =~ /7days/)
|
||||||
|
{
|
||||||
|
$begindate="$Gyear-$Gmon-$Gmday";
|
||||||
|
$Byear = $Gyear;
|
||||||
|
$Bmon = $Gmon;
|
||||||
|
$Bmday = $Gmday;
|
||||||
|
$Btime=$TWOAMsecG;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($begindate =~ /30days/)
|
||||||
|
{
|
||||||
|
$begindate="$Hyear-$Hmon-$Hmday";
|
||||||
|
$Byear = $Hyear;
|
||||||
|
$Bmon = $Hmon;
|
||||||
|
$Bmday = $Hmday;
|
||||||
|
$Btime=$TWOAMsecH;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
@cli_date = split("-",$begindate);
|
||||||
|
$Byear = $cli_date[0];
|
||||||
|
$Bmon = $cli_date[1];
|
||||||
|
$Bmday = $cli_date[2];
|
||||||
|
$cli_date[1] = ($cli_date[1] - 1);
|
||||||
|
$Btime = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$Bstart_date = $begindate;
|
||||||
|
$Bstart_date =~ s/-//gi;
|
||||||
|
if (!$Q) {print "\n----- DATE OVERRIDE: $begindate($Bstart_date) -----\n\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
print "no command line options set, using defaults.\n";
|
||||||
|
$email_subject = 'VICIDIAL REPORT';
|
||||||
|
}
|
||||||
|
### end parsing run-time options ###
|
||||||
|
|
||||||
|
if (length($Bstart_date) < 8)
|
||||||
|
{$Bstart_date = $start_date;}
|
||||||
|
if (length($begindate) < 8)
|
||||||
|
{$begindate = $shipdate;}
|
||||||
|
|
||||||
|
|
||||||
|
if (!$Q)
|
||||||
|
{
|
||||||
|
print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_email_web_reportSFTP.pl --\n\n";
|
||||||
|
print "This program is designed to wget a web report and email or SFTP it. \n";
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (length($report_id) > 1)
|
||||||
|
{
|
||||||
|
### Grab Server values from the database
|
||||||
|
$stmtA = "SELECT report_destination,email_from,email_to,email_subject,ftp_server,ftp_user,ftp_pass,ftp_directory,report_url,filename_override from vicidial_automated_reports where report_id='$report_id';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$report_destination = $aryA[0];
|
||||||
|
if ( ($report_destination =~ /EMAIL/) && ($container_entry_length < 10) )
|
||||||
|
{
|
||||||
|
$email_sender = $aryA[1];
|
||||||
|
$email_list = $aryA[2];
|
||||||
|
$email_subject = $aryA[3];
|
||||||
|
}
|
||||||
|
if ( ($report_destination =~ /FTP/) && ($container_entry_length < 10) )
|
||||||
|
{
|
||||||
|
$VARREPORT_host = $aryA[4];
|
||||||
|
$VARREPORT_user = $aryA[5];
|
||||||
|
$VARREPORT_pass = $aryA[6];
|
||||||
|
$VARREPORT_dir = $aryA[7];
|
||||||
|
}
|
||||||
|
$location = $aryA[8];
|
||||||
|
$filename_override = $aryA[9];
|
||||||
|
if ($DB) {print "RAW LOCATION: |$location|\n";}
|
||||||
|
$email_subject =~ s/--A--date--B--|--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$email_subject =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$email_subject =~ s/--A--datetime--B--/$year-$mon-$mday $hour:$min:$sec/gi;
|
||||||
|
$location =~ s/\&/\\&/gi;
|
||||||
|
$location =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$location =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$location =~ s/--A--6days--B--/$Fyear-$Fmon-$Fmday/gi;
|
||||||
|
$location =~ s/--A--7days--B--/$Gyear-$Gmon-$Gmday/gi;
|
||||||
|
$location =~ s/--A--8days--B--/$Myear-$Mmon-$Mmday/gi;
|
||||||
|
$location =~ s/--A--13days--B--/$Jyear-$Jmon-$Jmday/gi;
|
||||||
|
$location =~ s/--A--14days--B--/$Kyear-$Kmon-$Kmday/gi;
|
||||||
|
$location =~ s/--A--15days--B--/$Lyear-$Lmon-$Lmday/gi;
|
||||||
|
$location =~ s/--A--30days--B--/$Hyear-$Hmon-$Hmday/gi;
|
||||||
|
$filename_override =~ s/[^-_0-9a-zA-Z]//gi;
|
||||||
|
$filename_override =~ s/--A--today--B--/$year-$mon-$mday/gi;
|
||||||
|
$filename_override =~ s/--A--yesterday--B--/$Tyear-$Tmon-$Tmday/gi;
|
||||||
|
$filename_override =~ s/--A--6days--B--/$Fyear-$Fmon-$Fmday/gi;
|
||||||
|
$filename_override =~ s/--A--7days--B--/$Gyear-$Gmon-$Gmday/gi;
|
||||||
|
$filename_override =~ s/--A--8days--B--/$Myear-$Mmon-$Mmday/gi;
|
||||||
|
$filename_override =~ s/--A--13days--B--/$Jyear-$Jmon-$Jmday/gi;
|
||||||
|
$filename_override =~ s/--A--14days--B--/$Kyear-$Kmon-$Kmday/gi;
|
||||||
|
$filename_override =~ s/--A--15days--B--/$Lyear-$Lmon-$Lmday/gi;
|
||||||
|
$filename_override =~ s/--A--30days--B--/$Hyear-$Hmon-$Hmday/gi;
|
||||||
|
$filename_override =~ s/--A--filedatetime--B--/$filedatetime/gi;
|
||||||
|
if ($DB) {print "FINAL LOCATION: |$location|\n";}
|
||||||
|
if ($DB) {print "FILENAME OVERRIDE: |$filename_override|\n";}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: Report not found: $report_id\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
|
||||||
|
### gather user information for last manager who edited the automated report
|
||||||
|
$stmtA = "SELECT user from vicidial_admin_log where event_section='AUTOREPORTS' and record_id='$report_id' and event_type IN('ADD','MODIFY','COPY') order by admin_log_id desc limit 1;";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$http_user = $aryA[0];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: No report manager user found: $report_id\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
### gather user information for last manager who edited the automated report
|
||||||
|
$stmtA = "SELECT pass,custom_five from vicidial_users where user='$http_user';";
|
||||||
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||||
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||||
|
$sthArows=$sthA->rows;
|
||||||
|
if ($sthArows > 0)
|
||||||
|
{
|
||||||
|
@aryA = $sthA->fetchrow_array;
|
||||||
|
$http_pass = $aryA[0];
|
||||||
|
if (length($http_pass) < 1)
|
||||||
|
{$http_pass = $aryA[1];}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (!$Q) {print "ERROR: No report manager user found: $http_user\n";}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$sthA->finish();
|
||||||
|
|
||||||
|
$file_extension = $html;
|
||||||
|
if ($location =~ /call_report_export|lead_report_export|call_report_export_carrier|list_download/)
|
||||||
|
{$file_extension = '.txt'}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($location =~ /&file_download=\d/)
|
||||||
|
{$file_extension = '.csv'}
|
||||||
|
}
|
||||||
|
$HTMLfile = $report_id . "_" . $start_date . "_" . $hms . '' . $file_extension;
|
||||||
|
if (length($filename_override) > 0)
|
||||||
|
{$HTMLfile = "$filename_override$file_extension";}
|
||||||
|
$HTMLfileLOG = $report_id . "_" . $start_date . "_" . $hms . '' . $txt;
|
||||||
|
$shipdate='';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
######################################################
|
||||||
|
##### CHANGE REPORT NAME AND URL HERE!!!!!!!!!
|
||||||
|
######################################################
|
||||||
|
$file_extension = $html;
|
||||||
|
#$HTMLfile = "Outbound_Report_ALL_$shipdate$html";
|
||||||
|
$HTMLfile = "DISCH_SURVEY_$start_date$file_extension";
|
||||||
|
$HTMLfileLOG = "DISCH_SURVEY_$start_date$txt";
|
||||||
|
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/fcstats.php?db_log=1\\&query_date=$shipdate\\&group=$group\\&shift=$shift\\&archive=1";
|
||||||
|
#$location = "http://6666:1234\@192.168.1.101/vicidial/AST_VDADstats.php?query_date=$shipdate\\&end_date=$shipdate\\&group[]=--ALL--\\&shift=ALL";
|
||||||
|
#$location = "http://8888:8888\@127.0.0.1/vicidial/AST_VDADstats.php?query_date=$shipdate\\&end_date=$shipdate\\&group[]=--ALL--\\&shift=ALL";
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/AST_inbound_daily_report.php?query_date=$shipdate\\&end_date=$shipdate\\&group=5001\\&shift=ALL\\&SUBMIT=SUBMIT\\&hourly_breakdown=checked";
|
||||||
|
#$location = "http://6666:1234\@127.0.0.1/vicidial/AST_agent_performance_detail.php?DB=\\&query_date=$shipdate\\&end_date=$shipdate\\&group[]=2001\\&user_group[]=--ALL--\\&shift=ALL\\&SUBMIT=SUBMIT";
|
||||||
|
|
||||||
|
# Outbound IVR Export Report:
|
||||||
|
$location = "http://127.0.0.1/vicidial/call_report_export.php?query_date=$begindate\\&end_date=$shipdate\\&list_id[]=--ALL--\\&status[]=--ALL--\\&campaign[]=RSIDESVY\\&run_export=1\\&ivr_export=YES\\&export_fields=EXTENDED\\&header_row=NO\\&rec_fields=NONE\\&custom_fields=NO\\&call_notes=NO";
|
||||||
|
|
||||||
|
$http_user = '6666';
|
||||||
|
$http_pass = '1234';
|
||||||
|
######################################################
|
||||||
|
######################################################
|
||||||
|
}
|
||||||
|
|
||||||
|
### GRAB THE REPORT
|
||||||
|
if (!$Q) {print "Running Report $ship_date\n$location\n";}
|
||||||
|
`/usr/bin/wget --auth-no-challenge --http-user=$http_user --http-password=$http_pass --output-document=/tmp/X$HTMLfile --output-file=/tmp/Y$HTMLfileLOG $location `;
|
||||||
|
|
||||||
|
if ($DBX > 0) {print "DEBUG: |/usr/bin/wget --auth-no-challenge --http-user=$http_user --http-password=$http_pass --output-document=/tmp/X$HTMLfile --output-file=/tmp/Y$HTMLfileLOG |";}
|
||||||
|
|
||||||
|
if ( ($remove_images > 0) || ($remove_links > 0) )
|
||||||
|
{
|
||||||
|
open(input, "/tmp/X$HTMLfile") || die "can't open /tmp/X$HTMLfile: $!\n";
|
||||||
|
@input = <input>;
|
||||||
|
close(input);
|
||||||
|
$i=0;
|
||||||
|
$newfile='';
|
||||||
|
foreach(@input)
|
||||||
|
{
|
||||||
|
$Xline = $input[$i];
|
||||||
|
if ($remove_images > 0)
|
||||||
|
{$Xline =~ s/<img .*>//gi;}
|
||||||
|
if ($remove_links > 0)
|
||||||
|
{$Xline =~ s/\<a [^>]*\>//gi;}
|
||||||
|
$newfile .= "$Xline";
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
open(output, ">/tmp/$HTMLfile") || die "can't open /tmp/$HTMLfile: $!\n";
|
||||||
|
print output "$newfile";
|
||||||
|
close(output);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{`mv /tmp/X$HTMLfile /tmp/$HTMLfile `;}
|
||||||
|
|
||||||
|
###### BEGIN EMAIL SECTION #####
|
||||||
|
if (length($email_list) > 3)
|
||||||
|
{
|
||||||
|
if (!$Q) {print "Sending email: $email_list\n";}
|
||||||
|
|
||||||
|
use MIME::QuotedPrint;
|
||||||
|
use MIME::Base64;
|
||||||
|
use Mail::Sendmail;
|
||||||
|
|
||||||
|
$mailsubject = "$email_subject $shipdate";
|
||||||
|
|
||||||
|
%mail = ( To => "$email_list",
|
||||||
|
From => "$email_sender",
|
||||||
|
Subject => "$mailsubject",
|
||||||
|
);
|
||||||
|
$boundary = "====" . time() . "====";
|
||||||
|
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
|
||||||
|
|
||||||
|
$message = encode_qp( "$email_subject $shipdate:\n\n Attachment: $HTMLfile" );
|
||||||
|
|
||||||
|
$Zfile = "/tmp/$HTMLfile";
|
||||||
|
|
||||||
|
open (F, $Zfile) or die "Cannot read $Zfile: $!";
|
||||||
|
binmode F; undef $/;
|
||||||
|
$attachment = encode_base64(<F>);
|
||||||
|
close F;
|
||||||
|
|
||||||
|
$boundary = '--'.$boundary;
|
||||||
|
$mail{body} .= "$boundary\n";
|
||||||
|
$mail{body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
|
||||||
|
$mail{body} .= "Content-Transfer-Encoding: quoted-printable\n\n";
|
||||||
|
$mail{body} .= "$message\n";
|
||||||
|
$mail{body} .= "$boundary\n";
|
||||||
|
$mail{body} .= "Content-Type: application/octet-stream; name=\"$HTMLfile\"\n";
|
||||||
|
$mail{body} .= "Content-Transfer-Encoding: base64\n";
|
||||||
|
$mail{body} .= "Content-Disposition: attachment; filename=\"$HTMLfile\"\n\n";
|
||||||
|
$mail{body} .= "$attachment\n";
|
||||||
|
$mail{body} .= "$boundary";
|
||||||
|
$mail{body} .= "--\n";
|
||||||
|
|
||||||
|
sendmail(%mail) or die $mail::Sendmail::error;
|
||||||
|
if (!$Q) {print "ok. log says:\n", $mail::sendmail::log;} ### print mail log for status
|
||||||
|
}
|
||||||
|
###### END EMAIL SECTION #####
|
||||||
|
|
||||||
|
|
||||||
|
###### BEGIN FTP SECTION #####
|
||||||
|
|
||||||
|
# FTP overrides-
|
||||||
|
# $VARREPORT_host = '10.0.0.4';
|
||||||
|
# $VARREPORT_port = '21';
|
||||||
|
# $VARREPORT_user = 'cron';
|
||||||
|
# $VARREPORT_pass = 'test';
|
||||||
|
# $VARREPORT_dir = '';
|
||||||
|
|
||||||
|
if (length($VARREPORT_host) > 7)
|
||||||
|
{
|
||||||
|
if (length($VARREPORT_port) < 1) {$VARREPORT_port = '22';}
|
||||||
|
|
||||||
|
if (!$Q) {print "Sending File Over SFTP: $HTMLfile \n";}
|
||||||
|
|
||||||
|
# use Net::SSH2;
|
||||||
|
# my $ssh2 = Net::SSH2->new();
|
||||||
|
# if (!$Q) {$ssh2->debug("1");}
|
||||||
|
# $ssh2->connect("$VARREPORT_host","$VARREPORT_port") or die "Unable to connect Host $@ ($VARREPORT_host : $VARREPORT_pass) \n";
|
||||||
|
# $ssh2->auth_password("$VARREPORT_user","$VARREPORT_pass") or die "Unable to login $@ ($VARREPORT_user : $VARREPORT_pass) \n";
|
||||||
|
# $ssh2->scp_put("/tmp/$HTMLfile", "$VARREPORT_dir/$HTMLfile");
|
||||||
|
# $ssh2->disconnect();
|
||||||
|
|
||||||
|
$sftp_more='-q';
|
||||||
|
if ($DBX > 0) {$sftp_more='-v';}
|
||||||
|
|
||||||
|
use Net::SFTP::Foreign;
|
||||||
|
|
||||||
|
$sftp = Net::SFTP::Foreign->new($VARREPORT_user . '@' . $VARREPORT_host, password => "$VARREPORT_pass", port => "$VARREPORT_port", more => "$sftp_more");
|
||||||
|
if ($DBX > 0)
|
||||||
|
{
|
||||||
|
print "Sending /tmp/$HTMLfile to remote $VARREPORT_dir/$HTMLfile \n";
|
||||||
|
$sftp->put("/tmp/$HTMLfile", "$VARREPORT_dir/$HTMLfile", callback => \&readcallback) or die "file transfer failed: " . $sftp->error;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$sftp->put("/tmp/$HTMLfile", "$VARREPORT_dir/$HTMLfile") or die "file transfer failed: " . $sftp->error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$Q) {print "SFTP File Sending Process Complete, Exiting... \n";}
|
||||||
|
}
|
||||||
|
###### END FTP SECTION #####
|
||||||
|
|
||||||
|
|
||||||
|
$secY = time();
|
||||||
|
$secRUN = ($secY - $secX);
|
||||||
|
if ($secRUN < 1) {$secRUN=1;}
|
||||||
|
|
||||||
|
if (length($report_id) > 1)
|
||||||
|
{
|
||||||
|
$stmtA="UPDATE vicidial_automated_reports set report_last_run=NOW(), report_last_length='$secRUN' where report_id='$report_id';";
|
||||||
|
$affected_rows = $dbhA->do($stmtA);
|
||||||
|
|
||||||
|
if ($log_to_adminlog > 0)
|
||||||
|
{
|
||||||
|
$location =~ s/;|\\|\'|\"//gi;
|
||||||
|
$stmtB="INSERT INTO vicidial_admin_log set event_date=NOW(), user='$http_user', ip_address='$server_ip', event_section='AUTOREPORTS', event_type='EXPORT', record_id='$report_id', event_code='ADMIN REPORT EXPORT RUN $report_destination', event_sql=\"$location\", event_notes='Run time: $secRUN seconds. Sent $report_destination';";
|
||||||
|
$Iaffected_rows = $dbhA->do($stmtB);
|
||||||
|
if ($DB) {print "ADMIN LOGGING FINISHED: $affected_rows|$Iaffected_rows|$stmtA|$stmtB\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($log_to_adminlog > 0)
|
||||||
|
{
|
||||||
|
$location =~ s/;|\\|\'|\"//gi;
|
||||||
|
$stmtA="INSERT INTO vicidial_admin_log set event_date=NOW(), user='$http_user', ip_address='$server_ip', event_section='REPORTS', event_type='EXPORT', record_id='email_web_report', event_code='ADMIN REPORT EXPORT RUN', event_sql=\"$location\", event_notes='Run time: $secRUN seconds';";
|
||||||
|
$Iaffected_rows = $dbhA->do($stmtA);
|
||||||
|
if ($DB) {print "ADMIN LOGGING FINISHED: $Iaffected_rows|$stmtA\n";}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
exit;
|
||||||
|
|
||||||
|
### sftp callback subroutines
|
||||||
|
sub writecallback
|
||||||
|
{
|
||||||
|
my($sftp, $data, $offset, $size) = @_;
|
||||||
|
if ($DB > 0)
|
||||||
|
{print STDERR "Wrote $offset / $size bytes\r";}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub readcallback
|
||||||
|
{
|
||||||
|
my($sftp, $data, $offset, $size) = @_;
|
||||||
|
if ($DB > 0)
|
||||||
|
{print STDERR "Read $offset / $size bytes\r";}
|
||||||
|
}
|
||||||
@@ -4668,12 +4668,13 @@ else
|
|||||||
# 200508-1024 - Added feature to Call Menus to allow copying of previous option
|
# 200508-1024 - Added feature to Call Menus to allow copying of previous option
|
||||||
# 200518-0828 - Fixed issue with Carrier custom dialplan allowing comments';'
|
# 200518-0828 - Fixed issue with Carrier custom dialplan allowing comments';'
|
||||||
# 200528-2126 - Added three_way_record_stop_exception campaign option
|
# 200528-2126 - Added three_way_record_stop_exception campaign option
|
||||||
|
# 200601-2129 - Added link for Auto Reports FTP server if using SFTP or FTPSSL
|
||||||
#
|
#
|
||||||
|
|
||||||
# make sure you have added a user to the vicidial_users MySQL table with at least user_level 9 to access this page the first time
|
# make sure you have added a user to the vicidial_users MySQL table with at least user_level 9 to access this page the first time
|
||||||
|
|
||||||
$admin_version = '2.14-754a';
|
$admin_version = '2.14-755a';
|
||||||
$build = '200528-2126';
|
$build = '200601-2129';
|
||||||
|
|
||||||
$STARTtime = date("U");
|
$STARTtime = date("U");
|
||||||
$SQLdate = date("Y-m-d H:i:s");
|
$SQLdate = date("Y-m-d H:i:s");
|
||||||
@@ -37588,7 +37589,17 @@ if ($ADD==394111111111)
|
|||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email From").": </td><td align=left><input type=text name=email_from size=40 maxlength=100 value=\"$email_from\">$NWB#auto_reports-email_from$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email From").": </td><td align=left><input type=text name=email_from size=40 maxlength=100 value=\"$email_from\">$NWB#auto_reports-email_from$NWE</td></tr>\n";
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email To").": </td><td align=left><input type=text name=email_to size=70 maxlength=100 value=\"$email_to\">$NWB#auto_reports-email_to$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email To").": </td><td align=left><input type=text name=email_to size=70 maxlength=100 value=\"$email_to\">$NWB#auto_reports-email_to$NWE</td></tr>\n";
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email Subject").": </td><td align=left><input type=text name=email_subject size=60 maxlength=100 value=\"$email_subject\">$NWB#auto_reports-email_subject$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("Email Subject").": </td><td align=left><input type=text name=email_subject size=60 maxlength=100 value=\"$email_subject\">$NWB#auto_reports-email_subject$NWE</td></tr>\n";
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP Server").": </td><td align=left><input type=text name=ftp_server size=40 maxlength=100 value=\"$ftp_server\">$NWB#auto_reports-ftp_server$NWE</td></tr>\n";
|
|
||||||
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>";
|
||||||
|
if (preg_match("/^SFTPCNTR|^FTPSCNTR/",$ftp_server))
|
||||||
|
{
|
||||||
|
$temp_container_id = preg_replace("/^SFTPCNTR|^FTPSCNTR/",'',$ftp_server);
|
||||||
|
echo "<a href=\"$PHP_SELF?ADD=392111111111&container_id=$temp_container_id\">"._QXZ("FTP Server")."</a>";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{echo ""._QXZ("FTP Server")."";}
|
||||||
|
echo "</td><td align=left><input type=text name=ftp_server size=40 maxlength=100 value=\"$ftp_server\">$NWB#auto_reports-ftp_server$NWE</td></tr>\n";
|
||||||
|
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP User").": </td><td align=left><input type=text name=ftp_user size=40 maxlength=100 value=\"$ftp_user\">$NWB#auto_reports-ftp_user$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP User").": </td><td align=left><input type=text name=ftp_user size=40 maxlength=100 value=\"$ftp_user\">$NWB#auto_reports-ftp_user$NWE</td></tr>\n";
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP Pass").": </td><td align=left><input type=text name=ftp_pass size=40 maxlength=100 value=\"$ftp_pass\">$NWB#auto_reports-ftp_pass$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP Pass").": </td><td align=left><input type=text name=ftp_pass size=40 maxlength=100 value=\"$ftp_pass\">$NWB#auto_reports-ftp_pass$NWE</td></tr>\n";
|
||||||
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP Directory").": </td><td align=left><input type=text name=ftp_directory size=60 maxlength=100 value=\"$ftp_directory\">$NWB#auto_reports-ftp_directory$NWE</td></tr>\n";
|
echo "<tr bgcolor=#$SSstd_row3_background><td align=right>"._QXZ("FTP Directory").": </td><td align=left><input type=text name=ftp_directory size=60 maxlength=100 value=\"$ftp_directory\">$NWB#auto_reports-ftp_directory$NWE</td></tr>\n";
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
# version: 20200528092201
|
# version: 202000601212901
|
||||||
users-user User ID <QXZ>This field is where you put the users ID number, can be up to 8 digits in length, Must be at least 2 characters in length.</QXZ>
|
users-user User ID <QXZ>This field is where you put the users ID number, can be up to 8 digits in length, Must be at least 2 characters in length.</QXZ>
|
||||||
users-pass Password <QXZ>This field is where you put the users password. Must be at least 2 characters in length. A medium strength user password will be at least 10 characters in length, and a strong user password will be at least 20 characters in length and have letters as well as at least one number. It is recommended that you use a longer password if possible, stringing together several unrelated words with no spaces, and a number somewhere in the string. The maximum size of a password is 100 characters.</QXZ>
|
users-pass Password <QXZ>This field is where you put the users password. Must be at least 2 characters in length. A medium strength user password will be at least 10 characters in length, and a strong user password will be at least 20 characters in length and have letters as well as at least one number. It is recommended that you use a longer password if possible, stringing together several unrelated words with no spaces, and a number somewhere in the string. The maximum size of a password is 100 characters.</QXZ>
|
||||||
users-force_change_password Force Change Password <QXZ>If this option is set to Y then the user will be prompted to change their password the next time they log in to the administration webpage. Default is N.</QXZ>
|
users-force_change_password Force Change Password <QXZ>If this option is set to Y then the user will be prompted to change their password the next time they log in to the administration webpage. Default is N.</QXZ>
|
||||||
@@ -1177,7 +1177,7 @@ auto_reports-report_destination Report Destination <QXZ>This option will determi
|
|||||||
auto_reports-email_from Email From <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the email address that you want the automated report email to come from. Note: some email servers may require certain registered email address to be used for delivery to be accepted by them. You may also have to set up a reverse domain name lookup with your network provider for the server you have chosen to send emails from.</QXZ>
|
auto_reports-email_from Email From <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the email address that you want the automated report email to come from. Note: some email servers may require certain registered email address to be used for delivery to be accepted by them. You may also have to set up a reverse domain name lookup with your network provider for the server you have chosen to send emails from.</QXZ>
|
||||||
auto_reports-email_to Email To <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the email address that you want to receive the automated report email. You can define more than one email address by separating them with a colon.</QXZ>
|
auto_reports-email_to Email To <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the email address that you want to receive the automated report email. You can define more than one email address by separating them with a colon.</QXZ>
|
||||||
auto_reports-email_subject Email Subject <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the subject of the email. As an option, you can use the --A--date--B-- or --A--datetime--B-- flag in this field to populate the current date or date-time.</QXZ>
|
auto_reports-email_subject Email Subject <QXZ>If the EMAIL destination is chosen above, then this field must be filled in with the subject of the email. As an option, you can use the --A--date--B-- or --A--datetime--B-- flag in this field to populate the current date or date-time.</QXZ>
|
||||||
auto_reports-ftp_server FTP Server <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP server address. Note: this works only for standard FTP servers, not SFTP or FTP over SSL.</QXZ>
|
auto_reports-ftp_server FTP Server <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP server address. If you would like to use an SFTP or FTP over SSL server, then you will need to have your administrator confirm that your system has the proper modules installed to connect to them. If you want to connect to an SFTP server, you will need to create a Settings Container with the connection options for it, and put that Container ID in this field with SFTPCNTR before it, so if you have an SFTP Settings Container with an ID of test_send, then you would put SFTPCNTRtest_send in this field. For FTP over SSL you would follow very similar instructions except you need to use FTPSCNTR as your prefix. A basic settings container entry for an SFTP server might look like this</QXZ>-<BR>--ftp-server=192.168.1.3<BR>--ftp-login=reports<BR>--ftp-pass=reportpass<BR>--ftp-port=22<BR>--ftp-dir=/home/reports<BR><QXZ>For an FTP over SSL server you may also need to define Explicit or Implicit encryption</QXZ>-<BR>--ftp-encrypt=E
|
||||||
auto_reports-ftp_user FTP User <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP login user.</QXZ>
|
auto_reports-ftp_user FTP User <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP login user.</QXZ>
|
||||||
auto_reports-ftp_pass FTP Pass <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP login password.</QXZ>
|
auto_reports-ftp_pass FTP Pass <QXZ>If the FTP destination is chosen above, then this field must be filled in with the FTP login password.</QXZ>
|
||||||
auto_reports-ftp_directory FTP Directory <QXZ>If the FTP destination is chosen above, then this field can be filled in with the FTP folder directory that you want the automated reports to be uploaded into. Note: the folder must already exist, this process will not try to create the folder.</QXZ>
|
auto_reports-ftp_directory FTP Directory <QXZ>If the FTP destination is chosen above, then this field can be filled in with the FTP folder directory that you want the automated reports to be uploaded into. Note: the folder must already exist, this process will not try to create the folder.</QXZ>
|
||||||
|
|||||||
Reference in New Issue
Block a user