#!/usr/bin/perl


# This is for libc6 systems w/ a different crypt
# to reset the admin password in the webtts database.
# The password is reset to admintts
#
# Move this file to where your users.db file is and execute it


use DB_File;

$salt = "1D87Fqu76W";
$udb = "users.db";


tie(%USERS, 'DB_File', $udb);
$pass1 = "admintts";
$cpass = crypt("$pass1", $salt);
$USERS{"admin|pass"} = "$cpass";
$USERS{"admin|admin"} = 1;
untie(%USERS);

exit(0);