Initial shot at web-friendly (sadly PAM unfriendly...) password modification.

1 files changed, 15 insertions, 0 deletions

diff --git a/pinyadmin/sbin/newpasshash b/pinyadmin/sbin/newpasshash
new file mode 100644
index 0000000..bf55a76
--- /dev/null
+++ b/pinyadmin/sbin/newpasshash
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+my ( $crypt ) = @ARGV;
+
+if ( $crypt eq "" ) {
+  print "You must enter a password!\n";
+  exit 1;
+};
+
+my $ret = system( "/usr/sbin/usermod", "-P", $crypt, $ENV{'SUDO_USER'});
+
+if ( $ret ) {
+  print "An error occured.\n";
+  exit 2;
+};