5 # This is run REMOTELY over ssh by fs_passwd_server.
7 # ivan@sisd.com 98-mar-9
12 my($fs_passwdd_socket)="/usr/local/freeside/fs_passwdd_socket";
14 $ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin';
15 $ENV{'SHELL'} = '/bin/sh';
16 $ENV{'IFS'} = " \t\n";
19 $ENV{'BASH_ENV'} = '';
23 my $uaddr = sockaddr_un($fs_passwdd_socket);
24 my $proto = getprotobyname('tcp');
26 socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!";
27 unlink($fs_passwdd_socket);
28 bind(Server, $uaddr) or die "bind: $!";
29 listen(Server,SOMAXCONN) or die "listen: $!";
32 for ( ; $paddr = accept(Client,Server); close Client) {
33 my($me,$old_password,$new_password,$new_gecos,$new_shell);
36 $old_password=<Client>;
37 $new_password=<Client>;
41 print $me,$old_password,$new_password,$new_gecos,$new_shell;