Parent Directory | Revision Log
first try at making this module (late commit)
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 | 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 |