diff options
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi/signup.cgi')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 1008fb12f..e9552f99b 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.29.2.18 2003-10-24 19:28:46 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.19 2003-10-25 02:05:42 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -266,6 +266,7 @@ if ( defined $cgi->param('magic') ) { '_password' => $password, 'popnum' => $popnum, 'agentnum' => $agentnum, + map { $_ => $cgi->param($_) } grep { /^snarf_/ } $cgi->param } ); } @@ -273,6 +274,9 @@ if ( defined $cgi->param('magic') ) { if ( $error eq '_decline' ) { print_decline(); } elsif ( $error ) { + #fudge the snarf info + no strict 'refs'; + ${$_} = $cgi->param($_) foreach grep { /^snarf_/ } $cgi->param; print_form(); } else { print_okay(); |