#!/usr/bin/perl
use Fuse;
use strict;
use warnings;

use threads::shared;
use Fuse "fuse_get_context";
use POSIX "ENOENT";

my (%files) = ( 'thanos' => { type => 0040,
			      mode => 0755,
			      ctime => time()-1000
		}
    );

sub filename_fixup {
    my ($file) = shift;
    $file =~ s,^/,,;
    $file = '.' unless length($file);
    return $file;
}

sub e_getattr {
    my ($file) = filename_fixup(shift);
    $file =~ s,^/,,;
    $file = '.' unless length($file);
    return -ENOENT() unless exists($files{$file});
    my ($size) = exists($files{$file}{cont}) ? length($files{$file}{cont}) : 0;
    $size = $files{$file}{size} if exists $files{$file}{size};
    my ($modes) = ($files{$file}{type}<<9) + $files{$file}{mode};
    my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024);
    my ($atime, $ctime, $mtime);
    $atime = $ctime = $mtime = $files{$file}{ctime};
    # 2 possible types of return values:
    #return -ENOENT(); # or any other error you care to
    #print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n");
    return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);
}

sub e_getdir {
    # return as many text filenames as you like, followed by the retval.
    print((scalar keys %files)."\n");
    return (keys %files),0;
}

my $mountpoint = "";
$mountpoint = $ARGV[1] or die "You forgot to provide the mountpoint!\n";
#$mountpoint = shift(@ARGV) if @ARGV;

croak("Fuse doesn't have ioctl") unless Fuse::fuse_version() >= 2.8;

Fuse::main(
    debug      => 1,
    mountpoint => $mountpoint,
    mountopts  => "", # if 'user_allow_other' in /etc/fuse.conf as per the FUSE documention
    threaded   => 0,
    getattr    => "main::e_getattr",
    #getdir     => "main::e_getdir",
    #open       => "main::e_open",
    #statfs     => "main::e_statfs",
    #read       => "main::e_read",
    );