bweb: Update some GPL2 notice to AGPL

[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 d2783d5f2f25c8aa5c50fbea986d8963a77ef92e..bc3f221a002a568b1cc29fed24a697a4cbd10b30 100755 (executable)
--- a/gui/bweb/script/tpl_generate.pl
+++ b/gui/bweb/script/tpl_generate.pl
@@ -11,25 +11,24 @@ use strict;
    The main author of Bweb is Eric Bollengier.
    The main author of Bacula is Kern Sibbald, with contributions from
    many others, a complete list can be found in the file AUTHORS.
-
    This program is Free Software; you can redistribute it and/or
-   modify it under the terms of version two of the GNU General Public
-   License as published by the Free Software Foundation plus additions
-   that are listed in the file LICENSE.
+   modify it under the terms of version three of the GNU Affero General Public
+   License as published by the Free Software Foundation and included
+   in the file LICENSE.
 
    This program is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-   General Public License for more details.
+   Affero General Public License for more details.
 
-   You should have received a copy of the GNU General Public License
+   You should have received a copy of the GNU Affero General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
    02110-1301, USA.
 
-   Bacula® is a registered trademark of John Walker.
+   Bacula® is a registered trademark of Kern Sibbald.
    The licensor of Bacula is the Free Software Foundation Europe
-   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zurich,
+   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
    Switzerland, email:ftf@fsfeurope.org.
 
 =head1 USAGE
@@ -88,11 +87,9 @@ foreach my $f (@ARGV)
            }
 
            $s =~ s/[?]/\\?/g;
-           $s =~ s/@/\\@/g;
-           $r =~ s/@/\\@/g;
            $s =~ s/\$/\\\$/g;
            $r =~ s/\$/\\\$/g;
-           $s =~ s/([()])/\\$1/g;
+           $s =~ s/([\[\]\(\)])/\\$1/g;
 
            $l =~ s/__${s}__/$r/g;
        }