#! /usr/bin/perl -w
#
#  logs-sync.pl  - 2005.01.11 Charles VIARD
#
#  Ce script est une version extremement simplifiée du script Configs-Backups/backups.pl de Yann GROSSEL.
#
#	- on ne backup que les fichiers *.gz et *.bz2
#	- pas de versionning sur le serveur de backup
#	- pas de suppression de fichiers sur le serveur de backup
#
#	De plus, ce script permet de supprimer les fichiers vieux d'un certain nombre de jours (une fois qu'ils
#	ont été synchronisés).
#
#  Ce script doit être placé sur les machines ou se trouvent des logs (apache...) compresser, à envoyer
#  sur un/des serveurs de backup.
#
#  Nécessite normalement Perl 5.6.1 ou supérieur.
#  (Semble toutefois fonctionner plus ou moins avec perl 5.0003...)
#

# Import des modules utilisés

use strict;
use File::Temp qw (tempfile);
use File::Find;

# Définitions des variables

my $base  = '/usr/local/Claranet/Logs-Sync';
#my $base = '/home/charlybr/work/tmp/Logs-Sync/TEST';

my $sopts = '-2 -F ' . $base . '/ssh.config';
my @ropts = ("-arHx", "--no-implied-dirs");
my $conf  = $base . '/logs-sync.conf';

my $lcd   = '$LastChangedDate: 2005-01-31 13:52:03 +0100 (Mon, 31 Jan 2005) $';
my $lcr   = '$LastChangedRevision: 12 $';

my ($ssh, $rsync, @targets, @expired_files, $expiration);
my ($h_logs, $p_logs, $n_logs);

my $now = time();

# Procédures

sub check_file()
{
        # Vérifie si un fichier est expiré, et si oui, l'ajoute dans le tableau @expired_files.

        my $file = $File::Find::name;

        return unless $file =~ m/\.(gz|bz2)$/;		# On ne s'occupe que des fichiers .gz / .bz2
	return unless -f $file;							# On ne s'occupe que des fichiers.

   my ($mtime) = (stat(_))[9];
        if (not defined $mtime) { print "Can't stat $file: $!\n"; return; }

        $mtime = $now - $mtime;							# Nombre de secondes depuis la dernière modification du fichier.
	$mtime /= 86400;									# On transforme en nombre de jours.

        return unless $mtime >= $expiration;		# On ne s'occupe que des fichiers trop vieux.

   push @expired_files, $file;
}

sub read_config()
{
        open F, $conf or die "\nCan't open $conf: $!\n\n";

        ($h_logs, $p_logs) = tempfile(DIR => '/var/tmp');     # logs files, handle & path
	$n_logs = 0;	# Number of files

        my $find_options = { 'wanted' => \&check_file, 'no_chdir' => 1 };

        while (<F>) {
                chomp;

                if (m/^\s*rsync\s*=\s*(\S+)/o)     			{ $rsync = $1; next; }
                if (m/^\s*ssh\s*=\s*(\S+)/o)       			{ $ssh = $1; next; }
                if (m/^\s*targets\s*=\s*(.*)\s*$/o)			{ @targets = split m/\s+/o, $1; next; }
                if (m/^\s*expiration\s*=\s*(\d+)\s*$/o)	{ $expiration = $1; next; }

      if (m#^\s*/\s*#o) {									  # Liste des fichiers de logs / paths contenant les fichiers de logs
			s#^\s*=\s*##o;
			for my $f (glob($_)) {
                                find($find_options, $f) if (defined $expiration);
                                $f =~ s#^/##o;
				print $h_logs $f . chr(0);
                                $n_logs = 1;
                        }
                        next;
                }
   }

   close F;
}

sub show_version()
{
   my $lc = 'LastChanged';
   $lcd =~ s/^\$${lc}Date: //; $lcd =~ s/ \+.* \$$//;
   $lcr =~ s/^\$${lc}Revision: //; $lcr =~ s/ \$$//;
   print "\nLogs-Sync, revision $lcr ($lcd)\n\n";
}

sub checks()
{
   die "\nError: rsync not defined in '$conf' !\n\n"   if (not defined($rsync));
   die "\nError: ssh not defined in '$conf' !\n\n"     if (not defined($ssh));
   die "\nError: targets not defined in '$conf' !\n\n" if (not @targets);

   if (!$n_logs) {
      print "Nothing to copy !\n\n" if (-t STDOUT);
      exit 0;
   }
}

sub do_backups()
{
   for my $target (@targets) {   # Pour chacune des targets

      my @args;

      push @args, @ropts;
      push @args, "-v", "--progress" if (-t STDOUT);
      push @args, "-e", $ssh . ' ' . $sopts;

      if ($n_logs) {
                        push @args, "--include=*/";
                        push @args, "--include=*.gz";
                        push @args, "--include=*.bz2";
                        push @args, "--exclude=*";
              push @args, '--from0';
         push @args, "--files-from=" . $p_logs, '/', $target;
         print $rsync . ' ' . join(' ', @args) . "\n\n" if (-t STDOUT);
         system $rsync, @args;
      }
   }
}

sub close_files()
{
   close $h_logs;		# Fermeture fichiers temporaires
}

sub delete_files()
{
        unlink $p_logs;					# On efface le fichier temporaire

        for my $f (@expired_files)		# On efface les fichiers expirés si nécessaire
	{
                print "Removing expired file $f\n" if (-t STDOUT);
                unlink $f;
        }
}

# Code principal

for (@ARGV)
{
        if (m/^-(v|-version)$/) { show_version(); exit 0; }
}

show_version() if (-t STDOUT);
read_config();
checks();
close_files();
do_backups();
delete_files();

exit 0;