Journaling de arquivos

Descrição

Esconder código-fonte

#!/usr/bin/perl 
# Script que faz journaling de arquivos.
# Com duas opcoes: 
# 1 - Copia os arquivos de um dir para outro e envia via scp para 
# destino remoto;
# 2 - Move sobreescrevendo os arquivos de um dir para o outro.
# Sobreescreve porque nesse caso os arquivos vao aumentando de tamanho
# por ser base de dados. Feito para aumentar a seguranca 
# depois de um incidente.
# Help: ./script
# GNU
# Carlos Carvalho <h4sh@globo.com>
 
use strict;
use File::Copy;

my $dirorigem = "/etc/journal";        
my $dirdestino = "/etc/journal/copiado";       
my $dirremote = "/etc/journal";
my $host = "192.168.1.1";                      

sub COPIA1 () { 
opendir DIR, $dirorigem or die "diretorio nao localizado \$! \n";
   while ($_ = readdir DIR) {
          copy("$dirorigem/$_","$dirdestino") if (-f "$dirorigem/$_"); 
   }
#system("scp $dirdestino/* $host:/$dirremote/");
closedir(DIR);
} #End dub COPIA1()

sub LIMPA () {
opendir DIR, $dirorigem or die "diretorio nao localizado \$! \n";
   while ($_ = readdir DIR) {
         copy("$dirorigem/$_ $dirdestino/") if (-f "$dirorigem/$_");
            unlink("$dirorigem/$_");
   }
closedir(DIR);
} #End sub LIMPA()


my %commands = (
   "copia" => \&COPIA1,
   "remove" => \&LIMPA,
);
    chomp(my $string = $ARGV[0]);
    if ($commands{$string}) {