Dyname Option List

Does anyone have any ideas about how I could read text file to populate an option list in Templating 5.01

Also, Is it possible for me go create and interface in which my users could update this text file themselves?

Thanks!

Find more posts tagged with

Comments

james1

Please read up on server-side inline callouts. They were designed for this very purpose. In fact, the example that ships with TeamSite Templating does exactly what you are describing.

-- James

--
James H Koh
Interwoven Engineering

Johnny

Users can modify them through a custom cgi call out.

You would have to code a cgi script to create the functionality you require.

John
Sydney, Australia

mickdundee

Hi,

Im only new to this sort of thing but I did it this way.

In your datacapture.cfg you put this code

<item name="Field">
<select required='t'>
<option t value="hello" label="Select One" />
<inline command = '/usr/iw-home/iw-perl/bin/iwperl /usr/iw-home/custom/bin/cj_getfiles.ipl' />
</select>
</item>

the perl script that is called by the inline elemnent above is below

#!/usr/iw-home/iw-perl/bin/iwperl
# getfiles.ipl

my ($defaultDir) = "/iwmnt/default/main/wwwschools/STAGING/templatedata/schools/colintest/data/";
#my ($defaultDir) = "c:/Perl/Docs/";
my ( $fileMask ) = "images_"; # must be in lowercase or if no mask, use ''

# change to the directory to search
chdir($defaultDir);

# open the default directory and assign contents to DIR
opendir( DIR, $defaultDir) or die( "Error opening : $!" );

# print "Opening :".$paramDirectory."\n";

# loop through contents of DIR and chuckout and entries that aren't files or don't match the filemask
# if provided

foreach ( readdir( DIR ) ) {
my ( $file ) = lc($_); #convert the value assigned to $_ to lowercase and assign it to $file

# this checks to see if $file is a directory
if ( (-d $file) && ($file = ".") && ($file = "..") ) { next }
# if a filemask has been provided this checks for a match
if ($fileMask ne "") { if( substr($file,0,length($fileMask)) ne $fileMask ) { next } }

# build string
$string = "<option value='".$defaultDir.$file."' label='".$file."' />";

# assign string to arrayTemp
push (@arrayTemp, $string);
}

# produce output
print <<EOF;
<?xml version="1.0" encoding='UTF-8'?>
<substitution>
@arrayTemp
</substitution>
EOF

I hope this Helps
Colin,

Sydney Australia

Adam Stoller


# this checks to see if $file is a directory
if ( (-d $file) && ($file = ".") && ($file = "..") ) { next }

I think you want to either have:
next if (-d "$file");
or
next if ((-d "$file") && ($file eq "." || $file eq "..");

I'd guess you are looking to avoid processing directories - if so - the first suggestion above is the correct one to use.

--fish
(Interwoven Senior Technical Consultant)

bomversion1.jpg

Johnny

Directory search modules are quite useful for this sort of algorithm.

TeamSite: Smiley Very Happy

irwalk (see perldoc TeamSite: Smiley Very Happy

irwalk)
works quite nicely, helping to clean out your code.

John
Sydney, Australia

mickdundee

Thanks Fish