#!/usr/bin/perl -w

my $fbbin = "/opt/firebird/bin";
my $bazy = "/opt/databases";
my $bazaroz = "gdb";
my $shared = "/opt/shared";
my $kopie = "/home/mery/backup/temp";
my $kopietar = "/home/mery/backup/complete";
my $usbdev = "/dev/sdc1/";
my $localdir = "/mnt/storage/testy";
my $mailerr = "core-powiadomienia\@core.com.pl";
my $klient = "PanTester";
my $mailtopic = "Raport nocnej kopii zapasowe w firmie $klient";

#date settings
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $ymd = sprintf("%04d-%02d-%02d-%02d-%02d-%02d",$year+1900,$mon,$mday,$hour,$min,$sec);

        my $type = $bazaroz;
        my $dir = $bazy;
        $type = "*.$type";
        print "Szukam plikow z rozszerzeniem $type \n";
        chdir ($dir);
        @files = qx(ls $type 2>&1);

        foreach (@files) {
        print "Baza: $_\n";
        }

#Backup

foreach (@files) {
        system('cd $fbbin);
        print "Tworze kopie bazy $baza \n";
        system('./gbak -user sysdba -password masterkey -BACKUP_DATABASE localhost:$bazy\/$_ $kopie\/$_.gbk') or print "Blad archiwizowania bazy $baza \n";
        print "Gotowa kopia bazy $baza \n";

}

print "Koniec archiwizacji baz w firmie $klient w dniu $ymd \n";