#!/usr/bin/perl

#This code is designed to be used in mail handling on a catch all account
#It basically uses a list of Soundex checksums to match the actual recipient
#header.txt is the header part
#footer.txt is teh footer part
#soundex.txt is the list of soundex checksums

#This was a project for OS Class
#This is dirty enough :)
#Note: This app written for local names.
#For example: Jean-Pierre Van Den Bossche
#I translasted variable names from dutch, so if I made a typo... :)

use Mail::Header;
use Mail::Mailer;
use Text::Soundex;
use strict;
#Yihaaa

my $domain = 'foo.bar'; #Domain
my $type = 'sendmail';
#Mail::Mailer types:   sendmail, mail, smtp, qmail, test
my $mailprog = Mail::Mailer->new($type);

my $head = new Mail::Header \*STDIN;
my $subject = $head->get("subject");
my $from = $head->get("from");
my $to = $head->get("delivered-to") || $head->get("to");
chomp $subject,$from,$to;

my %headers = (
  'To' => $from,
  'From' => "Dolly\@$domain",
  #the original script I based this on was named Debby
  'Subject' => 'Reply to: '.$subject
);

$mailprog->open(\%headers);
my @email = qw();
my ($name) = $to =~ /^([\w\.]*)\@$domain$/;
my ($firstname,$lastname) = split(/\./,$name,2);
my ($sfirstname,$slastname) = soundex($firstname,$lastname);
open(SOUNDEX,"<soundex.txt") || die "Oops: $!";
while(<SOUNDEX>)
{ chomp;
  my ($checksum,$email) = split(/\=\>/,$_,2);
  my (@list) = split(/ /,$email);
  my ($sfname,$slname) = split(/\./,$checksum,2);
  if ($sfname eq $sfirstname && $slname eq $slastname)
  { push(@email,@list); }

}
close(SOUNDEX);

open(HEADER,"<header.txt") || die "Oops: $!";
open(FOOTER,"<footer.txt") || die "Oops: $!";
my ($header,$footer);
{ local $/; $header = <HEADER>; $footer = <FOOTER>; }
#Magic
#To my professor anyway

my (@firstnames) = split(/\-/,$firstname);
for (@firstnames) { $_ = ucfirst $_ }
$firstname = join(" ",@firstnames);
my (@lastnames) = split(/\./,$lastname);
for (@lastnames) { $_ = ucfirst $_ }
$lastname = join(" ",@lastnames);

for my $wanted (@email)
{ print $mailprog $header;
  print $mailprog "For: $firstname $lastname I found the following e-mail addresses:\n\n";
  print $mailprog "$wanted\n";
  print $mailprog $footer;
}

$mailprog->close;

#The program to generate checksums
#!/usr/bin/perl

#use Text::Soundex;
#use strict;
#Yihaaa

#my %Soundex;

#open(NAMES,"<names.txt") || die "Oops: $!";
#names.txt contains a list of names in the firstname:lastname format
#while(<NAMES>)
#{ chomp;
#  my ($firstname,$lastname) = split(/\:/,$_,2);
#  my ($sfirstname,$slastname) = ($firstname,$lastname);

#  $sfirstname =~ s/\s+//g; $slastname =~ s/\s+//g;
#  $sfirstname =~ s/\-+//g; $slastname =~ s/\-+//g;
#  $sfirstname =~ s/\.+//g; $slastname =~ s/\.+//g; 
#  my $key = join(".",soundex($sfirstname), #soundex($slastname));
#  if (exists $Soundex{$key})
#  { $Soundex{$key} .=" "; }
#  $Soundex{$key} = join(".",$firstname, $lastname);
#}
#close(NAMES);
#open(SOUNDEX,">soundex.txt") || die "Oops: $!";
#foreach ( sort keys %Soundex ) 
#{ print SOUNDEX $_,"=>",$Soundex{$_},"\n" if $_ ne "." }
#close(SOUNDEX);