--- MailScanner.pm.orig	Mon Sep 15 19:22:18 2003
+++ MailScanner.pm	Mon Sep 15 17:39:03 2003
@@ -39,6 +39,7 @@
 use strict 'refs';
 no  strict 'subs'; # Allow bare words for parameter %'s
 
+use File::Basename;
 use vars qw($VERSION);
 
 ### The package version, both in 1.23 style *and* usable by MakeMaker:
@@ -63,6 +64,12 @@
   $this->{work} = $params{WorkArea};
   $this->{mta}  = $params{MTA};
   $this->{quar} = $params{Quarantine};
+  my $proctag = basename($params{ConfFile});
+  $proctag =~ s#^.*/##;
+  $proctag =~ s#\.conf$##;
+  $proctag = MailScanner::Config::Value('hostname',$this) . '=' . $proctag;
+  $proctag =~ s/\s+//; # erase (unlikely) whitespace
+  $this->{proctag} = $proctag . '.' . $$ . '=';
 
   bless $this, $type;
   return $this;