#!/usr/bin/perl
#/* ========================================
# * ███╗   ███╗██████╗ ██╗ █████╗ ██╗
# * ████╗ ████║██╔══██╗██║██╔══██╗██║
# * ██╔████╔██║██║  ██║██║███████║██║
# * ██║╚██╔╝██║██║  ██║██║██╔══██║██║
# * ██║ ╚═╝ ██║██████╔╝██║██║  ██║███████╗
# * ╚═╝     ╚═╝╚═════╝ ╚═╝╚═╝  ╚═╝╚══════╝
# * ========================================
# * mDial - Omni-Channel Contact Centre Suite.
# * Initially Written by Martin McCarthy.
# * Contributions welcome.
# * Active: 2020 - 2023.
# *
# * This software is licensed under AGPLv2.
# * You can find more information here;
# * https://www.gnu.org/licenses/agpl-3.0.en.html
# * A copy of the license is also shipped with this build.
# *
# * Important note: this software is provided to you free of charge.
# * If you paid for this software, you were ripped off.
# *
# * This project is a fork of the awesome FOSS project, ViCiDial.
# * ViCiDial is copyrighted by Matt Florell and the ViCiDial Group
# * under the AGPLv2 license.
# *
# * You can find out more about ViCiDial;
# * Web: https://www.vicidial.com/
# * Email: Matt Florell <vicidial@gmail.com>
# * IRC: Libera.Chat - ##vicidial
# *
# * Bug reports, feature requests and patches welcome!
# * ======================================== */
$secT = time();
$secX = time();
( $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"; }
$file_date         = "$year-$mon-$mday";
$now_date          = "$year-$mon-$mday $hour:$min:$sec";
$VDL_date          = "$year-$mon-$mday 00:00:01";
$db_raw_files_copy = 0;
$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 =~ /^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_port/ ) && ( $CLIREPORT_port < 1 ) ) {
        $VARREPORT_port = $line;
        $VARREPORT_port =~ s/.*=//gi;
    }
    if ( ( $line =~ /^VARREPORT_dir/ ) && ( $CLIREPORT_dir < 1 ) ) {
        $VARREPORT_dir = $line;
        $VARREPORT_dir =~ s/.*=//gi;
    }
    $i++;
}
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 "  [--db-only] = only backup the database\n";
        print
"  [--db-settings-only] = only backup the database without leads, logs, servers or phones\n";
        print
"  [--db-without-logs] = do not backup the log tables in the database\n";
        print
"  [--db-without-archives] = do not backup the archive tables in the database\n";
        print
"  [--db-leads-only] = only export vicidial_list table(not compressed)\n";
        print
"  [--db-remote] = database is not on this server, use --host flag when backing it up\n";
        print
"  [--dbs-selected=X] = backup only selected databases, default uses conf file db only\n";
        print
"                       to backup databases X and Y, use X---Y, can use --ALL-- for all dbs on server\n";
        print
"                       you can use --ALLNS-- for all non-mysql dbs(will ignore 'test', 'mysql','information_schema')\n";
        print
"                       This feature will NOT work with '--db_raw_files_copy' option\n";
        print "  [--conf-only] = only backup the asterisk conf files\n";
        print "  [--without-db] = do not backup the database\n";
        print "  [--without-conf] = do not backup the conf files\n";
        print "  [--without-web] = do not backup web files\n";
        print "  [--without-sounds] = do not backup asterisk sounds\n";
        print "  [--without-voicemail] = do not backup asterisk voicemail\n";
        print "  [--without-crontab] = do not backup crontab\n";
        print
          "  [--ftp-transfer] = Transfer backup to the 'REPORTS' FTP server\n";
        print
          "  [--ftp-server=XXXXXXXX] = OVERRIDE FTP server to send file to\n";
        print "  [--ftp-login=XXXXXXXX] = OVERRIDE FTP user\n";
        print "  [--ftp-pass=XXXXXXXX] = OVERRIDE FTP pass\n";
        print
"  [--ftp-dir=XXXXXXXX] = OVERRIDE remote FTP server directory to post files to\n";
        print "  [--debugX] = super debug\n";
        print "  [--debug] = debug\n";
        print "  [--test] = test\n";
        print
"  [--db_raw_files_copy] = if set the backup won't be a mysql dump. It will tar the /var/lib/mysql folder. WARNING, THIS OPTION WILL STOP THE MYSQL SERVER!\n";
        print
"  [--archive_path=/PATH/FROM/ROOT] = absolute path to store the resulting backup\n";
        exit;
    }
    else {
        if ( $args =~ /--debug/i ) {
            $DB       = 1;
            $FTPdebug = 1;
            print "\n----- DEBUG -----\n\n";
        }
        if ( $args =~ /--debugX/i ) {
            $DBX = 1;
            print "\n----- SUPER DEBUG -----\n\n";
        }
        if ( $args =~ /--test/i ) {
            $T    = 1;
            $TEST = 1;
            print "\n-----TESTING -----\n\n";
        }
        if ( $args =~ /--db-settings-only/i ) {
            $db_settings_only = 1;
            print "\n----- Backup Database Settings Only -----\n\n";
        }
        if ( $args =~ /--db-only/i ) {
            $db_only = 1;
            print "\n----- Backup Database Only -----\n\n";
        }
        if ( $args =~ /--db-without-logs/i ) {
            $db_without_logs = 1;
            print "\n----- Backup Database Without Logs -----\n\n";
        }
        if ( $args =~ /--db-without-archives/i ) {
            $db_without_archives = 1;
            print "\n----- Backup Database Without Archives -----\n\n";
        }
        if ( $args =~ /--db-leads-only/i ) {
            $db_leads_only = 1;
            print
              "\n----- Backup Database Leads Only (not compressed) -----\n\n";
        }
        if ( $args =~ /--db-remote/i ) {
            $db_remote = 1;
            print "\n----- Backup Remote Database -----\n\n";
        }
        if ( $args =~ /--dbs-selected=/i ) {
            @data_in      = split( /--dbs-selected=/, $args );
            $dbs_selected = $data_in[1];
            $dbs_selected =~ s/ .*//gi;
            if ( $q < 1 ) {
                print "\n----- DATABASES SELECTED: $dbs_selected -----\n\n";
            }
        }
        else { $dbs_selected = ''; }
        if ( $args =~ /--conf-only/i ) {
            $conf_only = 1;
            print "\n----- Conf Files Backup Only -----\n\n";
        }
        if ( $args =~ /--without-db/i ) {
            $without_db = 1;
            print "\n----- No Database Backup -----\n\n";
        }
        if ( $args =~ /--without-conf/i ) {
            $without_conf = 1;
            print "\n----- No Conf Files Backup -----\n\n";
        }
        if ( $args =~ /--without-sounds/i ) {
            $without_sounds = 1;
            print "\n----- No Sounds Backup -----\n\n";
        }
        if ( $args =~ /--without-web/i ) {
            $without_web = 1;
            print "\n----- No web files Backup -----\n\n";
        }
        if ( $args =~ /--without-voicemail/i ) {
            $without_voicemail = 1;
            print "\n----- No voicemail files Backup -----\n\n";
        }
        if ( $args =~ /--without-crontab/i ) {
            $without_crontab = 1;
            print "\n----- No crontab Backup -----\n\n";
        }
        if ( $args =~ /--ftp-transfer/i ) {
            $ftp_transfer = 1;
            print "\n----- FTP transfer -----\n\n";
        }
        if ( $args =~ /--db_raw_files_copy/i ) {
            $db_raw_files_copy = 1;
            print "\n----- DB raw files copy -----\n\n";
        }
        if ( $args =~ /--archive_path=/i ) {
            @data_in     = split( /--archive_path=/, $args );
            $ARCHIVEpath = $data_in[1];
            $ARCHIVEpath =~ s/ .*$//gi;
            print "\n----- Archive path set to $ARCHIVEpath -----\n\n";
        }
        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";
            }
        }
        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";
            }
        }
        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"; }
        }
        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 {
    print "no command line options set\n";
}
$server_ip = $VARserver_ip;    # Asterisk server IP
if ( !$ARCHIVEpath ) { $ARCHIVEpath = "$PATHlogs/archive"; }
if ( !$VARDB_port )  { $VARDB_port  = '3306'; }
$tarbin = '';
if ( -e ('/usr/bin/tar') ) { $tarbin = '/usr/bin/tar'; }
else {
    if ( -e ('/usr/local/bin/tar') ) { $tarbin = '/usr/local/bin/tar'; }
    else {
        if ( -e ('/bin/tar') ) { $tarbin = '/bin/tar'; }
        else {
            print "Can't find tar binary! Exiting...\n";
            exit;
        }
    }
}
$gzipbin = '';
if ( -e ('/usr/bin/gzip') ) { $gzipbin = '/usr/bin/gzip'; }
else {
    if ( -e ('/usr/local/bin/gzip') ) { $gzipbin = '/usr/local/bin/gzip'; }
    else {
        if ( -e ('/bin/gzip') ) { $gzipbin = '/bin/gzip'; }
        else {
            print "Can't find gzip binary! Exiting...\n";
            exit;
        }
    }
}
$conf      = '_CONF_';
$sangoma   = '_SANGOMA_';
$linux     = '_LINUX_';
$bin       = '_BIN_';
$web       = '_WEB_';
$sounds    = '_SOUNDS_';
$voicemail = '_VOICEMAIL_';
$all       = '_ALL_';
$tar       = '.tar';
$gz        = '.gz';
$sgSTRING  = '';
`cd $ARCHIVEpath`;
`mkdir $ARCHIVEpath/temp`;

if ( ( $without_db < 1 ) && ( $conf_only < 1 ) ) {
    if ( $db_raw_files_copy < 1 ) {
        print "\n----- Mysql dump -----\n\n";
        $mysqldumpbin = '';
        if ( -e ('/usr/bin/mysqldump') ) {
            $mysqldumpbin = '/usr/bin/mysqldump';
        }
        else {
            if ( -e ('/usr/local/mysql/bin/mysqldump') ) {
                $mysqldumpbin = '/usr/local/mysql/bin/mysqldump';
            }
            else {
                if ( -e ('/bin/mysqldump') ) {
                    $mysqldumpbin = '/bin/mysqldump';
                }
                else {
                    print
"Can't find mysqldump binary! MySQL backups will not work...\n";
                }
            }
        }
        $mysqlbin = '';
        if ( -e ('/usr/bin/mysql') ) { $mysqlbin = '/usr/bin/mysql'; }
        else {
            if ( -e ('/usr/local/mysql/bin/mysql') ) {
                $mysqlbin = '/usr/local/mysql/bin/mysql';
            }
            else {
                if ( -e ('/bin/mysql') ) { $mysqlbin = '/bin/mysql'; }
                else {
                    print
"Can't find mysql binary! MySQL lead-only backups will not work...\n";
                }
            }
        }
        use DBI;
        $dbs_to_backup[0] = "$VARDB_database";
        if ( length($dbs_selected) > 0 ) {
            if ( $dbs_selected =~ /--ALL--|--ALLNS--/ ) {
                if ( $DBX > 0 ) {
                    print
                      "DBX-  ALL DATABASES OPTION ENABLED! GATHERING DBS...\n";
                }
                $dbhA = DBI->connect(
                    "DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port",
                    "$VARDB_user", "$VARDB_pass" )
                  or die "Couldn't connect to database: " . DBI->errstr;
                $stmtA = "show databases;";
                $sthA  = $dbhA->prepare($stmtA)
                  or die "preparing: ", $dbhA->errstr;
                $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
                $dbArows = $sthA->rows;
                $db_ct   = 0;
                $db_s_ct = 0;

                while ( $dbArows > $db_ct ) {
                    @aryA = $sthA->fetchrow_array;
                    if ( $dbs_selected =~ /--ALLNS--/ ) {
                        if ( $aryA[0] !~ /^test$|^mysql$|^information_schema$/ )
                        {
                            $dbs_to_backup[$db_s_ct] = $aryA[0];
                            $db_s_ct++;
                            if ( $DBX > 0 ) {
                                print
                                  "DBX-  database $db_ct($db_s_ct): $aryA[0]\n";
                            }
                        }
                    }
                    else {
                        $dbs_to_backup[$db_s_ct] = $aryA[0];
                        $db_s_ct++;
                        if ( $DBX > 0 ) {
                            print "DBX-  database $db_ct($db_s_ct): $aryA[0]\n";
                        }
                    }
                    $db_ct++;
                }
                $sthA->finish;
                $dbhA->disconnect;
            }
            else {
                if ( $dbs_selected =~ /---/ ) {
                    @dbs_to_backup = split( /---/, $dbs_selected );
                    if ( $DBX > 0 ) {
                        printf "DBX-  databases %d\n", $#dbs_to_backup + 1;
                    }
                }
                else { $dbs_to_backup[0] = "$dbs_selected"; }
            }
        }
        $c = 0;
        while ( $c <= $#dbs_to_backup ) {
            $temp_dbname = $dbs_to_backup[$c];
            if ( $DBX > 0 ) {
                print "DBX-  starting to backup database $c: $temp_dbname\n";
            }
            $dbhA =
              DBI->connect( "DBI:mysql:$temp_dbname:$VARDB_server:$VARDB_port",
                "$VARDB_user", "$VARDB_pass" )
              or die "Couldn't connect to database: " . DBI->errstr;
            $stmtA = "show tables;";
            $sthA  = $dbhA->prepare($stmtA) or die "preparing: ", $dbhA->errstr;
            $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
            $sthArows       = $sthA->rows;
            $rec_count      = 0;
            $log_tables     = '';
            $archive_tables = '';
            $regular_tables = '';

            while ( $sthArows > $rec_count ) {
                @aryA = $sthA->fetchrow_array;
                if ( $aryA[0] =~ /_archive/ ) {
                    $archive_tables .= " $aryA[0]";
                }
                elsif ( $aryA[0] =~
/_log|server_performance|vicidial_ivr|vicidial_hopper|vicidial_manager|web_client_sessions|imm_outcomes|_counts|_sip$|_recent|_queue$|_urls$/
                  )
                {
                    $log_tables .= " $aryA[0]";
                }
                elsif ( $aryA[0] =~
/server|^phones|conferences|stats|vicidial_list$|^custom|_email_list|_email_attachments|_notes$/
                  )
                {
                    $regular_tables .= " $aryA[0]";
                }
                else {
                    $conf_tables .= " $aryA[0]";
                }
                $rec_count++;
            }
            $sthA->finish();
            $MSDhost        = '';
            $temp_file_path = '';
            $temp_file_name = '';
            if ($db_remote) { $MSDhost = "--host=$VARDB_server"; }
            if ($db_leads_only) {
                $temp_file_name =
                  "$VARserver_ip$temp_dbname" . "_leads_" . "$file_date.txt";
                $temp_file_path = "$ARCHIVEpath/temp/$temp_file_name";
                $dump_non_log_command =
"$mysqlbin $MSDhost --user=$VARDB_user --password=$VARDB_pass $temp_dbname -e \"SELECT * from vicidial_list;\" > $temp_file_path";
                if ($DBX) {
                    print
                      "\nDEBUG: LEADS EXPORT COMMAND: $dump_non_log_command\n";
                }
                `$dump_non_log_command`;
            }
            elsif ($db_without_logs) {
                $dump_non_log_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs $temp_dbname $regular_tables $conf_tables | $gzipbin > $ARCHIVEpath/temp/$VARserver_ip$temp_dbname$wday.gz";
                $dump_log_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs --no-data --no-create-db $temp_dbname $log_tables $archive_tables | $gzipbin > $ARCHIVEpath/temp/LOGS_$VARserver_ip$temp_dbname$wday.gz";
                if ($DBX) {
                    print
"$dump_non_log_command\nDEBUG: LOG EXPORT COMMAND(not run): $dump_log_command\n";
                }
                `$dump_non_log_command`;
            }
            elsif ($db_without_archives) {
                $dump_non_archive_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs $temp_dbname $regular_tables $conf_tables $log_tables | $gzipbin > $ARCHIVEpath/temp/$VARserver_ip$temp_dbname$wday.gz";
                $dump_archive_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs --no-data --no-create-db $temp_dbname $archive_tables | $gzipbin > $ARCHIVEpath/temp/ARCHIVES_$VARserver_ip$temp_dbname$wday.gz";
                if ($DBX) {
                    print
"$dump_non_archive_command\nDEBUG: ARCHIVE EXPORT COMMAND(not run): $dump_archive_command\n";
                }
                `$dump_non_archive_command`;
            }
            elsif ($db_settings_only) {
                $dump_non_log_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs $temp_dbname $conf_tables | $gzipbin > $ARCHIVEpath/temp/SETTINGSONLY_$VARserver_ip$temp_dbname$wday.gz";
                $dump_log_command =
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs --no-data --no-create-db $temp_dbname $log_tables $archive_tables $regular_tables | $gzipbin > $ARCHIVEpath/temp/LOGS_$VARserver_ip$temp_dbname$wday.gz";
                if ($DBX) {
                    print
"$dump_non_log_command\nNOT ARCHIVED: $dump_log_command\n";
                }
                `$dump_non_log_command`;
            }
            else {
                if ($DBX) {
                    print
"$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs $temp_dbname | $gzipbin > $ARCHIVEpath/temp/$VARserver_ip$temp_dbname$wday.gz\n";
                }
`$mysqldumpbin $MSDhost --user=$VARDB_user --password=$VARDB_pass --lock-tables --flush-logs $temp_dbname | $gzipbin > $ARCHIVEpath/temp/$VARserver_ip$temp_dbname$wday.gz`;
            }
            $c++;
        }
    }
    else {
        print "\n----- Mysql Raw Copy -----\n\n";
        `service mysql stop`;
`$tarbin -zcvf $ARCHIVEpath/temp/"$VARserver_ip"_mysql_raw_"$wday".tar.gz /var/lib/mysql/test /var/lib/mysql/mysql /var/lib/mysql/performance_schema /var/lib/mysql/asterisk`;
        `service mysql start`;
    }
}
if ( ( $without_conf < 1 ) && ( $db_only < 1 ) ) {
    $zapdahdi = '';
    if ( -e "/etc/zaptel.conf" )       { $zapdahdi .= " /etc/zaptel.conf"; }
    if ( -e "/etc/dahdi/system.conf" ) { $zapdahdi .= " /etc/dahdi"; }
    if ($DBX) {
        print
"$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$conf$wday$tar /etc/astguiclient.conf $zapdahdi /etc/asterisk\n";
    }
`$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$conf$wday$tar /etc/astguiclient.conf $zapdahdi /etc/asterisk`;
    if ( -e ('/etc/wanpipe/wanpipe1.conf') ) {
        $sgSTRING = '/etc/wanpipe/wanpipe1.conf ';
        if ( -e ('/etc/wanpipe/wanpipe2.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe2.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe3.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe3.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe4.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe4.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe5.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe5.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe6.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe6.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe7.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe7.conf ';
        }
        if ( -e ('/etc/wanpipe/wanpipe8.conf') ) {
            $sgSTRING .= '/etc/wanpipe/wanpipe8.conf ';
        }
        if ( -e ('/etc/wanpipe/wanrouter.rc') ) {
            $sgSTRING .= '/etc/wanpipe/wanrouter.rc ';
        }
        if ($DBX) {
            print
"$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$sangoma$wday$tar $sgSTRING\n";
        }
        `$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$sangoma$wday$tar $sgSTRING`;
    }
    $files = "";
    if ( $without_db < 1 ) {
        if ( -e ('/etc/my.cnf') ) { $files .= "/etc/my.cnf "; }
    }
    if ( $without_crontab < 1 ) {
        `crontab -l > /etc/crontab_snapshot`;
        if ( -e ('/etc/crontab_snapshot') ) {
            $files .= "/etc/crontab_snapshot ";
        }
    }
    if ( -e ('/etc/hosts') )         { $files .= "/etc/hosts "; }
    if ( -e ('/etc/rc.d/rc.local') ) { $files .= "/etc/rc.d/rc.local "; }
    if ( -e ('/etc/resolv.conf') )   { $files .= "/etc/resolv.conf "; }
    if ($DBX) {
        print
          "$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$linux$wday$tar $files\n";
    }
    `$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$linux$wday$tar $files`;
}
if ( ( $conf_only < 1 ) && ( $db_only < 1 ) && ( $without_web < 1 ) ) {
    if ($DBX) {
        print
          "$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$web$wday$tar $PATHweb\n";
    }
    `$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$web$wday$tar $PATHweb`;
}
if ( ( $conf_only < 1 ) && ( $db_only < 1 ) ) {
    if ($DBX) {
        print
"$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$bin$wday$tar $PATHagi $PATHhome\n";
    }
`$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$bin$wday$tar $PATHagi $PATHhome`;
}
if ( ( $conf_only < 1 ) && ( $db_only < 1 ) && ( $without_sounds < 1 ) ) {
    if ($DBX) {
        print
"$tarbin chf $ARCHIVEpath/temp/$VARserver_ip$sounds$wday$tar $PATHsounds\n";
    }
    `$tarbin chf $ARCHIVEpath/temp/$VARserver_ip$sounds$wday$tar $PATHsounds`;
}
if ( ( $conf_only < 1 ) && ( $db_only < 1 ) && ( $without_voicemail < 1 ) ) {
    if ($DBX) {
        print
"$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$voicemail$wday$tar /var/spool/asterisk/voicemail\n";
    }
`$tarbin cf $ARCHIVEpath/temp/$VARserver_ip$voicemail$wday$tar /var/spool/asterisk/voicemail`;
}
if ($DBX) {
    print
      "$tarbin cf $ARCHIVEpath/$VARserver_ip$all$wday$tar $ARCHIVEpath/temp\n";
}
`$tarbin cf $ARCHIVEpath/$VARserver_ip$all$wday$tar $ARCHIVEpath/temp`;
if ($DBX) { print "rm -f $ARCHIVEpath/$VARserver_ip$all$wday$tar$gz\n"; }
`rm -f $ARCHIVEpath/$VARserver_ip$all$wday$tar$gz`;
if ( !$db_leads_only ) {
    if ($DBX) { print "$gzipbin -9 $ARCHIVEpath/$VARserver_ip$all$wday$tar\n"; }
    `$gzipbin -9 $ARCHIVEpath/$VARserver_ip$all$wday$tar`;
}
if ( $ftp_transfer > 0 ) {
    if ($DBX) {
        print
"Starting FTP transfer...($VARREPORT_user at $VARREPORT_host dir: $VARREPORT_dir)\n";
    }
    use Net::FTP;
    $ftp = Net::FTP->new(
        "$VARREPORT_host",
        Port  => "$VARREPORT_port",
        Debug => "$FTPdebug"
    );
    $ftp->login( "$VARREPORT_user", "$VARREPORT_pass" );
    $ftp->cwd("$VARREPORT_dir");
    $ftp->binary();
    if ($db_leads_only) { $ftp->put( "$temp_file_path", "$temp_file_name" ); }
    else {
        $ftp->put( "$ARCHIVEpath/$VARserver_ip$all$wday$tar$gz",
            "$VARserver_ip$all$wday$tar$gz" );
    }
    $ftp->quit;
}
if ($DBX) { print "rm -fR $ARCHIVEpath/temp\n"; }
`rm -fR $ARCHIVEpath/temp`;
$secY  = time();
$secZ  = ( $secY - $secX );
$secZm = ( $secZ / 60 );
if ( !$Q ) {
    print "script execution time in seconds: $secZ     minutes: $secZm\n";
}
if ($DBX) { print "DONE, Exiting...\n"; }
exit;