<: sub recurse_directory { my ($dir) = @_; add_wml_menu_entry($dir, "site-map-entry",1); return if ($dir eq "../pictures"); my @dir = get_wml_subdirectories($dir); return if ($#dir == 0); print "
"; foreach my $ndir (@dir) { recurse_directory("$dir/$ndir"); } print "
"; } recurse_directory(""); print "
Jean Loup Gassend's Home Page" :>