Perl Module

I'm trying to write an iw_value replacement module that will do bbcode, very similar to the markup on this board, and I can't seem to get it to work:

package TeamSite: Smiley Tongue

T::my_value;
@ISA = qw( TeamSite: Smiley Tongue

T::iw_xml );

sub start
{
my ($this, $iw_parser, $start_string) = @_;
my $name = $this->get_attrib('name','perl_name');

# this just always seems to generate some kind of error.
# is there something in the escaping that I'm missing?
$this->emit_perl(" my \$iname = $name; ");
$this->emit_perl(" \$iname =~ s/\[(\/?)b\]/<(\$1)strong/gi; ");
$this->emit_perl("iwpt_output\($iname);");

# comment the code above, and uncomment this,
# and I get output, but without the regex applied
# $name=~ s/\[(\/?)b\]/<(\$1)strong/gi;
# $this->emit_perl("iwpt_output\($name);");

}

1;

Find more posts tagged with

Comments

laj1

the text of the error messages would be helpful.

Len Jaffe
My Heart Is A Flower
Update your DevNet profile - let us know who you are!

Hallow

Unfortunately I don't have any past errors saved.

The current version I have installed at the moment is the one in comments - it outputs, but doesn't seem to execute the regex. In order to make edits I have to send the updated file to an admin to get it installed. Also, just in case anyone asks, I also don't have access to the command line utilities either.

Hallow

Here's the wonderfully descriptive error message:

Template Preview And Generate Error:

Could not process template: Y:\default\main\MyArea\WORKAREA\templatedata\MyTemplate\presentation\mypresentation.tpl
:\default\main\MyArea\WORKAREA\templatedata\MyTemplate\presentation\mypresentation.tpl

Hallow

Ok, I've found out what seems to be the problem. I can't find any documentation backing this up, but, it appears that the variable must be the same name as the perl module itself. Replacing my_value below (except in the package declaration) with $my_val or any other variable name results in the error I listed earlier. But otherwise this code appears to work, including modifications to $my_value

package TeamSite: Smiley Tongue

T::my_value;
@ISA = qw( TeamSite: Smiley Tongue

T::iw_xml );

sub start
{
my ($this, $iw_parser, $start_string) = @_;
my $name = $this->get_attrib('name','perl_name');
$this->emit_perl( "my \$my_value = $name;" );
$this->emit_perl( "iwpt_output( \$my_value );" );

}

1;

Johnny

Any time you need to debug templates, you can always try iwpt_compile.ipl with the -ocode param.

Then just execute the resulting perl code for more accurate perl errors. The perl debugger comes in handy when you really get stuck

John Cuiuli
Consultant
Sydney, Australia

Hallow

Not having command line access makes it kind of difficult.