[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    bugs/bugz
From:       David Faure <faure () kde ! org>
Date:       2005-04-25 21:12:52
Message-ID: 20050425211252.D968E3EF () office ! kde ! org
[Download RAW message or body]

CVS commit by faure: 

Apply all changes found on the server....


  M +5 -4      find-traces.pl   1.4
  M +2 -1      mail_reporters.pl   1.5
  M +1 -1      simple-dup-finder.cgi   1.7
  M +7 -3      weekly-bug-summary.cgi   1.26
  M +1 -0      wizard.cgi   1.79
  M +1 -1      xmlquery.cgi   1.5


--- bugs/bugz/find-traces.pl  #1.3:1.4
@@ -21,5 +21,5 @@
   foreach my $line (@lines) {
   # Here, we try to ignore things before <signal handler> and/or killpg()
-    if ( $line =~ /<signal handler \
called>|__libc_start(?!_main)|wait4|__DTOR_|waitpid|sigaction|sigsuspend|\(gdb\) \
bt|KCrash::|pthread_sig|killpg|abort|Letext/ ) { +    if ( $line =~ /<signal handler \
called>|__libc_start(?!_main)|wait4|__DTOR_|waitpid|sigaction|sigsuspend|\(gdb\) \
                bt|KCrash::|pthread_sig|killpg|abort|Letext|KCrash handler/ ) {
       $function_index = 0; #Now we've started looking for real functions, or reset \
after reading g_log tops  }  #here, we get only function names after the garbage
@@ -131,4 +131,5 @@
 where
 longdescs.bug_id = bugs.bug_id
+AND bugs.bug_status != 'CLOSED'
 AND (INSTR(LOWER(longdescs.thetext),LOWER('$functions[0]'))
 AND INSTR(LOWER(longdescs.thetext),LOWER('$functions[1]'))
@@ -147,7 +148,7 @@
 
   while ((@hash{'id', 'sta', 'res', 'des', 'product', 'thetext'}) = FetchSQLData() ) \
                {
-      my %new_hash = %hash;
-    next unless $hash{thetext} =~ /$regexp/s; # Make sure we match in order.
-    if($hash{res} =~ /dup/i) {
+    my %new_hash = %hash;
+    #next unless $hash{thetext} =~ /$regexp/s; # Make sure we match in order.
+    if($hash{res} =~ /DAB/i) {
       # If it's resolved, find what it's a duplicate of. [Ben]
       # this is a cool idea but doesn't actually work, since 'thetext'

--- bugs/bugz/mail_reporters.pl  #1.4:1.5
@@ -52,5 +52,5 @@
 my $total = 0;
 
-my $chunksize = 200;
+my $chunksize = 50;
 for (my $chunk = $minid; $chunk < $maxid + $chunksize; $chunk += $chunksize) {
 print "listing $chunk-" . ($chunk + $chunksize) . "\n";
@@ -58,4 +58,5 @@
         "(bug_status = 'NEW' or bug_status = 'UNCONFIRMED' or bug_status = \
'REOPENED') and bugs.bug_id < 74000 " .  "and (userid=reporter or who=userid) " .
+        "and bugs.product != 'valgrind' " .
         "and userid >= " . $chunk . " and userid < " . ($chunk + $chunksize) . " " .
         "and userid >= $minid and userid <= $maxid " .

--- bugs/bugz/simple-dup-finder.cgi  #1.6:1.7
@@ -67,5 +67,5 @@
 
 print '<ul>';
-foreach my $bug_ref (@bug_data){
+foreach my $bug_ref (@bug_data) {
         print '<li><a href="show_bug.cgi?id='.$$bug_ref{id}.'">'.$$bug_ref{id}.'</a> \
'.$$bug_ref{sta}.' '.html_quote($$bug_ref{des}).'</li>';  }

--- bugs/bugz/weekly-bug-summary.cgi  #1.25:1.26
@@ -21,4 +21,5 @@
 
 use diagnostics;
+#use POSIX qw(strftime);
 use strict;
 
@@ -32,7 +33,10 @@
 
 # Output appropriate HTTP response headers
-print "Content-type: text/html\n";
-# Changing attachment to inline to resolve 46897 - zach@zachlipton.com
-print "Content-disposition: inline; filename=bugzilla_report.html\n\n";
+print "Content-type: text/html\r\n";
+my $header_expire = time2str("Last-Modified: %a, %e %b %Y 00:00:00 GMT\r\n", time - \
24*60*60); +print $header_expire;
+
+print "\r\n";
+print "<!-- page created: " . ctime(time) . " -->\n";
 
 ConnectToDatabase(1);

--- bugs/bugz/wizard.cgi  #1.78:1.79
@@ -409,4 +409,5 @@
   my $product = $package;
   $product =~ s,/.*,,;
+  $product =~ s/Kommander/kommander/;
   my $sql_product = SqlQuote($product);
 

--- bugs/bugz/xmlquery.cgi  #1.4:1.5
@@ -1,3 +1,3 @@
-#!/usr/bonsaitools/bin/perl -w
+#!/usr/bonsaitools/bin/perl -wT
 
 use lib qw(.);


[prev in list] [next in list] [prev in thread] [next in thread]