From add9a2b100af10df0b5d4ed174c158d99358cee3 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 17 Dec 1999 12:03:03 +0000 Subject: [PATCH] beginning of IEAK support --- fs_signup/FS-SignupClient/cgi/signup.cgi | 80 ++++++++++++++++++++++++++++++-- 1 file changed, 77 insertions(+), 3 deletions(-) diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 7131ad2e8..15767c151 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,22 +1,34 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.1 1999-08-24 07:40:45 ivan Exp $ +# $Id: signup.cgi,v 1.2 1999-12-17 12:03:03 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $r $error $last $first $ss $company $address1 $address2 $city $state $county $country $zip $daytime $night $fax $invoicing_list $payby $payinfo - $paydate $payname $pkgpart $username $password $popnum ); + $paydate $payname $pkgpart $username $password $popnum + $ieak_docroot $ieak_baseurl ); use subs qw( print_form print_okay expselect ); use CGI; use CGI::Carp qw(fatalsToBrowser); +use HTTP::Headers::UserAgent 2.00; use FS::SignupClient qw( signup_info new_customer ); +#acceptable payment methods +# #@payby = qw( CARD BILL COMP ); #@payby = qw( CARD BILL ); @payby = qw( CARD ); +#to enable ieak signups, you need to specify a directory in the web server's +#document space and the equivalent base URL +# +$ieak_docroot = "/var/www/sisd.420.am/freeside/ieak"; +$ieak_baseurl = "http://sisd.420.am/freeside/ieak"; + +#srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`); + ( $locales, $packages, $pops ) = signup_info(); $cgi = new CGI; @@ -265,13 +277,75 @@ END } sub print_okay { - print $cgi->header( '-expires' => 'now' ), <platform eq 'ia32' + && $user_agent->os =~ /^win/ + && ($user-agent->browser)[0] eq 'IE' + ) + { #send an IEAK config + my $username = $cgi->param('username'); + my $password = $cgi->param('_password'); + my $email_name = $cgi->param('first'). ' '. $cgi->param('last'); + my $ins_file = rand(4294967296). ".ins"; + open(INS_FILE, ">$ieak_docroot/$ins_file"); + print INS_FILE <redirect("$ieak_docroot/$ins_file"); + + } else { #send a simple confirmation + print $cgi->header( '-expires' => 'now' ), <Signup successful Signup successful

blah blah blah END + } } sub expselect { -- 2.11.0