nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Cannot email from cgitask

lhdavis

I have a cgitask that takes desired e-mail information from the user (to:, cc:, subject:, etc.) and then should post to itself, create the e-mail, and use Net Smiley Frustrated

MTP to send the message. However, while my basic e-mail script using Net Smiley Frustrated

MTP works from an externaltask, when called from a cgitask, I do not receive an e-mail and in the error.log under iw-webd, it's logs "Can't call method 'mail' on an undefined value at <removed file name for reading> on line 505". That line is the call to.
my $smtp = Net: Smiley Frustrated

MTP->new($mailserver,
Hello => 'usf.ibm.com',
Debug => 0,
);
My $mailserver variable does have a valid IP for our SMTP server. Any ideas on what I'm missing here in my cgitask?

Find more posts tagged with

Comments

Adam Stoller

Without seeing the code it's kind of difficult to diagnose.

--fish
(Interwoven Senior Technical Consultant)

lhdavis

Here ya go!

#!T:/iw-home/iw-perl/bin/iwperl

use strict;

use TeamSite::CGI_lite;
use TeamSite::Config;
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use CGI;
use Net: Smiley Frustrated

MTP;

# ----------------------------------------------------------------------
# Global Error Status
# ----------------------------------------------------------------------
$main::errorFatal = 1;
$main::errorWarning = 0;
$main::error = 0;

# ----------------------------------------------------------------------
# Get path to Interwoven directories
# ----------------------------------------------------------------------
($main::iwhome = TeamSite::Config::iwgethome());
(my $iwmount = TeamSite::Config::iwgetmount()) =~ tr|\\|/|;
(my $hostname = TeamSite::Config::hostname());

# ----------------------------------------------------------------------
# Determine the email server address
# ----------------------------------------------------------------------
my $iwcfg = "$main::iwhome\\bin\\iwconfig iwsend_mail";
(my $mailserver = `$iwcfg mailserver`) =~ s/\n$//;

# ----------------------------------------------------------------------
# Use CGI_lite to parse the form data
# ----------------------------------------------------------------------
my ($cgi) = new TeamSite::CGI_lite->new();
$cgi->parse_data();

my @selected_files = ();

# ----------------------------------------------------------------------
# Output HTML Header page
# ----------------------------------------------------------------------
my $page = new CGI;

# ----------------------------------------------------------------------
# Get group task information
# ----------------------------------------------------------------------
my $taskid = $cgi->{form}{iw_taskid};
unless (defined $taskid) { $taskid = $cgi->{form}{taskID}; }
unless (defined $taskid) { $taskid = $cgi->{form}{task_id}; }
if (ref $taskid) { $taskid = pop(@{$taskid}); }

# ----------------------------------------------------------------------
# Get workflow object
# ----------------------------------------------------------------------
my $task = new TeamSite::WFtask($taskid);
my $wfid = $task->GetWorkflowId();

my $workflow = new TeamSite::WFworkflow($wfid);

# ----------------------------------------------------------------------
# Get file list
# ----------------------------------------------------------------------
foreach my $file ($task->GetFiles())
{
$file = TeamSite::CGI_lite::escape_html_data($file);
push (@selected_files, $file);
}

# ----------------------------------------------------------------------
# Get area name
# ----------------------------------------------------------------------
my ($area_name) = $task->GetArea();
my ($area_path) = $iwmount . $area_name;

$area_name =~ tr|\\|/|;
$area_path =~ tr|\\|/|;

my ($url_for_file) = "http://$hostname:81/iw-mount$area_name";

# ----------------------------------------------------------------------
# Verify if program is called from the Interwoven interface
# or from itself.
# ----------------------------------------------------------------------
my $recurse = $cgi->{form}{recursive};

if ($recurse eq "")
{

# **********************************************************************
# FIRST ITERATION OF THE PROGRAM
# **********************************************************************

# --------------------------------------------------------------------
# JavaScript for calendar generator
# --------------------------------------------------------------------
my ($javascript) = get_calendar("$main::iwhome\\custom\\reports\\bin\\calendar.js");

$javascript .= << "EOP";

function verify(form)
{
var msg;
var errors = "";
//removed error checking code

if (errors != "")
{
msg = "___________________________________________________\\n\\n";
msg += "The form was not submitted because of the following error(s).\\n";
msg += "Please correct these error(s) and re-submit.\\n";
msg += "___________________________________________________\\n\\n";
msg += errors;

alert (msg);
return false;
}

setPointer();

return true;
}

function setPointer()
{
if (document.all)
for (var i=0;i < document.all.length; i++)
document.all(i).style.cursor = 'wait';
}

EOP

# --------------------------------------------------------------------
# Output HTML Header page
# --------------------------------------------------------------------
HtmlStart($javascript);

# --------------------------------------------------------------------
# Display form
# --------------------------------------------------------------------
print << "EOP";

<table border="0" width="100%" bgcolor="#C0C0C0"
cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td align="left"><b>Email External Contributors</b></td>
</tr>
</tbody>
</table>

<form name="EmailForm" align="center" method="POST"
action="MHN_WFextEmail.ipl" onSubmit="return verify(this)">

<input type="hidden" name="recursive" value="yes" />
<input type="hidden" name="taskID" value="$taskid" />

<div align="left">
<table cols="2" width="75%">
<tbody>

</tbody>
</table>
</div>

<div align="center"
<p align="center">
<form name="closing">
<input type="submit" name="SubmitButton" value="Send Email" />
<input type="button" name="CancelButton" value="Close"
onClick="javascript&colon;window.close()" />
</form>
</p>
</div>
</form>
EOP

}
elsif ($recurse eq "yes")
{
# **********************************************************************
# SECOND ITERATION OF THE PROGRAM
# **********************************************************************
# Loop through addresses
my $from_address = 'testuser@yahoo.com';
my $to_address = 'testuser@yahoo.com';

# ----------------------------------------------------------------------
# Create the message
# ----------------------------------------------------------------------
my $messageHeader = << "EOP";
<html lang="en-us">
<head><title>TeamSite Workflow Job Notification</title></head>
<body>
EOP

my $message = << "EOP";
<div align="left">
<h2 align="left">TeamSite Workflow Job Notification</h2>
<p>This is an automated email notification. Please do not reply to this email. If you have questions, please contact your TeamSite system administrator for further assistance.</p>
<p>This email is to notify you that there is a task item waiting for you in the MHN TeamSite Content Management System.</p>
<p>Thank You.</p>
</div>
EOP

my $messageFooter = << "EOP";
</body>
</html>
EOP

my $smtp = Net: Smiley Frustrated

MTP->new($mailserver,
Hello => 'usf.ibm.com',
Debug => 0,
);

$smtp->mail("Admin\@us.ibm.com");
$smtp->recipient($to_address);

# Start sending the data
$smtp->data();
$smtp->datasend("To: $to_address");
$smtp->datasend("\n");
$smtp->datasend("Subject: TeamSite Workflow Job Notification");
$smtp->datasend("\n");
$smtp->datasend("Content-type: text/html");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend($messageHeader . $message . $messageFooter);
$smtp->datasend("\n");
$smtp->dataend();
}

# ----------------------------------------------------------------------
# Exit with success
# ----------------------------------------------------------------------
$task->CallBack(0, "External Contributor Email Successful");

exit(0);

##################################################

# ----------------------------------------------------------------------
# Name: HtmlStart
# Description: Output beginning of the HTML page being displayed to
# the user
# ----------------------------------------------------------------------
sub HtmlStart
{
# --------------------------------------------------------------------
# Generate JavaScript which check that the user has entered twice the
# same password.
# --------------------------------------------------------------------
my ($javascript) = @_;

print $page->header( 'text/html; charset=UTF-8' );
print $page->start_html(-title=>'MHN Content Management - Reports',
-author=>'mimidep\@us.ibm.com',
#-base =>'false',
-BGCOLOR=>'white',
-script=>$javascript,
-header=>'');
}

# ----------------------------------------------------------------------
# Name: HtmlEnd
# Description: Output end of the HTML page being displayed to
# the user
# ----------------------------------------------------------------------
sub HtmlEnd
{
print $page->end_html;
}

Adam Stoller

I'd probably have to run the script to test it and see what's going on (and I don't have the environment to do that right now) - but you might try turning on the Net: Smiley Frustrated

MTP Debug option (though it sounds like it won't get that far).

I'm assuming that you've run 'iwperl -w -c script' already and there are no syntax errors or warnings - yes?

Also - if you run this directly on your TeamSite server (i.e. you logon to the console of the server) - try changing the first line from:
#!T:/iw-home/iw-perl/bin/iwperl
to:
#!T:/iw-home/iw-perl/bin/iwperl -d Smiley Tongue

tkdb

I believe this *might* allow you to run the entire script in the debugger.
If that fails, using the old print-style debugging method may be useful.

If it's a case of the script not seeming to work at all from within TeamSite as a CGI program but working fine from the command line - try commenting out the CallBack, then when the script runs (and the workflow just starts hanging) - hard-code the appropriate taskid instead of trying to get it from the form{} variables and see if you're able to run it directly from your browser.

As often happens, the problem is probably "really simple" - but will take a concerted effort to uncover it (I've just recently gone through a couple of "really simple" snags - it ain't fun, but it happens more often than not...)

Sorry I can't point a finger to the exact problem.
Good luck

--fish
(Interwoven Senior Technical Consultant)

lhdavis

I had validated that there were no syntax errors but I do have one warning. It states:
"Use of uninitialized value at T:\iw-home\iw-perl\site\lib/Net/Config.pm line 41"

I haven't touched this perl module by the way.

I have a simplified externaltask e-mail script which I've attached and it displays the same warning. It successfully retrieves the correct IP address of our SMTP mail server. When executed from the command line, it fails on the Net: Smiley Frustrated

MTP constructor with the error message:
"The requested name is valid and was found in the database, but it does not have the correct associated data being resolved for. Net: Smiley Frustrated

MTP Cannot determine protocol at T:\iw-home\custom\MHN\bin\MHN_WFTestEmail.ipl line 49"

However when run this test email script is run as an external task, it executes perfectly.

When I've used the debugger, the code executes fine up until it enters the Net: Smiley Frustrated

MTP constructor. I've stepped into the constructor and it seems to croak in the Socket.pm, even though it has the correct protocal, port, and IP address for the mail server. On line 552 of this module though, when it performs $raddr = inet_aton($raddr), it converts the correct IP address in the variable $raddr to weird characters.

Has anyone else been able to use Net: Smiley Frustrated

MTP to send e-mail from a cgitask script?

I really appreciate any additional insight you could provide. Thanks!

lhdavis

For those who were interested in how this turned out, the reason I could not e-mail was that our system admin had completely locked down read access to the WINNT\System32\drivers directory. Once we gave our TeamSite user groups read access to this directory, the script worked fine. Thanks for the ideas though ghoti!