Web-to-Ticketの続き

Web-to-Ticket を実現する簡単なCGIを作成した。

#!/usr/bin/perl

use strict;
use CGI;
use TracTicket;

my $q = new CGI;

print $q->header;

# for Basic Authentication
my $ticket = TracTicket->new('https://trac.rukatan.com/newticket', 'trac', 'trac');

$ticket->set_formdata( 'reporter'=>'trac' );
$ticket->set_formdata( 'owner'=>'randd' );
$ticket->set_formdata( 'summary'=>$q->param('summary') );
$ticket->set_formdata( 'type'=>'defect' );
$ticket->set_formdata( 'description'=>$q->param('description') );
$ticket->set_formdata( 'priority'=>'major' );
$ticket->set_formdata( 'component'=>$q->param('component') );

my $res = $ticket->submit();

print $res->content;

exit(0);
  • 使い方

適当なWEBサーバーに置いて、以下のように呼び出す。

http://www.example.com/cgi-bin/submit.pl?summary=チケットの件名&description=チケットの本文&component=コンポーメント名

するとチケットが自動作成される。