#!/usr/bin/perl #use strict; require 'ref.pl'; # refer.pl で記録された情報を HTML として返却する 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/html; charset=UTF-8\n\n"; print ""; $s = &get_referrer_list($filename); print $s; print ""; exit(0);