Oi Pessoal,

Depois de receber v�rios scripts, que n�o funcionaram, para atualizar 
os DATs do VirusScan para Linux, eu adaptei um deles e conseguir fazer 
com que ele funcionasse. Da� � s� agendar no cron e deixar que ele fa�a 
o servi�o :-) . Abaixo segue o seu c�digo fonte.

Espero estar ajudando.

Abra�os,

Roberth.

*** INICIO ***

#!/usr/bin/perl
##############################################################
#                                                            #
# Atualiza os arquivos .DAT do antivirus VirusScan da Mcafee #
#                                                            #
##############################################################
# Desenvolvido por: Autor Desconhecido                       #
# Adaptado por....: Roberth Oliveira Corgosinho              #
# Data............: 14/03/2002                               #
##############################################################
# Ultima Modificacao: 14/03/2002                             #
# Modificado por....: Roberth Oliveira Corgosinho            #
# Motivo: Adaptacao do script para necessidades da empresa   #
#         em que eu trabalho                                 #
##############################################################

# Declaracao das variaveis

# Diretorio de instalacao do UVSCAN - VirusScan
$UVDIR = "/usr/local/uvscan";
# Endereco do servidor da NAI para localizacao do arquivo .TAR 
# disponivel para download
$HOST  = "http://download.nai.com/products/datfiles/4.x/nai";;
# Diretorio temporario a ser criado para efetuar o download
$TMPDIR  = "/root/amavis/dat-uptdates";
# Diretorio onde ficarao guardados os backups dos arquivos .TAR
$BKPDIR  = "/root/amavis";
# Pega a versao atual instalada dos arquivos .DAT
$CVERSION = `$UVDIR/uvscan --version | grep "Virus data file" | cut -
d" " -f4 | cut -c2-`;
$CVERSION =~ s/\s//g;
$OVERSION = $CVERSION;       # Versao Anterior (Apos Atualizacao)
$NVERSION = $CVERSION + 1;   # Proxima versao dos arquivos .DAT
$NDNAME   = "dat-$NVERSION"; # Nome do proximo arquivo .TAR
$ODNAME   = "dat-$OVERSION"; # Nome do arquivo .TAR da versao Atual

# Atualiza os arquivos .DAT

# Cria o diretorio temporario para o download
system "mkdir $TMPDIR";
# Efetua o download do arquivo .TAR do servidor FTP da NAI
print "\n\nFazendo o donwload do arquivo $NDNAME.tar\n\n";
system "wget $HOST/$NDNAME.tar";
system "mv $NDNAME.tar $TMPDIR";
# Verifica a existencia da nova versao
if (-e "$TMPDIR/$NDNAME.tar") {
  # Se existir atualiza a versao e guarda uma copia do arquivo .TAR
  print "\nAtualizando os arquivos para a versao $NVERSION\n\n";
  system "tar -xvf $TMPDIR/$NDNAME.tar -C $UVDIR";
  system "mv $TMPDIR/$NDNAME.tar $BKPDIR && rm -rf $TMPDIR";
  # Verifica se os arquivos foram atualizados corretamente
  $CVERSION = `$UVDIR/uvscan --version | grep "Virus data file" | cut -
d" " -f4 | cut -c2-`;
  $CVERSION =~ s/\s//g;
  if ($CVERSION != $NVERSION) {
    # Se nao, imprime mensagem de alerta
    print "\nOs arquivos nao foram atualizados com sucesso, por favor 
faca a atualizacao manualmente.\n\n";
    print "Versao Atual...: $CVERSION\n";
    print "Versao Anterior: $OVERSION\n\n";
  } else {
    # Se sim, informa a versao atual
    print "\nArquivos atualizados com sucesso!\n\n";
    print "Versao atual...: $CVERSION\n";
    print "Versao anterior: $OVERSION\n\n";
    print "Excluindo o arquivo $ODNAME.tar\n\n";
    system "rm -f $BKPDIR/$ODNAME.tar";
  }
} else {
  # Se nao existir apenas imprime a mensagem de alerta
  print "\nNao existe uma atualizacao disponivel para download.\n\n";
  system "rm -rf $TMPDIR";
}

*** FIM ***
================================
Veronica Vieira de Carvalho
Roberth Oliveira Corgosinho
http://www.netfor.com.br

Assinantes em 15/03/2002: 2247
Mensagens recebidas desde 07/01/1999: 158271
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista: 
            mailto:[EMAIL PROTECTED]

Responder a