You don't have to have direct access to the database to make
useful things such as statistics, new searches, bible, etc.
All you need is a script to fetch nodes (i recommend
fetching XML versions).
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
use LWP::Simple;
our $URL = 'http://www.perlmonks.org/index.pl';
our $PATH = '/path/to/perlmonks/nodes';
for (0 ... 666666) {
my $node = get "$URL?node_id=$_&displaytype=xml";
my $xml = XMLin($node);
next if $xml->{title} =~ /Permission\s+Denied/i;
next if $xml->{title} =~ /Not\s+found/i;
open FH, '>', "$PATH/$_.xml" or die "can't write: $!";
print FH $node;
sleep 5; # play nice ;)
}
Very simple, could use some more work, but this will get the
job done. Just be sure and run it during the weekend or
other 'less busy' times. ;) I also have some code over at
Node XML to HTML that transforms the XML into HTML ... it's not
perfect either, but it's a start.
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)