Difference between revisions of "Export-images.pl"
From Organic Design wiki
m |
|||
| Line 1: | Line 1: | ||
| − | {{lowercase}} | + | {{lowercase}}{{legacy}} |
| − | <perl> | + | <source lang="perl"> |
#!/usr/bin/perl | #!/usr/bin/perl | ||
use HTTP::Request; | use HTTP::Request; | ||
| Line 28: | Line 28: | ||
close FH; | close FH; | ||
} | } | ||
| − | </ | + | </source> |
[[Category:PERL]] | [[Category:PERL]] | ||
Latest revision as of 03:24, 23 April 2020
|
#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
$client = LWP::UserAgent->new(
cookie_jar => {},
agent => 'Mozilla/5.0',
from => 'export-images.pl@organicdesign.co.nz',
timeout => 10,
);
$wiki = $ARGV[0];
$dir = $wiki =~ /(https?:\/\/(.+?))\// ? $2 : die "Please supply long form wiki URL";
$base = $1;
$content = $client->get("$wiki?title=Special:Imagelist&limit=500")->content;
@files = $content =~ /href\s*=\s*['"](\/[^"']+?\/.\/..\/[^'"]+?)["']/g;
mkdir $dir;
for $url (@files) {
$file = $url =~ /.+\/(.+?)$/ ? $1 : die "Bad name ($url)";
print "$file\n";
open FH, '>', "$dir/$file";
binmode FH;
print FH $client->get("$base$url")->content;
close FH;
}
