forked from lix-project/lix
nix-push: Add a flag ‘--manifest-path’ to write the manifest to another directory
This commit is contained in:
parent
c8daeba303
commit
dde6486eab
|
@ -22,6 +22,7 @@ my $compressionType = "xz";
|
||||||
my $force = 0;
|
my $force = 0;
|
||||||
my $destDir;
|
my $destDir;
|
||||||
my $writeManifest = 0;
|
my $writeManifest = 0;
|
||||||
|
my $manifestPath;
|
||||||
my $archivesURL;
|
my $archivesURL;
|
||||||
my $link = 0;
|
my $link = 0;
|
||||||
my @roots;
|
my @roots;
|
||||||
|
@ -42,6 +43,12 @@ for (my $n = 0; $n < scalar @ARGV; $n++) {
|
||||||
mkpath($destDir, 0, 0755);
|
mkpath($destDir, 0, 0755);
|
||||||
} elsif ($arg eq "--manifest") {
|
} elsif ($arg eq "--manifest") {
|
||||||
$writeManifest = 1;
|
$writeManifest = 1;
|
||||||
|
} elsif ($arg eq "--manifest-path") {
|
||||||
|
$n++;
|
||||||
|
die "$0: `$arg' requires an argument\n" unless $n < scalar @ARGV;
|
||||||
|
$manifestPath = $ARGV[$n];
|
||||||
|
$writeManifest = 1;
|
||||||
|
mkpath(dirname($manifestPath), 0, 0755);
|
||||||
} elsif ($arg eq "--url-prefix") {
|
} elsif ($arg eq "--url-prefix") {
|
||||||
$n++;
|
$n++;
|
||||||
die "$0: `$arg' requires an argument\n" unless $n < scalar @ARGV;
|
die "$0: `$arg' requires an argument\n" unless $n < scalar @ARGV;
|
||||||
|
@ -267,4 +274,4 @@ printf STDERR "total compressed size %.2f MiB, %.1f%%\n",
|
||||||
|
|
||||||
|
|
||||||
# Optionally write a manifest.
|
# Optionally write a manifest.
|
||||||
writeManifest "$destDir/MANIFEST", \%narFiles, \() if $writeManifest;
|
writeManifest($manifestPath // "$destDir/MANIFEST", \%narFiles, \()) if $writeManifest;
|
||||||
|
|
Loading…
Reference in a new issue