trunk/examples/webgui.pl

#!/usr/bin/perl -w

use strict;
use blib;
use Fuse::DBI;

my $sql_filenames = q{
        select
                oid as id,
                namespace||'/'||name||' ['||oid||']' as filename,
                length(template) as size,
                iseditable as writable
        from template ;
};

my $sql_read = q{
        select template
                from template
                where oid = ?;
};

my $sql_update = q{
        update template
                set template = ?        
                where oid = ?;
};

my $mnt = Fuse::DBI->mount({
        filenames => $sql_filenames,
        read => $sql_read,
        update => $sql_update,
        dsn => 'DBI:Pg:dbname=webgui',
        mount => '/mnt2',
});

print "Press enter to exit...";
my $foo = <STDIN>;

$mnt->umount;
1	dpavlin	11	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5			use Fuse::DBI;
6
7			my $sql_filenames = q{
8			select
9			oid as id,
10			namespace\|\|'/'\|\|name\|\|' ['\|\|oid\|\|']' as filename,
11			length(template) as size,
12			iseditable as writable
13			from template ;
14			};
15
16			my $sql_read = q{
17			select template
18			from template
19			where oid = ?;
20			};
21
22			my $sql_update = q{
23			update template
24			set template = ?
25			where oid = ?;
26			};
27
28	dpavlin	13	my $mnt = Fuse::DBI->mount({
29	dpavlin	11	filenames => $sql_filenames,
30			read => $sql_read,
31			update => $sql_update,
32			dsn => 'DBI:Pg:dbname=webgui',
33	dpavlin	13	mount => '/mnt2',
34	dpavlin	11	});
35	dpavlin	13
36			print "Press enter to exit...";
37			my $foo = <STDIN>;
38
39			$mnt->umount;