diff options
author | ivan <ivan> | 2004-03-15 19:22:25 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-03-15 19:22:25 +0000 |
commit | 6c5e54768bdf79070efd43963c1132fed7885eb1 (patch) | |
tree | 4e604b1e40c28084b56ddb3a1b107d5f8034183d /fs_signup | |
parent | 06f0a601e40a06106f1d603edf3657c6753279ff (diff) |
signup is now just a wrapper around self-service
Diffstat (limited to 'fs_signup')
-rw-r--r-- | fs_signup/FS-SignupClient/MANIFEST | 1 | ||||
-rw-r--r-- | fs_signup/FS-SignupClient/Makefile.PL | 6 | ||||
-rwxr-xr-x | fs_signup/FS-SignupClient/fs_signupd | 86 |
3 files changed, 3 insertions, 90 deletions
diff --git a/fs_signup/FS-SignupClient/MANIFEST b/fs_signup/FS-SignupClient/MANIFEST index b4a9900c8..365ae660b 100644 --- a/fs_signup/FS-SignupClient/MANIFEST +++ b/fs_signup/FS-SignupClient/MANIFEST @@ -4,5 +4,4 @@ MANIFEST.SKIP Makefile.PL SignupClient.pm test.pl -fs_signupd cgi/signup.cgi diff --git a/fs_signup/FS-SignupClient/Makefile.PL b/fs_signup/FS-SignupClient/Makefile.PL index 310200b57..9850c870d 100644 --- a/fs_signup/FS-SignupClient/Makefile.PL +++ b/fs_signup/FS-SignupClient/Makefile.PL @@ -4,9 +4,9 @@ use ExtUtils::MakeMaker; WriteMakefile( 'NAME' => 'FS::SignupClient', 'VERSION_FROM' => 'SignupClient.pm', # finds $VERSION - 'EXE_FILES' => [ 'fs_signupd' ], - 'INSTALLSCRIPT' => '/usr/local/sbin', - 'INSTALLSITEBIN' => '/usr/local/sbin', +# 'EXE_FILES' => [ 'fs_signupd' ], +# 'INSTALLSCRIPT' => '/usr/local/sbin', +# 'INSTALLSITEBIN' => '/usr/local/sbin', 'PERM_RWX' => '750', 'PREREQ_PM' => { 'Business::CreditCard' => 0, diff --git a/fs_signup/FS-SignupClient/fs_signupd b/fs_signup/FS-SignupClient/fs_signupd deleted file mode 100755 index 85bd68a2f..000000000 --- a/fs_signup/FS-SignupClient/fs_signupd +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/perl -Tw -# -# fs_signupd -# -# This is run REMOTELY over ssh by fs_signup_server. - -use strict; -use Socket; -use Storable qw(nstore_fd fd_retrieve); -use IO::Handle; - -use vars qw( $Debug ); - -$Debug = 1; - -my $fs_signupd_socket = "/usr/local/freeside/fs_signupd_socket"; -my $pid_file = "$fs_signupd_socket.pid"; - -$ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin'; -$ENV{'SHELL'} = '/bin/sh'; -$ENV{'IFS'} = " \t\n"; -$ENV{'CDPATH'} = ''; -$ENV{'ENV'} = ''; -$ENV{'BASH_ENV'} = ''; - -$|=1; - -warn "[fs_signupd] Reading init data...\n" if $Debug; -my $init_data = fd_retrieve(\*STDIN); - -warn "[fs_signupd] Creating $fs_signupd_socket\n" if $Debug; -my $uaddr = sockaddr_un($fs_signupd_socket); -my $proto = getprotobyname('tcp'); -socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!"; -unlink($fs_signupd_socket); -bind(Server, $uaddr) or die "bind: $!"; -listen(Server,SOMAXCONN) or die "listen: $!"; - -if ( -e $pid_file ) { - open(PIDFILE,"<$pid_file"); - #chomp( my $old_pid = <PIDFILE> ); - my $old_pid = <PIDFILE>; - close PIDFILE; - $old_pid =~ /^(\d+)$/; - kill 'TERM', $1; -} -open(PIDFILE,">$pid_file"); -print PIDFILE "$$\n"; -close PIDFILE; - -warn "[fs_signupd] Entering main loop...\n" if $Debug; -my $paddr; -for ( ; $paddr = accept(Client,Server); close Client) { - - chop( my $command = <Client> ); - - if ( $command eq "signup_info" ) { - - warn "[fs_signupd] sending signup info...\n" if $Debug; - nstore_fd($init_data, \*Client) or die "can't send init data: $!"; - Client->flush; - - } elsif ( $command eq "new_customer" ) { - - #inefficient... - - warn "[fs_signupd] reading customer signup...\n" if $Debug; - my $signup_data = fd_retrieve(\*Client); - - warn "[fs_signupd] sending customer data to remote server...\n" if $Debug; - nstore_fd($signup_data, \*STDOUT) or die "can't send signup data: $!"; - STDOUT->flush; - - warn "[fs_signupd] reading error from remote server...\n" if $Debug; - my $error = <STDIN>; - - warn "[fs_signupd] sending error to local client...\n" if $Debug; - print Client $error; - Client->flush; - - } else { - die "unexpected command from client: $command"; - } - -} - |