# This is the ABC CGI setup on trillian.mit.edu: $minreqdelay = 3; # Min time between requests $Vtest = 1; # Debug level from test addresses @blacklist = ( # Patterns to reject IP addresses '88\.1\.213\.108', # Search engine that invoked CGI scripts [20071012] '^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 '67\.113\.225\.66', # 20050425 Calls tuneget for every abc file F=MIDI ); $homedir = # Our home directory '/u/guests/jc'; $bindir = # Binaries for this machine "$homedir/bin"; $lbindir = # Binaries for this machine '/usr/local/bin'; $a2p = # Which abc2ps to use "$homedir/bin/jcabc2ps"; $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"; $botpat = # Pattern to recognize bots in UA '[-\w]*Googlebot|Mediapartners-Google|msnbot|BecomeBot|\w*search\/slurp|WebReaper|crawler|[Yy]ahoo'; %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:$bindir:$lbindir:$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'; 1;