Does anyone of a way to change a linux password WITHOUT needing the Expect module or any modules (this is because of hosting restrictions) as below. It require multiple lines which I cant seem to do.
Thanks in advance
sub changePasswds {
print "<BR>Change Password<BR><BR>";
my($userid) = $form{'alias'};
my($newpass) = $form{'password'};
# Change Linux passwd...
$command = Expect->spawn("/usr/bin/passwd $userid"
or die "Couldn't start program: $!\n";
$command->log_stdout(0);
unless ($command->expect(5, "New password: ") {};
print $command "$newpass\r";
unless ($command->expect(5, "Re-enter new password: ") {};
print $command "$newpass\r";
$command->soft_close();
# OK, we're done...
print "\n\n Complete: password changed for $userid: $newpass\n\n";
}
Thanks in advance
sub changePasswds {
print "<BR>Change Password<BR><BR>";
my($userid) = $form{'alias'};
my($newpass) = $form{'password'};
# Change Linux passwd...
$command = Expect->spawn("/usr/bin/passwd $userid"
or die "Couldn't start program: $!\n";$command->log_stdout(0);
unless ($command->expect(5, "New password: "
) {};print $command "$newpass\r";
unless ($command->expect(5, "Re-enter new password: "
) {};print $command "$newpass\r";
$command->soft_close();
# OK, we're done...
print "\n\n Complete: password changed for $userid: $newpass\n\n";
}