Changeset 2836
- Timestamp:
- 2001-11-22T10:06:28+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/extract_text.pl
r2829 r2836 29 29 my $key = $1; 30 30 my $value = $2; 31 $value =~ s/\n+/ /gs; 31 $value =~ s/\n/\\n/gs; 32 $value =~ s/\t/\\t/gs; 32 33 if (defined ($texthash->{'install_sh'}->{$key})) { 33 34 print STDERR "ERROR: $1 already defined\n"; … … 56 57 next if $line =~ /^\[/; 57 58 59 $line =~ s/\n/\\n/gs; 60 $line =~ s/\t/\\t/gs; 61 58 62 if ($line =~ /^(TEXT_SERVERTXT_\d+)=(.*)$/) { 59 63 $textserver->{$1} = $2; … … 66 70 my $tserver = ""; 67 71 foreach my $stext (sort keys %{$textserver}) { 68 $tserver .= '\n' unless $tserver eq "";69 72 $tserver .= $textserver->{$stext}; 70 73 } … … 129 132 } 130 133 131 $$valref =~ s/\n+/ /gs; 134 135 $$valref =~ s/\n/\\n/gs; 136 $$valref =~ s/\t/\\t/gs; 137 132 138 $texthash->{'macros'}->{$name} = $$valref; 133 139 }
Note:
See TracChangeset
for help on using the changeset viewer.