#!/usr/bin/perl
#↑perlのパスを自分の環境に合わせて書き直します。
#	pickuprank.cgi --> yomi.cgi と同じところにアップロード。
#	パーミッションは yomi.cgi に合わせる。（通常 755）
#
#	Yomi-Search Ver4.19&4.20 用 アドオンソフト
#	「ランキングリストアップ」Ver 1.0
#	ランキングを任意のページに埋め込みリスト表示する。
#
#	使い方：
#	pickuprank.cgi?mode=XXX&max=YYY&kt=ZZZ
#		XXX=ランキングモード(rank,rankbf,rankrui,rev,revbf,revrui)
#		YYY=リストアップサイト数。
#		ZZZ=カテゴリ指定（無指定も可）
#	
#	住 : sumi@cside.com
#	LastUpdate : 2004/11/22
#
require 'pl/cfg.cgi';
require 'pl/temp.cgi';
require 'pl/ys4pickuprank.cgi';

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

# サイトのピックアップとタグ生成。
$pickup_tag = &RankListUpper($FORM{mode},$FORM{max},$FORM{kt});
$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;
	}
}