shl...@13c2ddb8-3aa7-4284-800b-8db07c650eef  committed b5f449e

1. Added the <link rel=""> links.

2. Fixed a bug in which the filename given as input to path_info was
a. not prefixed with a slash.
b. included the index.html part.

3. Added the sub-components of the site dedicated to describiing the wiki,
web forum and mailing list.

  • Participants
  • Parent commits 9cffd69
  • Branches default

Comments (0)

Files changed (4)

File src/site-resources/mailing-list/index.html.wml

+#include '../template.wml'
+<subject "Our Mailing List" />
+Archives, Usage information, and settings (for people who are subscribed)
+for our mailing list can be found in 
+<a href="">its Mailman 
+Note that it is a very low volume mailing list, spoken in English. If you are
+interested in other mailing lists refer to 
+<a href="$(ROOT)/mailing-lists/">our mailing lists page</a>.

File src/site-resources/web-forum/index.html.wml

+#include '../template.wml'
+<subject "Our Web-Forum" />
+We have a 
+<a href="">web 
+forum</a> where one can ask questions (or generally start discussions)
+and receive answers by using a web-browser.

File src/site-resources/wiki/index.html.wml

+#include '../template.wml'
+<subject "Our Wiki" />
+A Wiki is a site that can be freely edited by anybody using a web-browser.
+<a href="<wiki:link />">The Perl-Begin wiki</a> is yours to populate 
+with interersting content. Have fun!

File template.wml

 use MyNavData;
 use Shlomif::NavMenu;
+my $filename = "$(FILENAME)";
+$filename =~ s!index\.html$!!;
+$filename = "/$filename";
 my $nav_bar = Shlomif::NavMenu->new(
-    'path_info' => "$(FILENAME)",
+    'path_info' => $filename,
     'current_host' => "berlios",
 <link rel="stylesheet" href="$(ROOT)/style.css" type="text/css" />
+use CGI qw();
+while (my ($key, $url) = each(%$nav_links))
+    print "<link rel=\"$key\" href=\"" . CGI::escapeHTML($url) . "\" />\n"