sub formatRule($) {
my ($rec) = @_;
- return "$rec->{pattern}\@$rec->{domain}:$rec->{sequence}/$rec->{hit_count}";
+ return "$rec->{pattern}\@$rec->{domain}:$rec->{sequence}/$rec->{hit_count} $rec->{comment}";
} # formatRule
sub ProcessMsgs ($$$) {
if ($msgInfo{sender} eq $user_email and
(lc ($msgInfo{sender_long}) !~ lc ("\"$username\" <$user_email>") and
lc ($msgInfo{sender_long}) !~ lc ("$username <$user_email>"))) {
- $log->msg("Nulllisting message from sender ($msgInfo{sender_long}) pretending to be $user_email");
+ $log->msg("Nulllisting message from sender ($msgInfo{sender_long}) pretending to be $user_email - Subject: $msgInfo{subject}");
next;
} # if
# Discard messges coming from andrew@clearscm.com because I don't send from
# that email address
if (lc $msgInfo{to} eq 'andrew@clearscm.com') {
- $log->msg("Nulllisting message from Andrew\@ClearSCM.com since I don't send from that email address");
+ $log->msg("Nulllisting message from Andrew\@ClearSCM.com since I don't send from that email address - Subject: $msgInfo{subject}");
next;
} # if
if ($onlist) {
if (ValidDomainUser $msgInfo{sender}) {
- $log->msg("Whitelisting $msgInfo{sender} - Rule: " . formatRule($rec));
+ $log->msg("Whitelisting $msgInfo{sender} - Rule: " . formatRule($rec) . " - Subject: $msgInfo{subject}");
Whitelist $msgInfo{sender}, $msgInfo{data}, $rec->{sequence}, $rec->{hit_count};
} else {
- $log->msg("Sender ($msgInfo{sender}) from this domain but user not found");
+ $log->msg("Sender ($msgInfo{sender}) from this domain but user not found - Subject: $msgInfo{subject}");
Nulllist $msgInfo{sender};
} # if
($onlist, $rec) = OnBlacklist $msgInfo{sender};
if ($onlist) {
- $log->msg("Blacklisting $msgInfo{sender} - Rule: " . formatRule($rec));
+ $log->msg("Blacklisting $msgInfo{sender} - Rule: " . formatRule($rec) . " - Subject: $msgInfo{subject}");
Blacklist(
userid => $userid,
($onlist, $rec) = OnNulllist $msgInfo{sender};
if ($onlist) {
- $log->msg("Nulllisting $msgInfo{sender} - Rule: " . formatRule($rec));
+ $log->msg("Nulllisting $msgInfo{sender} - Rule: " . formatRule($rec) . " - Subject: $msgInfo{subject}");
Nulllist $msgInfo{sender}, $rec->{sequence}, $rec->{hit_count};
} # if
# Return processing:
- $log->msg("Returning message from $msgInfo{sender}");
+ $log->msg("Returning message from $msgInfo{sender} - Subject: $msgInfo{subject}");
ReturnMsg(
userid => $userid,
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.61 [en] (Win98; U) [Netscape]">
- <title>ClearSCM: Our People: Andrew DeFaria - President</title>
+ <title>Andrew DeFaria's Resume</title>
<link rel="stylesheet" type="text/css" media="screen" href="/css/Article.css">
<link rel="stylesheet" type="text/css" media="print" href="/css/Print.css">
<link rel="SHORTCUT ICON" href="http://clearscm.com/favicon.ico" type="image/png">
$count++;
- fclose($resumeHit);
+ //fclose($resumeHit);
$resumeHit = fopen ('.resumehits', 'w');
- fwrite($resumeHit, $count);
- fclose($resumeHit);
+ //fwrite($resumeHit, $count);
+ //fclose($resumeHit);
- $resumeHist = fopen('.resume.hist', 'a');
+ //$resumeHist = fopen('.resume.hist', 'a');
$date = date(DATE_RFC822);
- fwrite($resumeHist, "$_SERVER[REMOTE_ADDR] read resume at $date\n");
- fclose($resumeHist);
+ //fwrite($resumeHist, "$_SERVER[REMOTE_ADDR] read resume at $date\n");
+ //fclose($resumeHist);
$msg = '<html><body>';
$msg .= '<h1>Somebody just visited your resume.</h1>';