#!/usr/bin/perl

# $Id: dbmod,v 1.1 1997/11/23 23:47:22 crosser Exp $
#
# $Log: dbmod,v $
# Revision 1.1  1997/11/23 23:47:22  crosser
# Initial revision
#

unshift(@INC,"/usr/local/lib/fido7");
require "config.pl";
require "db.pl";

%rec;
$whom;

print "address > ";

while (<STDIN>) {
	chop;
	last if (/^end/);
	if ($whom) {
		&mod($_);
	} else {
		&sel($_);
	}
	if ($whom) {
		foreach $f(keys %rec) {
			print "$f=\"$rec{$f}\"\n";
		}
		print "$whom > ";
	} else {
		print "address > ";
	}
}

&u_close;

sub mod {
	local($x)=@_;
	if ($x =~ /^w$/i) {
		&u_insert(%rec);
	} elsif ($x =~ /^q$/i) {
		$whom="";
	} elsif ($x =~ /^wq$/i) {
		&u_insert(%rec);
		$whom="";
	} elsif ($x =~ /^[a-z]+=/i) {
		($k,$v)=(/^(^[a-z]+)=(.*)$/);
		print "setting $k=\"$v\"\n";
		if ($v) {
			$rec{$k}=$v;
		} else {
			delete $rec{$k};
		}
	} else {
		print "pardon?\n";
	}
}

sub sel {
	local($x)=@_;
	print "looking for \"$x\"...";
	if (%rec=&u_find($x)) {
		print "found!\n";
		$whom=$x;
	} else {
		print "not found!\n";
		$key="";
	}
}
