cracklib 653 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
#
# The template
#
use strict;
use libinstall;
use installvars;

my $CRACKLIB_DICT   = "/usr/local/lib/pw_dict.pwd";

sub Install($$$)
{
    my ($server, $isupdate, $impotent) = @_;

    # Replace if this script does an update for ip/domain.
    return 0
	if ($isupdate);

    Phase "cracklib", "Installing cracklib", sub {
	DoneIfExists("$CRACKLIB_DICT");
	my $pwd = `$PWD`;
	chomp $pwd;
	chdir "$TOP_SRCDIR/tbsetup/checkpass/cracklib,2.7" or
	    PhaseFail "Unable to change to " .
	    "$TOP_SRCDIR/tbsetup/checkpass/cracklib,2.7: $!";
	ExecQuietFatal("make install clean");
	chdir $pwd;
    };
    return 0;
}

# Local Variables:
# mode:perl
# End: