commit 1f89d66ab922c72bf01bf9b0662b832c9309e45f from: Omar Polo date: Wed Jun 29 10:45:33 2022 UTC recursively create directories commit - d69b79026381ab7108b17b12ba835ce503f80539 commit + 1f89d66ab922c72bf01bf9b0662b832c9309e45f blob - 88f6dcd174d3474712ab3d8a408f87467b61cb9c blob + 380dadc2ac66c40f077e9dea6dc13a3f602a6ab2 --- plass +++ plass @@ -105,10 +105,20 @@ sub readpass { die "failed to read stdin: $!" unless defined($pass); chomp $pass; return $pass; +} + +sub mkdirs { + my $dir = shift; + my $parent = dirname $dir; + mkdirs($parent) unless -d $parent || $parent eq '/'; + mkdir $dir or die "mkdir $dir: $!" + unless -d $dir; } sub writepass { my ($file, $pass) = @_; + + mkdirs(dirname $file); my @args = ($gpg, @gpg_flags, '-e', '-r', recipient(), '-o', $file);