[PerlWikiBot] SF.net SVN: perlwikibot: [37] trunk

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

Revision: 37
          http://svn.sourceforge.net/perlwikibot/?rev=37&view=rev
Author:   rotemliss
Date:     2007-03-24 08:51:07 -0700 (Sat, 24 Mar 2007)

Log Message:
-----------
Fix libraries inclusion.

Modified Paths:
--------------
    trunk/bot.pl
    trunk/config/configure.sample
    trunk/includes/functions.pm
    trunk/includes/http.pm

Modified: trunk/bot.pl
===================================================================
--- trunk/bot.pl	2007-03-03 14:08:53 UTC (rev 36)
+++ trunk/bot.pl	2007-03-24 15:51:07 UTC (rev 37)
@@ -5,8 +5,6 @@
 use strict;
 
 # Libraries
-use LWP::UserAgent;
-use Time::Local;
 use includes::actions;
 use includes::dump;
 use includes::functions;

Modified: trunk/config/configure.sample
===================================================================
--- trunk/config/configure.sample	2007-03-03 14:08:53 UTC (rev 36)
+++ trunk/config/configure.sample	2007-03-24 15:51:07 UTC (rev 37)
@@ -5,6 +5,9 @@
 use warnings;
 use strict;
 
+# Libraries
+use Time::Local;
+
 # Available servers and details about them, the bot should work on
 our %servers = (
 	"server" => "http://www.server.com",

Modified: trunk/includes/functions.pm
===================================================================
--- trunk/includes/functions.pm	2007-03-03 14:08:53 UTC (rev 36)
+++ trunk/includes/functions.pm	2007-03-24 15:51:07 UTC (rev 37)
@@ -5,6 +5,9 @@
 use warnings;
 use strict;
 
+# Libraries
+use Time::Local;
+
 # Get all the pages matching specific restrictions
 sub getMatchingPages {
 	# Parameters
@@ -76,7 +79,7 @@
 		my @tempLastEditArray;
 		my $lastEdit = $page->timestamp;
 		$lastEdit =~ /([\d]+)-([\d]+)-([\d]+)T([\d]+):([\d]+):([\d]+)Z/;
-		$lastEdit = main::timegm( $6, $5, $4, $3, $2 - 1, $1 - 1900 );
+		$lastEdit = timegm( $6, $5, $4, $3, $2 - 1, $1 - 1900 );
 		my $betweenTime = time() - $lastEdit;
 		$tempCounter = 0;
 		for ( my $i = 0; $i <= $#pagePossibleActions; $i++ ) {

Modified: trunk/includes/http.pm
===================================================================
--- trunk/includes/http.pm	2007-03-03 14:08:53 UTC (rev 36)
+++ trunk/includes/http.pm	2007-03-24 15:51:07 UTC (rev 37)
@@ -5,6 +5,9 @@
 use warnings;
 use strict;
 
+# Libraries
+use LWP::UserAgent;
+
 # The browser we use to surf; enable cookies, and use a specific user agent
 my $browser = LWP::UserAgent->new();
 $browser->cookie_jar( {} );


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