Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 6.033 ]
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
FTP – Script para adicionar e remover usuários via WEB
Inserindo sites em Lista do Squid
Script para adicionar sites ao Squid
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Firewire resiste, Bcachefs sai: destaques Linux do dia
Kernel 6.18 em foco, betas fervilhando e avanços em IA no Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (1)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)