Shaun Bugler wrote:
Come on anyone.... any suggestions, documentation to read ... anything please...You're not supposed to run "clamd RELOAD" as in typing in from shell prompt.
It will start another instance of clamd (which should immediately die, because "socket is in use") and the "RELOAD" argument is simply ignored.
You're supposed to connect to clamd's socket (local or TCP), and send RELOAD command from there.
To make it easy, here's clamdsock.pl, adapted from clamdwatch.pl.
In this example clamd's socket is in /tmp/clamd. See clamdwatch.pl (included in clamav source code) on how to specify local socket/TCP parameters (or you can just edit the file directly).
To PING clamd : # clamdsock.pl -c PING Clamd responds with : PONG
To force clamd reload its database : # clamdsock.pl -c RELOAD Clamd responds with : RELOADING
Note that clamd does not actually reload the database immediately; it waits until a scan request actually comes.
So you might have to run " clamdscan " first (without arguments, it scans current directory) before getting the lines
Fri Feb 25 17:06:23 2005 -> Reading databases from /usr/local/share/clamav Fri Feb 25 17:06:23 2005 -> Database correctly reloaded (31129 viruses)
on your syslog or clamd's log file.
Regards,
Fajar
#!/usr/bin/perl # clamdsock # adapted from clamdwatch v0.7.1, Copyright (C) Mike Cathey # # Usage : clamdsock.pl -c <command to send to clamd>
use IO::Socket::UNIX;
use Getopt::Std;
use Sys::Syslog;
my %options;
getopts('hqs:lL:t:c:', \%options);
# "CONFIG" section
#
# $Socket values:
# = "3310" (as in the tcp port; make sure $ip is correct if you use this)
# = "/path/to/clamd/socket"
my $Socket = $options{s} || "/tmp/clamd";
my $log = $options{l} || 0;
my $ip = "127.0.0.1";
my $timeout = $options{t} || 15;
my $sock;
my $command = $options{c} || "PING";
# why waste time creating the IO::Socket instance if the socket isn't there
#
if ( $Socket !~ /^[0-9]+$/ ) {
if ( ! -e $Socket ) {
logState("$Socket missing! It doesn't look like clamd is running.");
cleanUp();
exit 0;
} else {
$sock = new IO::Socket::UNIX(Type => SOCK_STREAM,
Timeout => $timeout,
Peer => $Socket );
}
} else {
$sock = IO::Socket::INET->new( PeerAddr => $ip,
PeerPort => $Socket,
Proto => 'tcp');
}
if (!$sock || $@ ) { # there could be a stale file from a dead clamd
logState("Clamd Not Running");
cleanUp();
exit 0;
}
if ( $sock->connected ) {
my $err = "";
# send command to clamd
$sock->send($command);
# set the $timeout and die with a useful error if
# clamd isn't responsive
eval {
local $SIG{ALRM} = sub { cleanUp(); die "timeout\n" };
alarm($timeout);
$sock->recv($err, 200);
alarm(0);
};
if ($@) {
die unless $@ eq "timeout\n";
logState("Clamd not responding to RAWSCAN request");
cleanUp();
exit 0;
} else { # clamd responded to the request
logState("Clamd responds with :\n$err");
}
} else {
# you should never get here either
logState("Unknown State (Clamd Useless)");
cleanUp();
exit 0;
}
################################################################################
# functions below here
sub logState($) {
my ($message) = @_;
if ( $log ) {
do openlog("clamdwatch",'cons,pid','user');
do syslog('mail|info',$message);
do closelog();
}
if ( !$quiet ) {
print "$message\n";
}
}
sub cleanUp {
unlink($tempFile);
}
_______________________________________________ http://lurker.clamav.net/list/clamav-users.html
