Translation Summary Script (dumpstrings.pl) Patch

[Owen Stenseth]

Hello,

Here is a quick patch to the dumpstrings.pl script (the one that
generates the translation summary table) so that it will check all
strings instead of just DLG_ strings. Paul Rohr was originally taking
care of patching the cvs copy for me but I thought I would post it here
so that
it does not get lost.

At some point I will rewrite the script to generate a language by
language summary but until then this should be complete enough.

Enjoy,
Owen

P.S. My last attempt to send this bounced because my email changed
again.
Index: dumpstrings.pl
===================================================================
RCS file: /cvsroot/abi/dumpstrings.pl,v
retrieving revision 1.4
diff -p -r1.4 dumpstrings.pl
*** dumpstrings.pl      2000/03/10 17:52:42     1.4
--- dumpstrings.pl      2000/05/02 22:55:31
*************** foreach my $file (qw(./src/wp/ap/xp/ap_S
*** 21,27 ****
      or die "Cannot open $file";
    
    while (<STRINGS>) {
!     next unless /(DLG_.*)\s*,\s*\"(.*)\"/;
      my ($dlg,$string) = ($1,$2);
      $string =~ s/&amp/&/;
      $dlgs{$dlg}{$lang} = $string;
--- 21,27 ----
      or die "Cannot open $file";
    
    while (<STRINGS>) {
!     next unless /dcl\((.*)\s*,\s*\"(.*)\"/;
      my ($dlg,$string) = ($1,$2);
      $string =~ s/&amp/&/;
      $dlgs{$dlg}{$lang} = $string;
*************** closedir DIR;
*** 45,51 ****
    $noamp{$lang} = 0;
  
    while (<STRINGS>) {
!     next unless /^(DLG_.*)=\"(.*)\"/;
      my ($dlg,$string) = ($1,$2);
      $string =~ s/&amp;/&/;
      $dlgs{$dlg}{$lang} = $string;
--- 45,51 ----
    $noamp{$lang} = 0;
  
    while (<STRINGS>) {
!     next unless /^(\w*)=\"(.*)\"/;
      my ($dlg,$string) = ($1,$2);
      $string =~ s/&amp;/&/;
      $dlgs{$dlg}{$lang} = $string;
*************** print
*** 130,136 ****
         ), "\n";
  
  print
!   a({name=>"LongestSummary"}, h2('Longest Language Summary'));
  
  my @td = ();
  foreach my $dlg (sort { $longest{$a} cmp $longest{$b}  } keys %dlgs) {
--- 130,136 ----
         ), "\n";
  
  print
!   a({name=>'LongestSummary'}, h2('Longest Language Summary : Sorted by Language'));
  
  my @td = ();
  foreach my $dlg (sort { $longest{$a} cmp $longest{$b}  } keys %dlgs) {