# Plugin for displaying a DiggIt link on a post.
# $Id: DiggIt.pl $
# This software is provided as-is. You may use it for commercial or personal use.
# Copyright (c) 2006 Edward Clarke - http://blog.tn38.net/
package MT::Plugin::DiggIt;
use strict;
use MT;
use vars qw($plugin);
eval {
  $plugin = new MT::Plugin({
  name => "DiggIt",
  version => "1.0",
  author_name => "Edward Clarke",
  author_link => "http://blog.tn38.net/",
  plugin_link => "http://blog.tn38.net/archives/2006/09/movable_type_di.html",
  description => "A simple way to add a validated and semantic Digg link to your MovableType post template. Visit <a href=\"http://blog.tn38.net/archives/2006/09/movable_type_di.html\">http://blog.tn38.net</a> for more information.",
  });
  MT->add_plugin($plugin);
};
require MT::Template::Context;
require MT::Util;
MT::Template::Context->add_tag(DiggIt => sub { 
  my $ctx = shift;
  my $entry = $ctx->stash("entry");
  my $url = "http://digg.com/submit?phase=2";
  $url .= "&amp;url=" . MT::Util::encode_url($entry->permalink);
  $url .= "&amp;title=" . MT::Util::encode_url($entry->title);
  $url .= "&amp;bodytext=" . MT::Util::encode_url($entry->excerpt);
  $url .= "\" rel=\"external";
  return $url;
});