[Pkg-xfce-commits] r4126 - scripts

Evgeni Golov evgeni at alioth.debian.org
Sun Jun 13 02:52:08 UTC 2010


Author: evgeni
Date: 2010-06-13 14:52:05 +0000 (Sun, 13 Jun 2010)
New Revision: 4126

Modified:
   scripts/get-sources.pl
Log:
add support for tar.bz2 orig files by passing 'debsrcv3' as third or fourth param in sources.txt

Modified: scripts/get-sources.pl
===================================================================
--- scripts/get-sources.pl	2010-06-13 14:29:13 UTC (rev 4125)
+++ scripts/get-sources.pl	2010-06-13 14:52:05 UTC (rev 4126)
@@ -50,7 +50,7 @@
 while(<SOURCES>) {
 	chop;
 	$_ =~ /^(#|$)/ and next;
-	my ($pkg, $tarball, $version) = split;
+	my ($pkg, $tarball, $version, $debsrcv) = split;
 
 	if (!$fetch_all && !grep($_ eq $pkg, @fetch_packages)) {
 		next;
@@ -82,11 +82,11 @@
 	}
 	
 	# mangle the version if needed
-	if($version) {
+	if($version and $version !~ /^debsrcv3$/) {
 		$debian_filename =~ s/^([\w|-]*)_.+?(\.tar.*)/$1_$version$2/;
 	}
 	
-	if($filename !~ /tar\.gz/) {
+	if($filename !~ /tar\.gz/ and (! $version or $version !~ /^debsrcv3$/) and (! $debsrcv or $debsrcv !~ /^debsrcv3$/)) {
 		# assuming bzip2
 		my $decompressed_filename = $filename;
 		
@@ -97,8 +97,8 @@
 		$wget_command = "cd $tarballs_dir && wget -nv $tarball && bunzip2 $filename && gzip -9 $decompressed_filename && mv $decompressed_filename.gz $debian_filename && rm -f $decompressed_filename";
 	}
 	else {
-		# tar.gz
-		$debian_filename =~ s/.tar.gz/.orig.tar.gz/;
+		# tar → orig.tar
+		$debian_filename =~ s/\.tar/.orig.tar/;
 		$wget_command = "cd $tarballs_dir && wget -nv $tarball && mv $filename $debian_filename";
 	}
 




More information about the Pkg-xfce-commits mailing list