<: 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(""); :>