diff options
author | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
commit | e1eb06c05b654a4533bab0e034e87a8de99015cc (patch) | |
tree | 448f6ca1c635eb08c0b4e51b3d40146febaf5df1 /fs_passwd/fs_passwdd | |
parent | 47806ec845818ba69604e0452e7c7b25d62f0772 (diff) |
This commit was manufactured by cvs2svn to create tag 'freeside_current'.freeside_current
Diffstat (limited to 'fs_passwd/fs_passwdd')
-rwxr-xr-x | fs_passwd/fs_passwdd | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/fs_passwd/fs_passwdd b/fs_passwd/fs_passwdd deleted file mode 100755 index 582e13ccd..000000000 --- a/fs_passwd/fs_passwdd +++ /dev/null @@ -1,49 +0,0 @@ -#!/usr/bin/perl -Tw -# -# fs_passwdd -# -# This is run REMOTELY over ssh by fs_passwd_server. -# -# ivan@sisd.com 98-mar-9 - -use strict; -use Socket; - -my($fs_passwdd_socket)="/usr/local/freeside/fs_passwdd_socket"; - -$ENV{'PATH'} ='/usr/bin:/usr/ucb:/bin'; -$ENV{'SHELL'} = '/bin/sh'; -$ENV{'IFS'} = " \t\n"; -$ENV{'CDPATH'} = ''; -$ENV{'ENV'} = ''; -$ENV{'BASH_ENV'} = ''; - -$|=1; - -my $uaddr = sockaddr_un($fs_passwdd_socket); -my $proto = getprotobyname('tcp'); - -socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!"; -unlink($fs_passwdd_socket); -bind(Server, $uaddr) or die "bind: $!"; -listen(Server,SOMAXCONN) or die "listen: $!"; - -my($paddr); -for ( ; $paddr = accept(Client,Server); close Client) { - my($me,$old_password,$new_password,$new_gecos,$new_shell); - - $me=<Client>; - $old_password=<Client>; - $new_password=<Client>; - $new_gecos=<Client>; - $new_shell=<Client>; - - print $me,$old_password,$new_password,$new_gecos,$new_shell; - my($error); - - $error=<STDIN>; - - print Client $error; - close Client; -} - |