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 => '/secadvs/index.html' &>">Security Advisories</a></div>
   5         <div class="menu_item"><a href="<& /lib/url.mas,
   6           path => '/news/index.html' &>">News</a></div>
   7 % # if ($section eq 'news') {
   8 % #        <div class="menu_sub_item"><a href="<& /lib/url.mas,
   9 % #       path => '/news/roadmap.html' &>">Roadmap/ToDo</a></div>
  10 % # }
  11         <div class="menu_item"><a href="<& /lib/url.mas,
  12           path => '/docs/index.html' &>">Documentation</a></div>
  13         <div class="menu_item"><a href="<& /lib/url.mas,
  14           path => '/support/index.html' &>">Support</a></div>
  15 % if ($section eq 'support') {
  16         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  17           path => '/support/commercial.html' &>">Commercial support</a></div>
  18 % }
  19         <div class="menu_item"><a href="<& /lib/url.mas,
  20           path => '/download/index.html' &>">Download</a></div>
  21         <div class="menu_item"><a href="http://wiki.openxpki.org">Wiki</a></div>
  22         <div class="menu_item"><a href="<& /lib/url.mas,
  23           path => '/resources/index.html' &>">Resources</a></div>
  24 % if ($section eq 'resources') {
  25         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  26           path => '/resources/wwwmirrors.html' &>">WWW Mirrors</a></div>
  27 % }
  28         <div class="menu_item"><a href="<& /lib/url.mas,
  29           path => '/foundation/index.html' &>">Foundation</a></div>
  30         <div class="menu_item"><a href="<& /lib/url.mas,
  31           path => '/legacy/index.html' &>">OpenCA Support</a></div>
  32 % if ($section eq 'legacy') {
  33         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  34           path => '/legacy/securityadvisories.html' &>">Security Advisories</a></div>
  35         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  36           path => '/legacy/news.html' &>">Archived News</a></div>
  37         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  38           path => '/legacy/docs.html' &>">Documentation</a></div>
  39         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  40           host => 'sourceforge.net',
  41           path => '/project/showfiles.php?group_id=20873' &>">OpenCA@Sourceforge</a></div>
  42         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  43           scheme => 'ftp',
  44           host => 'ftp.openca.org',
  45           path => '/pub/openca' &>">ftp.openca.org</a></div>
  46         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  47           path => '/legacy/ftp.html' &>">FTP Mirrors</a></div>
  48         <div class="menu_sub_item"><a href="<& /lib/url.mas,
  49           path => '/legacy/demo.html' &>">Demo Installations</a></div>
  50 % }
  51         <div class="w3c">
  52           <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>
  53         </div>
  54         <div class="w3c">
  55           <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>
  56         </div>
  57         <div class="w3c">
  58           <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>
  59         </div>
  60
  61 <%init>
  62 # original component path (e. g. 'htdocs/news/index.html')
  63 my @path = File::Spec->splitdir($m->request_comp()->path());
  64
  65 # remove target directory portion
  66 # e. g. ('news', 'index.html')
  67 shift @path;
  68 shift @path;
  69
  70 # dirs will contain only the directories in the path (without the file itself,
  71 # e. g. ('news')
  72 my @dirs = @path;
  73 pop @dirs;
  74
  75 # section name (e. g. "news")
  76 my $section = "";
  77 if (defined $dirs[0]) {
  78    $section = $dirs[0];
  79 }
  80
  81 # relative path (e. g. 'news/index.html')
  82 my $path = File::Spec->catfile(@path);
  83
  84 # depth (e. g. 1)
  85 my $depth = scalar(@dirs);
  86
  87 </%init>