#!/usr/bin/perl
#↑perlのパスを自分の環境に合わせて書き直します。
#	pickupkeyrank.cgi --> yomi.cgi と同じところにアップロード。
#	パーミッションは yomi.cgi に合わせる。（通常 755）
#
#	Yomi-Search Ver4.19&4.20 用 アドオンソフト
#	「キーワードランキングリストアップ」Ver 1.0
#	キーワードランキングを任意のページに埋め込みリスト表示する。
#
#	使い方：
#		pickupkeyrank.cgi?max=XXX
#			XXX : 表示キーワード数（順位でなく単語数）
#
#	住 : sumi@cside.com
#	LastUpdate : 2005/08/31
#
require 'pl/cfg.cgi';
require 'pl/temp.cgi';
require 'pl/ys4pickupkeyrank.cgi';

# パラメータを取得する。
&form_decode;

# サイトのピックアップとタグ生成。
$pickup_tag = &KeyRankListUpper($FORM{max});
$pickup_tag =~ s/\n//g;
$pickup_tag =~ s/'/&#039/g;

#
# JavaScriptでピックアップログ表示。
#
print "Content-type: text/plain\n\n";
print "<!--\n";
print "document.write(\'$pickup_tag\')\;\n";
print "//-->\n";
exit;

###########################################
# フォームデータのデコード(&form_decode)
# Yomi-Searchの同名関数のシンプル版。
sub form_decode{
	if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); }
	else { $form = $ENV{'QUERY_STRING'}; }
	@pairs = split(/&/,$form);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$FORM{$name} = $value;
	}
}