[James Cridland]

Originally posted by fastforward

90 seconds is most definately NOT about right. It shouldn't even take that long for a full batch of 200 or 300. try putting some debugging lines in the code to see exactly where it goes wrong.

Well, after a lot of fiddling...

To make a huge increase in the speed, comment out (with the closing brackets, of course):
"if ($h = $c->head($mid)) {" (in get_batch)
"if($b = $c->body($mid)) {" (just after the check for spam)

Then it speeds along, as you say it should (though it doesn't find any to import at the end...)

So, for this novice perl programmer - presumably "head" and "body" are in a module somewhere, and this module needs reinstalling?