iw_sendmail

The mail script which is shipped with Interwoven doesnt seem to run on win2k.
I had to change the code to use Net: Smiley Frustrated

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 !!!

Find more posts tagged with

livesite

opendeploy

Comments

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: Smiley Frustrated

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).