I am having a problem returning a value from an INLINE script from a DCT.
In my debugging, I have broken it down to the simplest of examples, but still to no avail. Here's my simple example:
DCT:
<item name="Publish Date">
<label>Publish Date</label>
<text required="t">
<inline command = 'perl \iw-home/local/bin/format_date.ipl'/>
</text>
</item>
Script:
use Time::Local;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$mon_text = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$mon];
$year = $year + 1900;
$formatted_date = "$mday-$mon_text-$year";
print <<EOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$formatted_date</default></substitution>
EOF
-- even this doesn't work. Am I missing something?? Thanks,
Dave
dave@simpleinternet.com+USA (215) 962-5153
