#!/usr/bin/perl

#use strict;
require 'ref.pl';

# refer.pl で記録され、update_statistics.pl で集計された情報を表示する CGI

# アクセス数の多い順に記事タイトル一覧を表示します。

# *** HTML を出力する JavaScript 文を返します ***
#################################################

print "Content-type: text/javascript; charset=UTF-8\n\n";

$s = &get_statistics;
$s =~ s/'/\\'/g;
print "document.write('$s');";

exit(0);