Posted by u on 6/28/2003, 7:31 am, in reply to "READ>>>>>>>>>>>>>>>>>>>>>>>>>>"
24.53.188.179

<br>use LWP::Simple;<p>@msgnums=();<br>mkdir('archive') || die "ERROR: plz delete \"archive\" directory if it exists.\n";<p>#DETERMINE NUMBER OF SECTIONS IN ARCHIVE<br>$_ = get('http://www.network54.com/Hide/Forum/233031');<br>m|<a href=\"233031\?it=(\d+)\">\d+\D+</td>|i;<br>$lastpage=$1;<p><br>print "\nRETRIEVING MESSAGE NUMBERS";<br>for $it (0 .. $lastpage) {<p> $_ = get('http://www.network54.com/Hide/Forum/233031?it=' . $it);<br> @tmp = m|thread\?forumid=233031&messageid=(\d\d+)\">|gi;<br> push @msgnums, [ @tmp ];<br> print '.';<br>}<p>print "\n\nDOWNLOADING THREADS";<br>for $it (0 .. $lastpage) {<br> mkdir("archive/$it");<br> print "\n" , $lastpage-$it+1 , " sections to go";<br> foreach $n ( @{$msgnums[$it]} ) {<br> $url='http://www.network54.com/Hide/Forum/thread?forumid=233031&messageid=' . $n;<br> $fname = 'archive/' . $it . '/' . $n . '.html';<br> mirror($url, $fname);<br> print '.';<br> }<br>}<br>