diff options
author | ivan <ivan> | 2003-10-25 02:05:44 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-10-25 02:05:44 +0000 |
commit | 9ae101389f2fe652575c6ab314a5e95c2283b72e (patch) | |
tree | db21c8ac10e3da4ef6def0b5e07bd279dc5c0cf2 /fs_signup/FS-SignupClient/cgi/signup.cgi | |
parent | 42ea96aceed291c4cb92cf475cb715b6ad7832c3 (diff) |
signups with snarf info!
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 70facb570..5ca93d289 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.47 2003-10-24 19:28:49 ivan Exp $ +# $Id: signup.cgi,v 1.48 2003-10-25 02:05:44 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(); |