pld-ftp-admin: wwwbin/rpmcheck.sh - cleanup unused code

[glen]

Author: glen                         Date: Fri May  4 20:38:58 2012 GMT
Module: pld-ftp-admin                 Tag: HEAD
---- Log message:
- cleanup unused code

---- Files affected:
pld-ftp-admin/wwwbin:
   rpmcheck.sh (1.2 -> 1.3) 

---- Diffs:

================================================================
Index: pld-ftp-admin/wwwbin/rpmcheck.sh
diff -u pld-ftp-admin/wwwbin/rpmcheck.sh:1.2 pld-ftp-admin/wwwbin/rpmcheck.sh:1.3
--- pld-ftp-admin/wwwbin/rpmcheck.sh:1.2	Fri May  4 08:48:45 2012
+++ pld-ftp-admin/wwwbin/rpmcheck.sh	Fri May  4 22:38:53 2012
@@ -7,31 +7,6 @@
 CVSROOT=:pserver:cvs at cvs.pld-linux.org:/cvsroot
 d=$-
 
-orphaned_pkgs() {
-	set -$d
-	[ -s $t/pkgs.desc ] || /usr/bin/poldek --skip-installed "$@" --cmd "desc *" > $t/pkgs.desc
-	[ -s $t/pkgs.lst ] || sed -n 's/^Source package: \(.*\)-[^-]\+-[^-]\+$/\1/p' $t/pkgs.desc | sort -u > $t/pkgs.lst
-	# {w32codec,acroread,...}-installer pkgs
-	sed -i -e 's,-installer$,,' $t/pkgs.lst
-	for pkg in $(cat $t/pkgs.lst); do
-		# use awk to match package without any regexp fuzz
-		awk -vpkg=$pkg.spec -vm=1 '$1 == pkg{m=0} END{exit m}' $t/cvs.lst || echo Obsolete: $pkg
-	done
-}
-
-# generate list of .specs on ftp. needs cvsnt client
-cvs_pkgs() {
-	set -$d
-	[ -s $t/cvs.raw ] || cvs -d $CVSROOT -Q ls -e packages > $t/cvs.raw 2>/dev/null
-	[ -s $t/cvs.dirs ] || awk -F/ '$1 == "D" { print $2 } ' $t/cvs.raw > $t/cvs.dirs
-	[ -s $t/cvs.specs ] || {
-		while read pkg; do
-			cvs -d $CVSROOT -Q ls -e packages/$pkg/$pkg.spec 2>/dev/null
-		done < $t/cvs.dirs > $t/cvs.lst.tmp && mv $t/cvs.lst.tmp $t/cvs.specs
-	}
-	[ -s $t/cvs.lst ] || awk -F/ '$1 == "" { print $2 } ' $t/cvs.specs > $t/cvs.lst
-}
-
 # generate list of package basenames from rpmdb
 rpm_pkgs() {
 	set -$d
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/pld-ftp-admin/wwwbin/rpmcheck.sh?r1=1.2&r2=1.3