#!/usr/bin/perl
#↑perlのパスを自分の環境に合わせて書き直します。
# pickup_site.cgi [755] yomi.cgi と同じところにアップロード。
#
# Yomi-Search Ver 4.19 用 アドオンソフト
#	登録サイトをランダムにピックアップ表示する。
#	住 : sumi@cside.com
#	LastUpdate : 2003/03/24
#
require 'pl/cfg.cgi';
require 'pl/temp.cgi';
require 'pl/ys4sitepickup.cgi';

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

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