<{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", $_); ''; }> .|section|score|title|up|abstract foo.txt|sec1|50|This is Foo|index_chunk|Abstract for foo dir1/bar.txt|sec2|30|This is Bar|story_2.txt|Abstract for bar dir2/dir2a/baz.txt|sec1|20|This is Baz|story_5.txt|Abstract for baz <{!-- ------------------------------------------------------------------- --}> $[this.title]

Navlinks Test

Index | Site Map
$[navlinks]
<{!-- ------------------------------------------------------------------- --}>
  • $[${item}.txt.title]

    $[${item}.txt.abstract]

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

  • ${title}: $[${name}.abstract]
    [score: ${score}, name: ${name}, is_node: ${is_node}] <{!-- don't forget to list the sub-items --}>

      ${list}

  • ${title}: $[${name}.abstract]
    [score: ${score}, name: ${name}, is_node: ${is_node}] <{!-- no sub-items here --}>

    • Up Previous Next ${prevtext} | ${uptext} | ${nexttext} ${header}${${pg}.txt}${footer} ${header}${index_chunk}${footer} ${header}${mainsitemap}
    ${navlinks} ${footer}