1 files changed, 38 insertions, 0 deletions
diff --git a/bin/change-password.pl b/bin/change-password.pl
new file mode 100755
index 0000000..0b82bea
--- /dev/null
+++ b/bin/change-password.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+BEGIN
+  {
+  our $BUCKY = "/cgi-bin/bucky";
+  our $BUCKY_DB = "bucky";
+  our $BUCKY_DB_CNF = "/var/www/vhosts/carbonpictures.com/.bucky.cnf";
+  }
+
+use lib "/var/www/vhosts/carbonpictures.com/bucky/lib";
+use Bucky1;
+
+our $dbh = DBI->connect ($dsn);
+#our $DEBUG = 1;
+
+my ($user, $pw) = @ARGV;
+
+do_password_reset($user, $pw, $pw);
+
+$dbh->disconnect();
+
+sub do_password_reset
+  {
+  my ($user, $pw1, $pw2) = @_;
+  if (length($pw1) && length($pw2))
+    {
+    if ($pw1 eq $pw2)
+      {
+      update_password($user, crypt($pw1,lc($user)));
+      print qq(password changed for $user<br>\n);
+      }
+    else
+      {
+      print "passwords don't match!<br>\n";
+      }
+    }
+  }
+