373 |
$file =~ s,^/,,; |
$file =~ s,^/,,; |
374 |
$file = '.' unless length($file); |
$file = '.' unless length($file); |
375 |
return -ENOENT() unless exists($files{$file}); |
return -ENOENT() unless exists($files{$file}); |
376 |
my ($size) = $files{$file}{size} || BLOCK; |
my ($size) = $files{$file}{size} || 0; |
377 |
my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+BLOCK-1)/BLOCK),0,0,1,BLOCK); |
my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+BLOCK-1)/BLOCK),0,0,1,BLOCK); |
378 |
my ($atime, $ctime, $mtime); |
my ($atime, $ctime, $mtime); |
379 |
$atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start; |
$atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start; |
432 |
|
|
433 |
read_content($file,$files{$file}{id}) unless exists($files{$file}{cont}); |
read_content($file,$files{$file}{id}) unless exists($files{$file}{cont}); |
434 |
|
|
435 |
|
$files{$file}{cont} ||= ''; |
436 |
print "open '$file' ",length($files{$file}{cont})," bytes\n"; |
print "open '$file' ",length($files{$file}{cont})," bytes\n"; |
437 |
return 0; |
return 0; |
438 |
} |
} |