diff options
| -rwxr-xr-x | wikiscraper.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/wikiscraper.pl b/wikiscraper.pl index a482bcb..16ad895 100755 --- a/wikiscraper.pl +++ b/wikiscraper.pl @@ -15,6 +15,8 @@ while (defined (my $page = $dumpfile->next)) my @revs = $page->revision; foreach (@revs) { + system("co", "-l", $page->title); + open (FILE, ">", $page->title); print FILE $_->text; close FILE; @@ -33,7 +35,6 @@ while (defined (my $page = $dumpfile->next)) ($_->comment ne "" ? "-m" . $_->comment : "-mNo message"), "-r" . $_->id, "-w" . $user, - "-l", $page->title, ); |