Changeset 2836

Timestamp:

2001-11-22T10:06:28+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/bin/script/extract_text.pl

@@ -29 +29 @@
     my $key = $1;
     my $value = $2;
-    $value =~ s/\n+/ /gs;
+    $value =~ s/\n/\\n/gs;
+    $value =~ s/\t/\\t/gs;
     if (defined ($texthash->{'install_sh'}->{$key})) {
     print STDERR "ERROR: $1 already defined\n";
@@ -56 +57 @@
     next if $line =~ /^\[/;
 
+    $line =~ s/\n/\\n/gs;
+    $line =~ s/\t/\\t/gs;
+
     if ($line =~ /^(TEXT_SERVERTXT_\d+)=(.*)$/) {
     $textserver->{$1} = $2;
@@ -66 +70 @@
 my $tserver = "";
 foreach my $stext (sort keys %{$textserver}) {
-    $tserver .= '\n' unless $tserver eq "";
     $tserver .= $textserver->{$stext};
 }
@@ -129 +132 @@
     }
 
-    $$valref =~ s/\n+/ /gs;
+
+    $$valref =~ s/\n/\\n/gs;
+    $$valref =~ s/\t/\\t/gs;
+
     $texthash->{'macros'}->{$name} = $$valref;
     }