Changeset 2829

Timestamp:

2001-11-08T21:02:15+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/extract_text.pl (modified) (2 diffs)

trunk/gsdl/bin/script/extract_text.pl

@@ -14 +14 @@
 my $installsh = "$ENV{'GSDLHOME'}/Install.sh";
 my $macrosdir = "$ENV{'GSDLHOME'}/macros";
+my $installshield = 'C:/My Installations/is_gsdl_cdrom/String Tables/0009-English/value.shl';
 
 my $texthash = {};
@@ -43 +44 @@
 # english2.dm
 &grab_macros("$macrosdir/english2.dm");
+
+
+# text from installshield installation
+$texthash->{'installshield'} = {};
+open (ISHIELD, $installshield) || die;
+my $line = "";
+my $textserver = {};
+while (defined ($line = <ISHIELD>)) {
+    next unless ($line =~ /\w/);
+    last if $line =~ /^\[General\]/;
+    next if $line =~ /^\[/;
+
+    if ($line =~ /^(TEXT_SERVERTXT_\d+)=(.*)$/) {
+    $textserver->{$1} = $2;
+    } else {
+    $line =~ /^([^=]+)=(.*)$/;
+    $texthash->{'installshield'}->{$1} = $2;
+    }
+}
+close ISHIELD;
+my $tserver = "";
+foreach my $stext (sort keys %{$textserver}) {
+    $tserver .= '\n' unless $tserver eq "";
+    $tserver .= $textserver->{$stext};
+}
+$texthash->{'installshield'}->{'TEXT_SERVERTXT'} = $tserver;
 
 # print out the result