root/trunk/MTFogger/MTFogger.pl

# MTFogger - A plugin for Movable Type.
# Copyright (c) 2007 Six Apart.

package MT::Plugin::MTFogger;

use strict;
use base qw( MT::Plugin );

use WebService::FogBugz;
use Data::Dumper;
use XML::Liberal;
use XML::LibXML;
use XML::Simple;

our $VERSION = '0.1';
our $SCHEMA_VERSION = '1.000';


my $plugin = MT::Plugin::MTFogger->new({
    key             => 'mtfogger',
    id              => 'mtfogger',
        name            => "MTFogger",
        version         => $VERSION,
        schema_version  => $SCHEMA_VERSION,
        description     => "<MT_TRANS phrase=\"Display Fogbugz releases and cases from within Movable Type\">",
        author_name     => "Chris Ernest Hall",
        author_link     => "http://djchall.vox.com/",
        plugin_link     => "http://djchall.com/plugins/",
        doc_link        => "",
        system_config_template => 'fogger_config.tmpl',
        settings => new MT::PluginSettings([
            ['FbzLogin', { Default => '' }],
                        ['FbzPassword', { Default => '' }],
                        ['FbzBaseurl', { Default => '' }]
        ])
});

MT->add_plugin($plugin);

sub init_registry {
  my $plugin = shift;
  
      $plugin->registry({
        tags => {
                    function => {
                             'FbzCaseNumber' => \&_hdlr_GetCaseNumber,
                                 'FbzCaseCategory' => \&_hdlr_GetCaseCategory,
                                 'FbzCaseTitle' => \&_hdlr_GetCaseTitle,
                                 'FbzCaseStatus' => \&_hdlr_GetCaseStatus,
                                 'FbzCasePriority' => \&_hdlr_GetCasePriority,
                    },
            block => {
                'FbzCases' => \&_hdlr_ListCases,
            },
        },
    });
  
}


sub init_app {
    my $plugin = shift;
    $plugin->SUPER::init_app(@_);
    my ($app) = @_;

    return unless $app->isa('MT::App::CMS');
}

sub instance { $plugin }

sub _hdlr_ListCases {
    #for now, just get the active cases in a hard-coded branch
    my ($ctx, $args, $cond) = @_;
    my $out = "";
    my $builder = $ctx->stash('builder');
    my $tokens = $ctx->stash('tokens');
        
        my $project = $args->{project};
        my $fixfor = $args->{fixfor};
        my $status = $args->{status};
        my $orderby = $args->{orderby};
        my $max = $args->{max};
        
        #get list of active cases 
    my $Cases = getCases($project, $fixfor, $status, $orderby, $max);
        
        if (ref($Cases) eq 'ARRAY') {
        
        #loop through cases, and populate stash with them, I think 
        foreach my $case (@$Cases) {
      my @case_numbers = @{ $case->{ixBug} };
      my $case_number = $case_numbers[0];
      my $category = $case->{'sCategory'};
      my $title = $case->{'sTitle'};
      my $status = $case->{'sStatus'};
          my $priority = $case->{'sPriority'};
          
      $ctx->stash("current_case_number",$case_number);
          $ctx->stash("current_case_category",$category);
          $ctx->stash("current_case_title",$title);
          $ctx->stash("current_case_status",$status);
          $ctx->stash("current_case_priority",$priority);
                
      $out .= $builder->build($ctx,$tokens,$cond);        
    }
        
        } else {
          $out = "";
        }
        
    return $out;
}

sub _hdlr_GetCaseNumber {
    my ($ctx, $args, $cond) = @_;
    my $CaseNumber = $ctx->stash('current_case_number');
    
        return $CaseNumber;
}

sub _hdlr_GetCaseCategory {
    my ($ctx, $args, $cond) = @_;
    my $CaseCategory = $ctx->stash('current_case_category');
    
        return $CaseCategory;
}

sub _hdlr_GetCaseTitle {
    my ($ctx, $args, $cond) = @_;
    my $CaseTitle = $ctx->stash('current_case_title');
    
        return $CaseTitle;
}

sub _hdlr_GetCaseStatus {
    my ($ctx, $args, $cond) = @_;
    my $CaseStatus = $ctx->stash('current_case_status');
    
        return $CaseStatus;
}


sub _hdlr_GetCasePriority {
    my ($ctx, $args, $cond) = @_;
    my $CasePriority = $ctx->stash('current_case_priority');
    
        return $CasePriority;
}

sub getCases() {
  my $project = shift;
  my $fixfor = shift;
  my $status = shift;
  my $orderby = shift;
  my $max = shift;
  
  $max = int($max);
  
  if (!$status) {
    $status = "Active";
  }
  
  if (!$orderby) {
    $orderby = "Case";
  }
  
  my $fogbugz = logonFogbugz();

  my %Cases = $fogbugz->request_method('search', {
    q => "project:\"$project\" fixfor:\"$fixfor\" status:\"$status\" orderby:\"$orderby\" ",
    cols => 'ixBug,sCategory,sTitle,sStatus,sPriority',
        max => $max,
  });

  my ($content)  = %Cases;

  #let's try parsing it
  my $parsed_content = XMLin($content);

  my $Cases = $parsed_content->{cases}->{case};
  
  return $Cases;
}

sub getFixfors() {
  #to do -- function that gets all releases from fbz for a given project


}

sub logonFogbugz() {
  my $plugin = MT::Plugin::MTFogger->instance;

  my $config = $plugin->get_config_hash();
  
  #get parameters from settings
  my $FbzLogin = $config->{FbzLogin};
  my $FbzPassword = $config->{FbzPassword};
  my $FbzBaseurl = $config->{FbzBaseurl};
  
  my $fogbugz = WebService::FogBugz->new({
    email => $FbzLogin,
    password => $FbzPassword,
    base_url => $FbzBaseurl
  });

  my $result = $fogbugz->logon;
  
  return $fogbugz;
}