browser: rename usage metadata keys

[sheet.git] / tools / convert-stats-wikimedia.pl

diff --git a/tools/convert-stats-wikimedia.pl b/tools/convert-stats-wikimedia.pl
old mode 100644 (file)
new mode 100755 (executable)
index b5b833d..382fe0c
--- a/tools/convert-stats-wikimedia.pl
+++ b/tools/convert-stats-wikimedia.pl
@@ -1,11 +1,11 @@
-#!perl -n
+#!/usr/bin/perl -n
 use 5.010; use strict; use warnings;
 our %count;
 our $mobile;
 
 if (m{<td class=hl>} .. m{</?td>}) {
-       $count{-url} = 'http://stats.wikimedia.org/archive/squid_reports/';
-       $count{-source} = 'Wikimedia';
+       $count{-source} = 'http://stats.wikimedia.org/archive/squid_reports/';
+       $count{-title } = 'Wikimedia';
        $count{-date} = $1 if m{ period: (?:\d+ )?(\w+ \d+) };
        next;
 }