Gnats - request reporting scripts

Gnats - request reporting scripts

Post by Chuck Bens » Thu, 01 Sep 1994 10:44:18



Anyone got any nifty perl scripts for generating reports
from gnats you'd be willing to share?

greg strockbine, Dataproducts, Woodland Hills, Ca.

 
 
 

Gnats - request reporting scripts

Post by Tom Horsl » Thu, 01 Sep 1994 20:47:42


Quote:>Anyone got any nifty perl scripts for generating reports
>from gnats you'd be willing to share?

Here's the one I use to list the bugs I'm supposed to be working on, sorted
in priority order (it's not much, but I find it more readable than anything
I can get gnats to print directly...):

----------------------------------------------------------------------------
#!/usr/local/perl
#
# Show NightView bugs I need to work on...
#
$ts{'1'}="critical    ";
$ts{'2'}="serious     ";
$ts{'3'}="non-critical";
$tp{'1'}="high  ";
$tp{'2'}="medium";
$tp{'3'}="low   ";
open(QUERY,"query-pr --category=NightView --responsible=tom --state=open --sql |") || die "Cannot run query-pr.\n";
$count=0;
while (<QUERY>) {
   chop;
   ($Number,$Category,$Synopsis,$Confidential,$Severity,$Priority,$Responsible,$State,$Class,$SubmitterId,$ArrivalDate,$Originator,$Release) = split(/\|/,$_);
   $query[$count++]=$Priority . '|' . $Severity . '|' . $ArrivalDate . '|' . $Number . '|' . $Originator . '|' . $Synopsis ;

Quote:}


   ($Priority,$Severity,$ArrivalDate,$Number,$Originator,$Synopsis)=split(/\|/,$_);
   if (defined($tp{$Priority})) {
      $Priority = $tp{$Priority};
   } else {
      $Priority = "     " . $Priority;
   }
   if (defined($ts{$Severity})) {
      $Severity = $ts{$Severity};
   } else {
      $Severity = "           " . $Severity;
   }
   if ($Synopsis=~/^(.*[^       ])[     ]+$/) {
      $Synopsis=$1;
   }
   if ($Originator=~/^(.*[^     ])[     ]+$/) {
      $Originator=$1;
   }
   print "$Number $Priority $Severity $ArrivalDate $Originator\n\t $Synopsis\n\n";
Quote:}

----------------------------------------------------------------------------
--
--

Home: 511 Kingbird Circle Delray Beach FL  33444
Work: Harris Computers, 2101 W. Cypress Creek Rd. Ft. Lauderdale FL  33309
Take the pledge! No votes for Ollie North supporters! NO POND SCUM!

 
 
 

1. GNATS send-pr : how to submit a report from a script

hi

I am using GNU GNATS and I want to submit a bug report from
a perl script. The command I am using is,

system("send-pr -t bugs -f filename");

but send-pr prompts for user intput (send, abort, edit). And in
my case it is ALWAYS a "send". I don't want send-pr to prompt the user,
how can I do that?

Please send a copy of your response by email.

thanks for your time

--
B.G. Mahesh                        | Work:
http://www.paragon-software.com
Senior Software Engineer           | Home: http://www.mahesh.com
Paragon Software, Inc.             |

2. Administrator Share

3. Desiring Ability to Update/Edit a GNATS PR in Automated (Scripted) Fashion

4. Q:Raptor - SNA

5. Any tools(or scripts) help to create release (change) report from cvs logs or history ?

6. how do I connect 2 PC by cables?

7. curious: managing a lot of little scripts, like admin scripts

8. processors at 100%

9. ACE XML error reporting enhancement request

10. Feature request/bug report in ACE_Refcounted_Auto_

11. Feature request/bug report in ACE_Refcounted_Auto_Ptr

12. Discrepancy Report/Request for Change Tracking Software for Sun Solaris