X-Git-Url: http://git.rot13.org/?p=Fuse-DBI;a=blobdiff_plain;f=examples%2Fwebgui.pl;fp=examples%2Fwebgui.pl;h=ce04fcfbf7a05f1b02544fca84623574377f8316;hp=0000000000000000000000000000000000000000;hb=949eca0e5c352946edb3145dcb24148a80628f6c;hpb=13fcc89c04d33608ea415d582d127206c5a289b7

diff --git a/examples/webgui.pl b/examples/webgui.pl
new file mode 100755
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',
+});