Forum Debian Users Gang

#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw(strftime);

my $now_string = strftime "%Y-%m-%d", localtime;
my $tmp_dir = `mktemp -d`;

chomp $tmp_dir;

my $debug = 0;
my $pretend = 0;

sub exe($) {
    my $cmd = shift;
    if ($pretend == 1)
        {
        print STDERR "+ $cmd\n";
        }
    else
        {
         if ($debug == 0)
            {
            return system($cmd);
            }
         else
            {
            print STDERR "+ $cmd\n";
            return system($cmd);
            }
         }
}


sub rotate_db {

    if ( ! exe("mysqlhotcopy -q -u root --password=haslo ulogd $tmp_dir") 
        && ! exe("mysqlhotcopy -q -u root --password=haslo spamassassin $tmp_dir") ) {
        #print "OK , teraz pakujemy\n";
        if ( chdir($tmp_dir) && ! exe("tar -cvjf /var/backup/${now_string}.tar.bz2 * > /dev/null") ) {
            #print "spakowao sie ok \n";
        if ( ! exe("rm -r $tmp_dir")) { print "skasowao sie ok\n"; }
        
            return 0;
        }
        else {
            print "hujnia";
            exit 1;
        }
    }
 }

if (!rotate_db) 
    {
    exe("echo \"truncate table ulog;\" | mysql -u ulogd -phaslo ulogd");
    }