diff options
| author | ivan <ivan> | 2002-05-30 22:45:20 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-05-30 22:45:20 +0000 |
| commit | 269525075ed77bfcd0a26eda9c7244e816aba92d (patch) | |
| tree | 98fee4d2e1353e550db3ab064719ce8e5fe57924 /fs_signup/FS-SignupClient | |
| parent | 8971ca50e9a854e626f9550ac1767c09400e0a10 (diff) | |
don't double \r on old templates
Diffstat (limited to 'fs_signup/FS-SignupClient')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 2fbac62..08d8a4d 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.28 2002-05-30 22:36:38 khoff Exp $ +# $Id: signup.cgi,v 1.29 2002-05-30 22:45:20 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $init_data $error @@ -52,6 +52,7 @@ if ( -e $ieak_file ) { or die $Text::Template::ERROR; $ieak_txt =~ /^(.*)$/s; #untaint the template source - it's trusted $ieak_txt = $1; + $ieak_txt =~ s/\r//g; # don't double \r on old templates $ieak_txt =~ s/\n/\r\n/g; $ieak_template = new Text::Template ( TYPE => 'STRING', SOURCE => $ieak_txt ) or die $Text::Template::ERROR; |