generate starts iwtmplhtmlwizard.cgi w/ no return

Hello All-

I have a DCR that when I click generate, it prompts me to enter the file name, then it opens a window with the following in the address bar and then never returns or generates the file:

http://localhost/iw-bin/iw_cgi_wrapper.cgi/iwtmplhtmlwizard.cgi

Being a newbie to templating, I don't know where to start looking in the logs for possible error or how to debug this exactly. Can anyone give me a hint on this? We are running TS 6.1 SP1 on Windows 2000. This DCT and PT was initially created by an IW consultant on TS 5.2.2 and this is the first time that we have attempted to get this working since the upgrade to 6.1. Any advice, help, flames much appreciated.

-Nathan
Washington State DIS

BTW, Here is the text of our .tpl.
*snip

<?xml version="1.0" encoding="UTF-8"?>
<iw_pt name="Media Release">
<![CDATA[<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.1 Transitional//EN">
<HTML>
<head>
<title><iw_value name='dcr.Headline'/></title>
<META NAME="title" CONTENT="<iw_value name='dcr.Headline'/>">
<META NAME="description" CONTENT="Department of Social and Health Services Media release.">
<META NAME="keywords" CONTENT="media release DSHS">
<META NAME="originatorJurisdiction" CONTENT="Washington State">
<META NAME="originatorDepartment" CONTENT="Department of Social and Health Services">
<META NAME="originatorDivision" CONTENT="Community Relations">
<META NAME="createDate" CONTENT="102803">
<META NAME="dateofLastModification" CONTENT="2005/03/09">

<STYLE TYPE="text/css">
BODY
{
margin-top: 0;
margin-left: 0;
}
H4
{
color:#333366; font: Verdana, Helvetica, Arial, Futura, Trebuchet;
}
H5
{
color:#000000; font: Verdana, Helvetica, Arial, Futura, Trebuchet;
}
</STYLE>

<script language="JavaScript" src="/js/date.js"></script>
</head>
<body background="/graphics/bggradient.gif" bgcolor="#ffffff" link="#336699" vlink="#990000" alink="#FF0000">
<script language="JavaScript" src="/js/calldatesub.js"></script>
<br>

<a name="top"></a>
<h4>
]]>
<iw_iterate var='contact' list='dcr.Contact Info' >
<![CDATA[

Contact: ]]><iw_value name='contact.Contact Name' />
<iw_if expn='{iw_value name="contact.Contact Email"/} ne "" ' >
<iw_then>
<![CDATA[, <a href="mailto:]]><iw_value name='contact.Contact Email' /><![CDATA[">]]><iw_value name='contact.Contact Email' /><![CDATA[</a><br/>]]>
</iw_then>
<iw_else>
<![CDATA[<br/>]]>
</iw_else>
</iw_if>

</iw_iterate>
<![CDATA[
</h4>


<h3>
]]>
<iw_if expn=' {iw_value name="dcr.Press Release Number"/} ne "" ' >
<iw_then>
<![CDATA[NO. ]]><iw_value name='dcr.Press Release Number'/><br/>
</iw_then>
</iw_if>
<iw_if expn=' {iw_value name="dcr.Publish_Date.publish_date"/} ne "" ' >
<iw_then>
<iw_value name='dcr.Publish_Date.publish_date'/><br/>
</iw_then>
</iw_if>
<iw_if expn=' {iw_value name="dcr.Headline"/} ne "" ' >
<iw_then>
<iw_value name='dcr.Headline'/><br/>
</iw_then>
</iw_if>
<iw_if expn=' {iw_value name="dcr.SubHeadline"/} ne "" ' >
<iw_then>
<iw_value name='dcr.SubHeadline'/><br/>
</iw_then>
</iw_if>

<![CDATA[
</h3>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
]]>

<iw_iterate var='paragraph' list='dcr.Story'>
<iw_value name='paragraph.Paragraph'/>
</iw_iterate>

<![CDATA[
</font>
<!--end Smiley Tongue

ress release content -->
<HR>
<div align="left"><font size="-1" face="Verdana">Modification Date:
]]>
<iw_perl>
<![CDATA[
use TeamSite::Config;
use Mail::Mailer;

(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;
(my $iwmount = TeamSite::Config::iwgetmount()) =~ tr|\\|/|;

$DEBUG = 0;
$debugfile = "$iwhome/tmp/debug.txt";
debug("-----------------------");
debug("In news.tpl");

# Output current date to output page
my $fulltime = scalar(localtime(time()));
$fulltime =~ m!^([^\s]*)\s*([^\s]*)\s*([^\s]*)\s*([^\s]*)\s*([^\s]*)$!;

my $month = $2;
my $date = $3;
my $year = $5;

iwpt_output("$month $date, $year");

(my $output_filename = iwpt_get_ofile_name()) =~ tr|\\|/|;
$output_filename =~ s|^[^/]+||;

# If generating then set extended attributes on output file, send email, and regenerate the index file
if (!($output_filename =~ m|zz_tst_|)) {

# Set extended attributes
my $publish_date = iwpt_dcr_value('dcr.Publish_Date.publish_date');
my $headline = iwpt_dcr_value('dcr.Headline');

my $tmp_cmd = "$iwhome/bin/iwextattr -s PublishDate=$publish_date $output_filename";
`$tmp_cmd`;
$tmp_cmd = "$iwhome/bin/iwextattr -s \"Headline=$headline\" $output_filename";
`$tmp_cmd`;

# Send email
my $maildomain = get_config('iwsend_mail', 'maildomain');
my $mailserver = get_config('iwsend_mail', 'mailserver');
my $recipient_email = "ExecMediaCM\@dshs.wa.gov";
my $sender_email = "webpublisher\@dshs.wa.gov";

my $mailer = new Mail::Mailer('smtp', Server => $mailserver);

my %headers = (
'To' => $recipient_email,
'From' => $sender_email,
'Subject' => "DSHS Press Release Notice",
);

$mailer->open(\%headers);

my $tmp_press_release_num = iwpt_dcr_value("dcr.Press Release Number");
my $tmp_publish_date = iwpt_dcr_value("dcr.Publish_Date.publish_date");
my $tmp_headline = iwpt_dcr_value("dcr.Headline");
my $tmp_subheadline = iwpt_dcr_value("dcr.SubHeadline");

print $mailer <<EOS;
<html>
<body>
<FONT FACE="Arial, Helvetica, Sans Serif" size="2">
No. $tmp_press_release_num<br>
$tmp_publish_date<br>
$tmp_headline<br>
$tmp_subheadline<br>
EOS

foreach my $node (iwpt_dcr_list('dcr.Story')) {
my $value = iwpt_dcr_value('node.Paragraph');
print $mailer "$value";
}

print $mailer "</body></html>";

$mailer->close;

# Generate index page
(my $dcr_path = iwpt_get_dcr_name()) =~ tr|\\|/|;
$dcr_path =~ s|^[^/]+||;
my $tpl_path = $dcr_path;
$tpl_path =~ s|^(.*)/data/.*|$1/presentation/news_index\.tpl|;
my $index_path = $output_filename;
$index_path =~ s|^(.*)/mediareleases/.*|$1/mediareleases/index\.shtml|;
$tmp_cmd = "$iwhome/bin/iwgen -t $tpl_path -r $dcr_path $index_path";
debug ("in news: tmp_cmd is $tmp_cmd");
`$tmp_cmd`;

# Generate archive page
$tpl_path = $dcr_path;
$tpl_path =~ s|^(.*)/data/.*|$1/presentation/news_archive\.tpl|;
my $archive_path = $output_filename;
$archive_path =~ s|^(.*)/mediareleases/.*|$1/mediareleases/archive\.shtml|;
$tmp_cmd = "$iwhome/bin/iwgen -t $tpl_path -r $dcr_path $archive_path";
debug ("in news: tmp_cmd is $tmp_cmd");
`$tmp_cmd`;
}

# Function to read a value from iw.cfg
sub get_config {
my ($section, $entry, $default) = @_;
my $value = `$iwhome/bin/iwconfig $section $entry`;
if (!defined $value) {
return $default;
} else {
chomp $value;
return ($value eq '') ? $default : $value;
}
}

sub debug
{
return unless $DEBUG;
my ($message, @rest) = @_;
open(DEBUG,">>$debugfile") or die "Can't open $debugfile: $!\n";
print DEBUG "$message\n";
close(DEBUG);
}

]]>
</iw_perl>
<![CDATA[
</font>

</div>
</body>
</html>
]]>

</iw_pt>

Find more posts tagged with

Comments

iwovGraduate

Does Preview work ?
What happens when you try to generate from command line using a CLT ? If you haven't done it, try it. That will help you in narrowing down the problem.
Check documentation on iwpt_compile (and/or iwgen/iwregen) CLT on how to do this.

NathansDIS

Preview works. When I run iwpt_compile, I get a repeating message that states the following. Any further suggestions much appreciated. -nathan

C:\>C:\iw-home\bin\iwpt_compile.ipl -pt y:/default\main\DSHS\Executive_Media_Rel
ease\WORKAREA\work/templatedata/MediaRelease/news/presentation/news.tpl -iw_incl
ude-location y:/default/main/DSHS\Executive_Media_Release\WORKAREA\work/mediarel
eases/2005 -ofile Y:/default/main/DSHS\Executive_Media_Release\WORKAREA\work/med
iareleases/2005/prnathans.shtml -oenc UTF-8 -iw_pt-dcr y:/default/main/DSHS\Exec
utive_Media_Release\WORKAREA\work/templatedata/MediaRelease/news/data/prnathans

EA Headline not found
EA PublishDate not found

iwovGraduate

Looks like you are trying to get some EAs and your code is failing.

Try running iwpt_compile with -ocode option. See docmentation on how to debug PTs with -ocode option.

Edited by iwovGraduate on 03/09/05 05:47 PM (server time).

iwovGraduate

Another thing to check.. do you have write permission on the directory where you are trying to generate ?

You mentioned that you are getting EA not found messages repeated. What do you see in the prnathans.shtml file ? Does it have any content in it ?

Adam Stoller

Looks like your problem is contained somewhere within:# Set extended attributes
my $publish_date = iwpt_dcr_value('dcr.Publish_Date.publish_date');
my $headline = iwpt_dcr_value('dcr.Headline');

my $tmp_cmd = "$iwhome/bin/iwextattr -s PublishDate=$publish_date $output_filename";
`$tmp_cmd`;
$tmp_cmd = "$iwhome/bin/iwextattr -s \"Headline=$headline\" $output_filename";
`$tmp_cmd`;
Not sure what the problem is exactly since the error messages look more like accessing/get errors than setting errors (which is what the above code is doing).

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

NathansDIS

Yes, I do have write permissions and am additionally running as master when testing this. The prnathans.shtml file is empty, there is no content in it. Any other suggestions? Would it be helpful to see the DCT?

Thx,

-n

NathansDIS

When running the resulting .ipl file from the -ocode flag, it does generate the target file in a couple seconds. However, it does not seem to generate it from the UI unless you wait a really loooooooooong time. Any idea what is happening that would cause that? Is it possible that the errors take longer to happen when executed in the cgi wrapper?

BTW, did find out that the repeated EA not found was the result of another called .tpl file reading through a bunch of files copied by the user that did not have EAs. (The more you know) *0o.

Thx,

-nathan
wadis