perl-begin / template.wml

<set-var latemp_navmenu_object_class="HTML::Widgets::NavMenu::HeaderRole" />
<set-var latemp_with_xml_declaration="1" />
<set-var latemp_html_standard="xhtml1.1" />
<set-var latemp_with_head_meta_tags="1" />
<set-var latemp_with_favicon="1" />
<set-var latemp_with_breadcrumbs_trail="1" />

#include "latemp/latemp-prelude.wml"

;;; Copied from :
;;; TODO : abstract.
    use utf8;

    sub _wrap_as_utf8 {
        my ($cb) = @_;

        binmode STDOUT, ":utf8";


        binmode STDOUT, ":raw";


<define-tag latemp_get_breadcrumbs_trail_unconditionally>
        sub {
            print $leading_path_string;
<define-tag latemp_get_nav_menu_html>

    _wrap_as_utf8( sub {
        print join("\n", @$nav_html);


<define-tag latemp_get_html_head_nav_links>
my @keys = (sort { $a cmp $b } keys(%$nav_links_obj));
foreach my $key (@keys)
    my $val = $nav_links_obj->{$key};
    my $url = CGI::escapeHTML($val->direct_url());
    my $title = $val->title();
    _wrap_as_utf8( sub {
        print "<link rel=\"$key\" href=\"$url\" title=\"$title\" />\n";

<define-tag latemp_get_html_body_nav_links_helper>
<preserve with_accesskey />
<set-var %attributes />
    my $with_accesskey = "<get-var with_accesskey />";
    my @params;
    if ($with_accesskey ne "")
        push @params, ('with_accesskey' => $with_accesskey);
    _wrap_as_utf8(sub {
        print $nav_links_renderer->get_total_html(@params);
<restore with_accesskey />

# #include "shlomif/affiliations.wml"
#include "news.wml"
#include "share-this.wml"

<set-var openstudy_group_url="" />

<define-tag openstudy_button>

<p class="study_group">
<a href="<get-var openstudy_group_url />"
title="Study group for Perl Beginners: ask questions, get answers and share studypads"><img
src="$(ROOT)/images/study-group.png" alt="Join the Study Group" /></a>


# <affil_collection_berlios />
<!-- DuckDuckGo Search -->
<object data=";;prefill=Search%20DuckDuckGo" type="text/html" style="overflow:hidden;margin:0;padding:0;width:160px;height:40px;"></object>
<openstudy_button />


<latemp_common_keywords "Perl, Perl 5, perl, begin, beginners, tutorials, tutorial, introductory, books, beginner, start, learn, learning, introduction, newbie, newbies, newcomer, newcomers" />

<latemp_lang "en-US" />
<latemp_encoding "utf-8" />
<latemp_init_h_w_navmenu />

<latemp_html_header />
<latemp_html_head_tag />

<define-tag perl_begin_news endtag="required" whitespace="delete">

<define-tag perl_begin_sidebar endtag="required" whitespace="delete">

<define-tag latemp_before_body endtag="required" whitespace="delete">

<div class="full_width_notice">
<b><a href="$(ROOT)/learn/">Learn Perl Now!</a></b><br />
And <a href="$(ROOT)/learn/get-a-job/">get a job</a> doing

    <!-- SIDEBAR -->
    <h3 class="hide">Sidebar</h3>
    <div id="right-sidebar">



<define-tag latemp_theme_breadcrumbs_trail_html>
<latemp_get_breadcrumbs_trail_unconditionally />

<define-tag perl_begin__project_wonderful_sidebar_ad_box_code>
<!-- Project Wonderful Ad Box Code -->
<div id="pw_adbox_67890_3_0"></div>
<!-- End Project Wonderful Ad Box Code -->

<script type="text/javascript" src="$(ROOT)/js/jq.js"></script>
<script type="text/javascript" src="$(ROOT)/js/position_divs.js"></script>
<!-- Project Wonderful Ad Box Loader -->
<script type="text/javascript">
   (function(){function pw_load(){
      if(arguments.callee.z)return;else arguments.callee.z=true;
      var d=document;var s=d.createElement('script');
      var x=d.getElementsByTagName('script')[0];
   if (window.attachEvent){
<!-- End Project Wonderful Ad Box Loader -->

<define-tag page_extra_head_elements endtag="required" whitespace="delete">

<!-- Creative Commons License -->
This work is <b>licensed</b> under the <a rel="license"
href="">Creative Commons
Attribution 3.0 Unported License</a> (or at your option any later
version).<br />
<!-- /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="" />



<b>Webmaster:</b> <a href="">Shlomi Fish</a> (<a href=
"">Email -</a>)<br />
<b>Original Design:</b> <a href="">GoFlexiblePro</a>
| Author: <a href="">G. Wolfgang</a>
|  <a href="" title="Validate code as W3C XHTML 1.1 Strict Compliant">W3C XHTML 1.1</a>
| <a href="" title="Validate Style Sheet as W3C CSS 2.0 Compliant">W3C CSS 2.0</a>
<br />
<b>Hosted by:</b> <a href=""></a>.
<script type="text/javascript" src="$(ROOT)/js/selfl.js"></script>


  <div id="page-container">

    <!-- HEADER -->
    <!-- Global Navigation -->
    <div id='header'>

<!-- Sitename and Banner -->
      <div class="site-name" id="js-site-name">
        <h1><a href="$(ROOT)/">Perl Beginners' Site</a></h1>
      <div class="site-slogan" id="js-site-slogan">
          Perl - because programming should be fun.

#     <div><img class="img-header" src="$(ROOT)/images/header.jpg" alt=""/></div>


    <!-- Main navigation -->
    <div class="nav-main">
      <h3 class="hide">Breadcrumbs Trail</h3>
      <p class="breadcrumbs">
      <latemp_get_breadcrumbs_trail />
      <h3 class="hide">Global Navigation</h3>
      <ul class="about-links">
        <li><a href="$(ROOT)/about.html">About Us</a></li>
        <li><a href="$(ROOT)/contact/">Contact</a></li>


    <h3 class="hide">Main Navigation</h3>
    <div id="left-sidebar">
      <latemp_get_nav_menu_html />
      <latemp_affiliations_buttons_text />
      <perl_begin__project_wonderful_sidebar_ad_box_code />

    <!--   CONTENT -->
    <h3 class="hide">Content</h3>
    <div id="content">
        <!-- Page title -->
        <latemp_default_h1_tag />

        <share_this_button />


    <!-- FOOTER -->
    <h3 class="hide">Footer</h3>
    <div id="footer">
        <latemp_license_text />
        <latemp_webmaster_text />

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

<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="" />"
    "<set-var url="/<get-var url />" />"
    /><get-var url />
<restore url />

<define-tag mailing_list_link whitespace="delete">

<define-tag web_forum_link whitespace="delete">

<define-tag pdoc whitespace="delete" endtag="required">
<preserve d />
<set-var %attributes />
<a href="<get-var d />.html"><get-var d/>%body</a>
<restore d />

<define-tag pdoc_f whitespace="delete" endtag="required">
<preserve f />
<set-var %attributes />
<a href="<get-var f />.html">%body</a>
<restore f />

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

<perl_begin_news_boxes />

<define-tag cpan_mod whitespace="delete" endtag="required">
<preserve m />
<set-var %attributes />
<a href="<get-var m />">%body</a>
<restore m />

<define-tag cpan_self_mod whitespace="delete">
<preserve m />
<set-var %attributes />
<cpan_mod m="<get-var m />"><get-var m /></cpan_mod>
<restore m />

<define-tag cpan_dist whitespace="delete" endtag="required">
<preserve d />
<set-var %attributes />
<a href="<get-var d />">%body</a>
<restore d />

<define-tag cpan_self_dist whitespace="delete">
<preserve d />
<set-var %attributes />
<cpan_dist d="<get-var d />"><get-var d /></cpan_dist>
<restore d />

<define-tag cpan_b_self_dist whitespace="delete">
<preserve d />
<set-var %attributes />
<cpan_dist d="<get-var d />"><b><get-var d /></b></cpan_dist>
<restore d />

#   per default we are in body