PERL value in DCR- using Callout

I am trying to populate a DCR field automatically with a new default value using a perl callout function but is giving me an error...if anyone has any clues please help.
ERROR:
Templating Error Page
An internal problem was encountered trying to create a requirements object for type mckDC/navigation.

Datacapture.cfg
<item name="PageID">
<text name="Pageid">
<inline command="D:\interwoven\TeamSite\httpd\iw-bin\iwperl

\interwoven\TeamSite\httpd\iw-bin\test_sample.ipl"/>
</text> <database data-type="VARCHAR(100)"/> </item>

PERL IPL OUTPUT:
The perl code(test_sample.ipl) file runs fine standalone and gives me an out put in this form.
<?xml version="1.0" encoding="UTF-8"?>
<substitution>
<default>48</default>
</substitution>

Please let me know anything about this problem any clues will help

thanks
have a great day

Edited by Achim on 09/02/03 09:05 AM (server time).

Find more posts tagged with

Comments

Migrateduser

Try running it on the command line and see what happens.

\interwoven\TeamSite\httpd\iw-bin\iwperl

\interwoven\TeamSite\httpd\iw-bin\test_sample.ipl

should probably be

\interwoven\TeamSite\iw-perl\bin\iwperl

\interwoven\TeamSite\httpd\iw-bin\test_sample.ipl

Achim

Works fine from the command prompt -

Here is the code which is present in the perl file.

use DBI;
use DBD: Smiley Surprised

DBC;

$dbh = DBI->connect("DBI Smiley Surprised

DBC:test_connection", "test_user", "test");

sub getNews {
$statement="SELECT pageid_sequence.NEXTVAL FROM dual";

$sth = $dbh->prepare($statement);
$sth->execute();
if ($result = $sth->fetchrow_hashref) {
$shortid = $result->{'NEXTVAL'};
$actrefhash = { 'value' => $shortid, 'label' => $shortid };
print <<EOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution>
<default>$shortid</default>
</substitution>
EOF

push( @options, $actrefhash );
}

$sth->finish();

return @options;
}

my @options;
@options = getNews();

Michael

When you trigger your script from templating do you see any errors coming up in servletd.log or error.log (or any other logs?)

We had something somewhat similar where it was related to environment variables not being set for the iwui user; however that was on Solaris so I don't know if it will help in this case.

Cheers
Michael

Migrateduser

You run this entire line on the command line and it works?

\interwoven\TeamSite\httpd\iw-bin\iwperl

\interwoven\TeamSite\httpd\iw-bin\test_sample.ipl

I don't think iwperl should exist in

\interwoven\TeamSite\httpd\iw-bin.

ProfessorX

I have a feeling that you don't need to return <?xml version="1.0" encoding="UTF-8"?>

You also have mix up in you elements defaultis not a child of substitution but option is.

If the item you want is text or textare then I THINK you want to emmit the just the following...

<default>48</default>

from YOUR callout and it SHOULD work

for listboxes I KNOW we emmit this...
<substitution>
<option label="Albania" value="1">
</option>\n<option label="Argentina" value="2">
</option>\n<option label="Australia" value="3">
<substitution>
from OUR callout and it DOES work

Last ditch effort try debuggin it use the iwpt_compile command with the proper args

The Professor-

Migrateduser

Environment variables very well could be the case. One approach would definitely be to add code to the script to log the environment variables to a file, run it on the command line, run it from the UI and see how the output differs, then define the required environment variables in the script. That would also indicate whether the code is actually running.

Migrateduser

This post doesn't make sense to me. I think the subject of the thread is wrong - I think we are talking about an inline, not a callout. If we are talking about an inline then the XML header is required. If we are talking about a callout then I don't see why it would be returning XML. Since everything is in the DCT I don't think iwpt_compile.ipl could help, but it would be worth running through iwdctacleval - that should run the inline interactively as if it were called from a DCT to see what kind of output it is/not generating.

gzevin

John,

the 'inline' that you are referring to, is also commonly known as 'DCT inline callout', whereas therea is also a CGI callout. I.e., both are 'callouts'

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

s6634

Achim,

As far as the Perl script you have posted is concerned, you need to set environment variable: $ENV{ORACLE_HOME}. While calling as in-line command/CGI-perl, you need to set this variable explicitly to work. Where as if you are executing from command prompt, system will supply this value automatically.

Cheers

Frederik

you are using the <inline> subelement to the <text> element. Which - as far as I can tell - is not allowed by the datacapture5.0.dtd.
(inline is only allowed subelement of select, radio and checkbox)

I guess you should look at that...

I'm just starting to learn Templating, so don't take my word for it, but I got a feeling that what you're trying to do, cannot be accomplished with a callout (be it inline or CGI/JAVA)... maybe with formAPI ?

Adam Stoller

Actually, inline *should* work pretty much anywhere within the DCT - it was too difficult figuring out how to represent that clearly in the DTD and so it was documented in there in the place where it is most often used.

If you haven't gotten this resolved yet - I suggest posting (as an attachment) the DCT and the script - so that folks here can look at them and see if they can spot something that you may have overlooked and therefore not communicated in your post.

--fish
(Interwoven Senior Technical Consultant)

Frederik

yup, seems like i still have a lot to learn. thx for the correction, ghoti.
this point is also documented in tst.552.dev.pdf (Templating Developer’s Guide), page 54 : The <inline> Subelement. I would recommend making some notice of this, also in the DTD itself, for people like me who think the DTD is the bible

Achim

Here is the perl script

use DBI;
use DBD: Smiley Surprised

DBC;

$dbh = DBI->connect("DBI Smiley Surprised

DBC:test_connection", "test_user", "test");

sub getNews {
$statement="SELECT pageid_sequence.NEXTVAL FROM dual";

$sth = $dbh->prepare($statement);
$sth->execute();
if ($result = $sth->fetchrow_hashref) {
$shortid = $result->{'NEXTVAL'};
$actrefhash = { 'value' => $shortid, 'label' => $shortid };
print <<EOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution>
<option value="$shortid" label="$shortid" selected="t"/>
</substitution>
EOF

push( @options, $actrefhash );
}

$sth->finish();

return @options;
}

my @options;
@options = getNews();
#exit 0;

I think its breaking at the point it uses

use DBI;
use DBD: Smiley Surprised

DBC;
$dbh = DBI->connect("DBI Smiley Surprised

DBC:test_connection", "test_user", "test");

for some reason teamsite is not able to use the glasses properly, may be i am missing some ENVIRONMENT variable.

Note scripts works fine from command line.

Adam Stoller

You need to explicitly set some ORACLE environment variables within the script - I'd suggest searching in the forums because this has come up (and been responded to) numerous times.

--fish
(Interwoven Senior Technical Consultant)