xonotic/misc/infrastructure/keygen/config.pl
2010-12-10 20:48:36 +01:00

21 lines
509 B
Perl

%ca = (
0 =>
{
name => "Xonotic official",
check => sub
{
my ($inc) = @_;
return 0 if ($inc >= 0) && check_dnsbl([qr/.*:.*:.*/], [], ['torexit.dan.me.uk', 'aspews.ext.sorbs.net']);
return 0 if ($inc >= 0) && check_banlist('http://rm.endoftheinternet.org/~xonotic/bans/?action=list&servers=*');
return 0 if check_sql('dbi:mysql:dbname=xonotic_ca', 'xonotic_ca', '************', 'ip', $inc);
1;
}
},
15 =>
{
name => "Xonotic testing",
check => sub { 1; }
}
);
$default_ca = 15;