[devscripts] 11/12: uscan: MUT downloading log

[Osamu Aoki]

This is an automated email from the git hooks/post-receive script.

osamu pushed a commit to branch multitar
in repository devscripts.

commit 23db65c3e99be303d835422252a22f0a5ed9355a
Author: Osamu Aoki <osamu at debian.org>
Date:   Thu Sep 24 00:51:30 2015 +0900

    uscan: MUT downloading log
    
    Log downloaded files for the MUT package
    
    (initial code, no md5sum value etc.)
---
 scripts/uscan.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 8bfdd15..df30f72 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -1781,6 +1781,15 @@ EOF
 	$mangled_newversion = $1 if $target =~ m/[^_]+_(.+)\.orig\.tar\.(?:gz|bz2|lzma|xz)$/;
 	print STDERR "$progname debug: orig.tar.* tarball version (after mk-origtargz): $mangled_newversion\n" if $debug;
     }
+    if (! defined $uscanlog) {
+	$uscanlog = "../${pkg}_${mangled_newversion}.uscan.log";
+	open(USCANLOG, "> $uscanlog") or uscan_die "$progname: could not open $uscanlog for write: $!\n";
+	print USCANLOG "# package downloaded by uscan\n";
+    } else {
+	open(USCANLOG, ">> $uscanlog") or uscan_die "$progname: could not open $uscanlog for append: $!\n";
+    }
+    print USCANLOG "${newfile_base}\t${target}\n";
+    close USCANLOG or uscan_die "$progname: could not close $uscanlog: $!\n";
 
     if ($dehs) {
 	my $msg = "Successfully downloaded updated package $newfile_base\n";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git