signup is now just a wrapper around self-service

diff --git a/fs_signup/FS-SignupClient/MANIFEST b/fs_signup/FS-SignupClient/MANIFEST
index b4a9900..365ae66 100644 (file)
--- 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 310200b..9850c87 100644 (file)
--- 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 (executable)
index 85bd68a..0000000
--- 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";
-  }
-
-}
-