The code is pretty much a hack which I haven't got around to tidying up (but mail me if you really want it).
It's really just glue anyway -- the interesting bits are done by:
* http://search.cpan.org/perldoc?Parse::MediaWikiDump
* http://search.cpan.org/perldoc?Text::Summary::MediaWiki
The script then saves the produced summaries in SQLite, then some code based on Stanford::DNSserver (http://www.stanford.edu/~riepel/lbnamed/Stanford-DNSserver/) does a lookup in SQLite, follows #redirects and returns a TXT record.
These days I'd probably use PowerDNS's pipe backend to implement it rather than a full DNS server in Perl (there's helper modules like ruby-pdns that make writing a DNS server with specialised purposes incredibly easy).
The code is pretty much a hack which I haven't got around to tidying up (but mail me if you really want it).
It's really just glue anyway -- the interesting bits are done by:
* http://search.cpan.org/perldoc?Parse::MediaWikiDump
* http://search.cpan.org/perldoc?Text::Summary::MediaWiki
The script then saves the produced summaries in SQLite, then some code based on Stanford::DNSserver (http://www.stanford.edu/~riepel/lbnamed/Stanford-DNSserver/) does a lookup in SQLite, follows #redirects and returns a TXT record.
These days I'd probably use PowerDNS's pipe backend to implement it rather than a full DNS server in Perl (there's helper modules like ruby-pdns that make writing a DNS server with specialised purposes incredibly easy).