#!/usr/local/bin/perl

#
# $EtcDir is the location of the database files
# Edit the next line to reflect your site's installation
###$EtcDir

# End editable variables
#
#

dbmopen (GSites, "$EtcDir/GSites", 'undef') || die "Can't open GSites: $!\n";

foreach (sort keys %GSites)
{
		$GSites{$_} = '?';
}

dbmclose(GSites);
