first try at making this module (late commit)

[Fuse-DBI] / examples / webgui.pl

diff --git a/examples/webgui.pl b/examples/webgui.pl
new file mode 100755 (executable)
index 0000000..ce04fcf
--- /dev/null
+++ b/examples/webgui.pl
@@ -0,0 +1,33 @@
+#!/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 = ?;
+};
+
+Fuse::DBI->run({
+       filenames => $sql_filenames,
+       read => $sql_read,
+       update => $sql_update,
+       dsn => 'DBI:Pg:dbname=webgui',
+});