trunk/examples/webgui-mysql.pl

#!/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;
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	concat(templateid,name) as id,
10	concat(namespace,'/',name,'.html') 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 concat(templateid,name) = ?;
20	};
21
22	my $sql_update = q{
23	update template
24	set template = ?
25	where concat(templateid,name) = ?;
26	};
27
28	my $mount = shift \|\| '/mnt2';
29
30	my $mnt = Fuse::DBI->mount({
31	filenames => $sql_filenames,
32	read => $sql_read,
33	update => $sql_update,
34	dsn => 'DBI:mysql:dbname=webgui_knjiznice_ffzg_hr',
35	user => 'webgui',
36	password => 'webgui',
37	mount => $mount,
38	});
39
40	print "Press enter to exit...";
41	my $foo = <STDIN>;
42
43	$mnt->umount;