#!/usr/bin/perl

$avp = "/opt/AVP";
$atic = "$avp/old";
$bases = "$avp/VirusDB";

if ( ! -d $atic ) { `mkdir $atic`; }
chdir("$atic/ftp.kasperskylab.ru/bases/");
$old = `ls avp*`;
chdir("$atic");
`wget -m --passive-ftp ftp://ftp.kasperskylab.ru/bases/`;
chdir("$atic/ftp.kasperskylab.ru/bases/");

if ( ! ($new = `ls avp*`) eq $old ) { 
    chop($new);
    `rm -rf $bases/*`;
    system("/usr/bin/unzip","-o","-qq",$new ,"-d", $bases);
}
    system("/usr/bin/unzip","-o","-qq","daily.zip","-d", $bases);

    foreach $file (`ls up*`) {
	chop($file);
	system("/usr/bin/unzip","-o","-qq",$file,"-d", $bases);
    }