# $Id: amavis-filter,v 1.4 2002/03/19 03:22:36 bengen Exp $

#
# Main file for the Embedded Perl version of AMAVIS
#

use AMAVIS;

use vars qw/$returncode $returntext $args/;

# Main routine that is called from Exim system filter
sub amavis_filter_scan {
  $$args{'eximperl_mid'} = shift;
  $$args{'sender'} = shift;
  @{$$args{'recipients'}} = split /, +/,shift;

  AMAVIS->init($args);
  AMAVIS->process_message($args);
  AMAVIS->cleanup($args);

  # Pass control back to the system filter.
  return $$args{'eximperl_returncode'};
}

sub amavis_filter_result() {
  if (defined $$args{'eximperl_returncode'}) {
    return $$args{'eximperl_returncode'};
  }
  else {
    return 'unknown';
  }
}

sub amavis_filter_text() {
  if (defined $returntext) {
    return $returntext
  }
  else {
    return '';
  }
}

sub amavis_virus_scanner_list() {
  # FIXME
  return join ', ', @{$$args{'virus_scanners'}};
}

1;
