diff options
| author | khoff <khoff> | 2002-05-30 22:36:38 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2002-05-30 22:36:38 +0000 |
| commit | 19f8b2d8ef579c35a36b6e518d8c38afbcb1042e (patch) | |
| tree | c51cedfe6ff0207997bd64e9372504aafec3a823 /fs_signup | |
| parent | 68d29e0ca9fcfe6b68240d946c8bf71d7b31767a (diff) | |
replace newlines with crlf here instead of escaping them in the template
Diffstat (limited to 'fs_signup')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 009a633..2fbac62 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.27 2002-04-25 12:03:15 ivan Exp $ +# $Id: signup.cgi,v 1.28 2002-05-30 22:36:38 khoff Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $init_data $error @@ -46,11 +46,13 @@ $decline_html = -e 'decline.html' ? 'decline.html' : '/usr/local/freeside/decline.html'; + if ( -e $ieak_file ) { my $ieak_txt = Text::Template::_load_text($ieak_file) or die $Text::Template::ERROR; $ieak_txt =~ /^(.*)$/s; #untaint the template source - it's trusted $ieak_txt = $1; + $ieak_txt =~ s/\n/\r\n/g; $ieak_template = new Text::Template ( TYPE => 'STRING', SOURCE => $ieak_txt ) or die $Text::Template::ERROR; } else { |