/[fuse_dbi]/trunk/examples/webgui-mysql.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/examples/webgui-mysql.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 24 by dpavlin, Sun Aug 29 20:56:23 2004 UTC revision 25 by dpavlin, Fri Oct 8 20:07:32 2004 UTC
# Line 4  use strict; Line 4  use strict;
4  use blib;  use blib;
5  use Fuse::DBI;  use Fuse::DBI;
6    
7    my $template_dir = '/data/WebGUI/cms.rot13.org/uploads/temp/templates';
8    
9  my $sql_filenames = q{  my $sql_filenames = q{
10          select          select
11                  concat(templateid,name) as id,                  concat(templateid,name) as id,
# Line 35  my $mnt = Fuse::DBI->mount({ Line 37  my $mnt = Fuse::DBI->mount({
37          user => 'webgui',          user => 'webgui',
38          password => 'webgui',          password => 'webgui',
39          mount => $mount,          mount => $mount,
40            invalidate => sub {
41                    print STDERR "invalidating content in $template_dir\n";
42                    opendir(DIR, $template_dir) || die "can't opendir $template_dir: $!";
43                    map { unlink "$template_dir/$_" || warn "can't remove $template_dir/$_: $!" } grep { !/^\./ && -f "$template_dir/$_" } readdir(DIR);
44                    closedir DIR;
45            }
46    
47  });  });
48    
49  print "Press enter to exit...";  print "Press enter to exit...";

Legend:
Removed from v.24  
changed lines
  Added in v.25

  ViewVC Help
Powered by ViewVC 1.1.26