packages: get-all-specs.sh - decode URI, sry 'bout perl

[sparky]

Author: sparky                       Date: Wed May 27 17:58:32 2009 GMT
Module: packages                      Tag: HEAD
---- Log message:
- decode URI, sry 'bout perl

---- Files affected:
packages:
   get-all-specs.sh (1.3 -> 1.4) 

---- Diffs:

================================================================
Index: packages/get-all-specs.sh
diff -u packages/get-all-specs.sh:1.3 packages/get-all-specs.sh:1.4
--- packages/get-all-specs.sh:1.3	Wed May 27 19:49:18 2009
+++ packages/get-all-specs.sh	Wed May 27 19:58:27 2009
@@ -10,4 +10,6 @@
 export CVSROOT=:pserver:"${CVSUSER}"@cvs.pld-linux.org:/cvsroot
 cvs login
 cd .. 
-wget http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/ -O - | sed '/<a href="\./!d' | sed 's,^.*<a href="\./\(.*\)/".*$,/\1/\1.spec,' | xargs cvs get
+wget http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/ -O - \
+	| perl -p -e 'if(m#a href="\./(.*?)/"#){$_=$1;s/%(..)/chr hex $1/eg;$_="packages/$_/$_.spec\0"}else{$_=undef}' \
+	| xargs -0 cvs -z3 get
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/get-all-specs.sh?r1=1.3&r2=1.4&f=u