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 https://seed1.projectlocker.com/shlomif/svn/homepage/trunk :
;;; TODO : abstract.
<:{
    use utf8;

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

        binmode STDOUT, ":utf8";

        $cb->();

        binmode STDOUT, ":raw";
    }

}:>

<define-tag latemp_get_breadcrumbs_trail_unconditionally>
<:{
    _wrap_as_utf8(
        sub {
            print $leading_path_string;
        }
    );
}:>
</define-tag>
<define-tag latemp_get_nav_menu_html>
<:{

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

}:>
</define-tag>


<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>


<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 />
</define-tag>

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


<set-var openstudy_group_url="http://openstudy.com/study-groups/Perl+For+Beginners+-+Perl-begin.org" />

<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>
</p>

</define-tag>

<latemp_affiliations_buttons>
# <affil_collection_berlios />
<!-- DuckDuckGo Search -->
<iframe src="http://duckduckgo.com/search.html?width=100&amp;site=perl-begin.org&amp;prefill=Search%20DuckDuckGo" style="overflow:hidden;margin:0;padding:0;width:160px;height:40px;" frameborder="0"></iframe>
<openstudy_button />

</latemp_affiliations_buttons>

<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">
{#PERL_BEGIN_NEWS#:%body:##}
</define-tag>

<define-tag perl_begin_sidebar endtag="required" whitespace="delete">
{#!PERL_BEGIN_SIDEBAR!#:%body:##}
</define-tag>

<define-tag latemp_before_body endtag="required" whitespace="delete">
{#LATEMP_BEFORE_BODY#:%body:##}
</define-tag>

<latemp_before_body>
<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
Perl.
</div>
</latemp_before_body>

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

      {#PERL_BEGIN_NEWS#}

    </div>
    <!-- END WRAP CONTENT AND SIDEBAR -->
</perl_begin_sidebar>

<define-tag latemp_theme_breadcrumbs_trail_html>
<latemp_get_breadcrumbs_trail_unconditionally />
</define-tag>

<latemp_extra_head_elements>
<script type="text/javascript" src="$(ROOT)/js/jq.js"></script>
<script type="text/javascript" src="$(ROOT)/js/position_divs.js"></script>
{#PAGE_EXTRA_HEAD_ELEMENTS#}
</latemp_extra_head_elements>

<define-tag page_extra_head_elements endtag="required" whitespace="delete">
{#PAGE_EXTRA_HEAD_ELEMENTS#:%body:##}
</define-tag>

<latemp_license>
<!-- Creative Commons License -->
This work is <b>licensed</b> under the <a rel="license"
href="http://creativecommons.org/licenses/by/3.0/">Creative Commons
Attribution 3.0 Unported License</a> (or at your option any later
version).<br />
<!-- /Creative Commons License -->

<!--

<rdf:RDF xmlns="http://web.resource.org/cc/"
    xmlns:dc="http://purl.org/dc/elements/1.1/"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
<Work rdf:about="">
   <dc:title>Better SCM Site Contents</dc:title>
   <dc:date>2004</dc:date>
   <dc:description>A Version Control Systems Information and Advocacy carrying site</dc:description>
   <dc:creator><Agent>
      <dc:title>Shlomi Fish</dc:title>
   </Agent></dc:creator>
   <dc:rights><Agent>
      <dc:title>Shlomi Fish</dc:title>
   </Agent></dc:rights>
   <dc:type rdf:resource="http://purl.org/dc/dcmitype/Text" />
   <license rdf:resource="http://creativecommons.org/licenses/by/2.0/" />
</Work>

<License rdf:about="http://creativecommons.org/licenses/by/2.0/">
   <permits rdf:resource="http://web.resource.org/cc/Reproduction" />
   <permits rdf:resource="http://web.resource.org/cc/Distribution" />
   <requires rdf:resource="http://web.resource.org/cc/Notice" />
   <requires rdf:resource="http://web.resource.org/cc/Attribution" />
   <permits rdf:resource="http://web.resource.org/cc/DerivativeWorks" />
</License>

</rdf:RDF>

-->
</latemp_license>

<latemp_webmaster>
<b>Webmaster:</b> <a href="http://www.shlomifish.org/">Shlomi Fish</a> (<a href=
"mailto:shlomif@shlomifish.org">Email - shlomif@shlomifish.org</a>)<br />
<b>Original Design:</b> <a href="http://www.oswd.org/design/preview/id/2933">GoFlexiblePro</a>
| Author: <a href="mailto:gw@actamail.com">G. Wolfgang</a>
|  <a href="http://validator.w3.org/check?uri=referer" title="Validate code as W3C XHTML 1.1 Strict Compliant">W3C XHTML 1.1</a>
| <a href="http://jigsaw.w3.org/css-validator/" title="Validate Style Sheet as W3C CSS 2.0 Compliant">W3C CSS 2.0</a>
<br />
<b>Hosted by:</b> <a href="http://hexten.net/">Hexten.net</a>.
<script type="text/javascript" src="$(ROOT)/js/selfl.js"></script>
</latemp_webmaster>

<body{#LATEMP_BODY_ATTRIBUTES#}>

  <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>
      <div class="site-slogan" id="js-site-slogan">
          Perl - because programming should be fun.
      </div>

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

    </div>

    <!-- Main navigation -->
    <div class="nav-main">
      <h3 class="hide">Breadcrumbs Trail</h3>
      <p class="breadcrumbs">
      <latemp_get_breadcrumbs_trail />
      </p>
      <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>
      </ul>

    </div>

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

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

        {#LATEMP_BEFORE_BODY#}
        {#LATEMP_BODY#}
        <share_this_button />
    </div>

    {#PERL_BEGIN_SIDEBAR#}

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

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

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

<define-tag site_link whitespace="delete">
<preserve url />
<set-var %attributes />
http://perl-begin.org/<get-var url />
<restore url />
</define-tag>

<define-tag wiki_link whitespace="delete">
<preserve url />
<set-var %attributes />
<ifeq "<get-var url />" ""
    "<set-var url="" />"
    "<set-var url="/<get-var url />" />"
    />
http://perl.net.au/wiki/Beginners<get-var url />
<restore url />
</define-tag>

<define-tag mailing_list_link whitespace="delete">
https://lists.berlios.de/mailman/listinfo/perl-begin-help
</define-tag>

<define-tag web_forum_link whitespace="delete">
http://developer.berlios.de/forum/forum.php?forum_id=2341
</define-tag>

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

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

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

<perl_begin_news>
<perl_begin_news_boxes />
</perl_begin_news>

<define-tag cpan_mod whitespace="delete" endtag="required">
<preserve m />
<set-var %attributes />
<a href="http://search.cpan.org/perldoc?<get-var m />">%body</a>
<restore m />
</define-tag>

<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>

<define-tag cpan_dist whitespace="delete" endtag="required">
<preserve d />
<set-var %attributes />
<a href="http://search.cpan.org/dist/<get-var d />/">%body</a>
<restore d />
</define-tag>

<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>

<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 />
</define-tag>

#   per default we are in body
{#LATEMP_BODY#:
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.