3 ms·
Sadly, although the talk was released in 2009, I still don't see his todo list of "release the code" completed. I think I'm going to email the guy; it would be
by david_shaw 16y ago
Sadly, although the talk was released in 2009, I still don't see his todo list of "release the code" completed. I think I'm going to email the guy; it would be interesting to look at his code.
- dgl 16y agoThis is the guy in question ;). 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?Parse::MediaWikiDump * http://search.cpan.org/perldoc?Text::Summary::MediaWiki 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/ 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).