From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 18 Feb 2013 17:04:18 +0000 (+0000)
Subject: automatic agpl compliance: wip fixes, need to check output tarballs are what we expect
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=commitdiff_plain;h=d2386faae2eaf1ba830fa2d2c52a3d7f1e5d4b84;hp=7474e250f15af4708e7576c759e3941fa56e9080

automatic agpl compliance: wip fixes, need to check output tarballs are what we expect
---

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index a462bf8..ea83348 100644
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -289,6 +289,9 @@ sub srcdump_dir_cpio ($$$$$) {
     }
     $!=0; (waitpid $pid, 0) == $pid or die "$!";
     die "$dir ($script) $outfile $?" if $?;
+    print STDERR
+	"CGI::Auth::Flexible srcdump_dir_cpio saved $dir into $outfile\n"
+	or die $!;
     $$tarballcounter++;
     return $outfile;
 }
@@ -321,8 +324,12 @@ sub srcdump_dirscan_prepare ($$) {
 				\$srctarballcounter, \$needlicence, \%dirsdone);
 	$dirsdone{$incdir}++;
     }
+    $!=0;
+    my $r = system qw(tar -zvvc -f), "$dumpdir/source.tmp", '--', @srcfiles;
+    die "tar $r $!" if $r;
     die "licence file not found" unless defined $needlicence;
     srcdump_install($c,$v, $dumpdir, 'licence', 'text/plain');
+    srcdump_install($c,$v, $dumpdir, 'source', 'application/octet-stream');
     close $lockf or die $!;
 }