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 a462bf8434f79f2e0f0190565ebfed908ff2e4af..ea833489876417d7e70d5a748caa4796a2105267 100644 (file)
--- 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 $!;
 }