#!/usr/bin/perl # # Find orphaned packages not maintained by the QA group # without the need of the LDAP gateway to the BTS. # # (c) Emanuele Rocca # Distributed under the GNU GPL License (see http://www.gnu.org/gpl) use LWP::Simple; use strict; my $debug = 0; my $btsurl = "http://bugs.debian.org/wnpp"; my $ptsurl = "http://packages.qa.debian.org"; my $destfile = "/home/ema/public_html/orphaned.html"; my @packageslines = split("\n", get($btsurl)) or die("\nGetting $btsurl failed"); my $wrong = 0; my $i; my $k; my $j; my $iorph = 0; my @merged; my $imerged = 0; if (open (HTML, ">$destfile")) { print HTML "\n\n\nOrphaned packages not set to QA Group"; print HTML "\n\n\n"; close ( HTML ); } else { die ("Unable to open $destfile"); } foreach (@packageslines) { end() if ($packageslines[$i]=~m//) { my $email = $1; my $name=""; if ($ptslines[$k]=~/$email\">(.*?)<\/a>/) { $name = $1; } if ($email !~ m/packages\@qa\.debian\.org/i) { $packageslines[$i] =~ s/.*?: (.*)<\/a>/$1/g; my $subject = $packageslines[$i]; $packageslines[$i+2] =~ s/.*?">(.*)<\/a>;/$1/g; my $submitter = $packageslines[$i+2]; my $age = ""; if ($packageslines[$i+3] =~ m/merged.*#(.*?)<\/A>;/) { $merged[$imerged] = $1; $packageslines[$i+4] =~ s/old/ago/g; $age = $packageslines[$i+4]; $imerged++; } else { $packageslines[$i+3] =~ s/old/ago/g; $age = $packageslines[$i+3]; } my $not_merged=1; for ($j=0;$j<$imerged;$j++) { if($bug==$merged[$j]) { $not_merged=0; } } if (open (HTML, ">>$destfile") && ($not_merged==1)) { print HTML "\n

$orphaned

"; print HTML "\n
Maintainer: $name $email"; print HTML "\n
WNPP bug: #$bug"; print HTML "\n
Subject: $subject"; print HTML "\n
Submitter: $submitter"; if ($age>15) { print HTML "\n
Age: $age"; } else { print HTML "\n
Age: $age"; } $wrong++; } } } $k++; } $iorph++; } $i++; } sub end { print HTML "\n\n


"; print HTML "\nOrphaned packages not set to QA Group: ".($wrong)."


"; print HTML "\nLast generated on ".`date -R`; print HTML "\n\n"; close (HTML); exit(); }