ebl update tools

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@6087 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/script/tpl_extract_msg.pl b/gui/bweb/script/tpl_extract_msg.pl
index 666b0e30210a88d14a2db5f8e08edba4e753ae38..be3fcae48c4cbd9d09fd7c8671466c2cf6b24762 100755 (executable)
--- a/gui/bweb/script/tpl_extract_msg.pl
+++ b/gui/bweb/script/tpl_extract_msg.pl
@@ -4,7 +4,7 @@ use strict;
 =head1 LICENSE
 
    Bweb - A Bacula web interface
-   Bacula® - The Network Backup Solution
+   Bacula\81Â\81® - The Network Backup Solution
 
    Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
 
@@ -27,7 +27,7 @@ use strict;
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
    02110-1301, USA.
 
-   Bacula® is a registered trademark of John Walker.
+   Bacula\81Â\81® is a registered trademark of John Walker.
    The licensor of Bacula is the Free Software Foundation Europe
    (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zurich,
    Switzerland, email:ftf@fsfeurope.org.
@@ -49,20 +49,31 @@ use Locale::PO;
 my $in_script;
 
 my %dict;
+my $l=0;
+my $file;
+
+sub init_fp
+{
+    open(FP, "|sort -n") ;
+}
+
 sub print_it
 {
     foreach my $w (@_) {
+#      print "<$w\n";
        next if ($w eq '&nbsp;');
        next if ($w !~ /\w/);
        next if ($w =~ />/);
-
+       next if ($w eq 'checked');
+#      print "$w>\n";
        next if (exists $dict{$w});
        $dict{$w}=1;
 
        # we add " at the begining and the end of the string
-       $w =~ s/(^|$)/"/gm; # "
-       print "msgid ", $w, "\n";
-        print 'msgstr ""', "\n\n";
+       #$w =~ s/'/\\'/gm; # "
+       #print "s\@(?!value='|_)$w\@\$1_${w}_\@g;\n";
+       #print "s!(${w})([^a-zA-Z0-9]|\$)!__\$1__\$2!g;\n";
+       print "$w\n";
     }
 }
 
@@ -71,7 +82,7 @@ sub text {
     
     # between <script>..</script> we take only "words"
     if ($in_script) {
-       my @words = ($text =~ /"([\w\s]+)"/gs);
+       my @words = ($text =~ /"([\w\s\81é\81è\81à\81ç\81û\81ô\81ö\81ü\81ï\81î\81ù!?]+)"/gs);
        print_it(@words);
        return;
     }
@@ -114,12 +125,22 @@ sub end {
     }
 }
 
+sub finish_fp
+{
+    close(FP);
+}
+1;
+
 package main;
 
 my $p = new TmplParser;
+$p->init_fp();
 for (my $f = shift ; $f and -f $f ; $f = shift) {
     #$TmplParser::nb=0;
-    print "#============ $f ==========\n";
-    $p->parse_file($f);
+#    print "#============ $f ==========\n";
+    $file = $f;
+    $file =~ s!.*?/([\w\d]+).tpl$!$1!;
+    $p->parse_file($f); $l=0;
 }
-
+$p->finish_fp();
+#print "s/value='__([^']+)__'/value='\$1'/g;\n";

diff --git a/gui/bweb/script/tpl_generate.pl b/gui/bweb/script/tpl_generate.pl
new file mode 100755 (executable)
index 0000000..d63f622
--- /dev/null
+++ b/gui/bweb/script/tpl_generate.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+use strict;
+
+my $f = shift or die "Usage $0 pofile";
+
+my $tab;
+{ 
+    no strict;
+    $tab = eval `cat $f`;
+}
+
+die "E: Can't read $f" unless ($tab);
+my $r;
+foreach my $e (keys %$tab)
+{
+    $e =~ s/[?]/\\?/g;
+    $e =~ s/@/\\@/g;
+    $r = $tab->{$e} || $e;
+    $e =~ s/([()])/\\$1/g;
+    print "s!__${e}__!${r}!g;\n";
+}
+
+print "print;";
+
+
+__END__
+
+copy tpl files
+generate perl script
+tpl_generate.pl fr.pl > a
+perl -i.bak -n a *.tpl