Hi experts,
I was looking for a way to extract a "list of emailIDs" given that I can
pass the "email alias" name in our corporate mailing list host. After
further inquiries, I was given a PERL script that might do the function I
am looking for. Can anyone help in making the script below work on CF? (I
don't do PERL)
The result I wanted is as follows:
Passed Variable is "[EMAIL PROTECTED]"
Expected Value Returned is "shaq,kobe,dennis....."
I appreciate your help.
Michael
------------------------
sub gen_emailalias_file {
($alias)=@_;
$host = "the-host";
$port = 25;
$prompt='//';
@output=();
$FILE_PATH = $cc_authordir . "/" . "outputfiles" .
"/";
$full_file_name = $FILE_PATH.$alias."."."txt";
$t = new Net::Telnet(host=>$host,
prompt=>$prompt,
port=>$port);
$fh=$t->input_log($full_file_name);
my $ok=$t->print("expn $alias");
#$t->cmd("expn $alias");
#$t->cmd(Timeout=>60);
$line=$t->getline();
@line=$t->getlines();
#print "Thoe output is @line\n";
#$t->cmd("quit");
$close = $t->close; ### Close the object #$ok = $t->close;
return 1;
}
-------------------
______________________________________________________________________
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
