#!/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";
      }
    }
  }