Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 5.826 ]
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}) {
Listar arquivos de um diretório.
Processa todos os SlackBuild's
Script que remove palavras de um arquivo.
Script para adicionar e remover usuários no IMSPECTOR
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
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Wifi não funciona no Aspire ES 15 com o Debian (11)
Teclado não funciona no Debian (1)
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[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