Parent Directory | Revision Log
first try at making this module (late commit)
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 | Fuse::DBI->run({ |
29 | filenames => $sql_filenames, |
30 | read => $sql_read, |
31 | update => $sql_update, |
32 | dsn => 'DBI:Pg:dbname=webgui', |
33 | }); |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |