#!/usr/bin/perl
$UVDIR="/usr/local/uvscan";
$FTPHOST="ftp.mcafee.com";
$FTPDIR="/pub/antivirus/datfiles/4.x/";
$CVERSION=`$UVDIR/uvscan --version | grep "Virus data file" | cut -d" " -f4
| cut -c2-`;
$NVERSION=$CVERSION + 1;
$NDNAME="dat-$NVERSION";
system "ncftpget $FTPHOST $UVDIR $FTPDIR$NDNAME.tar 1> /dev/null 2>
/dev/null";
if ( -e "$UVDIR/$NDNAME.tar") {
        print "Unpacking update v$NVERSION\n";
        system "cd $UVDIR && tar -xf $NDNAME.tar && rm $NDNAME.tar";
}
else {
        print "No update available.\n";
}


 ____  ___   _______________________________________
   |  |   \ :Joselito Batista
   |  |___/ :Linux User# 228290 CL 7.0 Kernel 2.4.18
|  |  |   \ :TV R�dio Clube de Teresina
|__|  |___/ :[EMAIL PROTECTED]
____________:http://www.webpiaui.com



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

Responder a