<{perl # create a ${all_stories} variable containing the list # of all text files just loaded. $_ = ''; foreach my $pg (sorted_content_matching ("score title", "*.txt")) { $pg =~ s/\.txt$//; $_ .= "$pg "; } set_content ("all_stories", $_); ''; }> <{!-- ------------------------------------------------------------------- --}> <{!-- ------------------------------------------------------------------- --}>

<{perl make_list ('index_list_item', get_list ("all_stories")); }>

<{!-- ------------------------------------------------------------------- --}> ${header}${${pg}.txt}${footer} ${header}${index_chunk}${footer} <{!-- ------------------------------------------------------------------- --}> <{!-- ------------------------------------------------------------------- --}> ${header}${mainsitemap}${footer}