svn commit: r1579203 - in /thrift/cms-site/trunk/lib: path.pm view.pm

[joes]

Author: joes
Date: Wed Mar 19 12:13:58 2014
New Revision: 1579203

URL: http://svn.apache.org/r1579203
Log:
sketch snippet preprocessor support

Modified:
    thrift/cms-site/trunk/lib/path.pm
    thrift/cms-site/trunk/lib/view.pm

Modified: thrift/cms-site/trunk/lib/path.pm
URL: 
http://svn.apache.org/viewvc/thrift/cms-site/trunk/lib/path.pm?rev=1579203&r1=1579202&r2=1579203&view=diff
==============================================================================
--- thrift/cms-site/trunk/lib/path.pm (original)
+++ thrift/cms-site/trunk/lib/path.pm Wed Mar 19 12:13:58 2014
@@ -2,7 +2,6 @@ package path;
 use YAML::XS;
 use File::Find;
 use Cwd;
-use ASF::Util qw/read_text_file/;
 use strict;
 use warnings;
 
@@ -43,30 +42,6 @@ find({ wanted => sub {
            }
        }, no_chdir => 1 }, cwd() . "/content");
 
-sub thrift_preprocessor {
-    my %args = @_;
-    my $file = "content$args{path}";
-    return @{$args{memo}->{$file}} if exists $args{memo} and exists 
$args{memo}->{$file};
-    read_text_file $file, \%args;
-    delete $args{header};
-
-    my $key = "_a";
-    my $url_template = $args{conf}->{snippet_url};
-    $args{content} =~ s{\[XXXsnippet:([^\]]+)\]}
-                       {
-                           my $template = $1;
-                           my %a = map {split /=/} split /:/, $template;
-                           $args{$key} = ASF::Value::Snippet->new(template => 
$url_template, %a);
-                           $key++ . ".list.$a{index}";
-                       }ge;
-
-    my @rv = view->can($args{view})->(%args);
-    $args{memo}->{$file} = \@rv if exists $args{memo};
-    return @rv;
-}
-
-
-
 1;
 
 

Modified: thrift/cms-site/trunk/lib/view.pm
URL: 
http://svn.apache.org/viewvc/thrift/cms-site/trunk/lib/view.pm?rev=1579203&r1=1579202&r2=1579203&view=diff
==============================================================================
--- thrift/cms-site/trunk/lib/view.pm (original)
+++ thrift/cms-site/trunk/lib/view.pm Wed Mar 19 12:13:58 2014
@@ -1,4 +1,30 @@
 package view;
 # see https://svn.apache.org/repos/infra/websites/cms/build/lib/ASF/View.pm
 use base 'ASF::View';
+use ASF::Util qw/read_text_file/;
+use strict;
+use warnings;
+
+sub thrift_preprocessor {
+    my %args = @_;
+    my $file = "content$args{path}";
+    return @{$args{memo}->{$file}} if exists $args{memo} and exists 
$args{memo}->{$file};
+    read_text_file $file, \%args;
+    delete $args{header};
+
+    my $key = "_a";
+    my $url_template = $args{conf}->{snippet_url};
+    $args{content} =~ s{\[XXXsnippet:([^\]]+)\]}
+                       {
+                           my $template = $1;
+                           my %a = map {split /=/} split /:/, $template;
+                           $args{$key} = ASF::Value::Snippet->new(template => 
$url_template, %a);
+                           $key++ . ".list.$a{index}";
+                       }ge;
+
+    my @rv = view->can($args{view})->(%args);
+    $args{memo}->{$file} = \@rv if exists $args{memo};
+    return @rv;
+}
+
 1;