#!/usr/bin/perl -w
use strict;
use lib '/var/www/www.tornpants.com/csa/MLDBM-2.00/lib';
use MLDBM;
use Fcntl;
use Data::Dumper;
my %db;
tie %db, 'MLDBM', 'content.db', O_CREAT|O_RDWR, 0640 or die;
# do things
my $tmp = $db{username};
print "Enter default username: ";
my $username = <STDIN>;
chomp $username;
$tmp->[0] = $username;
$db{username} = $tmp;
print "\nEnter default password: ";
$tmp = $db{password};
my $pw = <STDIN>;
chomp $pw;
$tmp->[0] = $pw;
$db{password} = $tmp;
print "\nYour username/password is: ";
print $db{"username"};
untie %db or die "Can\'t untie database.\n";
|