working example for MySQL installation of WebGUI

[Fuse-DBI] / examples / webgui-mysql.pl

diff --git a/examples/webgui-mysql.pl b/examples/webgui-mysql.pl
new file mode 100755 (executable)
index 0000000..be64388
--- /dev/null
+++ b/examples/webgui-mysql.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl -w
+
+use strict;
+use blib;
+use Fuse::DBI;
+
+my $sql_filenames = q{
+       select
+               concat(templateid,name) as id,
+               concat(namespace,'/',name,'.html') as filename,
+               length(template) as size,
+               iseditable as writable
+       from template ;
+};
+
+my $sql_read = q{
+       select template
+               from template
+               where concat(templateid,name) = ?;
+};
+
+my $sql_update = q{
+       update template
+               set template = ?        
+               where concat(templateid,name) = ?;
+};
+
+my $mount = shift || '/mnt2';
+
+my $mnt = Fuse::DBI->mount({
+       filenames => $sql_filenames,
+       read => $sql_read,
+       update => $sql_update,
+       dsn => 'DBI:mysql:dbname=webgui_knjiznice_ffzg_hr',
+       user => 'webgui',
+       password => 'webgui',
+       mount => $mount,
+});
+
+print "Press enter to exit...";
+my $foo = <STDIN>;
+
+$mnt->umount;