optimize javascript to handle large numbers of POPs
[freeside.git] / fs_passwd / fs_passwdd
1 #!/usr/bin/perl -Tw
2 #
3 # fs_passwdd
4 #
5 # This is run REMOTELY over ssh by fs_passwd_server.
6 #
7 # ivan@sisd.com 98-mar-9
8
9 use strict;
10 use Socket;
11
12 my $fs_passwdd_socket = "/usr/local/freeside/fs_passwdd_socket";
13 my $pid_file = "$fs_passwdd_socket.pid";
14
15 $ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin';
16 $ENV{'SHELL'} = '/bin/sh';
17 $ENV{'IFS'} = " \t\n";
18 $ENV{'CDPATH'} = '';
19 $ENV{'ENV'} = '';
20 $ENV{'BASH_ENV'} = '';
21
22 $|=1;
23
24 my $uaddr = sockaddr_un($fs_passwdd_socket);
25 my $proto = getprotobyname('tcp');
26
27 socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!";
28 unlink($fs_passwdd_socket);
29 bind(Server, $uaddr) or die "bind: $!";
30 listen(Server,SOMAXCONN) or die "listen: $!";
31
32 if ( -e $pid_file ) {
33   open(PIDFILE,"<$pid_file");
34   #chomp( my $old_pid = <PIDFILE> );
35   my $old_pid = <PIDFILE>;
36   close PIDFILE;
37   $old_pid =~ /^(\d+)$/;
38   kill 'TERM', $1;
39 }
40 open(PIDFILE,">$pid_file");
41 print PIDFILE "$$\n";
42 close PIDFILE;
43
44 my($paddr);
45 for ( ; $paddr = accept(Client,Server); close Client) {
46   my($me,$old_password,$new_password,$new_gecos,$new_shell);
47
48   $me=<Client>;
49   $old_password=<Client>;
50   $new_password=<Client>;
51   $new_gecos=<Client>;
52   $new_shell=<Client>;
53
54   print $me,$old_password,$new_password,$new_gecos,$new_shell;
55   my($error);
56
57   $error=<STDIN>;
58   
59   print Client $error;
60   close Client;
61 }
62