use FS::Record qw(qsearchs);
use FS::svc_acct;
-$SIG{CHLD} = sub { wait() };
+my $user = shift or die &usage;
+adminsuidsetup $user;
-&adminsuidsetup;
+my($shellmachine)=shift or die &usage;
-my($fs_passwdd)="/usr/local/sbin/fs_passwdd";
+$SIG{CHLD} = sub { wait() };
-my($shellmachine)=shift;
-die "Usage: fs_passwd_server shellmachine\n" unless $shellmachine;
+my($fs_passwdd)="/usr/local/sbin/fs_passwdd";
while (1) {
my($reader,$writer)=(new IO::Handle, new IO::Handle);
warn "Connection to $shellmachine lost! Reconnecting...\n";
}
+sub usage {
+ die "Usage:\n\n fs_passwd_server user shellmachine\n";
+}
+