Changeset 98

Timestamp:

09/23/06 00:20:10 (2 years ago)

Author:

bchoate

Message:

1.01 updates.

Files:

• trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/App/FeedsWidget.pm (modified) (11 diffs)
• trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Find.pm (modified) (1 diff)
• trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Lite.pm (modified) (2 diffs)
• trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Lite/CacheMgr.pm (modified) (1 diff)
• trunk/feeds-app-lite/plugins/feeds-app-lite/mt-feeds.pl (modified) (11 diffs)
• trunk/feeds-app-lite/plugins/feeds-app-lite/tmpl/select.tmpl (modified) (1 diff)

trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/App/FeedsWidget.pm

@@ +1 @@
+# Copyright 2002-2006 Appnel Internet Solutions, LLC
+# This code is distributed with permission by Six Apart
-package MT::App::FeedsWidget;
-use strict;
@@ -13 +15 @@
-                      save     => \&save
-    );
+    my %param = @_;
-    $app->{default_mode}   = 'start';
-template_dir}   = 'cms
-plugins_dir}    = 'feeds-app-l
+plugins_dir}    = $param{FeedsAppDirectory} || 'feeds-app-lite
+feedsapp}       = $param{FeedsAppName} || 'Feeds.App L
-    $app->{requires_login} = 1;
-    $app->{user_class}     = 'MT::Author';
-
-
+
+
+
+
+
+
-    $app;
-}
@@ -32 +39 @@
-    $p->{need_uri} = $app->param('need_uri');
-    $p->{help_url} = $app->{help_url};
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    $app->{breadcrumbs}[-1]{is_last} = 1;
@@ -58 +77 @@
-        $p->{not_found}  = 1;
-        $p->{wizard_uri} = $app->uri . '?blog_id=' . $blog_id;
-       
+
-        if ($app->wm_url) {
-       
-           $p->{wm_is}
+        
+            $p->{wm_is} 
-        }
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        return $app->build_page("msg.tmpl", $p);
-    } elsif (@feeds == 1) {    # skip to the next step if only one choice
@@ -75 +107 @@
-    }
-    MT::Util::mark_odd_rows(\@feeds);
-
+   
-    $p->{help_url} = $app->{help_url};
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    $app->build_page("select.tmpl", $p);
-}
@@ -100 +144 @@
-        $p->{wizard_uri} = $app->uri . '?blog_id=' . $blog_id;
-        $p->{uri}        = $uri;
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        if ($app->wm_url) {
-       
-           $p->{wm_is}
+        
+            $p->{wm_is} 
-        }
-        return $app->build_page("msg.tmpl", $p);
-    }
-    $p->{feed_title} = $feed->find_title($feed->feed) || $uri;
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    $app->build_page("config.tmpl", $p);
-}
@@ -131 +200 @@
-    my $lastn = $app->param('lastn');
-    my $title = $app->param('feed_title');
-
-
-
-
+
+
+
+
+
-    require MT::Template;
-
+ = 0
-    map { $_->remove } MT::Template->load({blog_id => '', type => 'custom'});
-    while (
@@ -144 +214 @@
-      ) {
-        $i++;
-
+
+
+
-    }
-    my $tmpl = MT::Template->new;
@@ -158 +230 @@
-<h2 class="module-header">$title</h2>
-<ul><MTFeedEntries$lastn>
-MTFeedEntryLink>"><MTFeedEntryTitle encode_html="1"
+\$MTFeedEntryLink encode_html="1"\$>"><\$MTFeedEntryTitle\$
-</MTFeedEntries></ul>
-</MTFeed>
@@ -171 +243 @@
-    $p->{wizard_uri} = $app->uri . '?blog_id=' . $blog_id;
-    $p->{uri}        = $uri;
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    if ($app->wm_url) {
-        $p->{wm_url} = $app->wm_url . '?blog_id=' . $blog_id;
-
+ 
-    }
-    $p->{help_url} = $app->{help_url};
@@ -186 +270 @@
-    my $app = shift;
-    eval { require WidgetManager::App; };
-    # if { MT::Plugin::WidgetManager::VERSION } is better
-
-    unless ($@) {
- Directory => $app->config_dir 
+Directory => $app->config_dir
-        return $wm->{script_url};
-    }

trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Find.pm

@@ -1 @@
-
-
+
+
+
-use strict;
-

trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Lite.pm

@@ +1 @@
+# Copyright 2002-2006 Appnel Internet Solutions, LLC
+# This code is distributed with permission by Six Apart
-package MT::Feeds::Lite;
-use strict;
@@ -83 +85 @@
-    my ($class, $xml) = @_;
-    my $self = bless {}, $class;
-
+   
-    require XML::Elemental;
-    require XML::Elemental::Util;

trunk/feeds-app-lite/plugins/feeds-app-lite/lib/MT/Feeds/Lite/CacheMgr.pm

@@ +1 @@
+# Copyright 2002-2006 Appnel Internet Solutions, LLC
+# This code is distributed with permission by Six Apart
-package MT::Feeds::Lite::CacheMgr;
-use strict;

trunk/feeds-app-lite/plugins/feeds-app-lite/mt-feeds.pl

@@ +1 @@
+# Copyright 2002-2006 Appnel Internet Solutions, LLC
+# This code is distributed with permission by Six Apart
-package MT::FeedsLite;
-use strict;
-
-use vars qw($VERSION);
-
+1
-
-my $plugin = MT::Plugin::FeedsLite->new;
-MT->add_plugin($plugin);
-
-
-
+          
+ 
-
-use MT::Template::Context;
@@ -24 +26 @@
-use constant ENTRY => 'MT::Plugin::FeedsLite::entry';
-
+# Returns link if okay, "#" if not.
+sub sanitize_link {
+    my $link = shift;
+    $link = '' unless defined $link;
+    $link =~ s/^\s+//;
+    # check for malicious protocols
+    require MT::Util;
+    my $dec_val = MT::Util::decode_html($link);
+    $dec_val =~ s/&#0*58(?:=;|[^0-9])/:/;
+    $dec_val =~ s/&#x0*3[Aa](?:=;|[^a-fA-F0-9])/:/;
+    if ((my $prot) = $dec_val =~ m/^(.+?):/) {
+        return "#" if $prot =~ m/[\r\n\t]/;
+        $prot =~ s/\s+//gs;
+        return "#" if $prot =~ m/[^a-zA-Z0-9\+]/;
+        return "#" if $prot =~ m/script$/i;
+    }
+    return "#" unless $link =~ m/^https?:/i;
+    $link;
+}
+
-sub feed {
-    my ($ctx, $args, $cond) = @_;
@@ -29 +51 @@
-      or return
-      $ctx->error(
-MT
-
+$plugin
+s
-         )
-      );
@@ -48 +70 @@
-
-sub feed_title {
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
@@ -58 +89 @@
-    my $lite = $ctx->stash(LITE)
-      or return _error($ctx);
-
+
+
-}
-
@@ -83 +115 @@
-
-sub entry_title {
-$ctx  = shift
+($ctx, $args, $cond) = @_
-    my $lite = $ctx->stash(LITE)
-      or return _error($ctx);
-    my $entry = $ctx->stash(ENTRY)
-      or return _error($ctx);
-
+
+
+
+
+
+
+
+
+
-}
-
@@ -97 +137 @@
-    my $entry = $ctx->stash(ENTRY)
-      or return _error($ctx);
-
+
+
-}
-
@@ -105 +146 @@
-      or return
-      $ctx->error(
-MT
+$plugin
-                                "'[_1]' is a required argument of [_2]", 'uri',
-                                'MTFeedInclude'
@@ -113 +154 @@
-    my $body  = <<BODY;
-<MTFeed uri="$uri">
-MTFeedTitle encode_html="1"
+\$MTFeedTitle\$
-<ul><MTFeedEntries$lastn>
-MTFeedEntryLink>"><MTFeedEntryTitle encode_html="1"
+\$MTFeedEntryLink encode_html="1"\$>"><\$MTFeedEntryTitle\$
-</MTFeedEntries></ul>
-</MTFeed>
@@ -130 +171 @@
-
-sub _error {
-MT
+$plugin
-                 $_[0]->stash('tag')));
-}
@@ -160 +201 @@
-    my $blog_id = $scope;
-    $blog_id =~ s{\D}{}g;
-
+   
-    $param->{wizard_uri} = $plugin->envelope . '/index.cgi';
-}

trunk/feeds-app-lite/plugins/feeds-app-lite/tmpl/select.tmpl

@@ -3 +3 @@
-<h2><MT_TRANS phrase="Feeds.App Lite Widget Creator"></h2>
-
-l
+L
-
-<form method="post" action="<TMPL_VAR NAME=SCRIPT_URL>">