Journaling de arquivos

Publicado por Carlos Carvalho 05/08/2004

[ Hits: 5.837 ]

Download transf.pl.pl




Realiza Journaling de arquivos de uma pasta a outra e envia por scp.
Obs: por scp eh necessario voce criar aschaves RSA com ssh-keyten -t rsa e exporta-la ao destino.

  



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}) {

Scripts recomendados

Apaga fila do Exim...

Shadow Post It

Processa todos os SlackBuild's

Inserindo sites em Lista do Squid

Remove comentarios de scripts


  

Comentários
[1] Comentário enviado por h4sh em 05/08/2004 - 11:21h

Ops: ssh-keygen -t rsa
:)

[2] Comentário enviado por h4sh em 05/08/2004 - 11:23h

IMPORTANTE: BAIXE O SCRIPT POR DOWNLOAD, UM PEDACO DO CODIGO FICOU OMITIDO EM "Código-fonte" !!!


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts