#!/usr/bin/perl

#use strict;
require 'ref.pl';

# refer.pl で記録された情報を表示するだけの CGI

# １ページに複数の参照元リストを表示したい場合はこちらと併用してください。
# QUERY_STRING に参照元を表示したい記事の PermaLink をセットして呼び出します。
# パラメタ無しの場合は全ページへの referrer 統計を出力します。
# ただし後者は update_referrers を最後に実行した時点のものです。

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

my $url = $ENV{'QUERY_STRING'};

if ($url) {
    &check_url($url);
    $url = &correct_url($url);
    $filename = &generate_filename($url);
} else {
    $filename = $referrer_statistics;
}

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

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

exit(0);