git-migration: binary_patterns, pld-git.sh, update_binaries.pl (NEW) - remo...

[draenog]

Author: draenog                      Date: Tue Jun 21 10:32:10 2011 GMT
Module: git-migration                 Tag: HEAD
---- Log message:
- remove only binaries that are not present on HEAD

---- Files affected:
git-migration:
   binary_patterns (1.1 -> 1.2) , pld-git.sh (1.48 -> 1.49) , update_binaries.pl (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: git-migration/binary_patterns
diff -u git-migration/binary_patterns:1.1 git-migration/binary_patterns:1.2
--- git-migration/binary_patterns:1.1	Tue Jun 21 12:30:43 2011
+++ git-migration/binary_patterns	Tue Jun 21 12:32:05 2011
@@ -1,15 +1,15 @@
-*.gz,v
-*.bz2,v
-*.tgz,v
-*.Z,v
-gap4r2.zoo,v
-*.ogg,v
-*.pdf,v
-*.rpm,v
-*.bz,v
-*.mp3,v
-*.bin,v
-*.mpg,v
-*.tbz2,v
-*.tar,v
-*.xpi,v
+Attic/*.gz,v
+Attic/*.bz2,v
+Attic/*.tgz,v
+Attic/*.Z,v
+Attic/gap4r2.zoo,v
+Attic/*.ogg,v
+Attic/*.pdf,v
+Attic/*.rpm,v
+Attic/*.bz,v
+Attic/*.mp3,v
+Attic/*.bin,v
+Attic/*.mpg,v
+Attic/*.tbz2,v
+Attic/*.tar,v
+Attic/*.xpi,v

================================================================
Index: git-migration/pld-git.sh
diff -u git-migration/pld-git.sh:1.48 git-migration/pld-git.sh:1.49
--- git-migration/pld-git.sh:1.48	Tue Jun 21 12:30:43 2011
+++ git-migration/pld-git.sh	Tue Jun 21 12:32:05 2011
@@ -27,11 +27,12 @@
 	[ "$REMOVE_ICONS" = "yes" ] &&
 		icon_pattern='--exclude=*.png,v --exclude=*.xpm,v'
 	[ "$REMOVE_BINARIES" = "yes" ] &&
-		exclude_pattern='--exclude-from=binary_patterns'
+		exclude_pattern='--exclude-from=binary_patterns --exclude-from=binary_files'
 	> $logfile
 	rsync -av rsync://cvs.pld-linux.org/cvs/packages/ packages/ \
 		--log-file=$logfile --log-file-format='changes=%i name=%n' \
 		$exclude_pattern $icon_pattern --include=**/*,v --include=**/ --exclude=* --delete --delete-excluded
+	[ "$REMOVE_BINARIES" = "yes" ] && ./update_binaries.pl >> binary_files
 
 	# parse rsync log
 	# we want "^.f" - any file change

================================================================
Index: git-migration/update_binaries.pl
diff -u /dev/null git-migration/update_binaries.pl:1.1
--- /dev/null	Tue Jun 21 12:32:10 2011
+++ git-migration/update_binaries.pl	Tue Jun 21 12:32:05 2011
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -l
+
+open(PATTERNS, "<binary_patterns") or die "File binary_patterns not found\n";
+while(<PATTERNS>) {
+    chomp;
+    s/Attic\///;
+    push @ARGV, glob "packages/*/$_";
+}
+close PATTERNS;
+
+while(<>) {
+    if(/;\s+state (\w+)/) {
+        if($1 eq "dead") {
+            unlink $ARGV;
+            $ARGV=~s#^packages/##;
+            print $ARGV;
+        }
+        close ARGV;
+    }
+}
+
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/git-migration/binary_patterns?r1=1.1&r2=1.2&f=u
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/git-migration/pld-git.sh?r1=1.48&r2=1.49&f=u