create OLE object in preview temlpate

Hello, I want to use the msxml parser in my presentation template, so in perl I need to create a Win32: Smiley Surprised

LE->new('MSXML2.DOMDocument.3.0') object and use it. after a short debuging session with the iwpt_compile CLT, I manage to have it works pretty well, so I try live within teamsite and .... crash..

this following usefull error appear :
Could not process template: Y:\default\main\IEH\WORKAREA\gfj515_BenjaminWA\templatedata\uniform\field\presentation\field.tpl
:\default\main\IEH\WORKAREA\gfj515_BenjaminWA\templatedata\uniform\field\presentation\field.tpl

And it is only when I comment my code to not use the Win32: Smiley Surprised

LE object that the preview and generation in TS works.

So my question is why is it working (it generates the file) with the CLT and not in the interface? Can I not create an object there?

Here is my cmd I run to debug :
> iwperl c:\iw-home\bin\iwpt_compile.ipl -ocode ben.ipl -pt y:\default\main\ieh\workarea\gfj515_benjaminWA\templatedata\uniform\field\presentation\field.tpl -iw_pt-dcr y:\default\main\ieh\workarea\gfj515_benjaminWA\templatedata\uniform\field\data\toutneuf

then I run :
> iwperl ben.ipl

Is there something I'm doing wrong?

I'm completely lost Smiley Sad

Find more posts tagged with

Comments

Migrateduser

I have no idea what's going wrong with your PT, but you might try using <iw_cscript> to run vbscript code that envokes the objects you want to work with. It might help--the cscript subsystem might be better at handling the object.

bw

Bob Walden [bob.walden@interwoven.com]
Interwoven Education Group
IM: Yahoo, MSN bob_walden

Bbeirnaert

I though about it but I need to pass a perl string containing the xml file. Is there a way to pass a var from a iw_perl var to a a cscript function? (I never use it before).

here is a sample of my script:

--------------------------------------------------------------------------------
use Win32: Smiley Surprised

LE qw(in with);
use TeamSite: Smiley Very Happy

CRparser;

my $xml = DCR2XML(iwpt_get_dcr_name());

sub DCR2XML {
my $dcrname = shift;
open (DCRFILE, "<$dcrname") or die ("error opening $dcrname");
my $dcr = join "", <DCRFILE>;
close (DCRFILE);

my $parser = TeamSite: Smiley Very Happy

CRparser->new(); # create a DCRparser
my $docnode = $parser->parse($dcr,'document'); # fetch "document node"

if (not defined $docnode){
$xml = "Parsing Error : " . $parser->get_error() . "\n";
} else {
$xml = _DCR2XML($docnode,0);
}
return $xml;
}

sub _DCR2XML{
...
}

my $DOM_document = Win32: Smiley Surprised

LE->new('MSXML2.DOMDocument.3.0') or die "couldn't create";

$DOM_document->{async} = "False"; # disable asynchrous
$DOM_document->{validateOnParse} = "True"; # validate
my $boolean_Load = $DOM_document->LoadXML($xml);
if (!$boolean_Load)
{
die "The Xml did not load\n";
}

my $formcode_asp_xsl = Win32: Smiley Surprised

LE->new('MSXML2.DOMDocument.3.0');

$formcode_asp_xsl->{async} = "False";
$formcode_asp_xsl->{validateOnParse} = "True";
$boolean_Load = $formcode_asp_xsl->Load("... formcode_asp.xsl");
if(!$boolean_Load)
{
die "The $formcode_asp_xsl did not load\n";
}
my $formcode_asp = $DOM_document->transformNode($formcode_asp_xsl);

iwpt_output(formcode_asp)
--------------------------------------------------------------------------------

Migrateduser

Yes, see the iw_cscript help at http://localhost/iw/help/tst/PT/TeamSite__PT__iw_cscript.html on your TS server. You can use iw_value to insert either perl variable values or dcr item values into your cscript code:
============================================================
<iw_cscript language='vbs'>
<![CDATA[
'--------------------------------------------------
' Now for some in-line Visual Basic Script !
'
' XML node
' |
' |
' V
'--------------------------------------------------
Call Welcome("{iw_value name='dcr.zzz'/}")

Sub Welcome(first_name)
WScript.Echo "Greetings", first_name
End Sub
'--------------------------------------------------
]]></iw_cscript>
============================================================
The iw_value tags are processed first, then the iw_cscript is evaluated after the insertion of the values.

bw

Bob Walden [bob.walden@interwoven.com]
Interwoven Education Group
IM: Yahoo, MSN bob_walden

Bbeirnaert

OK thank you for your answers, but maybe there is something wrong using my first methode.

As I told you, the generation from the button of the browserbased interface, wont work, but if I select the generated file in teamsite and do a File/Regenerate Page action, this works pretty well. The same if I regen this file in a workflow. So this is realy something wierd in the preview an generate button in the browser based interface (I did not try the java based since the users from here wont use it)

I'm using Teamsite 5.5.2.0 9275 20020617 on Win2K

nevertheless, I will try the iw_cscript tag

Benjamin

Bbeirnaert

Hello again,

I tried with a vbscript, but I always get this strange thing : if I have a generated file, select it and do a regenerate, It works good.
If I edit the dcr and do a preview, It wont works (in fact I do not have any error, but the vbscript return nothing).
I track down the problem, by commenting bunch of code, and it appears that it crash whenever I want to create any new object like
(Set objXMLDoc = CreateObject("MSXML2.FreeThreadedDOMDocument") )

So the fact : I have a script that creates a new object (either in perl or in vbs), it runs good in command line with the iwpt_compile (all parameters)
It runs also good when I do a regenerate from a script in a workflow or when I use the regenerate item menu in TS.
But it doesn't run when I select a preview or a generate in the browserbased templating UI.
What is the difference when launched within the this interface? Allocated memory? resctriction? access rights? run under a certain user?

Our teamsite server 5.5.2.0 9275 20020617 runs on windows 2000.

Benjamin

----------------------------------------------------------------
Here is my code :
----------------------------------------------------------------
the tpl :


<iw_pt name="line">
 <iw_system command="c:\winnt\system32\cscript.exe /nologo c:\iw-home\local\bin\xslt.vbs /xsl:y:\default\main\Admin\workarea\AdminWA\xsl\line.xsl /xml:c:\iw-home\tmp\myxml.xml"/>
</iw_pt>

----------------------------------------------------------------
the xslt.vbs :


Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0

if (Len(WScript.Arguments.Named.Item("xsl") & "")=0) or (Len(WScript.Arguments.Named.Item("xml") & "")=0) then
 WScript.Echo("Usage: cscript xslt.vbs /xsl:FILE /xml:FILE [ /output:FILE ] [ /PARAM:VALUE ]")
 Wscript.Quit(1)
end if

Dim strXMLFileloc, strXSLFileLoc, strOutputfile, strParam
strXSLFileloc = WScript.Arguments.Named.Item("xsl")
strXMLFileloc = WScript.Arguments.Named.Item("xml")
strOutputfile = WScript.Arguments.Named.Item("output")
strXSLFileloc = "c:\iw-home\tmp\line.xsl"
strXMLFileloc = "c:\iw-home\tmp\myxml.xml"

Set objXMLDoc = CreateObject("MSXML2.FreeThreadedDOMDocument")
objXMLDoc.validateOnParse = validate
objXMLDoc.async = False
objXMLDoc.preserveWhiteSpace = preserveWSpace
objXMLDoc.load strXMLFileloc
If Err.Number <> 0 Then
    strErr = Err.Description & vbCrLf
    strErr = strErr & objXMLDoc.parseError.reason & " line: " & objXMLDoc.parseError.Line & " col: " & objXMLDoc.parseError.linepos & " text: " & objXMLDoc.parseError.srcText
    WScript.Echo "Error loading the XML:" & vbCrLf & strErr
    Wscript.Quit(2)
End If

Set objXSLDoc = CreateObject("MSXML2.FreeThreadedDOMDocument")
objXSLDoc.validateOnParse = True
objXSLDoc.async = False
objXSLDoc.preserveWhiteSpace = preserveWSpace
objXSLDoc.load strXSLFileloc
If Err.Number <> 0 Then
    strErr = Err.Description & vbCrLf
    strErr = strErr & objXMLDoc.parseError.reason & " line: " & objXMLDoc.parseError.Line & " col: " & objXMLDoc.parseError.linepos & " text: " & objXMLDoc.parseError.srcText
    WScript.Echo "Error loading the XSL:" & vbCrLf & strErr
    Wscript.Quit(2)
End If

Set myTemplate = CreateObject("MSXML2.XSLTemplate")
myTemplate.stylesheet = objXSLDoc

Set myProc = myTemplate.createProcessor()
myProc.input = objXMLDoc
For Each param in WScript.Arguments.Named
 if (not (param = "xsl") and not (param = "xml") and not (param = "output")) then
  if (Len (WScript.Arguments.Named.Item(param) & "") > 0) then
   myProc.addParameter param, WScript.Arguments.Named.Item(param)
  end if
 end if
Next
myProc.transform()
If Err.Number <> 0 Then
    strErr = Err.Description & vbCrLf
    strErr = strErr & myProc.parseError.reason & " line: " & myProc.parseError.Line & " col: " & myProc.parseError.linepos & " text: " & myProc.parseError.srcText
    WScript.Echo "Error applying the XSL:" & vbCrLf & strErr
    Wscript.Quit(2)
End If

Dim strOutput
strOutput = myProc.output

Set myTemplate = Nothing
Set myProc = Nothing
Set objXMLDoc = Nothing
Set objXSLDoc = Nothing

if (Len(strOutputfile & "") > 0) then
 'Write to File
 Dim objFSO, objFile, objTextStream
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 if (objFSO.fileExists(strOutputfile))then
  Set objFile = objFSO.GetFile(strOutputfile)
 else
  'Create File
  objFSO.createTextFile(strOutputfile)
  Set objFile = objFSO.getFile(strOutputfile)
 end if
 if (objFile is Nothing) then
  WScript.Echo ("File " & strOutputfile & " is Nothing.")
  WScript.Quit(3)
 end if
 Set objTextStream = objFile.OpenAsTextStream(ForWriting, TristateUseDefault)
 objTextStream.Write strOutput
 objTextStream.close
 Set objTextStream = Nothing
 Set objFile = Nothing
 Set objFSO = Nothing
 WScript.Echo ("Output written to " & strOutputfile )
else
 'Write to Screen
 WScript.Echo strOutput
end if

----------------------------------------------------------------