Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 5.837 ]
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}) {
Processa todos os SlackBuild's
Inserindo sites em Lista do Squid
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta