# WeblogsActionMenu.pl # WeblogsActionMenu plugin for Movable Type # by Kevin Shay # http://www.staggernation.com/mtplugins/WeblogsActionMenu/ use strict; package MT::Plugin::WeblogsActionMenu; use vars qw( $VERSION ); $VERSION = '1.1'; require MT::Plugin; require MT; my $plugin = MT::Plugin->new({ name => "WeblogsActionMenu", description => 'Jump directly to a specific action for a different weblog.', doc_link => 'http://www.staggernation.com/mtplugins/WeblogsActionMenu/', author_name => 'Kevin Shay', author_link => 'http://www.staggernation.com/', version => $VERSION }); MT->add_plugin($plugin); #MT->add_callback('bigpapi::template', 9, $plugin, \&_template); MT->add_callback('MT::App::CMS::AppTemplateSource', 9, $plugin, \&_template); sub _template { my ($cb, $app, $template) = @_; my $old = qq{}; $old = quotemeta($old); my $new = < HTML $$template =~ s/$old/$new/; $old = 'window.location.href=this.value;'; $old = quotemeta($old); $new = 'blog_menu_change(this.value);'; $$template =~ s/$old/$new/; } 1;