Author: joes
Date: Tue Jul 10 20:56:13 2012
New Revision: 1359894
URL: http://svn.apache.org/viewvc?rev=1359894&view=rev
Log:
simplify to trigger build
Modified:
shindig/site/trunk/cms/trunk/lib/view.pm
Modified: shindig/site/trunk/cms/trunk/lib/view.pm
URL:
http://svn.apache.org/viewvc/shindig/site/trunk/cms/trunk/lib/view.pm?rev=1359894&r1=1359893&r2=1359894&view=diff
==============================================================================
--- shindig/site/trunk/cms/trunk/lib/view.pm (original)
+++ shindig/site/trunk/cms/trunk/lib/view.pm Tue Jul 10 20:56:13 2012
@@ -1,177 +1,8 @@
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};
- }
- }
-
- for ((fetch_doap_url_list())[0..2]) {
- push @{$args{projects}}, parse_doap($_);
- }
-
- 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 $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;
-}
+use base 'ASF::View';
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 " » ", @rv;
-}
-
-
=head1 LICENSE
Licensed to the Apache Software Foundation (ASF) under one
