Creating a perl module

Ottawa_IWOV

I am in some need of help regarding perl modules. I want to add a snippet of code to a presentation template, that calls a sub function (setEA). Does "sub setEA" come out of the box with perl? If not, where in the TeamSite binaries should this module be installed so it can be used properly with TeamSite?

The following is an example of what I am trying to do...

I am trying to take the title from the DCR passed to the meta-data capture form

#snippet to be entered in the TPL
#sets the metatagger info to whatever is entered in the DCT
my $title = iwpt_dcr_value('dcr.Title');
my $html = iwpt_get_ofile_name();
$html =~ s/\/\.iw-mount//;
setEA("$html",'TeamSite/Metadata/Title',"$title");
#end of snippet

but I need the sub setEA functionality, that I think may already be part of TeamSite.

I am on a W2K installation, so am I calling iw-mount properly in thew above sniipet??

Adam Stoller

setEA is a custom function that, apparently, a consultant created for at least one customer - but is not in any of the OOTB Perl modules that come with TeamSite / TeamSite Templating.

The function itself should be pretty trivial to create - it's basically going to make a call to the iwextattr CLT (that is OOTB).

To get more information about the use of iwextattr run the following from the DOS prompt on your TeamSite server:

C:\> iwextattr -h

The above assumes that iw-home/bin is in the SYSTEM PATH environment, if not - either run:

C:\> iw-home/bin/iwexttatr -h

or

C:\> cd iw-home/bin
C:\iw-home\bin> iwextattr -h

Once you understand how the CLT is used, you create a simple Perl subroutine that takes whatever parameters you want to pass to it so that it can effectively make use of the CLT. In this case, it looks like you want to pass:

of the file on which you wish to set the EA,
• the key-name of the EA you wish to set, and
  
• the value that you wish to associated with that key-name

/iwmnt and/or /.iwmnt are Unix mount paths used for TeamSite. On Windows it is usually Y: - however, to make your code more portable and flexible - take a look at the TeamSite::Config module's getiwmount() function:

C:\> iw-home/iw-perl/bin/perldoc TeamSite::Config

This way you can just set a variable to the value returned by that function and use that variable in your substitution.

Hope that helps,


--fish
(Interwoven, Curriculum Development)

Edited by ghoti on 09/27/02 10:43 AM (server time).