Различия

Показаны различия между двумя версиями страницы.

--- ubuntu:cron-weekly-monthly-daily-backup [2011/04/05 11:06] – artur
+++ ubuntu:cron-weekly-monthly-daily-backup [2017/03/23 21:59] (текущий) – внешнее изменение 127.0.0.1
@@ Строка 7: / Строка 7: @@
 ===== Хинты для написание скриптов для бэкапа =====
-<code>#!/bin/bash
+<code bash>#!/bin/bash
 # заносим в переменную DATE текущую дату
@@ Строка 24: / Строка 24: @@
 /usr/bin/find PATH-TO-DIR-BACKUP/ -type f -atime +7 -exec rm -f \{\} \; >/dev/null 2>&1</code>
+===== Удаление старых файлов с FTP через Perl =====
+<code perl>#!/usr/bin/perl
+use strict;
+use Net::FTP;
+my $host        = "ftp.hostname.com";
+my $dir         = "/";
+my $user        = "foo";
+my $passwd      = "bar";
+my $interval    = 3600*24*62; # 62 day
+my $passive     = 1; # my FTP server only works in PASV mode
+my $DEBUG       = 0;
+my $ftp = Net::FTP->new($host,
+ Debug => $DEBUG,
+ Passive => $passive)
+ or die "Can't open $host\n";
+$ftp->login($user, $passwd) or die "Can't log in as $user\n";
+$ftp->cwd($dir) or die "Can't chdir to $dir\n";
+my @files = $ftp->ls();
+foreach my $file (@files) {
+ my $file_mdtm = $ftp->mdtm($file) or die "Can't find $file in $dir\n";
+ if (time - $file_mdtm >= $interval) {
+ print "File $file is older than $interval secs: deleted\n";
+ $ftp->delete($file) unless $DEBUG;
+ }
+}</code>
++chmod 700
 ===== Простой скрипт для бэкапов =====