You can use cfexecute and call the script. You could try to write a DOS
batch file that telnets your mailserver and see what happens.
[EMAIL PROTECTED]
telnet mailserver 25
expn %alias%
#this would be your perl.
gen_emailalias_file('[EMAIL PROTECTED]');
sub gen_emailalias_file
{
}
On Mon, 26 Aug 2002, Michael E. Carluen wrote:
> 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;
>
>
>
> }
>
>
>
>
>
>
>
>
>
> -------------------
>
>
______________________________________________________________________
Signup for the Fusion Authority news alert and keep up with the latest news in
ColdFusion and related topics. http://www.fusionauthority.com/signup.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
