Yet Another CPAN Grep

RT-CIFMinimal ( S/SA/SAXJAZMAN/RT/RT-CIFMinimal-0.01.tar.gz, SAXJAZMAN, 2012; MetaCPAN )

RT-CIFMinimal/lib/RT/CIFMinimal.pm ( view source; MetaCPAN )

array,$r->IODEF->to_tree());
    }
    return ('') unless($#array > -1);
    require JSON;
    return(JSON::to_json(\@array));
}

{
    my %cache;
    sub GetCustomField {
        my $field = shift or

RT-CIFMinimal ( S/SA/SAXJAZMAN/RT/RT-CIFMinimal-0.01.tar.gz, SAXJAZMAN, 2012; MetaCPAN )

RT-CIFMinimal/lib/RT/Action/CIFMinimal_ReopenReport.pm ( view source; MetaCPAN )

:ParseJsonIodef;
require CIF::Archive;
require JSON;

sub Prepare { return 1; }

sub Commit {
	my $self = shift;

    my $r = $self->TicketObj->IODEF();

    my $ret = CIF::FeedParser::ParseJsonIodef:

:parse({},JSON::to_json([$r->to_tree()]));

    foreach(@$ret){
        $_->{'detecttime'} = DateTime->from_epoch(epoch => time());
        my ($err,$id) = CIF::Archive->insert($_);
        warn $err

RT-CIFMinimal ( S/SA/SAXJAZMAN/RT/RT-CIFMinimal-0.01.tar.gz, SAXJAZMAN, 2012; MetaCPAN )

RT-CIFMinimal/lib/RT/Action/CIFMinimal_RejectReport.pm ( view source; MetaCPAN )

:ParseJsonIodef;
require CIF::Archive;
require JSON;

sub Prepare { return 1; }

sub Commit {
	my $self = shift;

    my $r = $self->TicketObj->IODEF();

    my $ret = CIF::FeedParser::ParseJsonIodef:

:parse({},JSON::to_json([$r->to_tree()]));

    foreach(@$ret){
        $_->{'severity'} = 'low';
        $_->{'detecttime'} = DateTime->from_epoch(epoch => time());
        my ($err,$id) = CIF::Archi