JavaScriptのアクセス解析が動きません
当方perlの知識はないので困っております。
あるオープンソースのcgiを使っているのですが
cgiファイルが呼び出すhtmlファイルにJavaScriptで記述された
アクセス解析の記述をしたのですが、うまくいきません。
アドレスを見ると×××.cgiのままとなっており、表示するhtmlの中に
JavaScriptの記述を埋め込んでいるという形になります。
<script type="text/javascript">
document.write("<img src=http://・・・/index.cgi?page=XXXX&r=" + document.referrer + ">");
</script>
最初に表示されるときはlogへの書き込みがなされないのですが
更新ボタンを押すと書き込みがされます。
この記述をヘッダーの中に入れたり、外部で呼び出したりいろいろやりましたがすべて同じような挙動になります。
cgiファイルの中身の最後の方はこうなっております。
my $tmpl = HTML::Template->new(
die_on_bad_params => 0,
filename => './html/' . $page
);
# HTMLテンプレートにデータベースから読み込んだ情報を設定
$tmpl->param(
dlid => $dlid,
sid => $sid,
message => "$message"
);
#HTMLの表示
print "Content-Type: text/html\n\n";
print $tmpl->output();
この部分をいじってもダメでしょうか?
また、何か対策はないでしょうか。
よろしくお願いいたします。
お礼
ありがとうございます。 勉強になります。 さっそくFeinigerさんのソース拝見させていただきました。 ありがたくつかわさせていただきます。