package MT::Plugin::PresetTemplates;

use strict;
use MT;
use MT::Template::Context;
use MT::Builder;
use Data::Dumper;
use base qw(MT::Plugin);

our $VERSION = "0.01";
our %defaults;

my $plugin = MT::Plugin::PresetTemplates->new({
    name => __PACKAGE__,
    version => $VERSION,
    description => "",
    author_name => "milano",
    author_link => "http://rebecca.ac/milano/mt/",
    doc_link => "http://rebecca.ac/milano/mt/",
    config_template => \&template,
    settings => MT::PluginSettings->new([
        ['recently_commented' => { Default => MT->translate_templatized($defaults{recently_commented}) }],
        ['recently_pinged' => { Default => MT->translate_templatized($defaults{recently_pinged}) }],
        ['recently_pinged_with_title' => { Default => MT->translate_templatized($defaults{recently_pinged_with_title}) }],
        ['calendar' => { Default => MT->translate_templatized($defaults{calendar}) }],
        ['pulldown_archives' => { Default => MT->translate_templatized($defaults{pulldown_archives}) }],
    ]),
});

MT->add_plugin($plugin);
MT->add_plugin_action('list_template', '../../mt.cgi?__mode=list_plugins', __PACKAGE__ . ' plugin');

sub instance { $plugin }

MT::Template::Context->add_tag(
    "PresetRecentlyCommented" => \&PresetRecentlyCommented);
MT::Template::Context->add_tag(
    "PresetRecentlyPinged" => \&PresetRecentlyPinged);
MT::Template::Context->add_tag(
    "PresetRecentlyPingedWithTitle" => \&PresetRecentlyPingedWithTitle);
MT::Template::Context->add_tag(
    "PresetCalendar" => \&PresetCalendar);
MT::Template::Context->add_tag(
    "PresetPulldownArchives" => \&PresetPulldownArchives);

sub PresetCommon {
    my ($ctx, $tmpl) = @_;

    my $out;
    my $build = $ctx->stash('builder');
    my $tokens = $build->compile($ctx, $tmpl)
        or die $build->errstr;
    defined($out = $build->build($ctx, $tokens))
        or die $build->errstr;
    return $out;
}

sub PresetRecentlyCommented {
    my ($ctx, $args) = @_;
    my $config = MT::Plugin::PresetTemplates->instance->get_config_hash;
    return PresetCommon($ctx, $config->{recently_commented});
}

sub PresetRecentlyPinged {
    my ($ctx, $args) = @_;
    my $config = MT::Plugin::PresetTemplates->instance->get_config_hash;
    return PresetCommon($ctx, $config->{recently_pinged});
}

sub PresetRecentlyPingedWithTitle {
    my ($ctx, $args) = @_;
    my $config = MT::Plugin::PresetTemplates->instance->get_config_hash;
    return PresetCommon($ctx, $config->{recently_pinged_with_title});
}

sub PresetCalendar {
    my ($ctx, $args) = @_;
    my $config = MT::Plugin::PresetTemplates->instance->get_config_hash;
    return PresetCommon($ctx, $config->{calendar});
}

sub PresetPulldownArchives {
    my ($ctx, $args) = @_;
    my $config = MT::Plugin::PresetTemplates->instance->get_config_hash;
    return PresetCommon($ctx, $config->{pulldown_archives});
}

sub template {
    my $tmpl = <<'EOT';
<h3>Recently Comment Template</h3>
<textarea rows="10" name="recently_commented"><TMPL_VAR NAME=recently_commented escape=html></textarea><br />
<br />
<h3>Recently Comment Template</h3>
<textarea rows="10" name="recently_pinged"><TMPL_VAR NAME=recently_pinged escape=html></textarea><br />
<br />
<h3>Recently Comment Template With Title (require <a href="http://www.sixapart.com/pronet/plugins/plugin/pingedentry.html">PingedEntry plugin</a>)</h3>
<textarea rows="10" name="recently_pinged_with_title"><TMPL_VAR NAME=recently_pinged_with_title escape=html></textarea><br />
<br />
<h3>Calendar Template</h3>
<textarea rows="10" name="calendar"><TMPL_VAR NAME=calendar escape=html></textarea><br />
<br />
<h3>Pulldown Archives Template</h3>
<textarea rows="10" name="pulldown_archives"><TMPL_VAR NAME=pulldown_archives escape=html></textarea><br />
<br />
EOT
}

BEGIN {
%defaults = (
    recently_commented => <<'EOT',
<div class="module-archives module">
   <h2 class="module-header"><MT_TRANS phrase="Most Recent Comment"></h2>
   <div class="module-content">
      <ul class="module-list">
         <MTEntries recently_commented_on="10" sort_order="ascend">
         <li class="module-list-item"><a href="<$MTEntryPermalink$>"><$MTEntryTitle$></a></li>
         <ul class="module-list">
            <MTComments lastn="10">
            <li class="module-list-item"><MTCommentAuthor><br /><MTCommentDate format="%Y/%m/%d %H:%M"></li>
            </MTComments>
         </ul>
         </MTEntries>
      </ul>
   </div>
</div>
EOT
    recently_pinged => <<'EOT',
<div class="module-archives module">
   <h2 class="module-header"><MT_TRANS phrase="Five Most Recent TrackBacks"></h2>
   <div class="module-content">
      <ul class="module-list">
         <MTPings lastn="7" sort_order="descend">
         <li class="module-list-item"><a href="<$MTPingURL$>" target="_blank"><$MTPingBlogName$></a><br />
         <$MTPingDate format="%Y/%m/%d %H:%M"$></li>
         </MTPings>
      </ul>
   </div>
</div>
EOT
    recently_pinged_with_title => <<'EOT',
<div class="module-archives module">
   <h2 class="module-header"><MT_TRANS phrase="Five Most Recent TrackBacks"></h2>
   <div class="module-content">
      <ul class="module-list">
         <MTPings lastn="7" sort_order="descend">
         <li class="module-list-item">To:<MTPingedEntry><a href="<$MTPingedEntryLink$>"><$MTPingedEntryTitle$></a></MTPingedEntry><br />
From:<a href="<$MTPingURL$>" target="_blank"><$MTPingBlogName$></a><br />
         <$MTPingDate format="%Y/%m/%d %H:%M"$></li>
         </MTPings>
      </ul>
   </div>
</div>
EOT
    calendar => <<'EOT',
<table class="module-archives module">
   <caption class="module-content"><$MTDate format="%B %Y"$></caption>
   <tr class="module-content">
      <th width="15%"><span style="color:red">Sun</span></th>
      <th width="14%">Mon</th>
      <th width="14%">Tue</th>
      <th width="14%">Wed</th>
      <th width="14%">Thu</th>
      <th width="14%">Fri</th>
      <th width="15%"><span style="color:blue">Sat</a></th>
   </tr>
<MTCalendar>
   <MTCalendarWeekHeader><tr class="module-content"></MTCalendarWeekHeader>
      <td align="right"><MTCalendarIfEntries><MTEntries lastn="1"><a href="<$MTEntryPermalink$>"><$MTCalendarDay$></a></MTEntries></MTCalendarIfEntries><MTCalendarIfNoEntries><$MTCalendarDay$></MTCalendarIfNoEntries><MTCalendarIfBlank>&nbsp;</MTCalendarIfBlank></td>
   <MTCalendarWeekFooter></tr></MTCalendarWeekFooter>
</MTCalendar>
</table>
EOT
    pulldown_archives => <<'EOT',
<script language="javascript" type="text/javascript">
function ChangeArchive (sel) {
  if (sel.options[sel.selectedIndex].value != "")
    location.href = sel.options[sel.selectedIndex].value;
}
</script>
<div class="module-archives module">
   <h2 class="module-header"><a href="<$MTBlogURL$>archives.html"><MT_TRANS phrase="Archives"></a></h2>
   <div class="module-content">
      <form method="get" action="">
         <select name="archive" onChange="ChangeArchive(this)">
            <option value="">----------
            <MTArchiveList archive_type="Monthly">
            <option value="<$MTArchiveLink$>"><$MTArchiveTitle$> (<$MTArchiveCount$>)
            </MTArchiveList>
         </select><br />
      </form>
   </div>
</div>
EOT
);
}

1;