From 79670053c7247d3a49b607960efd284e93f057e5 Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:14:26 -0500
Subject: install.pl

---
 bin/change-password.pl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 bin/change-password.pl

(limited to 'bin/change-password.pl')

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";
+      }
+    }
+  }
+
-- 
cgit v1.2.3-70-g09d2