OSEC

Neohapsis is currently accepting applications for employment. For more information, please visit our website www.neohapsis.com or email hr@neohapsis.com
 
Subject: Re: Content Filter for vbs worms using new interface
From: Bennett Todd (betrahul.net)
Date: Tue Jun 06 2000 - 09:03:54 CDT

Important update: Wietse just pointed out to me that I was slinging
out email with CRs smattered through it since I put that filter
into place. I believe this diff fixes that problem.

-Bennett

--- tailbiter-1.1/tailbiter Mon Jun 5 09:51:12 2000
+++ tailbiter-1.2/tailbiter Tue Jun 6 09:59:57 2000
-104,14 +104,14
                         $smtp->mail("tailbiter");
                         $smtp->to($bcc);
                         $smtp->to($_) or DIE($msg, "$0: RCPT TO $_: $!\n") for {$msg->{TO}};
- $smtp->data("Subject: Suspected email worm\r\n",
- "From: tailbiter <>\r\n",
- "Bcc: \r\n",
- map { "> $_\r\n" } split /\n/, $msg->{MSG}) or DIE($msg, "$0: DATA: $!\n");
+ $smtp->data("Subject: Suspected email worm\n",
+ "From: tailbiter <>\n",
+ "Bcc: \n",
+ map { "> $_\n" } split /\n/, $msg->{MSG}) or DIE($msg, "$0: DATA: $!\n");
                 } else {
                         $smtp->mail($msg->{FROM}) or DIE($msg, "$0: MAIL FROM $msg->{FROM}: $!\n");
                         $smtp->to($_) or DIE($msg, "$0: RCPT TO $_: $!\n") for {$msg->{TO}};
- $smtp->data(map { "$_\r\n" } split /\n/, $msg->{MSG}) or DIE($msg, "$0: DATA: $!\n");
+ $smtp->data(map { "$_\n" } split /\n/, $msg->{MSG}) or DIE($msg, "$0: DATA: $!\n");
                 }
                 $smtp->quit or DIE($msg, "$0: QUIT: $!\n");
                 exit 0;

  • application/pgp-signature attachment: stored