Perl script to manage aliases file

[Pisail]

I'm looking to set up an easy form for customers to forward their email to another account. Our owner wants to offer customers a "permanent" email address. This would be accomplished by forwarding email addressed to user@permanent.com to user@hotmail.com or user@yahoo.com or whatever. What I don't want to do is manage this manually. So, I'm looking for a script that a user could enter his user name and password and then be afforded the opportunity to enter in the address he'd like the email forwarded to. Anyone have a line on such a program?
Thanks in advance
Mark

 

[snookmz]

Sure do!

use Mail::Sender;
my $sender = new Mail::Sender({from => 'your@email.com', smtp => 'mail.yourmailserver.com.au'});

if (!(ref $sender) =~ /Sender/i) {
die $Mail::Sender::Error;
}

$sender->MailMsg({to =>'$some.email.string', subject => 'some subject', msg => "$someMessage"});

i hope that helps some! /-------------------------------------
| I always have been, and
| always will be, a newbie
\-------------------------------------

 

[Pisail]

Thanks, but that's not quite what I'm looking for. I want a user to be able to enter in his email - say at user@hotmail.com - into a form which then writes that email to my alias file. Then any email being sent to user@mydomain.com is automatically forwarded to user@hotmail.com If a user changes his email to say, yahoo, then I want him to be able to go in through the web, enter his user name, password and the new email forward address. There are tons of sites doing this, but I can't find one single script that even comes close to it.