diff options
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/ |