[gs-commits] rev 10872 - trunk/gs/toolbin
marcos at ghostscript.com
marcos at ghostscript.com
Fri Mar 5 16:47:10 UTC 2010
Author: marcos
Date: 2010-03-05 16:47:10 +0000 (Fri, 05 Mar 2010)
New Revision: 10872
Modified:
trunk/gs/toolbin/bugsByEngineer.pl
Log:
Minor changes due to bugzilla update.
Modified: trunk/gs/toolbin/bugsByEngineer.pl
===================================================================
--- trunk/gs/toolbin/bugsByEngineer.pl 2010-03-05 13:24:34 UTC (rev 10871)
+++ trunk/gs/toolbin/bugsByEngineer.pl 2010-03-05 16:47:10 UTC (rev 10872)
@@ -82,7 +82,10 @@
my @a;
my %bugList;
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&field0-0-0=Customer\\&type0-0-0=greaterthan\\&value0-0-0=0`;
+#$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&field0-0-0=Customer\\&type0-0-0=greaterthan\\&value0-0-0=0`;
+#$a=`lynx -nolist -width 1024 -dump "http://bugs.ghostscript.com/buglist.cgi?emailassigned_to1=1;query_format=advanced;field0-0-0=cf_customer;bug_status=UNCONFIRMED;bug_status=NEW;bug_status=ASSIGNED;bug_status=REOPENED;email1=$engineer;type0-0-0=greaterthan;value0-0-0=0;emailtype1=substring"`;
+$a=`lynx -nolist -width 1024 -dump "http://bugs.ghostscript.com/buglist.cgi?emailassigned_to1=1&query_format=advanced&field0-0-0=cf_customer&bug_severity=blocker&bug_severity=critical&bug_severity=major&bug_severity=normal&bug_severity=minor&bug_severity=trivial&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&email1=$engineer&type0-0-0=greaterthan&value0-0-0=0&emailtype1=substring"`;
+#print "$a\n"; exit;
@a=split '\n',$a;
foreach (@a) {
chomp;
@@ -91,7 +94,8 @@
}
}
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=enhancement\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&field0-0-0=Customer\\&type0-0-0=greaterthan\\&value0-0-0=0`;
+#$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=enhancement\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&field0-0-0=Customer\\&type0-0-0=greaterthan\\&value0-0-0=0`;
+$a=`lynx -nolist -width 1024 -dump "http://bugs.ghostscript.com/buglist.cgi?emailassigned_to1=1;query_format=advanced;field0-0-0=cf_customer;bug_severity=enhancement;bug_status=UNCONFIRMED;bug_status=NEW;bug_status=ASSIGNED;bug_status=REOPENED;email1=$engineer;type0-0-0=greaterthan;value0-0-0=0;emailtype1=substring"`;
@a=split '\n',$a;
foreach (@a) {
chomp;
@@ -101,22 +105,14 @@
}
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=CLOSED\\&resolution=LATER\\&resolution=REMIND\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&field0-0-0=Customer\\&type0-0-0=greaterthan\\&value0-0-0=0`;
- at a=split '\n',$a;
-foreach (@a) {
- chomp;
- if (m/(\d\d\d\d\d\d) ... P. /) {
-# $bugList{$1}="Customer";
- }
-}
-
-foreach my $i (keys %bugList) {
-# print "$i\n";
-}
+#foreach my $i (sort keys %bugList) {
+# print "$i\n";
+#}
#exit;
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=Regression%3A\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now`;
+#$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=Regression%3A\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now`;
+$a=`lynx -nolist -width 1024 -dump "http://bugs.ghostscript.com/buglist.cgi?emailassigned_to1=1;query_format=advanced;short_desc=Regression%3A;bug_status=UNCONFIRMED;bug_status=NEW;bug_status=ASSIGNED;bug_status=REOPENED;short_desc_type=allwordssubstr;email1=$engineer;emailtype1=substring"`;
@a=split '\n',$a;
foreach (@a) {
chomp;
@@ -125,17 +121,9 @@
}
}
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=Regression%3A\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=CLOSED\\&resolution=LATER\\&resolution=REMIND\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now`;
- at a=split '\n',$a;
-foreach (@a) {
- chomp;
- if (m/(\d\d\d\d\d\d) ... P. /) {
-# $bugList{$1}="Regression" if (!exists $bugList{$1});
- }
-}
-
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&priority=P1`;
+#$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=UNCONFIRMED\\&bug_status=NEW\\&bug_status=ASSIGNED\\&bug_status=REOPENED\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&priority=P1`;
+$a=`lynx -nolist -width 1024 -dump "http://bugs.ghostscript.com/buglist.cgi?priority=P1;emailassigned_to1=1;query_format=advanced;bug_status=UNCONFIRMED;bug_status=NEW;bug_status=ASSIGNED;bug_status=REOPENED;email1=$engineer;emailtype1=substring"`;
@a=split '\n',$a;
foreach (@a) {
chomp;
@@ -144,14 +132,7 @@
}
}
-$a=`lynx -nolist -width 1024 -dump http://bugs.ghostscript.com/buglist.cgi?short_desc_type=allwordssubstr\\&short_desc=\\&long_desc_type=allwordssubstr\\&long_desc=\\&keywords_type=allwords\\&bug_status=CLOSED\\&resolution=LATER\\&resolution=REMIND\\&bug_severity=blocker\\&bug_severity=critical\\&bug_severity=major\\&bug_severity=normal\\&bug_severity=minor\\&bug_severity=trivial\\&emailassigned_to1=1\\&emailtype1=substring\\&email1=$engineer\\&emailassigned_to2=1\\&bugidtype=include\\&chfieldto=Now\\&priority=P1`;
- at a=split '\n',$a;
-foreach (@a) {
- chomp;
- if (m/(\d\d\d\d\d\d) ... P. /) {
-# $bugList{$1}="P1" if (!exists $bugList{$1});
- }
-}
+#print Dumper(\%bugList); exit;
@@ -173,32 +154,39 @@
my @b=split '\n',$b;
foreach (@b) {
chomp;
- if (m/Opened: (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/) {
+ if (m/Reported: (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/) {
$opened=$1;
$commentedUpon=$opened if ($entered eq $assigned);
}
- $modified=$1 if (m/Additional Comment .+ (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/);
+ $modified=$1 if (m/Modified: (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/);
$entered=$1 if (m/Reporter: \S+ \((.+)\)$/);
- $assigned=$1 if (m/Assigned To: \S+ \((.+)\)$/);
- $comment=$1 if (m/Additional Comment #\d+ From (.+?) 20/);
- $commentedUpon=$modified if ($comment eq $assigned);
+ $assigned=$1 if (m/Assigned To: (.+)$/);
+ if (m/Comment \d+ (.+?) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/) {
+ $comment=$1;
+ $commentedUpon=$2 if ($comment eq $assigned);
+ }
}
+#print "$bugNumber\n$opened\n$modified\n$dateAssigned\n$customerNumber\n$entered\n$assigned\n$comment\n$commentedUpon\n"; exit;
+
if ($bugList{$bugNumber} eq "Customer" || $bugList{$bugNumber} eq "Enhancement") {
my $url="http://bugs.ghostscript.com/show_bug.cgi?id=$bugNumber";
$b=get $url;
- $customerNumber=$1 if ($b =~ m/"Customer"\s.+?value="(.+?)"/s);
-#print "$bugNumber $customerNumber\n";
+# $customerNumber=$1 if ($b =~ m/"Customer"\s.+?value="(.+?)"/s);
+ $customerNumber=$1 if ($b =~ m/"field_container_cf_customer"\s.+?>(.+?)</s);
+
+# id="field_container_cf_customer" colspan="2">870</td>
+# print "$b $bugNumber $customerNumber\n"; exit;
} else {
$customerNumber=$bugList{$bugNumber};
}
$b=`lynx -nolist -width 1025 -dump http://bugs.ghostscript.com/show_activity.cgi?id=$bugNumber`;
- $dateAssigned=$1 if ($b =~ m/.*(\d\d\d\d-\d\d-\d\d \d\d:\d\d):\d\d AssignedTo/s);
-
-# print "$opened\t$modified\t$dateAssigned\t$customerNumber\n";
+ $dateAssigned=$1 if ($b =~ m/.*(\d\d\d\d-\d\d-\d\d \d\d:\d\d):\d\d .+ Assignee/s);
+#print "$b\n";
+#print "$opened\t$modified\t$dateAssigned\t$customerNumber\n";
$dateAssigned=$opened if ($dateAssigned eq "0000-00-00 00:00"); # bugs that are automatically assigned when they are entered don't show AssignedTo on the activity page
$modified =$opened if ($modified eq "0000-00-00 00:00");
@@ -234,6 +222,7 @@
printReport("Alex");
+ printReport("Chris");
printReport("Henry");
printReport("Ken");
printReport("Marcos");
@@ -241,8 +230,8 @@
printReport("Michael");
printReport("Ralph");
printReport("Ray");
+ printReport("Robin");
printReport("Tor");
- printReport("robin");
printReport("htl");
printReport("larsu");
printReport("support");
More information about the gs-commits
mailing list