[PerlWikiBot] SF.net SVN: perlwikibot: [24] trunk/includes/actions.pm
Status: Pre-Alpha
Brought to you by:
rotemliss
|
From: <rot...@us...> - 2006-09-16 13:28:34
|
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.
|