Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 5.989 ]
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.
#!/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}) {
Script que remove palavras de um arquivo.
Eliminando caracteres indesejados
Inserindo sites em Lista do Squid
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (1)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)