summarylogtreecommitdiffstats
path: root/mirror.pl
diff options
context:
space:
mode:
Diffstat (limited to 'mirror.pl')
-rw-r--r--mirror.pl25
1 files changed, 25 insertions, 0 deletions
diff --git a/mirror.pl b/mirror.pl
new file mode 100644
index 00000000000..8e14f8c000e
--- /dev/null
+++ b/mirror.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+sub http_list
+{
+ my $FH;
+ my ($baseurl, $url, $level) = @_;
+ open $FH, "wget -q $baseurl/$url -O -|" || die "wget error";
+
+ while(<$FH>)
+ {
+ if(/href="([\w.-]+\/)"/)
+ {
+ http_list($baseurl, $url.$1, $level+1);
+ }
+ elsif(/href="([\w.-]+\.pdf)"/)
+ {
+ system("mkdir -p $url");
+ print "$baseurl$url$1\n";
+ system("wget -c $baseurl$url$1 -O $url$1");
+ }
+ }
+ close $FH;
+}
+
+http_list("http://www.x.org/docs/", "", 0);