# This is the ABC CGI setup on trillian.mit.edu:

	$tmin = 5;		# Min time between requests.

	@blacklist = (	# Patterns to reject IP addresses.
		'^192\.169\.41\.\d+$',	# Search engine that invokes CGI scripts.
		'^209\.86\.219\.23$',	# Search engine that invokes CGI scripts.
		'^209\.202\.148\.52',	# Search engine from fast-search.net.
		'^208\.21\.196\.83',	# Unknown search engine.
		'^216\.187\.157\.\d+',	# Unknown search engine.
		'195\.8\.71\.47',		# r2.dee.to calls TuneGet repeatedly without args.
	);
	$homedir = 		# Our home directory.
		"/u/guests/jc";
	$webdir = 		# Where our web files are installed.
		"$homedir/p";
	$usrurl =		# User id part of URLs.
		"/~jc";
	$cgidir =		# Where CGI scripts are kept.
		"$webdir/cgi/abc";
	$cgiurl = 		# Where to find CGI scripts.
		"/~jc/cgi/abc";
	$abcdir =		# Full path to ABC directory.
		"$webdir/music/abc";
	$abcurl =		# URL for ABC directory.
		"/~jc/music/abc";
	$indexdir =		# Where to find the ABC index files.
		"$webdir/music/ndx";
	$snmpdir = 		# Where SNMP stuff is installed here.
		"$webdir/snmp";
	%ABCdir = (		# Paths to various ABC directories.
		'500' => 'music/book/500',
		'abc' => 'music/abc',
		'bot' => 'music/bot',
		'contrib' => 'music/abc/contrib',
		'index' => 'music/ndx',
		'ndx' => 'music/ndx',
		'oneills' => 'music/book/oneills',
		'playford' => 'music/book/playford',
		'ryan-cole' => 'music/book/ryan-cole',
		'RJ' => 'music/book/RJ',
	);
	%ABCttl = (		# Titles for various ABC directories.
		'500' => '500 Tunes of the British Isles',
		'abc' => "JC's ABC Tune Archive",
		'bot' => "JC's ABC Web Bot",
		'contrib' => 'ABC Contributions',
		'index' => "JC's ABC index",
		'ndx' => "JC's ABC index",
		'oneills' => "Online O'Neill's Collection",
		'playford' => 'Online Playford Collection',
		'ryan-cole' => 'Online Ryan/Cole Collection',
		'RJ' => 'Roaring Jelly Collection',
	);
	push @INC, "$cgidir", "$cgidir/abc";
	$ENV{PATH} = "$cgidir:$cgidir/abc:/usr/eecs/bin:$ENV{PATH}";
	$tmpdir =		# Where to put files.
		"$webdir/tmp";
	$tmpurl =		# Where to find tmp files.
		"/~jc/tmp";
	push @INC, "$cgidir", "$cgidir/abc";
	$ENV{PATH} = "$cgidir:$cgidir/abc:$ENV{PATH}";
	use CGI_Lite;	# Required perl module.
	use CGI::Carp 'fatalsToBrowser';

	$hstpat = '[-_:.\w]+';	# Pattern for acceptable hostnames, including port
1;