*** qmail-scanner-queue.template	Sun Feb  2 18:07:23 2003
--- qmail-scanner-queue.template.sql	Wed Jun  4 15:57:38 2003
***************
*** 71,76 ****
--- 71,77 ----
  use strict 'vars', 'subs';
  
  use Sys::Syslog qw(:DEFAULT setlogsock);
+ use DBD::mysql;
  setlogsock('unix');
  
  my $VERSION="1.16";
***************
*** 299,304 ****
--- 300,306 ----
  my ($sec,$min,$hour,$mday,$mon,$year);
  ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
  my $nowtime = sprintf "%02d/%02d/%02d %02d:%02d:%02d", $mday, $mon+1, $year+1900, $hour, $min, $sec;
+ my $sqlLogTime = sprintf "%02d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec;
  
  my ($smtp_sender,$remote_smtp_ip,$uid);
  
***************
*** 1208,1214 ****
    open(QUARANTINELOG,">>$scandir/$quarantinelog");
    print QUARANTINELOG $report;
    close QUARANTINELOG;
!   &debug("w_v_r: writing quarantine log report of: $report");
  }
  
  sub scanner_info {
--- 1210,1239 ----
    open(QUARANTINELOG,">>$scandir/$quarantinelog");
    print QUARANTINELOG $report;
    close QUARANTINELOG;
!  # Note: Fails silently if database connection is not available
!   my $hostname = '127.0.0.1';
!   my $user = 'viruslogs';
!   my $password = 'sgolsuriv';
!   my $database = 'viruslogs';
!   my $port = 3306;
!   my $dsn = "DBI:mysql:$database:$hostname";
!   my $dbh = DBI->connect($dsn, $user, $password,{ PrintError => 0, RaiseError => 0 });
! 
!   my $sql = "";
! 
!   $sql  = "insert into viruslogs (virus_date, virus_from, virus_to, virus_subject, virus_name, virus_scanner) values (";
!   $sql .= "'$sqlLogTime'";
!   $sql .= ", '$returnpath'";
!   $sql .= ", '$recips'";
!   $sql .= ", '$subj'";
!   $sql .= ", '$desc'";
!   $sql .= ", '$SCANINFO'";
!   $sql .= ")";
! 
!   $dbh->do($sql);
!   $dbh->disconnect();
! 
! &debug("w_v_r: writing quarantine log report of: $report");
  }
  
  sub scanner_info {