#!/usr/bin/perl

use strict;
use Digest::SHA1 qw(sha1_hex);

open FH, "</etc/plvsd.conf" || die "can't open /etc/plvsd.conf: $!\n";
my @file = <FH>;
close FH;

system "stty -echo";

print "new admin password: ";

my $first = <STDIN>;
chomp $first;

print "\nretype new password: ";

my $second = <STDIN>;
chomp $second;
print "\n";

system "stty echo";

die "passwords do not match\n" if($first ne $second);

my $digest = sha1_hex($first);

open FH, ">/etc/plvsd.conf" || die "can't open /etc/plvsd.conf: $!\n";
map { print FH /^AdminPW/ ? "AdminPW $digest\n" : $_; } (@file);
close FH;

print "lvsm admin password changed\n";
