Read nls.nk files to determine the proper name of NLS catalogs to install.

Hiroshi Inoue, with minor modifications by me

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index 9f59d6ca6cfc1af936188c29c859d7a409b76242..c9023760a5e91e5814496abfa3afb83bced4421e 100644 (file)
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -470,11 +470,10 @@ sub GenerateNLSFiles
                                  }, "src");
     foreach (@flist)
     {
+        my $prgm = DetermineCatalogName($_);
         s/nls.mk/po/;
         my $dir = $_;
         next unless ($dir =~ /([^\/]+)\/po$/);
-        my $prgm = $1;
-        $prgm = 'postgres' if ($prgm eq 'backend');
         foreach (glob("$dir/*.po"))
         {
             my $lang;
@@ -499,6 +498,15 @@ sub DetermineMajorVersion
     return $1;
 }
 
+sub DetermineCatalogName
+{
+    my $filename = shift;
+
+    my $f = read_file($filename) || croak "Could not open $filename";
+    $f =~ /CATALOG_NAME\s*\:?=\s*(\S+)/m || croak "Could not determine catalog name in $filename";
+    return $1;
+}
+
 sub read_file
 {
     my $filename = shift;