r41182 - /scripts/tagallpending

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Mon Aug  3 08:20:22 2009
New Revision: 41182

URL: http://svn.debian.org/wsvn/?sc=1&rev=41182
Log:
add a script to tagpending over the whole repo

Added:
    scripts/tagallpending   (with props)

Added: scripts/tagallpending
URL: http://svn.debian.org/wsvn/scripts/tagallpending?rev=41182&op=file
==============================================================================
--- scripts/tagallpending (added)
+++ scripts/tagallpending Mon Aug  3 08:20:22 2009
@@ -1,0 +1,3 @@
+#!/bin/sh
+
+for i in `find -maxdepth 1 -mindepth 1 -type d | sed 's,.*/,,' | sort -u`; do cd $i; echo "Processing $(basename $i).." >&2; tagpending -nciw | sed '1,/Message/ d'; cd ..; done | grep -vE "^(#.*)?$" | perl -Mstrict -MSOAP::Lite -a -n -e 'our $pkg; my $cmd = shift @F; if($cmd eq "package") { $pkg = $F[0];}; if($cmd eq "tags" && $pkg eq "wnpp") { my $title = (new SOAP::Lite->uri("/Debbugs/SOAP")->proxy("http://bugs.debian.org/cgi-bin/soap.cgi"))->get_status($F[0])->result()->{$F[0]}->{"subject"}; unless($title =~ /^ITP:/) { print $_; } } else { print $_}' | tee tagpending.log

Propchange: scripts/tagallpending
------------------------------------------------------------------------------
    svn:executable = *