[DebianGIS-dev] CVS Update: scripts dgis-status.pl
frankie at haydn.debian.org
frankie at haydn.debian.org
Sat Mar 11 18:33:15 UTC 2006
User: frankie
Date: 06/03/11 18:33:15
Modified: . dgis-status.pl
Log:
Now manages contrib and other distro subdir correctly.
Revision Changes Path
1.11 +11 -9 scripts/dgis-status.pl
CVSWEB Options: -------------------
CVSWeb: Annotate this file: http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl?annotate=1.11&cvsroot=
CVSWeb: View this file: http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl?rev=1.11&content-type=text/x-cvsweb-markup&cvsroot=
CVSWeb: Diff to previous version: http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl.diff?r1=1.11&r2=1.10&cvsroot=
-----------------------------------
Index: dgis-status.pl
===================================================================
RCS file: /cvsroot/pkg-grass/scripts/dgis-status.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- dgis-status.pl 11 Mar 2006 17:41:52 -0000 1.10
+++ dgis-status.pl 11 Mar 2006 18:33:15 -0000 1.11
@@ -42,12 +42,10 @@
my %wget = ( 'quiet' => 'wget --passive-ftp --quiet -O ','verbose' => 'wget --passive-ftp -O ' );
my %gunzip = ( 'quiet' => 'gunzip --force --quiet ', 'verbose' => 'gunzip --force' );
my %paths = (
- 'dgis-stable' => "http://pkg-grass.alioth.debian.org/debian-gis/dists/stable/main/source/",
- 'dgis-unstable' => "http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/main/source/",
- 'stable' => "http://merkel.debian.org/debian/dists/stable/main/source/",
- 'stable-contrib'=> "http://merkel.debian.org/debian/dists/stable/contrib/source/",
- 'unstable' => "http://merkel.debian.org/debian/dists/unstable/main/source/",
- 'unstable-contrib'=> "http://merkel.debian.org/debian/dists/unstable/contrib/source/",
+ 'dgis-stable' => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/stable/main/source/"],
+ 'dgis-unstable' => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/main/source/"],
+ 'stable' => ["http://merkel.debian.org/debian/dists/stable/main/source/","http://merkel.debian.org/debian/dists/stable/contrib/source/"],
+ 'unstable' => ["http://merkel.debian.org/debian/dists/unstable/main/source/","http://merkel.debian.org/debian/dists/unstable/contrib/source/"],
);
my $sources = "Sources";
@@ -71,8 +69,12 @@
unless ($opt_o) { # Skip wget if -o option "only difference"
for my $s ( keys %paths ) {
- system ("$wget{$verbose} $s.$sourcesgz $paths{$s}/$sourcesgz");
- system ("$gunzip{$verbose} $s.$sourcesgz") if -f "$s.$sourcesgz";
+ unlink $s.$sources if -f $s.$sources;
+ for my $i ( 0 .. $#{$paths{$s}} ) {
+ system ("$wget{$verbose} $s.$sourcesgz $paths{$s}->[$i]/$sourcesgz");
+ system ("$gunzip{$verbose} -c $s.$sourcesgz >> $s.$sources") if -f "$s.$sourcesgz";
+ unlink "$s.$sourcesgz" if -f "$s.$sourcesgz";
+ }
}
}
More information about the Pkg-grass-devel
mailing list