~ubuntu-branches/ubuntu/utopic/mailscanner/utopic

#   $Id: mailscanner,v 1.142.2.188 2004/12/30 14:33:26 jkf Exp $

# Awkard BEGIN block so that we pick up MIME::Base64 from the right place!

BEGIN {

  my(@oldinc,@safecopy,$path);

 

  # Look in /usr/local/MailScanner/utils for the modules

  @oldinc = @INC;

  @safecopy = @INC;

 

  # Duplicate path with /usr/local/MailScanner/utils stuck on the front

  # of each element

  foreach $path (reverse @oldinc) {

    next unless $path =~ /\//;

    $path =~ s/^\/usr/\/usr\/lib\/MailScanner\/utils/;

    unshift @INC, $path;

  }

 

  require MIME::Base64;

  require MIME::QuotedPrint;

 

  @INC = @safecopy;

}

 

$MailScanner::Config::MailScannerVersion = '4.37.7';

 

# Are we just printing version numbers and exiting?

if (grep /^-+[vV]/, @ARGV) {

  my @Modules = qw/AnyDBM_File Archive::Zip Carp Convert::BinHex Convert::TNEF Data::Dumper DirHandle Fcntl File::Basename File::Copy FileHandle File::Path File::Temp HTML::Entities HTML::Parser HTML::TokeParser IO IO::File IO::Pipe Mail::ClamAV Mail::SpamAssassin MIME::Base64 MIME::Decoder MIME::Decoder::UU MIME::Head MIME::Parser MIME::QuotedPrint MIME::Tools MIME::WordDecoder Net::CIDR POSIX SAVI Socket Sys::Syslog Time::localtime/;

  my @Optional = qw#DB_File.pm Digest.pm Digest/HMAC.pm Digest/MD5.pm Digest/SHA1.pm Inline.pm Mail/ClamAV.pm Mail/SpamAssassin.pm Mail/SPF/Query.pm Net/CIDR/Lite.pm Net/DNS.pm Net/LDAP.pm Parse/RecDescent.pm SAVI.pm Sys/Hostname/Long.pm Test/Harness.pm Test/Simple.pm Text/Balanced.pm URI.pm#;

  my($module, $s, $v, $m);

 

  printf("Running on\n%s", `uname -a`);

  printf("This is %s", `cat /etc/redhat-release`)   if -f "/etc/redhat-release";

  printf("This is %s", `head -1 /etc/SuSE-release`) if -f "/etc/SuSE-release";

  printf("This is Perl version %f (%vd)\n", $], $^V);

  print "\nThis is MailScanner version " . $MailScanner::Config::MailScannerVersion . "\n";

  print "Module versions are:\n";

  foreach $module (@Modules) {

    $s = '$' . "$module" . '::VERSION';

    $v = eval("$s");

    print "$v\t$module\n" if $v ne "";

  }

  print "\nOptional module versions are:\n";

  foreach $module (@Optional) {

    $m = $module;

    $m =~ s/\//::/g;

    $m =~ s/\.pm$//;

    $s = '$' . "$m" . '::VERSION';

    $v = eval("require \"$module\"; $s") || "missing";

    print "$v\t$m\n";

  }

  exit;

}

# Check the MailScanner version number against what is in MailScanner.conf

my $NeedVersion = MailScanner::Config::QuickPeek($ConfFile,

                                              'mailscannerversionnumber');

if ($NeedVersion) {

  my($ConfMajor, $ConfMinor, $ConfRelease);

  my($Error, $AreMajor, $AreMinor, $AreRelease);

  $Error = 0;

  $NeedVersion =~ /^(\d+)\.(\d+)\.(\d+)$/;

  ($ConfMajor, $ConfMinor, $ConfRelease) = ($1+0, $2+0, $3+0);

  $ConfMajor   = 0 unless $ConfMajor;

  $ConfMinor   = 0 unless $ConfMinor;

  $ConfRelease = 0 unless $ConfRelease;

  $MailScanner::Config::MailScannerVersion =~ /^(\d+)\.(\d+)\.(\d+)$/;

  ($AreMajor, $AreMinor, $AreRelease) = ($1+0, $2+0, $3+0);

  $AreMajor   = 0 unless $AreMajor;

  $AreMinor   = 0 unless $AreMinor;

  $AreRelease = 0 unless $AreRelease;

  if ($ConfMajor > $AreMajor) {

    $Error = 1;

  } elsif ($ConfMajor == $AreMajor) {

    if ($ConfMinor > $AreMinor) {

      $Error = 1;

    } elsif ($ConfMinor == $AreMinor) {

      if ($ConfRelease > $AreRelease) {

        $Error = 1;

      }

    }

  }

  if ($Error) {

    print STDERR "The configuration file $ConfFile\nis too new for this version of MailScanner.\nThis is version " . $MailScanner::Config::MailScannerVersion . " but the config file is for at least version $NeedVersion\n";

    exit 1;

  }

}

 

use vars qw($RunInForeground);

$RunInForeground= MailScanner::Config::QuickPeek($ConfFile, 'runinforeground');

$RunInForeground = 0 unless $RunInForeground =~ /yes|1/i;

 

# Enable STDOUT flushing if running in foreground

# to be able to actively capture it with a logger

$| = 1 if $RunInForeground;

# If we run in foreground, SIGKILL to the parent will try to reload

# by SIGKILLing its children

$SIG{'HUP'} = 'ReloadParent' if $RunInForeground;

 

    print STDOUT sprintf("About to fork child #%d of %d...\n",

                         $NumberOfChildren+1, $MaxChildren)

      if $RunInForeground;

    print STDOUT "\tForked OK - new child is [$born_pid]\n" if $RunInForeground;

  my $FirstCheck = MailScanner::Config::Value('firstcheck');

  MailScanner::Log::WarnLog("First Check must be set to MCP or spam")

    unless $FirstCheck =~ /mcp|spam/i;

  my $VirusBeforeSpamMCP = MailScanner::Config::Value('virusbeforespammcp');

 

    # Have to do this very early as it's needed for MCP and spam bouncing

    $global::MS->{work}->BuildInDirs($batch);

 

    # Yes I know this isn't elegant, but it's very short so it will do :-)

    if ($FirstCheck =~ /mcp/i) {

      # Do the MCP checks

      $batch->StartTiming('mcp', 'MCP Checks');

      $batch->MCPChecks();

      $batch->HandleMCP();

      $batch->HandleNonMCP();

      $batch->StopTiming('mcp', 'MCP Checks');

 

      # Do the spam checks

      $batch->StartTiming('spam', 'Spam Checks');

      $batch->SpamChecks();

      $batch->HandleSpam();

      $batch->HandleHam();

      $batch->StopTiming('spam', 'Spam Checks');

    } else {

      # Do the spam checks

      $batch->StartTiming('spam', 'Spam Checks');

      $batch->SpamChecks();

      $batch->HandleSpam();

      $batch->HandleHam();

      $batch->StopTiming('spam', 'Spam Checks');

 

      # Do the MCP checks

      $batch->StartTiming('mcp', 'MCP Checks');

      $batch->MCPChecks();

      $batch->HandleMCP();

      $batch->HandleNonMCP();

      $batch->StopTiming('mcp', 'MCP Checks');

    }

    # Moved upwards: $global::MS->{work}->BuildInDirs($batch);

    # Remove any infected spam from the spam+mcp archives

    $batch->RemoveInfectedSpam();

 

  # Kill off any commercial virus scanner process groups that are still running

  kill -15, $MailScanner::SweepViruses::ScannerPID

    if $MailScanner::SweepViruses::ScannerPID;

sub KillChildren {

  if ($RunInForeground) {

    print STDOUT "Killing child processes ";

    print STDOUT join( '/', keys %Children);

  }

  print STDOUT " and giving them time to die...\n" if $RunInForeground;

 

  print STDOUT "Cleaning up..." if $RunInForeground;

  print STDOUT "Done\n" if $RunInForeground;

}

 

#

# SIGKILL handler for parent process.

# HUP all the children, then keep working.

#

sub ReloadParent {

  my($sig) = @_; # Arg is the signal name

 

  print STDOUT "MailScanner parent caught a SIG$sig - reload\n"

    if $RunInForeground;

 

  KillChildren();

 

  print STDOUT "MailScanner reloaded.\n" if $RunInForeground;

}

 

 

 

#

# SIGTERM handler for parent process.

# HUP all the children, then commit suicide.

# Cannot log as no logging in the parent.

#

sub ExitParent {

  my($sig) = @_; # Arg is the signal name

 

  print STDOUT "MailScanner parent caught a SIG$sig\n" if $RunInForeground;

 

  KillChildren();

 

  print STDOUT "Exiting MailScanner - Bye.\n" if $RunInForeground;

  } elsif ($RunInForeground) {

    # PERT-BBY we don't close STDXX neither fork() nor setsid()

    #          if we want to run in the foreground

    print STDOUT "MailScanner $MailScanner::Config::MailScannerVersion " .

                 "starting in foreground mode - pid is [$$]\n";

  my($module_version);

 

  # Check the MIME-tools version

  MailScanner::Log::DieLog("FATAL: Newer MIME::Tools module needed: " .

                           "MIME::Tools is only %s -- 5.412 required",

                           $MIME::Tools::VERSION)

    if defined $MIME::Tools::VERSION &&

       $MIME::Tools::VERSION<"5.412";