www.openxpki.org/trunk/src/lib/menu.mas

   1         <div class="menu_item"><a href="<& /lib/url.mas,
   2           path => '/' &>">Home</a></div>
   3         <div class="menu_item"><a href="<& /lib/url.mas,
   4           path => '/features/index.html' &>">Features</a></div>
   5         <div class="menu_item"><a href="<& /lib/url.mas,
   6           path => '/secadvs/index.html' &>">Security Advisories</a></div>
   7         <div class="menu_item"><a href="<& /lib/url.mas,
   8           path => '/news/index.html' &>">News</a></div>
   9 % # if ($section eq 'news') {
  10 % #        <div class="menu_sub_item"><a href="<& /lib/url.mas,
  11 % #       path => '/news/roadmap.html' &>">Roadmap/ToDo</a></div>
  12 % # }
  13         <div class="menu_item"><a href="<& /lib/url.mas,
  14           path => '/docs/index.html' &>">Documentation</a></div>
  15         <div class="menu_item"><a href="<& /lib/url.mas,
  16           path => '/support/index.html' &>">Support</a></div>
  17 % if ($section eq 'support') {
  18         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  19           path => '/support/commercial.html' &>">Commercial support</a></div>
  20 % }
  21         <div class="menu_item"><a href="<& /lib/url.mas,
  22           path => '/download/index.html' &>">Download</a></div>
  23         <div class="menu_item"><a href="http://wiki.openxpki.org">Wiki</a></div>
  24         <div class="menu_item"><a href="<& /lib/url.mas,
  25           path => '/resources/index.html' &>">Resources</a></div>
  26 % if ($section eq 'resources') {
  27         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  28           path => '/resources/wwwmirrors.html' &>">WWW Mirrors</a></div>
  29 % }
  30         <div class="menu_item"><a href="<& /lib/url.mas,
  31           path => '/foundation/index.html' &>">Foundation</a></div>
  32         <div class="menu_item"><a href="<& /lib/url.mas,
  33           path => '/legacy/index.html' &>">OpenCA Legacy</a></div>
  34 % if ($section eq 'legacy') {
  35         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  36           path => '/legacy/securityadvisories.html' &>">Security Advisories</a></div>
  37         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  38           path => '/legacy/docs.html' &>">Legacy docs</a></div>
  39 % }
  40         <div class="w3c">
  41           <a href="http://sourceforge.net"><img src="http://sflogo.sourceforge.net/sflogo.php?group_id=150124&amp;type=1" width="88" height="31" alt="SourceForge.net Logo" /></a>
  42         </div>
  43         <div class="w3c">
  44           <a href="http://validator.w3.org/check?uri=http://www.openxpki.org/<% $path %>"><img class="noborder" src="<& /lib/url.mas, path => '/images/valid-xhtml10.png' &>" alt="Valid XHTML 1.0!" height="31" width="88" /></a>
  45         </div>
  46         <div class="w3c">
  47           <a href="http://www.masonhq.com/"><img class="noborder" src="<& /lib/url.mas, path => '/images/built-with-white1.png' &>" alt="Built with Mason" height="31" width="88" /></a>
  48         </div>
  49
  50 <%init>
  51 # original component path (e. g. 'htdocs/news/index.html')
  52 my @path = File::Spec->splitdir($m->request_comp()->path());
  53
  54 # remove target directory portion
  55 # e. g. ('news', 'index.html')
  56 shift @path;
  57 shift @path;
  58
  59 # dirs will contain only the directories in the path (without the file itself,
  60 # e. g. ('news')
  61 my @dirs = @path;
  62 pop @dirs;
  63
  64 # section name (e. g. "news")
  65 my $section = "";
  66 if (defined $dirs[0]) {
  67    $section = $dirs[0];
  68 }
  69
  70 # relative path (e. g. 'news/index.html')
  71 my $path = File::Spec->catfile(@path);
  72
  73 # depth (e. g. 1)
  74 my $depth = scalar(@dirs);
  75
  76 </%init>