https://www.mediawiki.org/wiki/Special:Code/MediaWiki/112311

Revision: 112311
Author:   ezachte
Date:     2012-02-24 11:08:21 +0000 (Fri, 24 Feb 2012)
Log Message:
-----------
new config file

Modified Paths:
--------------
    trunk/wikistats/squids/SquidCountryScan.pl

Added Paths:
-----------
    trunk/wikistats/squids/SquidCountryScanConfig.pm

Modified: trunk/wikistats/squids/SquidCountryScan.pl
===================================================================
--- trunk/wikistats/squids/SquidCountryScan.pl  2012-02-24 10:44:57 UTC (rev 
112310)
+++ trunk/wikistats/squids/SquidCountryScan.pl  2012-02-24 11:08:21 UTC (rev 
112311)
@@ -3,7 +3,7 @@
 ## sub CollectRawData -> SquidDataCountries.csv
 ## sub ProcessRawData <- SquidDataCountries.csv -> ??
 
-  use config ;
+  use SquidCountryScanConfig ;
   use lib $liblocation ;
   use EzLib ;
   $trace_on_exit = $true ;
@@ -23,8 +23,7 @@
   # exit ;
   }
 
-  $path_root = "/a/ezachte/" ;
-# $path_root = "w:/! perl/squids/archive/" ;
+  $path_root = $job_runs_on_production_server ? $path_root_production : 
$path_root_test ;
 
   $file_raw_data_monthly_visits  = 
"$path_root/SquidDataVisitsPerCountryMonthly.csv" ;
   $file_raw_data_daily_visits    = 
"$path_root/SquidDataVisitsPerCountryDaily.csv" ;
@@ -38,7 +37,7 @@
 
   &CollectRawData ('visits', $file_per_country_visits, 
$file_per_country_visits_old, $file_raw_data_monthly_visits, 
$file_raw_data_daily_visits) ;
   &CollectRawData ('saves',  $file_per_country_saves,  
$file_per_country_saves_old,  $file_raw_data_monthly_saves,  
$file_raw_data_daily_saves) ;
-# &ProcessRawData ;
+  &ProcessRawData ;
 
   exit ;
 

Added: trunk/wikistats/squids/SquidCountryScanConfig.pm
===================================================================
--- trunk/wikistats/squids/SquidCountryScanConfig.pm                            
(rev 0)
+++ trunk/wikistats/squids/SquidCountryScanConfig.pm    2012-02-24 11:08:21 UTC 
(rev 112311)
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+  $liblocation = "/home/ezachte/lib" ;
+
+  $path_root_production = "/a/ezachte/" ;
+  $path_root_test       = "w:/! perl/squids/archive/" ; # Erik 
+# $path_root_test       = "?" ;                         # Andr\xE9 


_______________________________________________
MediaWiki-CVS mailing list
[email protected]
https://lists.wikimedia.org/mailman/listinfo/mediawiki-cvs

Reply via email to