#!/usr/local/bin/perl

#
# Purpose:  To view veronica databases
#
# Syntax:  look [database name]
#          look GSites

#
# $EtcDir is the location of database files
# Edit the next line for your site

###$EtcDir

# End of the editable variables
#
#

exit unless ($DBM = $ARGV[0]);

$DBMcmd = "dbmopen($DBM,'$EtcDir/$DBM', '0666') || die \"Can't open $DBM: \$\!\\n\";

foreach (sort keys %$DBM)
{
	print \"\$_\\t\$$DBM{\$_}\\n\";
}

dbmclose($DBM);
";


eval $DBMcmd;
