better-scm / template.wml

# #use wml::des::navbar
#include '../lib/bk-note.wml'

use MyNavData;
use HTML::Widgets::NavMenu;
use CGI qw();
use MyNavLinks;

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

use vars qw($nav_bar);

$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};

my $leading_path = $rendered_results->{leading_path};

my $render_leading_path_component = sub {
    my $component = shift;
    my $title = $component->title();
    my $title_attr = defined($title) ? " title=\"$title\"" : "";
    return "<a href=\"" . CGI::escapeHTML($component->direct_url()) .
        "\"$title_attr>" .
        $component->label() . "</a>";

use vars qw($leading_path_string);

$leading_path_string =
    join(" &rarr; ",
        { $render_leading_path_component->($_) }

use vars qw($nav_links_renderer);

$nav_links_renderer = MyNavLinks->new(
        'nav_links' => $nav_links,
        'root' => "$(ROOT)",

# The Definition of the page itself
<?xml version="1.0" encoding="iso-8859-1"?>
    html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
<html xmlns="" xml:lang="en-US">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="Author" content="Shlomi Fish" />
<meta name="Keywords" content="Better SCM, SCM, version control, source control, revision control, source configuration management, CVS, Subversion, BitKeeper, open source, Shlomi Fish{#MORE_KEYWORDS#}" />
<link rel="StyleSheet" href="$(ROOT)/style.css" type="text/css" />
my @keys = (sort { $a cmp $b } keys(%$nav_links));
foreach my $key (@keys)
    my $url = CGI::escapeHTML($nav_links->{$key});
    print "<link rel=\"$key\" href=\"$url\" />\n"

<p style="display:none;">
<a href="#main">Go to main content</a>

<div class="leading_path">
    print $leading_path_string;
<div class="navbar">
<a href="$(ROOT)/" title="Home"><img 
    alt="Better SCM" class="bless" /></a>
   print $nav_links_renderer->get_total_html('with_accesskey' => 1);
<:{ print join("\n", @$nav_html); }:>
<define-tag validhtml>
<a href=";id=0&amp;t=70"><img 
   style="margin-top:1em;" class="bless" alt="Get Firefox!" 
   title="Get Firefox! A safer, faster, better web-browser." 
   src="$(ROOT)/images/get-firefox.png" /></a>
<a href="" title="Valid XHTML 1.0!"><img 
    class="highlight bless"
    alt="Valid XHTML 1.0!" height="31" width="88" 
 <a href="" title="Valid CSS!"><img 
    class="highlight bless"
    alt="Valid CSS!" /></a>
<a href="" title="Website META Language"><img 
src="$(ROOT)/images/logo-wml.png" alt="Website Meta Language" class="bless" 
width="100" height="50" /></a>

<validhtml />
   print $nav_links_renderer->get_total_html('with_accesskey' => 0);

<div class="main" id="main">


<div class="footer">
<hr />
<p class="webmaster">
Webmaster: <a href="">Shlomi Fish</a> (<a href=""></a>)

<div class="righty">
<!-- Creative Commons License -->
<a rel="license" href=""><img 
alt="Creative Commons License"
src="$(ROOT)/images/somerights20.png" /></a><br />
This work is licensed under a <a rel="license" 
href="">Creative Commons 
<!-- /Creative Commons License -->


<rdf:RDF xmlns=""
<Work rdf:about="">
   <dc:title>Better SCM Site Contents</dc:title>
   <dc:description>A Version Control Systems Information and Advocacy carrying site</dc:description>
      <dc:title>Shlomi Fish</dc:title>
      <dc:title>Shlomi Fish</dc:title>
   <dc:type rdf:resource="" />
   <license rdf:resource="" />

<License rdf:about="">
   <permits rdf:resource="" />
   <permits rdf:resource="" />
   <requires rdf:resource="" />
   <requires rdf:resource="" />
   <permits rdf:resource="" />




<define-tag subject>

<define-tag more_keywords>
{#MORE_KEYWORDS#:, %0:##}

#   per default we are in body