bweb: Add sqlite support

[bacula/bacula] / gui / bweb / script / tpl_generate.pl

diff --git a/gui/bweb/script/tpl_generate.pl b/gui/bweb/script/tpl_generate.pl
index bc3f221a002a568b1cc29fed24a697a4cbd10b30..1765c975a0f25a781af433a5cf89d34986d321ce 100755 (executable)
--- a/gui/bweb/script/tpl_generate.pl
+++ b/gui/bweb/script/tpl_generate.pl
@@ -6,7 +6,7 @@ use strict;
    Bweb - A Bacula web interface
    Bacula® - The Network Backup Solution
 
-   Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
+   Copyright (C) 2000-2010 Free Software Foundation Europe e.V.
 
    The main author of Bweb is Eric Bollengier.
    The main author of Bacula is Kern Sibbald, with contributions from
@@ -37,10 +37,6 @@ use strict;
     rm -f lang/fr/tpl/*.tpl
     LANGUAGE=fr ./script/tpl_generate.pl tpl/*.pl
 
-=head1 VERSION
-
-    $Id$
-
 =cut
 
 my $debug=0;
@@ -76,6 +72,9 @@ foreach my $f (@ARGV)
     print "Converting $f -> $out/$file ";
     while (my $l = <FP>)
     {
+#        $l =~ s:bresto.html:bresto.html<TMPL_IF cur_name>?dir=<TMPL_VAR cur_name></TMPL_IF>:;
+#        $l =~ s:(href=['"](\w+.pl)?\?):${1}<TMPL_IF cur_name>dir=<TMPL_VAR cur_name>;</TMPL_IF>:g;
+#        $l =~ s:(<form [^>]+>):$1<TMPL_IF cur_name><input type='hidden' name='dir' value='<TMPL_VAR cur_name>'></TMPL_IF>:g;
        my (@str) = ($l =~ m/__(.+?)__/g);
         
         while (my $s = shift @str) {