lucene-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From gsing...@apache.org
Subject svn commit: r1040560 - in /lucene/cms/trunk: ./ cgi-bin/ content/ lib/ lib/path.pm lib/view.pm templates/
Date Tue, 30 Nov 2010 15:03:45 GMT
Author: gsingers
Date: Tue Nov 30 15:03:45 2010
New Revision: 1040560

URL: http://svn.apache.org/viewvc?rev=1040560&view=rev
Log:
placeholders

Added:
    lucene/cms/trunk/
    lucene/cms/trunk/cgi-bin/
    lucene/cms/trunk/content/
    lucene/cms/trunk/lib/
    lucene/cms/trunk/lib/path.pm   (with props)
    lucene/cms/trunk/lib/view.pm   (with props)
    lucene/cms/trunk/templates/

Added: lucene/cms/trunk/lib/path.pm
URL: http://svn.apache.org/viewvc/lucene/cms/trunk/lib/path.pm?rev=1040560&view=auto
==============================================================================
--- lucene/cms/trunk/lib/path.pm (added)
+++ lucene/cms/trunk/lib/path.pm Tue Nov 30 15:03:45 2010
@@ -0,0 +1,64 @@
+package path;
+use ASF::Value;
+
+# taken from django's url.py
+
+our @patterns = (
+
+    [qr!^/index\.html$!, news_page =>
+      {
+        svn      => ASF::Value::SVN->new(limit => 5),
+        jira     => ASF::Value::Jira->new(limit => 5,
+                                          url => "http://s.apache.org/q4"),
+        announce => ASF::Value::Mail->new(list => 'announce@apache.org',
+                                          limit => 5),
+        planet   => ASF::Value::Blogs->new(blog => "planet", limit=> 5),
+        blog     => ASF::Value::Blogs->new(blog => "foundation", limit=> 5),
+        twitter  => ASF::Value::Twitter->new(name => 'TheASF', limit => 5),
+      },
+    ],
+
+    [qr!^/dev/index\.html$!, news_page =>
+      {
+        svn      => ASF::Value::SVN->new(limit => 5),
+        twitter  => ASF::Value::Twitter->new(name=>"infrabot", limit => 5),
+        blog     => ASF::Value::Blogs->new(blog => "infra", limit=> 5),
+        jira     => ASF::Value::Jira->new(limit => 5,
+                                          url => "http://s.apache.org/lg"),
+      },
+    ],
+
+    [qr!^/dev/sitemap\.html$!, sitemap => { headers => { title => "Developer Sitemap"
}} ],
+
+    [qr!^/licenses/exports/index\.html$!, exports => {} ],
+
+    [qr!\.mdtext$!, single_narrative => { template => "single_narrative.html" }],
+);
+
+
+# for specifying interdependencies between files
+
+our %dependencies = (
+    "/dev/sitemap.html" => [ grep s!^content!!, glob "content/dev/*.mdtext" ],
+);
+
+1;
+
+=head1 LICENSE
+
+           Licensed to the Apache Software Foundation (ASF) under one
+           or more contributor license agreements.  See the NOTICE file
+           distributed with this work for additional information
+           regarding copyright ownership.  The ASF licenses this file
+           to you under the Apache License, Version 2.0 (the
+           "License"); you may not use this file except in compliance
+           with the License.  You may obtain a copy of the License at
+
+             http://www.apache.org/licenses/LICENSE-2.0
+
+           Unless required by applicable law or agreed to in writing,
+           software distributed under the License is distributed on an
+           "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+           KIND, either express or implied.  See the License for the
+           specific language governing permissions and limitations
+           under the License.

Propchange: lucene/cms/trunk/lib/path.pm
------------------------------------------------------------------------------
    svn:eol-style = native

Added: lucene/cms/trunk/lib/view.pm
URL: http://svn.apache.org/viewvc/lucene/cms/trunk/lib/view.pm?rev=1040560&view=auto
==============================================================================
--- lucene/cms/trunk/lib/view.pm (added)
+++ lucene/cms/trunk/lib/view.pm Tue Nov 30 15:03:45 2010
@@ -0,0 +1,197 @@
+package view;
+
+#
+# BUILD CONSTRAINT:  all views must return $content, $extension.
+# additional return values (as seen below) are optional.  However,
+# careful use of symlinks and dependency management in path.pm can
+# resolve most issues with this constraint.
+#
+
+use strict;
+use warnings;
+use Dotiac::DTL qw/Template/;
+use Dotiac::DTL::Addon::markup;
+use ASF::Util qw/read_text_file shuffle/;
+use File::Temp qw/tempfile/;
+use LWP::Simple;
+
+push @Dotiac::DTL::TEMPLATE_DIRS, "templates";
+
+# This is most widely used view.  It takes a
+# 'template' argument and a 'path' argument.
+# Assuming the path ends in foo.mdtext, any files
+# like foo.page/bar.mdtext will be parsed and
+# passed to the template in the "bar" (hash)
+# variable.
+
+sub single_narrative {
+    my %args = @_;
+    my $file = "content$args{path}";
+    my $template = $args{template};
+    $args{path} =~ s/\.mdtext$/\.html/;
+    $args{breadcrumbs} = breadcrumbs($args{path});
+
+    read_text_file $file, \%args;
+
+    my $page_path = $file;
+    $page_path =~ s/\.[^.]+$/.page/;
+    if (-d $page_path) {
+        for my $f (grep -f, glob "$page_path/*.mdtext") {
+            $f =~ m!/([^/]+)\.mdtext$! or die "Bad filename: $f\n";
+            $args{$1} = {};
+            read_text_file $f, $args{$1};
+        }
+    }
+
+    return Dotiac::DTL::Template($template)->render(\%args), html => \%args;
+}
+
+# Has the same behavior as the above for foo.page/bar.txt
+# files, parsing them into a bar variable for the template.
+# Otherwise presumes the template is the path.
+
+sub news_page {
+    my %args = @_;
+    my $template = "content$args{path}";
+    $args{breadcrumbs} = breadcrumbs($args{path});
+
+    my $page_path = $template;
+    $page_path =~ s/\.[^.]+$/.page/;
+    if (-d $page_path) {
+        for my $f (grep -f, glob "$page_path/*.mdtext") {
+            $f =~ m!/([^/]+)\.mdtext$! or die "Bad filename: $f\n";
+            $args{$1} = {};
+            read_text_file $f, $args{$1};
+        }
+    }
+
+    my $count=0;
+    for (fetch_doap_url_list()) {
+        my $result = parse_doap($_);
+        next unless defined $result;
+        push @{$args{projects}}, $result;
+        last if ++$count == 3;
+    }
+
+    return Dotiac::DTL::Template($template)->render(\%args), html => \%args;
+}
+
+sub sitemap {
+    my %args = @_;
+    my $template = "content$args{path}";
+    $args{breadcrumbs} .= breadcrumbs($args{path});
+    my $dir = $template;
+    $dir =~ s!/[^/]+$!!;
+    opendir my $dh, $dir or die "Can't opendir $dir: $!\n";
+    my %data;
+    for (map "$dir/$_", grep $_ ne "." && $_ ne ".." && $_ ne ".svn", readdir
$dh) {
+        if (-f and /\.mdtext$/) {
+            my $file = $_;
+            $file =~ s/^content//;
+            no warnings 'once';
+            for my $p (@path::patterns) {
+                my ($re, $method, $args) = @$p;
+                next unless $file =~ $re;
+                my $s = view->can($method) or die "Can't locate method: $method\n";
+                my ($content, $ext, $vars) = $s->(path => $file, %$args);
+                $file =~ s/\.mdtext$/.$ext/;
+                $data{$file} = $vars;
+                last;
+            }
+        }
+    }
+
+    my $content = "";
+
+    for (sort keys %data) {
+        $content .= "- [$data{$_}->{headers}->{title}]($_)\n";
+        for my $hdr (grep /^#/, split "\n", $data{$_}->{content}) {
+            $hdr =~ /^(#+)\s+([^#]+)?\s+\1\s+\{#([^}]+)\}$/ or next;
+            my $level = length $1;
+            $level *= 4;
+            $content .= " " x $level;
+            $content .= "- [$2]($_#$3)\n";
+        }
+    }
+    $args{content} = $content;
+    return Dotiac::DTL::Template($template)->render(\%args), html => \%args;
+}
+
+sub exports {
+    my %args = @_;
+    my $template = "content$args{path}";
+    $args{breadcrumbs} = breadcrumbs($args{path});
+
+    my $page_path = $template;
+    $page_path =~ s/\.[^.]+$/.page/;
+    if (-d $page_path) {
+        for my $f (grep -f, glob "$page_path/*.mdtext") {
+            $f =~ m!/([^/]+)\.mdtext$! or die "Bad filename: $f\n";
+            $args{$1} = {};
+            read_text_file $f, $args{$1};
+        }
+        $args{table} = `xsltproc $page_path/eccnmatrix.xsl $page_path/eccnmatrix.xml`;
+
+    }
+
+    return Dotiac::DTL::Template($template)->render(\%args), html => \%args;
+}
+
+sub parse_doap {
+    my $url = shift;
+    my $doap = get $url or die "Can't get $url: $!\n";
+    my ($fh, $filename) = tempfile("XXXXXX");
+    print $fh $doap;
+    close $fh;
+    my $result = eval `xsltproc lib/doap2perl.xsl $filename`;
+    unlink $filename;
+    return undef if $result->{pmc} =~ m!^http://attic\.apache\.org!;
+    return $result;
+}
+
+sub fetch_doap_url_list {
+    my $xml = get "http://svn.apache.org/repos/asf/infrastructure/site-tools/trunk/projects/files.xml"
+        or die "Can't get doap file list: $!\n";
+    my ($fh, $filename) = tempfile("XXXXXX");
+    print $fh $xml;
+    close $fh;
+    chomp(my @urls = grep /^http/, `xsltproc lib/list2urls.xsl $filename`);
+    unlink $filename;
+    shuffle \@urls;
+    return @urls;
+}
+
+1;
+
+sub breadcrumbs {
+    my @path = split m!/!, shift;
+    pop @path;
+    my @rv;
+    my $relpath = "";
+    for (@path) {
+        $relpath .= "$_/";
+        $_ ||= "Home";
+        push @rv, qq(<a href="$relpath">\u$_</a>);
+    }
+    return join "&nbsp;&raquo&nbsp;", @rv;
+}
+
+
+=head1 LICENSE
+
+           Licensed to the Apache Software Foundation (ASF) under one
+           or more contributor license agreements.  See the NOTICE file
+           distributed with this work for additional information
+           regarding copyright ownership.  The ASF licenses this file
+           to you under the Apache License, Version 2.0 (the
+           "License"); you may not use this file except in compliance
+           with the License.  You may obtain a copy of the License at
+
+             http://www.apache.org/licenses/LICENSE-2.0
+
+           Unless required by applicable law or agreed to in writing,
+           software distributed under the License is distributed on an
+           "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+           KIND, either express or implied.  See the License for the
+           specific language governing permissions and limitations
+           under the License.

Propchange: lucene/cms/trunk/lib/view.pm
------------------------------------------------------------------------------
    svn:eol-style = native



Mime
View raw message