#!/usr/bin/perl -w

# script to update rav automatically
# based on sophos update script by jkf

use strict;
my($LockFile)  = '/tmp/RavBusy.lock';
my($ravupdate) = '/usr/local/rav8/bin/ravlin8 --update=engine';

my($LOCK_SH) = 1;
my($LOCK_EX) = 2;
my($LOCK_NB) = 4;
my($LOCK_UN) = 8;

&LockRav();

system($ravupdate);

&UnlockRav();

sub LockRav {
        open(LOCK, ">$LockFile") or return;
        flock(LOCK, $LOCK_EX);
        print LOCK "Locked for updating Rav Antivirus engine files by $$\n";
}

sub UnlockRav {
        print LOCK "Unlocked after updating Rav Antivirus engine files by $$\n";
        flock(LOCK, $LOCK_UN);
        close LOCK;
}
