#!/usr/bin/perl

use strict;
use warnings;

my $pass = $ENV{root_password};

if ($pass) {

my $en_pass = &encrypt($pass);
my $target = $ENV{TARGET};

print "Setting root password\n";
system "chroot $ENV{TARGET} usermod -p $en_pass root";

}

sub encrypt
{
 my($plain) = @_;
 my(@salt);
 @salt = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
 srand(time() ^ ($$ + ($$ << 15)) );
 return crypt($plain,$salt[int(rand(@salt))].$salt[int(rand(@salt))]);
}
