Handle lenny moinmoin mails

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@403 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede

1 files changed, 3 insertions, 2 deletions

diff --git a/parse-wiki b/parse-wiki
index 77ebc38..992b92e 100755
--- a/parse-wiki
+++ b/parse-wiki
@@ -88,9 +88,10 @@ my $url;
 my $from;
 my @lines = split(/\n/, $body);
 while (defined($line = shift @lines)) {
-	if ($line =~ m/^The following page has been changed by (.*):/) {
+	if ($line =~ m/^The .* page has been changed by (.*):/) {
 		$from = $1;
-		$url = shift @lines
+		$url = shift @lines;
+		$url =~ s/\?.*//;
 	} elsif ($line =~ m/^The comment on the change is:/) {
 		$message = shift @lines;
 		last;