Web-CPAN-Site / wml / template.wml

Full commit
# #use wml::des::navbar

use MyNavData;
use HTML::Widgets::NavMenu;

my $filename = "$(LATEMP_FILENAME)";
$filename =~ s!index\.html$!!;
$filename = "/$filename";

my $nav_bar = HTML::Widgets::NavMenu->new(
    'path_info' => $filename,
    'current_host' => "berlios",
    'ul_classes' => [ "navbarmain", ("navbarnested") x 10 ],

my $rendered_results = $nav_bar->render();

use vars qw($nav_links);

$nav_links = $rendered_results->{nav_links};

use vars qw($nav_html);

$nav_html = $rendered_results->{html};


<define-tag email:link>
<a href="mailto:%0">%0</a>

# The Definition of the page itself
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html 
     PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
<html xmlns="" xml:lang="en-US" lang="en-US">
<link rel="stylesheet" href="$(ROOT)/style.css" type="text/css" />
use CGI qw();

my @keys = (sort { $a cmp $b } keys(%$nav_links));
foreach my $key (@keys)
    my $url = $nav_links->{$key};
    print "<link rel=\"$key\" href=\"" . CGI::escapeHTML($url) . "\" />\n"

<define-tag rellink whitespace="delete">
<preserve url />
<set-var %attributes />
$(ROOT)/<get-var url />
<restore url />

<define-tag site:link whitespace="delete">
<preserve url />
<set-var %attributes /><get-var url />
<restore url />

<define-tag wiki:link whitespace="delete">
<preserve url />
<set-var %attributes />
<ifeq "<get-var url />" "" 
    "<set-var url="/Main/HomePage" />" 
    "<set-var url="/<get-var url />" />" 
<site:link url="Wiki/pmwiki/pmwiki.php" /><get-var url />
<restore url />

<define-tag nothing></define-tag>

<table summary="Layout Table: The first cell contains a navigation bar, the second the main page" border="0" width="99%">
<td valign="top" class="navbar" style="width:20%">

<:{ print join("\n", @$nav_html); }:>

<define-tag validhtml>
<a href=";id=0&amp;t=70"><img 
   style="margin-top:1em; border:0;" alt="Get Firefox!" 
   title="Get Firefox! A safer, faster, better web-browser." 
   src="$(ROOT)/images/get-firefox.gif" /></a>
<a href=""><img 
    style="border:0" src="$(ROOT)/images/valid-xhtml10.png" 
         alt="Valid XHTML 1.0!"
 <a href="$(LATEMP_FILENAME)"><img style="border:0"
       alt="Valid CSS!" /></a>
<a href=""
title="Make a Donation to support the project."><img
style="border:0" src="$(ROOT)/images/paypal.gif" alt="PayPal Donate" /></a>

<validhtml />

<td valign="top" class="main">

<hr />
<b>Webmaster:</b> <a href="">Shlomi Fish</a>,
E-mail: <a href=""></a>.


<define-tag subject>

<define-tag gen_module_html>
<set-var module_name="%0" />
my $module_name = "<get-var module_name />";
my $modules_list = MyModulesList::get_module_list();
my ($module_record) = (grep {$_->{'perl_name'} eq $module_name } @$modules_list);

print "<h2>CPAN Record</h2>\n\n";
my $cpan_link = "$module_name/";
print "<p><a href=\"$cpan_link\">$cpan_link</a></p>\n";
print "<h2>Description</h2>\n";
print $module_record->{'desc'};
print "<h2>Subversion Directories</h2>\n";
my $repos_sub_path = "$module_record->{svn_dir}/trunk/";
my $svn_url = "";
print "<ul>\n<li>\n<a href=\"$svn_url/$repos_sub_path\">Trunk URL</a> (other
branches and tags can be found one level below it.)\n</li>\n";
print "<li>\n<a href=\"$repos_sub_path\" rel=\"versioncontrol\">Browse the code online</a>\n</li>\n";
print "</ul>\n";
#   per default we are in body