#!/usr/bin/perl
use strict;
$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.
$ENV{'BASH_ENV'}=''; # Nullify shell environment information.
if ($>!=0) {
exit 1;
}
my $user=shift @ARGV;
$user=~/^(\w+)$/;
my $safe=$1;
my $pword=<>;
chomp $pword;
unless (length($safe) and ($user eq $safe) and ($safe=~/^[A-Za-z]/)) {
exit 2;
}
my $pbad=0;
map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$pword));
exit 3 if $pbad;
open OUT,"|passwd --stdin $safe >/dev/null";
print OUT $pword;
print OUT "\n";
close OUT;
exit $?/256;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>