|
|
inherit "module"; |
|
constant cvs_version = "$Id: tarfs.pike,v 1.11 2002/06/14 00:08:07 nilsson Exp $"; |
|
|
constant thread_safe = 0; |
|
#include <module.h> |
|
constant module_type = MODULE_LOCATION; |
constant module_name = "File systems: Tar File"; |
constant module_doc = |
("This is a file system module that makes it possible to mount a " |
"directory structure from a tar-file directly on the site. gzip compressed " |
"tar-files are not supported"); |
constant module_unique = 0; |
|
void create() |
{ |
defvar( "mountpoint", "/", |
"Mount point", TYPE_LOCATION|VAR_INITIAL, |
"Where the module will be mounted in the site's virtual file system." ); |
|
defvar("tarfile", "docs.tar", |
"Tar file and root path", TYPE_FILE|VAR_INITIAL, |
"The tarfile, and an optional root path (syntax: /tar/file.tar:/root/dir/)" ); |
} |
|
string mp; |
|
Filesystem.Tar tar; |
|
string query_name() |
{ |
return query("mountpoint")+" from "+query("tarfile"); |
} |
|
void start() |
{ |
string path = "", tf = query( "tarfile" ); |
mp = query("mountpoint"); |
sscanf( tf, "%s:%s", tf, path ); |
tar = 0; |
if( catch(tar = Filesystem.Tar( tf )) ) |
{ |
report_error( "Failed to open tar-file "+tf+"!\n" ); |
tar = 0; |
} |
else if( strlen( path ) ) |
tar->cd( path ); |
} |
|
|
string query_location() |
{ |
return mp; |
} |
|
Stat stat_file( string f, RequestID id ) |
{ |
if(!tar) return 0; |
object s = tar->stat( f ); |
if( s ) |
return ({ s->mode, s->size, s->atime, s->mtime, s->ctime, s->uid, s->gid }); |
} |
|
string real_file( string f, RequestID id ) |
{ |
return 0; |
} |
|
array find_dir( string f, RequestID id ) |
{ |
if(!tar) return 0; |
return tar->get_dir( f ); |
} |
|
mixed find_file( string f, RequestID id ) |
{ |
if(!tar) return 0; |
object s = tar->stat( f ); |
if( !s ) return 0; |
if( s->isdir() ) return -1; |
return StringFile( tar->open( f, "r" )->read(), |
stat_file( f, id )); |
} |
|
|