lms-backup - krótki skrypcik w PERLu, specjalnie dla was ;) - lms

14 Gru 2008

      #-----------------------------------------------------------------------------------------------------
#!/usr/bin/perl
use warnings;
use strict;

my $tim = time();

# folder z backupami
my $dir = "/home/router/public_html/lms/backups/";

# nazwa pliku archiwum
my $fil = "lms-" . $tim . ".sql.gz";

# polecenie do wykonania
my $exe = "/usr/bin/mysqldump -u lms --password=super_tajne_haslo 
--add-drop-table --add-locks lms | gzip -9 > " . $dir . $fil;

# przeglądaj
opendir(LISTDIR, $dir) || die "can't open dir $dir: $!";
my @lis = readdir(LISTDIR);
closedir(LISTDIR);

# szukamy plików starszych niż 1 miesiąc (2678400 sekund) ... i 
kasujemy; zanim odkomentujesz "unlink", przetestuj wynik!
print "Our files:\n";
foreach (@lis) {
        if (/^lms\-(\d+)\./) {
                print "\t$_\n";
                if ($1 + 2678400 < $tim) {
                        print "\t\t - deleting...\n";
                        #unlink($dir . $_);
                }
        }
}

# tworzymy kopię bazy danych
system($exe) == 0 || die "can't create backup of database: $!";

# ustawiamy usera i grupę www-data na nowy plik
chown 33, 33, $dir . $fil;
#-----------------------------------------------------------------------------------------------------

Poprawki mile widziane, najlepiej w odpowiedzi na ten wątek.
Licencja GNU GPL ;)

Pozdrawiam,
Konrad

!DSPAM:49444bd798891989010922!

lms-backup - krótki skrypcik w PERLu, specjalnie dla was ;)

Konrad

znaczniki

uczestnicy (1)