If you look at O'Reilly's cgi programming with perl book there is a
mechanism there which can be modified to do exactly what you want.
The following was adapted from it :
# initialise subject listings one section per subdirectory under
# ../data
opendir ( DIR, "../data" ) or die "Cannot open subject dir: $!";
while ( defined ( my $subject_dir = readdir DIR ) ){
next if $subject_dir =~ /^\./; # skip . and ..
push ( @subjects , $subject_dir );
}
closedir(DIR);
# output list of subjects as links to the script or modify as links
# to pages
sub nav_bar {
print qq[<br>];
foreach ( @subjects ) {
print <<HTML;
<p><a href="./devel_mossdog.pl?action=list&subject=$_"> $_ </a></p>
HTML
}
print qq[<br>];
}
Hope this helps.
Francesco
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
