iw_sendmail

pandit

The mail script which is shipped with Interwoven doesnt seem to run on win2k.
I had to change the code to use Net:MTP and Net::Cmd instead of the Mail::Mailer module.
The default script wasn't giving any errors while running , but it didnt send mails either !!!
After my modifications IT WORKS !!!

jbyork

The problems you experienced may depend on your network environment, because iw_sendmail works fine for us on TeamSite 5.0.1 running on Win2000 without any modifications. Please post your script changes. Thx.
-jby

pandit

The following was the modification i made ...
rest of the stuff was prettymuch the same with minor project specific mods...
add use Net:MTP and use Net::Cmd instead of Mail::Mailer

my(%headers) = ('To' => $opts{t},
'Cc' => $opts{c},
);

my @lists = ();
my @to_list = ();
my $count = 0;
my $counter = 0;
foreach my $k (sort(keys(%headers)))
{
my @temp_addr = ();
foreach my $e (@{$headers{$k}})
{
@temp_addr = split(/\s*,\s*/, $e);
for(my $i=0;$i<=scalar(@temp_addr);$i++)
{
$lists[$count] = $temp_addr[$i];
$to_list[$counter] .= $temp_addr[$i].",";
$count++;
}
$counter++;
}
}

$smtp->mail($opts{f});
for(my $i=0;$i<scalar(@lists);$i++)
{

$smtp->to($lists[$i]);
}
$smtp->data();

$smtp->datasend("To: $to_list[1]\n");
$smtp->datasend("From: $opts{f}\n");
$smtp->datasend("Cc: $to_list[0]\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");

$smtp->dataend();
$smtp->quit;

$task->CallBack(0, "Completed Deployment");

Edited by pandit on 01/29/02 12:18 PM (server time).