diff options
| author | ivan <ivan> | 2000-02-02 07:44:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-02-02 07:44:00 +0000 |
| commit | b812b5a4a664e0bd271392ae4a609b18e85ca6b6 (patch) | |
| tree | 2421bce3329b994174d2e758a5d6e57c2cc1b074 /fs_signup/FS-SignupClient/cgi | |
| parent | 959663cd4d4885295f44de43ac005e55d054102f (diff) | |
fix some bugs in signup server
Diffstat (limited to 'fs_signup/FS-SignupClient/cgi')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 961ad505a..e5cf6d050 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.4 2000-01-31 05:22:23 ivan Exp $ +# $Id: signup.cgi,v 1.5 2000-02-02 07:44:00 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $r $error @@ -292,7 +292,7 @@ END } sub print_okay { - my $user_agent = new HTTP::Headers::UserAgnet $ENV{HTTP_USER_AGENT}; + my $user_agent = new HTTP::Headers::UserAgent $ENV{HTTP_USER_AGENT}; if ( $ieak_template && $user_agent->platform eq 'ia32' && $user_agent->os =~ /^win/ |