| Index: trunk/wikistats/squids/SquidCountryScanConfig.pm |
| — | — | @@ -0,0 +1,7 @@ |
| | 2 | +#!/usr/bin/perl
|
| | 3 | +
|
| | 4 | + $liblocation = "/home/ezachte/lib" ;
|
| | 5 | +
|
| | 6 | + $path_root_production = "/a/ezachte/" ;
|
| | 7 | + $path_root_test = "w:/! perl/squids/archive/" ; # Erik
|
| | 8 | +# $path_root_test = "?" ; # Andr�
|
| Index: trunk/wikistats/squids/SquidCountryScan.pl |
| — | — | @@ -3,7 +3,7 @@ |
| 4 | 4 | ## sub CollectRawData -> SquidDataCountries.csv |
| 5 | 5 | ## sub ProcessRawData <- SquidDataCountries.csv -> ?? |
| 6 | 6 | |
| 7 | | - use config ; |
| | 7 | + use SquidCountryScanConfig ; |
| 8 | 8 | use lib $liblocation ; |
| 9 | 9 | use EzLib ; |
| 10 | 10 | $trace_on_exit = $true ; |
| — | — | @@ -23,8 +23,7 @@ |
| 24 | 24 | # exit ; |
| 25 | 25 | } |
| 26 | 26 | |
| 27 | | - $path_root = "/a/ezachte/" ; |
| 28 | | -# $path_root = "w:/! perl/squids/archive/" ; |
| | 27 | + $path_root = $job_runs_on_production_server ? $path_root_production : $path_root_test ; |
| 29 | 28 | |
| 30 | 29 | $file_raw_data_monthly_visits = "$path_root/SquidDataVisitsPerCountryMonthly.csv" ; |
| 31 | 30 | $file_raw_data_daily_visits = "$path_root/SquidDataVisitsPerCountryDaily.csv" ; |
| — | — | @@ -38,7 +37,7 @@ |
| 39 | 38 | |
| 40 | 39 | &CollectRawData ('visits', $file_per_country_visits, $file_per_country_visits_old, $file_raw_data_monthly_visits, $file_raw_data_daily_visits) ; |
| 41 | 40 | &CollectRawData ('saves', $file_per_country_saves, $file_per_country_saves_old, $file_raw_data_monthly_saves, $file_raw_data_daily_saves) ; |
| 42 | | -# &ProcessRawData ; |
| | 41 | + &ProcessRawData ; |
| 43 | 42 | |
| 44 | 43 | exit ; |
| 45 | 44 | |