#!/usr/bin/perl

# $Id: dblist,v 1.1 1997/11/23 23:47:22 crosser Exp $
#
# $Log: dblist,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";

while(($k,$v)=each %DB) {
	print "$k: \"$v\"\n";
}
&u_close;
