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:[email protected]:/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 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
