mirror of
https://github.com/vgough/encfs.git
synced 2024-12-28 17:48:48 +01:00
98 lines
2.2 KiB
PHP
98 lines
2.2 KiB
PHP
# Helper function
|
|
# Get the MD5 sum of the file open at the filehandle
|
|
use Digest::MD5 qw(md5_hex);
|
|
sub md5fh
|
|
{
|
|
my $fh_orig = shift;
|
|
open(my $fh, "<&", $fh_orig); # Duplicate the file handle so the seek
|
|
seek($fh, 0, 0); # does not affect the caller
|
|
my $md5 = Digest::MD5->new->addfile($fh)->hexdigest;
|
|
close($fh);
|
|
return $md5;
|
|
}
|
|
|
|
# Get the file size from stat() (by file handle or name)
|
|
sub statSize
|
|
{
|
|
my $f = shift;
|
|
my @s = stat($f) or die("stat on '$f' failed");
|
|
return $s[7];
|
|
}
|
|
|
|
# Get the file size by read()ing the whole file
|
|
sub readSize
|
|
{
|
|
my $fh = shift;
|
|
seek($fh, 0, 0);
|
|
my $block = 4*1024;
|
|
my $s;
|
|
my $data;
|
|
my $sum = read($fh, $data, $block);
|
|
while ( $s = read($fh, $data, $block) )
|
|
{
|
|
$sum += $s;
|
|
}
|
|
$data = "";
|
|
return $sum;
|
|
}
|
|
|
|
# Verify that the size of the file passed by filehandle matches the target size s0
|
|
# Checks both stat() and read()
|
|
sub sizeVerify
|
|
{
|
|
my $ok = 1;
|
|
my $fh = shift;
|
|
my $s0 = shift;
|
|
$ss = statSize($fh);
|
|
if ($s0 != $ss) {
|
|
$ok = 0;
|
|
print("# stat size $ss, expected $s0\n");
|
|
}
|
|
$sr = readSize($fh);
|
|
if ($s0 != $sr) {
|
|
$ok = 0;
|
|
print("# read size $sr, expected $s0\n");
|
|
}
|
|
return $ok;
|
|
}
|
|
|
|
# Wait for a file to appear
|
|
use Time::HiRes qw(usleep);
|
|
sub waitForFile
|
|
{
|
|
my $file = shift;
|
|
my $timeout;
|
|
$timeout = shift or $timeout = 5;
|
|
for(my $i = $timeout*10; $i > 0; $i--)
|
|
{
|
|
-f $file and return 1;
|
|
usleep(100000); # 0.1 seconds
|
|
}
|
|
print "# timeout waiting for '$file' to appear\n";
|
|
return 0;
|
|
}
|
|
|
|
# writeZeroes($filename, $size)
|
|
# Write zeroes of size $size to file $filename
|
|
sub writeZeroes
|
|
{
|
|
my $filename = shift;
|
|
my $size = shift;
|
|
open(my $fh, ">", $filename);
|
|
my $bs = 4096; # 4 KiB
|
|
my $block = "\0" x $bs;
|
|
my $remain;
|
|
for($remain = $size; $remain >= $bs; $remain -= $bs)
|
|
{
|
|
print($fh $block) or BAIL_OUT("Could not write to $filename: $!");
|
|
}
|
|
if($remain > 0)
|
|
{
|
|
$block = "\0" x $remain;
|
|
print($fh $block) or BAIL_OUT("Could not write to $filename: $!");
|
|
}
|
|
}
|
|
|
|
# As this file will be require()'d, it needs to return true
|
|
return 1;
|