Parent Directory | Revision Log
getdir fix, working WebGUI example
1 | #!/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 | my $mnt = Fuse::DBI->mount({ |
29 | filenames => $sql_filenames, |
30 | read => $sql_read, |
31 | update => $sql_update, |
32 | dsn => 'DBI:Pg:dbname=webgui', |
33 | mount => '/mnt2', |
34 | }); |
35 | |
36 | print "Press enter to exit..."; |
37 | my $foo = <STDIN>; |
38 | |
39 | $mnt->umount; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |