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

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

Revision: 33
          http://svn.sourceforge.net/perlwikibot/?rev=33&view=rev
Author:   rotemliss
Date:     2006-09-26 10:53:23 -0700 (Tue, 26 Sep 2006)

Log Message:
-----------
Ignore prefix when refreshing.

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

Modified: trunk/includes/actions.pm
===================================================================
--- trunk/includes/actions.pm	2006-09-26 17:45:37 UTC (rev 32)
+++ trunk/includes/actions.pm	2006-09-26 17:53:23 UTC (rev 33)
@@ -8,10 +8,13 @@
 # Get the contents of a page
 sub getEditPage {
 	# Get parameters
-	my ( $title ) = @_;
+	my ( $title, $ignorePrefix ) = @_;
+	if ( !defined( $ignorePrefix ) ) {
+		$ignorePrefix = 0;
+	}
 
 	my ( $page, $text );
-	if ( $configure::sendPages == 2 ) {
+	if ( $configure::sendPages == 2 && $ignorePrefix == 0 ) {
 		# Add prefix
 		my $serverPrefix = $configure::serverPrefixes{ $ARGV[0] };
 		my $prefixedTitle = $serverPrefix.$title;
@@ -51,12 +54,15 @@
 # Edit page
 sub editPage {
 	# Get parameters
-	my ( $title, $summary, $text, $startTime, $editTime, $editToken ) = @_;
+	my ( $title, $summary, $text, $startTime, $editTime, $editToken, $ignorePrefix ) = @_;
+	if ( !defined( $ignorePrefix ) ) {
+		$ignorePrefix = 0;
+	}
 
 	print "Editing page $title...\n";
 
 	# Add prefix if necessary
-	if ( $configure::sendPages == 2 ) {
+	if ( $configure::sendPages == 2 && $ignorePrefix == 0 ) {
 		my $serverPrefix = $configure::serverPrefixes{ $ARGV[0] };
 		$title = $serverPrefix.$title;
 	}
@@ -87,8 +93,8 @@
 	# Get parameters
 	my ( $title ) = @_;
 
-	# Null edit
-	editPage( $title, "Refreshing page", getEditPage( $title ) );
+	# Null edit, ignore prefix
+	editPage( $title, "Refreshing page", getEditPage( $title ), 1 );
 }
 
 # Move page


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