Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 6.067 ]
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}) {
FTP – Script para adicionar e remover usuários via WEB
Inserindo sites em Lista do Squid
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Linux é a solução para o fim do Windows10? (3)
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (0)
Programa fora de escala na tela do pc (29)









