# shlomi-fish-homepage / bin / Test / first-page-of-section-nav-menu.pl

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #!/usr/bin/perl use strict; use warnings; use MySectNavData; use vars (qw($section_nav_menu)); sub init_section_nav_menu { if (defined($section_nav_menu)) { return; } my $filename = "puzzles/";$filename = "/$filename";$section_nav_menu = MySectNavData::get_nav_menu( 'path_info' => $filename, 'current_host' => "t2", 'root' => "/", ); } init_section_nav_menu(); print$section_nav_menu->get_html();