use Carp;
use Data::Dumper;
use Carp;
use Data::Dumper;
# block size for this filesystem
use constant BLOCK => 1024;
# block size for this filesystem
use constant BLOCK => 1024;
# read them in with sesible defaults
while (my $row = $sth->{'filenames'}->fetchrow_hashref() ) {
# read them in with sesible defaults
while (my $row = $sth->{'filenames'}->fetchrow_hashref() ) {
+ $row->{'filename'} ||= 'NULL-'.$row->{'id'};
$files{$row->{'filename'}} = {
size => $row->{'size'},
mode => $row->{'writable'} ? 0644 : 0444,
id => $row->{'id'} || 99,
};
$files{$row->{'filename'}} = {
size => $row->{'size'},
mode => $row->{'writable'} ? 0644 : 0444,
id => $row->{'id'} || 99,
};
my $d;
foreach (split(m!/!, $row->{'filename'})) {
# first, entry is assumed to be file
my $d;
foreach (split(m!/!, $row->{'filename'})) {
# first, entry is assumed to be file