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