Generate 2 html files using 2 diff PT's from 1 DCR

Hi All,

I want to generate a html page and a printer friendly html page using a single DCR at the same time with one click of generate button. I created two PT"s for each html page.
I used the following perl code (from the Devnet Forum) in my
first PT to automatically generate the second PT.

<iw_perl>
<![CDATA[
$printerfriendlyFileName=iwpt_get_ofile_name('dirname').'/printerfriendly.html';
$printerfriendlyFileName=~s/\/\.iwmnt//g;
#iwpt_output("File Name = $printerfriendlyFileName\n");
if (-e $printerfriendlyFileName) {
$theCommand='/local/interwoven/iw-home/bin/iwextattr -s TeamSite/Templating/PrimaryPT=Printer_Friendly.tpl '.$printerfriendlyFileName;
open(GENHDR,"|$theCommand");
close(GENHDR);

$theCommand='/local/interwoven/iw-home/bin/iwregen '.$printerfriendlyFileName;
open(GENHDR,"|$theCommand");
close(GENHDR);
}
else {
$tplNameWithPath=iwpt_get_pt_name('dirname').'/Printer_Friendly.tpl';
$tplNameWithPath=~s/\/\.iwmnt//g;
#iwpt_output("TPL Name = $tplNameWithPath\n");
$newDCRWithPath=iwpt_get_dcr_name();
$newDCRWithPath=~s/\/\.iwmnt//g;
#iwpt_output("DCR Name = $newDCRWithPath\n");
if ((-e $tplNameWithPath) && (-e $newDCRWithPath)) {
$theCommand='/local/interwoven/iw-home/bin/iwgen -t '.$tplNameWithPath.' -r '.$newDCRWithPath.' '.$printerfriendlyFileName;
#iwpt_output("the command = $theCommand\n");
open(GENHDR,"|$theCommand");
close(GENHDR);
}
}
]]>
</iw_perl>

But the code doesn't seem to be working. The first html page gets generated with out any problem where as the printer friendly html page is not getting generated.

Am I missing something?

Any help would be greatly appreciated.

Thanks in Advance,
Daisy.

Find more posts tagged with

Comments

megamala

Is your iw-home is /local/interwoven/iw-home. What is your printer friendly tpl name. Just i want to make sure wheather you modified or not the code. Can you post your tpls.

MM Guptha

daisy

My iw-home is C:\iw-home.
After seing your response, I changed the path of the iw-home and tried. But still, it doesn't work. I did change the name of the printer friendly tpl name in the code.
Please see attached tpl's

daisy

I tried again with the correct iw-home path.
This time, printerfriendly.html got generated with 0 bytes.
Am I missing something in the code?

nipper

Can you put some debug statements in there to show EXACTLY the commmand being executed ? Parsing through the perl is a bit confusing.

I have not used the iwpt_output but you might be able to just comment that out. Otherwise open a log file & print into it.

Once you have the exact command, run it from Dos & send the results if you do not know how to fix.

HTH

Andy

megamala

Before generate , delete 0 bytes priterriedly file. Can you check the printerfriendlyFileName(do debug and find out) variable, Wheather it "iwmnt" or ".iwmnt" depends on that you can do printerfriendlyFileName=~s/\/\.iwmnt//g;

or
printerfriendlyFileName=~s/\/iwmnt//g;

MM Guptha

SapGofSample_PageOutStoryTeller.dcpackage

daisy

I added some debug statements and got the following output:
File Name = Y:\default\main\pvh_old\WORKAREA\common_workarea/printerfriendly.html

the command iwregen = /iw-home/bin/iwregen Y:\default\main\pvh_old\WORKAREA\common_workarea/printerfriendly.html

I guess, the following line of code is not doing what it is supposed to do.
$printerfriendlyFileName=~s/\/\.iwmnt//g;

daisy

I tried to print the printerfriendly filename using debug and got the following output.

File Name = Y:\default\main\pvh_old\WORKAREA\common_workarea/printerfriendly.html

Also I changed
$printerfriendlyFileName=~s/\/\.iwmnt//g;
to
$printerfriendlyFileName=~s/\/iwmnt//g;

I deleted the empty printerfriendly.html and tried again. But no difference.
I noticed that empty printerfriendly.html get generated when I actually preview the file to be generated.

nipper

You should not need $printerfriendlyFileName=~s/\/\.iwmnt//g;

That is a Unix-ism & I do not think you will need that on Win2K.

Can you run the actual comand you included in the previous message & let us know what happens ?

me

megamala

After deleting the file , you should get iwgen not iwregen
If there is no file it call iwgen cmd
if file exists then it call iwregen cmd.
But in your debug stat. it is iwregen.

MM Guptha

test.txt

Adam Stoller

the command iwregen = /iw-home/bin/iwregen Y:\default\main\pvh_old\WORKAREA\common_workarea/printerfriendly.html

Looks like the path for iwhome is not being set correctly - that should be "C:/iw-home/bin/iwregen ..." Making the least amount of changes I could think of, I believe your original code snippet should look like this:

<iw_perl>
  <![CDATA[
use TeamSite::Config;
    my $iwhome = TeamSite::Config::iwgethome();
    my $iwmount = TeamSite::Config::iwgetmount();
    my $printerfriendlyFileName = iwpt_get_ofile_name('dirname').'/printerfriendly.html';
    if (-e $printerfriendlyFileName) {
        $printerfriendlyFileName =~ s|^$iwmount||;
my $theCommand="$iwhome/bin/iwextattr -s TeamSite/Templating/PrimaryPT=Printer_Friendly.tpl " . $printerfriendlyFileName;
system($theCommand);
        $theCommand="$iwhome/bin/iwregen " . $printerfriendlyFileName;
system($theCommand);
    }
    else {
my $tplNameWithPath = iwpt_get_pt_name('dirname').'/Printer_Friendly.tpl';
my $newDCRWithPath = iwpt_get_dcr_name();
        if ((-e $tplNameWithPath) && (-e $newDCRWithPath)) {
            $tplNameWithPath =~ s|^$iwmount||;
            $newDCRWithPath =~ s|^$iwmount||;
my $theCommand="$iwhome/bin/iwgen -t " . $tplNameWithPath.' -r '.$newDCRWithPath.' '.$printerfriendlyFileName;
system($theCommand);
        }
}
]]>
</iw_perl>

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

daisy

I changed my code to (added some debug statements)

<iw_perl>
<![CDATA[
use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();
my $printerfriendlyFileName = iwpt_get_ofile_name('dirname').'\printerfriendly.html';
iwpt_output("File Name = $printerfriendlyFileName\n");
if (-e $printerfriendlyFileName) {
$printerfriendlyFileName =~ s|^$iwmount||;
iwpt_output("File Name = $printerfriendlyFileName\n");
my $theCommand="$iwhome/bin/iwextattr -s TeamSite\Templating\PrimaryPT=printer_friendly.tpl " . $printerfriendlyFileName;
iwpt_output("Ext Attr Cmd Name = $theCommand\n");
system($theCommand);
$theCommand="$iwhome/bin/iwregen " . $printerfriendlyFileName;
iwpt_output("iwregen Cmd Name = $theCommand\n");
system($theCommand);
}
else {
my $tplNameWithPath = iwpt_get_pt_name('dirname').'\printer_friendly.tpl';
my $newDCRWithPath = iwpt_get_dcr_name();
if ((-e $tplNameWithPath) && (-e $newDCRWithPath)) {
$tplNameWithPath =~ s|^$iwmount||;
$newDCRWithPath =~ s|^$iwmount||;
my $theCommand="$iwhome/bin/iwgen -t " . $tplNameWithPath.' -r '.$newDCRWithPath.' '.$printerfriendlyFileName;
iwpt_output("iwgen Cmd Name = $theCommand\n");
system($theCommand);
}
}
]]>
</iw_perl>

I deleted the empty printerfriendly.html that got created before and tried.

I noticed that empty printerfriendly.html got generated when I actually previewed the file to be generated with the following output for debug statements.

File Name = Y:\default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html
iwgen Cmd Name = C:\iw-home/bin/iwgen -t \default\main\pvh_old\WORKAREA\common_workarea\templatedata\pvh_old\history\presentation\printer_friendly.tpl -r \default\main\pvh_old\WORKAREA\common_workarea\templatedata\pvh_old\history\data\OurComp_History121703 Y:\default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html

Then I tried to generate the html page. The Actual html page got generated but the printerfriendly.html page created as part of the preview process is still empty.

See the following output for debug statements after generating the page.

File Name = Y:\default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html
File Name = \default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html
Ext Attr Cmd Name = C:\iw-home/bin/iwextattr -s TeamSiteTemplatingPrimaryPT=printer_friendly.tpl \default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html
iwregen Cmd Name = C:\iw-home/bin/iwregen \default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html

Also, I ran the commands on the server and got the following error.

\default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html: not generated by TeamSite Templating. (see attachment).

Does the mixing of the forward and backward slashes is causing the problem?

23775.pdf

daisy

I noticed that extended attributes are not set to the freshly generated printerfriendly.html file. I guess, that's why the file is empty.
Any idea why the EA's are not getting set?

megamala

Did you try this command from Command line.
C:\iw-home/bin/iwgen -t \default\main\pvh_old\WORKAREA\common_workarea\templatedata\pvh_old\history\presentation\printer_friendly.tpl -r \default\main\pvh_old\WORKAREA\common_workarea\templatedata\pvh_old\history\data\OurComp_History121703 Y:\default\main\pvh_old\WORKAREA\common_workarea\printerfriendly.html.

MM Guptha

Capture122.JPG

Adam Stoller

In the else{ .... if { ... } ...} clause where you strip $iwmount from $tplNameWithPath and $newDCRWithPath - you also have to strip it from $printerfriendlyFileName.

iwgen expects *vpaths* as arguments, not file system paths.

Try that and see if it fixes the problem.

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

23895.pdf

LineChart2Years.zip

daisy

I stripped $iwmount from $printerfriendlyFileName in the else part and it worked. Thanks for the fix.
But, I noticed that printerfriendly.html page (PT2) is actually getting generated when I preview PT1 (not when I generate PT1).
Is there a way to avoid this from happening?