[PerlWikiBot] SF.net SVN: perlwikibot: [24] trunk/includes/actions.pm

[<rot...@us...>]

Revision: 24
          http://svn.sourceforge.net/perlwikibot/?rev=24&view=rev
Author:   rotemliss
Date:     2006-09-16 06:28:27 -0700 (Sat, 16 Sep 2006)

Log Message:
-----------
Fixes, now OK.

Modified Paths:
--------------
    trunk/includes/actions.pm

Modified: trunk/includes/actions.pm
===================================================================
--- trunk/includes/actions.pm	2006-09-16 13:26:26 UTC (rev 23)
+++ trunk/includes/actions.pm	2006-09-16 13:28:27 UTC (rev 24)
@@ -28,18 +28,18 @@
 	}
 
 	# Get the edit page contents
-	my $editPage = http::getPage( $title, "edit" );
+	my $page = http::getPage( $title, "edit" );
 
 	# Get the start time
-	$editPage =~ /<input type='hidden' value="([0-9]{14})" name="wpStarttime" \/>/;
+	$page =~ /<input type='hidden' value="([0-9]{14})" name="wpStarttime" \/>/;
 	my $startTime = $1;
 
 	# Get the edit time
-	$editPage =~ /<input type='hidden' value="([0-9]{14})" name="wpEdittime" \/>/;
+	$page =~ /<input type='hidden' value="([0-9]{14})" name="wpEdittime" \/>/;
 	my $editTime = $1;
 
 	# Get edit token
-	$editPage =~ /<input type='hidden' value="([0-9a-f]{32})" name="wpEditToken" \/>/;
+	$page =~ /<input type='hidden' value="([0-9a-f]{32})" name="wpEditToken" \/>/;
 	my $editToken = $1;
 
 	# Send page
@@ -80,10 +80,10 @@
 	print "Moving page $title to $newTitle...\n";
 
 	# Get the delete page contents
-	my $movePage = http::getPage( "Special:Movepage/$title" );
+	my $page = http::getPage( "Special:Movepage/$title" );
 
 	# Get edit token
-	$editPage =~ /<input type='hidden' name='wpEditToken' value="([0-9,a-f]{32})" \/>/;
+	$page =~ /<input type='hidden' name='wpEditToken' value="([0-9,a-f]{32})" \/>/;
 	my $editToken = $1;
 
 	# Send page
@@ -112,10 +112,10 @@
 	print "Deleting page $title...\n";
 
 	# Get the delete page contents
-	my $deletePage = http::getPage( $title, "delete" );
+	my $page = http::getPage( $title, "delete" );
 
 	# Get edit token
-	$editPage =~ /<input type='hidden' name='wpEditToken' value="([0-9,a-f]{32})" \/>/;
+	$page =~ /<input type='hidden' name='wpEditToken' value="([0-9,a-f]{32})" \/>/;
 	my $editToken = $1;
 
 	# Send page


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.