1 files changed, 25 insertions, 0 deletions
diff --git a/mirror.pl b/mirror.pl
new file mode 100644
index 000000000000..8e14f8c000e8
--- /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);