Commits

Anonymous 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

Comments (0)

Files changed (4)

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

+#include '../template.wml'
+
+<subject "Our Mailing List" />
+
+<p>
+Archives, Usage information, and settings (for people who are subscribed)
+for our mailing list can be found in 
+<a href="https://lists.berlios.de/mailman/listinfo/perl-begin-help">its Mailman 
+Page</a>.
+</p>
+<p>
+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>.
+</p>
+

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

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

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

+#include '../template.wml'
+
+<subject "Our Wiki" />
+
+<p>
+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!
+</p>
+

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",
     MyNavData::get_params(),
     );
 <head>
 <title>{#SUBJECT_LOC#}</title>
 <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"
+}
+}:>
 </head>
 <body>