| Index: trunk/wikistats/squids/SquidCountArchive.pl |
| — | — | @@ -6,6 +6,8 @@ |
| 7 | 7 | $trace_on_exit = $true ; |
| 8 | 8 | ez_lib_version (13) ; |
| 9 | 9 | |
| | 10 | + use Compress::Zlib; |
| | 11 | + |
| 10 | 12 | use SquidCountArchiveProcessLogRecord ; |
| 11 | 13 | use SquidCountArchiveReadInput ; |
| 12 | 14 | use SquidCountArchiveWriteOutput ; |
| — | — | @@ -136,6 +138,21 @@ |
| 137 | 139 | |
| 138 | 140 | # &ProcessSquidSequenceNumbers ; |
| 139 | 141 | |
| | 142 | + if ($url_wikipedia_mobile > 0) |
| | 143 | + { |
| | 144 | + print "\n$redirected_to_mobile out of $url_wikipedia_mobile (" . sprintf ("%.1f\%", 100 * $redirected_to_mobile / $url_wikipedia_mobile) . ") redirected to mobile wikipedia\n\n" ; |
| | 145 | + foreach $status (sort {$status_url_wikipedia_mobile {$b} <=> $status_url_wikipedia_mobile {$a}} keys %status_url_wikipedia_mobile) |
| | 146 | + { print "Status $status: " . $status_url_wikipedia_mobile {$status} . "\n" ; } |
| | 147 | + print "\n" ; |
| | 148 | + foreach $status_mime (sort {$status_mime_url_wikipedia_mobile {$b} <=> $status_mime_url_wikipedia_mobile {$a}} keys %status_mime_url_wikipedia_mobile) |
| | 149 | + { print "Status/Mime $status_mime : " . $status_mime_url_wikipedia_mobile {$status_mime} . "\n" ; } |
| | 150 | + print "\n" ; |
| | 151 | + } |
| | 152 | + |
| | 153 | + else |
| | 154 | + { print "\nNo mobile urls detected ?!?!\n\n" ; } |
| | 155 | + |
| | 156 | + |
| 140 | 157 | print "\n\nReady\n\n" ; |
| 141 | 158 | exit ; |
| 142 | 159 | |
| — | — | @@ -275,7 +292,10 @@ |
| 276 | 293 | $file_ip_frequencies = "private/SquidDataIpFrequenciesDoNotPublish.csv" ; |
| 277 | 294 | $file_ip_frequencies_bz2 = "private/SquidDataIpFrequenciesDoNotPublish.csv.bz2" ; |
| 278 | 295 | $file_out_referers = "private/SquidDataReferersDoNotPublish.txt" ; |
| | 296 | + |
| | 297 | + # two files with single events, written at SquidCountArchiveProcessLogRecord.pm, unlike aggregated data which are written at SquidCountArchiveWriteOutput.pm |
| 279 | 298 | $file_edits_saves = "private/SquidDataEditsSavesDoNotPublish.txt" ; |
| | 299 | + $file_csv_views_viz = "private/SquidDataViewsVizDoNotPublish-date.gz" ; |
| 280 | 300 | |
| 281 | 301 | $file_csv_agents = "public/SquidDataAgents.csv" ; |
| 282 | 302 | $file_csv_banners = "public/SquidDataBanners.csv" ; |