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=コンポーメント名
するとチケットが自動作成される。