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 | |
| parent | 959663cd4d4885295f44de43ac005e55d054102f (diff) | |
fix some bugs in signup server
Diffstat (limited to 'fs_signup/FS-SignupClient')
| -rw-r--r-- | fs_signup/FS-SignupClient/SignupClient.pm | 3 | ||||
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index 7c96609f6..5769c18fc 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -4,6 +4,7 @@ use strict; use vars qw($VERSION @ISA @EXPORT_OK $fs_signupd_socket); use Exporter; use Socket; +use FileHandle; use IO::Handle; $VERSION = '0.01'; @@ -203,7 +204,7 @@ sub new_customer { =head1 VERSION -$Id: SignupClient.pm,v 1.2 2000-01-28 22:49:28 ivan Exp $ +$Id: SignupClient.pm,v 1.3 2000-02-02 07:44:00 ivan Exp $ =head1 BUGS 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/ |