Another New Feature Request

[Steve Lamb]

Monday, November 01, 1999, 2:35:45 PM, Anders wrote:
> Hmm - well - all right. But don't do it again! <g>

$sig = "-- \nSteve C. Lamb by way of perl, just for Anders.\n";

while(<>){
  if ($_ =~ /^From: Ralph Cohen/){
    $fromralph = 1;
  }
  if (($_ =~ /reflow.*editor/) && ($fromralph)){
    sing_external();
  }
}

sub sing_external {
  open(OUT,"|/usr/bin/sendmail -t");
  print(OUT "From: Steve Lamb <morpheus@rpglink.com>\n");
  print(OUT "To: <pmmail@rpglink.com>\n");
  print(OUT "Subject: Editors\n");
  print(OUT "Date: ",`/bin/date -R`,"\n\n");
  print(OUT "External editor!\n");
  print("$sig\n");

-- 
         Steve C. Lamb         | I'm your priest, I'm your shrink, I'm your
         ICQ: 5107343          | main connection to the switchboard of souls.
-------------------------------+---------------------------------------------