##########################################
# CC-SEARCH VT.2.13
# CC-ROOM - http://cc-room.net/
# since - 2008/07/10 (VT - 2009/05/03)
# update - 2011/11/07
##########################################

use CGI::Carp qw(fatalsToBrowser);
require './pl/cc_cnf.pl';
require './pl/category.pl';
require $jcode;
srand;
eval 'require $datadir."check.cgi";' if $accessrank || $mylink >= 2;

#データ受け取り
&dcode;
$act = $F{'a'};
if($forbit == 1){
	&error("外部からのアクセスは出来ません。") if $ENV{'HTTP_REFERER'} !~ /$scriptdir/i && $act ne "top" && $act ne "";
}

$fe = "0";
if($F{'f'} == 1){ $fm = '&f=1'; $fe = "1"; }
eval{ &navibar } if !$fe;

$id = $F{'id'};
$word = $F{'w'};
$nword = $F{'nw'};
$oword = $F{'ow'};
$cat = $F{'c'};
$nct = $F{'n'};
$oct = $F{'o'};
$mc = $F{'mc'};
$mn = $F{'mn'};
$ao = $F{'ao'};
$page = $F{'p'};
$type = $F{'t'};
if($F{'lk'}){
	($show,$line,$sort,$day) = split(":",$F{'lk'}); $link = $F{'lk'};
}else{
	$show = $F{'sw'}; $line = $F{'l'}; $sort = $F{'s'}; $day = $F{'d'};
	$link = join(":",$show,$line,$sort,$day);
}
$sck = $F{'sck'};

$time = time();
$page = 0 if(!$page || ($type ne $F{'ctype'} && $lltype) || $sort == 3);
$line = $showline unless $line;
$day = 0 unless $day;
$sort = $setsort if $sort !~ /\d/;
$sort = 0 if $sort > 9;
$snum = $page * $line + 1;
$enum = $snum + $line - 1;
$tct = 0;
$cdate = $time - 86400 * $day if $day > 0;
$ntm = $time - 86400 * $newtime;
if(@marks > 10){ $sm = 1; }else{ $sm = 0; }
if($mylink == 2){ eval 'require "./pl/mylink.pl";'; }
elsif($mylink == 3){ eval 'require "./pl/mylink_db.pl";'; }

if($act eq "" && !$nftype){ &nfmenu; }
elsif($act eq "rank" || $act eq "trank" || $act eq "rank_bf" || $act eq "trank_bf"){ &ranking; }
elsif($act eq "mlink"){ &mylink; }
elsif($act eq "mla" || $act eq "mld"){ &mylink_ad; }
elsif($act eq "new" || $act eq "renew" || $act eq "error" || $act eq "up" || $act eq "pu"){ &new; }
elsif($act eq "srank"){ &srank; }
elsif($act =~ /^mark(\d+)/){ &mark($1); }
elsif($act eq "dsearch"){ &ds_form; }
elsif($act eq "c"){ &cat; }
elsif($act eq "top"){ ⊤ }
elsif($act eq 'login_top'){ &login_top; }
elsif($act eq 'login'){ &login; }
elsif($act eq 'regml_top'){ &reg_ml_top; }
elsif($act eq 'regml'){ &reg_mylink; }
$word =~ s/　/ / if $act ne 'sn';
$oword =~ s/　/ /;
$nword =~ s/　/ /;
if($word eq "" && !$cat && $oword eq "" && !$oct && $nword eq "" && !$nct && $mc eq "" && $mn eq ""){ undef $act; &main; }
elsif($act eq "s" || $act eq "sn"){ &search; }
elsif($act eq "ds"){ &dsearch; }
else{ &main; }
exit;

#結果表示
sub siteform{
local $rank = $rc1 = shift;
local @site = @_;
print "Content-type:text/html; charset=utf-8\n\n";
require $template.'cc_search.html';
exit;
}

#フレームトップ
sub top{
print "Content-type:text/html; charset=utf-8\n\n";
require $template.'frame_top.html';
exit;
}

#マークサイト
sub mark{
require './pl/catexp.pl';
my(@site,$datafl,$sm1,$mn,$mn1);
$mn1 = $_[0];
$mn = $sm?'_'.$mn1.'_':$mn1;
if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
elsif($type){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
while(<IN>){
	if($day ne "0"){ next if (split("<>"))[3] <= $cdate; }
	$sm1 = $sm?'_'.(split("<>"))[2].'_':(split("<>"))[2];
	next if index($sm1,$mn) == -1;
	$tct++;
	if($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
	elsif($sort == 2){ unshift(@site,$_); }
	else{ push(@site,$_); }
}
close(IN);
@site = &lsort(@site) if $sort == 2 || $sort == 3 || $sort >= 6;
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;

$action = $marks[$mn1][0];
if($tct == 0){
	$siteform = "<br>$marks[$mn1][0]として登録されているサイトはありません。<br>";
	$linkline = $rmes = "";
	&siteform;
}else{
	$rmes = $mkexp{$mn1};
	if($lltype){ &linkline; }else{ &linkline("a=$act&amp;lk=$link$fm"); }
	&searchform(1);
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}
}

#新着・更新サイト
sub new{
&swrck if $swrank;
my(@site,$a1,$a2,$a3);
if($act eq "new"){ $action = "新着サイト"; }
elsif($act eq "renew"){ $action = "更新サイト"; }
elsif($act eq "pu"){ $action = "登録サイト情報"; }
elsif($act eq "error"){ $action = "エラー登録サイト"; }
else{ $action = "$advnameサイト情報"; &uprank if $accessrank; }
if($act eq "new" || $act eq "renew" || $act eq "pu"){
	&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$searchlog);
	while(<IN>){
		if($act eq "pu"){ if(index($_,$id.'<>') == 0){ $tct++; push(@site,$_); last; } }
		else{
			$a1 = (split("<>"))[3];
			($a2,$a3) = split("_",$a1);
			if($a2 > $ntm){
				if(($act eq "new" && $a3 == 0) || ($act eq "renew" && $a3 == 1)){
					$tct++;
					push(@site,$_) if $tct >= $snum && $tct <= $enum;
				}
			}else{ last; }
		}
	}
	close(IN);
}else{
	&error("ログファイルが開けません。",$a4,$fe) unless open(IN,$datadir.$act.".cgi");
	while(<IN>){
		$tct++;
		push(@site,$_) if $tct >= $snum && $tct <= $enum;
	}
	close (IN);
}
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;

if($tct == 0){
	$siteform = "<br>対象となるサイトがありません。<br>";
	$linkline = $rmes = "";
	&siteform;
}else{
	if($act eq "new" || $act eq "renew"){ $rmes = $newtime."日以内の".$action; }
	elsif($act eq "up"){ $rmes = $advdate."日以内の".$action; }
	else{ $rmes = ""; }
	if($lltype){ &linkline; }else{ &linkline("a=$act&amp;lk=$link$fm"); }
	&searchform(2);
	$dataform = "" if $act eq "pu";
	&siteform("",@site);
}
}

#ランキング表示
sub ranking{
&error("現在、ランキングは行っていません。",0,$fe) if !($accessrank);
my(@site,@t,$rstime,$cct,$cck,$ck0,$ck1,$ck2);
my $cktime = &rankfl($act eq "trank" || $act eq "trank_bf"?2:1);
if($rankcnt > 0){
	$ck1 = $act eq "trank" || $act eq "trank_bf"?1:0;
	$ck2 = @PL?$PL[$#PL][0] + 1:14;
	$rmes .= qq'<p>$rankcnt位まで（最終ページに同位がまたぐ場合は+1）</p>';
}
open (IN,$datadir.$act.".cgi");
	while(<IN>){
		if($rankcnt > 0){
			$cct++;
			my $a1 = (split('_',(split('<>'))[$ck2]))[$ck1];
			if($ck0 == $a1){ $cck = 0; }else{ $ck0 = $a1; $cck = 1; }
			last if $cct > $rankcnt && $cck;
		}
		$tct++;
		push(@site,$_) if $tct >= $snum && $tct <= $enum;
	}
close (IN);
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;
if($act eq "rank_bf"){
	$rmes .= qq'<a href="./cc_search.cgi?a=rank$fm">&gt;&gt;現在</a>　';
	$rmes .= qq'<a href="./cc_search.cgi?a=trank$fm">&gt;&gt;$trankname</a>　' if $totalrank;
	$action = "アクセスランキング（前回）";
}elsif($act eq "trank"){
	$rmes .= qq'<a href="./cc_search.cgi?a=rank$fm">&gt;&gt;現在</a>　';
	$rmes .= qq'<a href="./cc_search.cgi?a=trank_bf$fm">&gt;&gt;$trankname（前回）</a>　' if $rankbuf;
	$action = "アクセスランキング（$trankname）";
}elsif($act eq "trank_bf"){
	$rmes .= qq'<a href="./cc_search.cgi?a=rank$fm">&gt;&gt;現在</a>　';
	$rmes .= qq'<a href="./cc_search.cgi?a=trank$fm">&gt;&gt;$trankname</a>　';
	$action = "アクセスランキング（$trankname - 前回）";
}else{
	$rstime = $ck_time{'reset'};
	if($rstime){
		@t = gmtime($rstime + 32400);
		$rstime = "\n<br>Reset ： ".sprintf("%02d/%02d/%02d %02d:%02d",($t[5]-100),($t[4]+1),$t[3],$t[2],$t[1]);
	}
	$rmes .= qq'<a href="./cc_search.cgi?a=rank_bf$fm">&gt;&gt;前回</a>　' if $rankbuf;
	$rmes .= qq'<a href="./cc_search.cgi?a=trank$fm">&gt;&gt;$trankname</a>　' if $totalrank;
	$action = "アクセスランキング";
}
if($cktime){
	my @t = gmtime($cktime + 32400);
	$cktime = "\n更新 ： ".sprintf("%02d/%02d/%02d %02d:%02d",($t[5]-100),($t[4]+1),$t[3],$t[2],$t[1]);
}
$rmes = qq'<div align="right">$rmes$cktime$rstime</div>';
if($tct == 0){
	$siteform = "<br>現在、ランクインしているサイトはありません。<br>";
	$linkline = "";
	&siteform;
}else{
	if($lltype){ &linkline; }else{ &linkline("a=$act&amp;lk=$link$fm"); }
	&searchform(2);
	&siteform($snum,@site);
}
}

#検索語ランキング
sub srank{
&swrck if $swrank;
&error("現在、検索語ランキングは公開していません。",0,$fe) if $swrank != 2;
local(@rank);
open(IN,$datadir."swrank.cgi");
@rank = <IN>;
close(IN);
$siteform = qq'<br>現在、ランクインしている検索語はありません。<br>' if !@rank;
print "Content-type:text/html; charset=utf-8\n\n";
require $template.'sranking.html';
exit;
}

#カテゴリ
sub cat{
require './pl/catexp.pl';
if($swrank){
	&lock(swrank);
	open(OUT,">>".$datadir."swr_w.cgi");
	print OUT join("<>",$cat,$nct,$ENV{'REMOTE_ADDR'},"\n");
	close(OUT);
	&unlock(swrank);
}
my(@site,$flag,$log,$cd,@mark,@mark0,$mk,$a1,$a2,$datafl,$sm1);
if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
elsif($type){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
while(<IN>){
	if($day > 0){ next if (split("<>"))[3] <= $cdate; }
	next if $cat && index($_,'>'.$cat.'<') == -1;
	next if $nct && index($_,'>'.$nct.'<') != -1;
	$mk = (split("<>"))[2] if $sort == 5;
	$tct++;
	if($sort == 5 && $mk ne ""){
		$mk = '_'.$mk.'_' if $sm;
		foreach $a1(@primark){ $sm1 = $sm?'_'.$a1.'_':$a1; $a2 = 0;
			if(index($mk,$sm1) != -1){ push(@mark,$_); $a2 = 1; last; } }
		push(@mark0,$_) unless $a2; }
	elsif($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
	elsif($sort == 2){ unshift(@site,$_); }
	else{ push(@site,$_); }
}
close(IN);
if($sort == 2 || $sort == 3 || $sort >= 6){ @site = &lsort(@site) ; }
elsif($sort == 5){
	push(@mark,@mark0,@site); undef @site; $tct = 0; 
	foreach(@mark){ $tct++; push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
}
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;
if($cat){
	if($abctlink){ $action = "カテゴリ － ".&linkmake($cat,1); }else{
		my $c1 = $cat;
		while($c1){
			$action = ($c1 eq $cat?"<b>$category{$c1}</b>":qq'<a href="$searchfile?a=c&amp;c=$c1$fm">$category{$c1}</a> &gt; ').$action;
			if(index($c1,'-') != -1){ $c1 =~ s/\-\d+$//; }else{ undef $c1; }
		}
		$action = "カテゴリ － ".$action;
	}
}
$action = "除外カテゴリ － ".&linkmake($nct,1) if $nct;
if($cat){
	my($a1,%uct,%oct,%a1);
	require $datadir.'ctcnt.cgi';
	while (($a1) = each %category){
		if($a1 =~ /^$cat-\d+$/){ push(@uct,$a1); }
		elsif($a1 =~ /^($cat-\d+)-/){ $uct{$1} = ' *'; $oct{$1} = $oct{$1}+$ctl{$a1} if $ctl{$a1}; }
	}
	if(@uct){
		@uct = sort(@uct);
		foreach(@uct){
			if($uct{$_} || $ctl{$_}){
				$oct{$_} = '+'.$oct{$_} if $oct{$_};
				$rmes .= qq'<p><a href="$searchfile?a=c&amp;c=$_$fm">$category{$_}</a>$uct{$_} ($ctl{$_}$oct{$_})</p>\n';
			}else{ $rmes .= qq'<p>$category{$_} (0)</p>\n'; }
		}
		$rmes = qq'<table cellpadding="0" cellspacing="0"><td>$rmes</td></table>' if $rmes;
	}
}
$rmes = $catexp{$cat}.($catexp{$cat} && $rmes?qq'<hr>':'').$rmes;
if($tct != 0){
	my($c);
	if($sort != 3){
		if($lltype){ &linkline; }else{
			if($cat){ $c="&amp;c=$cat"; $c{$cat} = 1;} if($nct){ $c="&amp;n=$nct"; }
			&linkline("a=$act$c&amp;lk=$link$fm");
		}
	}
	&searchform(1);
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}else{
	$siteform  = "<br>条件に一致するサイトは見つかりませんでした。<br>" if index($cat,'-') != -1;
	$linkline = "";
	&siteform;
}
}

#検索
sub search{
if($sck){ $cat = $nct = $mc = $mn = undef; }
if($swrank && $act ne "sn"){
	&lock(swrank);
	open(OUT,">>".$datadir."swr_w.cgi");
	print OUT join("<>",$word." ".$cat,$nword." ".$nct,$ENV{'REMOTE_ADDR'},"\n");
	close(OUT);
	&unlock(swrank);
}
my(@mc,@mn,@tm1,@ntm,$ct,$cname,@ck,@cat,@nct);
@mc = split(" ",$mc) if $mc ne ""; @mn = split(" ",$mn) if $mn ne "";
if(@mc || @mn){
	$wd = "検索マーク <b>";
	if(@mc){ foreach(@mc){ $wd .= '〈'.$marks[$_][0].'〉'; } }
	if(@mn){ $wd .= '<span class="nw">'; foreach(@mn){ $wd .= '〈'.$marks[$_][0].'〉'; } $wd .= '</span>'; }
	$wd .= "</b><br>\n";
}
if($word){ if($act eq "sn"){ @tm1[0] = '>'.lc($word).'<'; }
else{ @tm1 = split(" ",lc($word)); } }
@ntm = split(" ",lc($nword)) if $nword;
if($cat || $nct){
	$cname = '検索カテゴリ <b>';
	if($cat){
		@ck = split(" ",$cat);
		foreach(@ck){ push(@cat,'>'.$_.'<'); $cname .= '['.$category{$_}.']'; $ct++; $c{$_} = 1; }
		push(@tm1,@cat);
	}
	if($nct){
		$cname .= '<span class="nw">';
		@ck = split(" ",$nct);
		foreach(@ck){ push(@nct,'>'.$_.'<'); $cname .= '['.$category{$_}.']'; $ct++; }
		$cname .= "</span>";
		push(@ntm,@nct);
	}
	&error($maxsearchct."カテゴリ以上は選択できません。",0,$fe) if $ct > $maxsearchct;
	$cname .= '</b>';
}
&error("検索項目が多すぎます。項目を減らして再度検索してください。",0,$fe) if($#tm1 > 10 || $#ntm > 10);

my(@site,$flag,$log,$cd,@mark,@mark0,$mk,$a1,$a2,$datafl,$sm1);
if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
elsif($type == 1){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
while(<IN>){
	if($day > 0){ next if (split("<>"))[3] <= $cdate; }
	$mk = (split("<>"))[2] if @mc || @mn || $sort == 5;
	if(@mc || @mn){
		$mk = '_'.$mk.'_' if $sm && $mk ne "";
		if(@mc){
			foreach $log(@mc){ $flag = 1; $sm1 = $sm?'_'.$log.'_':$log; if(index($mk,$sm1) == -1){ $flag=0; last; } }
			next if !$flag;
		}
		if(@mn){
			foreach $log(@mn){ $flag = 1; $sm1 = $sm?'_'.$log.'_':$log; if(index($mk,$sm1) != -1){ $flag=0; last; } }
			next if !$flag;
		}
	}
	$ck = lc($_);
	$flag = 1;
	if(@tm1){
		foreach $log(@tm1){
			if($ao == 0){ if(index($ck,$log) == -1){ $flag=0; last; } }
			else{ $flag = 0; if(index($ck,$log) != -1){ $flag=1; last; } }
		}
		next if !$flag;
	}
	if(@ntm){
		foreach $log(@ntm){ if(index($ck,$log) != -1){ $flag=0; last; } } next if !$flag;
	}
	$tct++;
	if($sort == 5 && $mk ne ""){
		foreach $a1(@primark){ $sm1 = $sm?'_'.$a1.'_':$a1; $a2 = 0;
			if(index($mk,$sm1) != -1){ push(@mark,$_); $a2 = 1; last; } }
		push(@mark0,$_) unless $a2; }
	elsif($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
	elsif($sort == 2){ unshift(@site,$_); }
	else{ push(@site,$_); }
}
close(IN);
if($sort == 2 || $sort == 3 || $sort >= 6){ @site = &lsort(@site) ; }
elsif($sort == 5){
	push(@mark,@mark0,@site); undef @site; $tct = 0; 
	foreach(@mark){ $tct++; push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
}
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;

if($act eq "sn" && $word){
	$action = "名前検索 <b>「$word」</b> － ";
}else{
	if($ao){ $cd="OR"; }else{ $cd="AND"; }
	$action = "検索[$cd] － ";
	if($word || $nword){
		$wd .= "検索ワード <b>";
		$wd .= "「".$word."」" if $word;
		$wd .= '<span class="nw">「'.$nword.'」</span>' if $nword;
		$wd .= "</b>";
		$wd .= "<br>" if $cname;
	}
	$rmes = $wd.$cname;
}
&action;

if($tct != 0){
	if($sort != 3){
		if($lltype){ &linkline; &searchform(1); }else{
			$link .= "&amp;w=$encw" if $encw; $link .= "&amp;nw=$encnw" if $encnw;
			$link .= "&amp;c=$cat" if $cat; $link .= "&amp;n=$nct" if $nct;
			$link .= "&amp;mc=$mc" if @mc; $link .= "&amp;mn=$mn" if @mn;
			&linkline("a=$act&amp;ao=$ao&amp;lk=$link$fm");
			if($act eq "sn"){ &searchform(1); undef $word; }else{ &searchform(5); }
		}
	}
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}else{
	undef $word if $act eq "sn";
	$siteform  = "<br>条件に一致するサイトは見つかりませんでした。<br>";
	$linkline = "";
	&siteform;
}
}

#詳細検索
sub dsearch{
if($sck){ $cat = $nct = $oct = $mc = $mn = undef; }
if($swrank){
	&lock(swrank);
	open(OUT,">>".$datadir."swr_w.cgi");
	print OUT join("<>",$word." ".$oword." ".$cat." ".$oct,$nword." ".$nct,$ENV{'REMOTE_ADDR'},"\n");
	close(OUT);
	&unlock(swrank);
}
my(@mc,@mn,@tm1,@otm,@ntm,$m1,$m2,$m3,$ct,@ck,@cat,@nct);
if($mc ne ""){ @mc = split(" ",$mc); for(@mc){ $m1 .= '〈'.$marks[$_][0].'〉'; } }
if($mn ne ""){ @mn = split(" ",$mn); for(@mn){ $m3 .= '〈'.$marks[$_][0].'〉'; } }
if($word) { @tm1 = split(" ",lc($word)); $m1 .= "「".$word."」"; }
if($oword){ @otm = split(" ",lc($oword)); $m2 = "「".$oword."」"; }
if($nword){ @ntm = split(" ",lc($nword)); $m3 .= "「".$nword."」"; }
if($cat){
	@ck = split(" ",$cat);
	for(@ck){ push(@cat,'>'.$_.'<'); $m1 .= '['.$category{$_}.']'; $ct++; $c{$_} = 1; }
	push(@tm1,@cat);
}
if($oct){
	@ck = split(" ",$oct);
	for(@ck){ push(@oct,'>'.$_.'<'); $m2 .= '['.$category{$_}.']'; $ct++; $c{$_} = 1; }
	push(@otm,@oct);
}
if($nct){
	@ck = split(" ",$nct);
	for(@ck){ push(@nct,'>'.$_.'<'); $m3 .= '['.$category{$_}.']'; $ct++; }
	push(@ntm,@nct);
}
&error($maxsearchct."カテゴリ以上は選択できません。",0,$fe) if $ct > $maxsearchct;
&error("検索項目が多すぎます。項目を減らして再度検索してください。",0,$fe) if($#tm1 > 10 || $#otm > 10 || $#ntm > 10);

my(@site,$flag,$log,@mark,@mark0,$mk,$a1,$a2,$datafl,$sm1);
if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
elsif($type == 1){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
while(<IN>){
	if($day > 0){ next if (split("<>"))[3] <= $cdate; }
	$mk = (split("<>"))[2] if @mc || @mn || $sort == 5;
	if(@mc || @mn){
		$mk = '_'.$mk.'_' if $sm && $mk ne "";
		if(@mc){
			foreach $log(@mc){ $flag = 1; $sm1 = $sm?'_'.$log.'_':$log; if(index($mk,$sm1) == -1){ $flag=0; last; } }
			next if !$flag;
		}
		if(@mn){
			foreach $log(@mn){ $flag = 1; $sm1 = $sm?'_'.$log.'_':$log; if(index($mk,$sm1) != -1){ $flag=0; last; } }
			next if !$flag;
		}
	}
	$ck = lc($_);
	if(@tm1){ foreach $log(@tm1){ $flag = 1; if(index($ck,$log) == -1){ $flag=0; last; } } next if !$flag; }
	if(@otm){ foreach $log(@otm){ $flag = 0; if(index($ck,$log) != -1){ $flag=1; last; } } next if !$flag; }
	if(@ntm){ foreach $log(@ntm){ $flag = 1; if(index($ck,$log) != -1){ $flag=0; last; } } next if !$flag; }
	$tct++;
	if($sort == 5 && $mk ne ""){
		foreach $a1(@primark){ $sm1 = $sm?'_'.$a1.'_':$a1; $a2 = 0;
			if(index($mk,$sm1) != -1){ push(@mark,$_); $a2 = 1; last; } }
		push(@mark0,$_) unless $a2; }
	elsif($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
	elsif($sort == 2){ unshift(@site,$_); }
	else{ push(@site,$_); }
}
close(IN);
if($sort == 2 || $sort == 3 || $sort >= 6){ @site = &lsort(@site) ; }
elsif($sort == 5){
	push(@mark,@mark0,@site); undef @site; $tct = 0; 
	foreach(@mark){ $tct++; push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
}
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;

	$action = "詳細検索 － ";
	&action;
	$m1 = qq|AND - <b>$m1</b><br>\n| if $m1;
	$m2 = qq|O R - <b>$m2</b><br>\n| if $m2;
	$m3 = qq|NOT - <b>$m3</b><br>\n| if $m3;
	$rmes = $m1.$m2.$m3;

if($tct != 0){
	if($sort != 3){
		if($lltype){ &linkline; }else{
			$link .= "&amp;w=$encw" if $encw; $link .= "&amp;ow=$encow" if $encow; $link .= "&amp;nw=$encnw" if $encnw;
			$link .= "&amp;c=$cat" if $cat; $link .= "&amp;o=$oct" if $oct; $link .= "&amp;n=$nct" if $nct;
			$link .= "&amp;mc=$mc" if @mc; $link .= "&amp;mn=$mn" if @mn;
			&linkline("a=$act&amp;ao=$ao&amp;lk=$link$fm");
		}
	}
	$nftype= 0; &searchform(4);
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}else{
	$siteform  = "<br>条件に一致するサイトは見つかりませんでした。<br>";
	$linkline = "";
	&siteform;
}
}

sub ds_form{
require $datadir.'ctcnt.cgi';
print "Content-type:text/html; charset=utf-8\n\n";
require $template.'dsearch.html';
exit;
}

#メイン
sub main{
my(@site,@mark,@mark0,$mk,$a1,$a2,$datafl,$sm1);
if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
elsif($type == 1){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
while(<IN>){
	if($day > 0){ next if (split("<>"))[3] <= $cdate; }
	$tct++; $mk = (split("<>"))[2] if $sort == 5;
	if($sort == 5 && $mk ne ""){
		$mk = '_'.$mk.'_' if $sm;
		foreach $a1(@primark){ $sm1 = $sm?'_'.$a1.'_':$a1; $a2 = 0;
			if(index($mk,$sm1) != -1){ push(@mark,$_); $a2 = 1; last; } }
		push(@mark0,$_) unless $a2; }
	elsif($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
	elsif($sort == 2){ unshift(@site,$_); }
	else{ push(@site,$_); }
}
close(IN);
if($sort == 2 || $sort == 3 || $sort >= 6){ @site = &lsort(@site) ; }
elsif($sort == 5){
	push(@mark,@mark0,@site); undef @site; $tct = 0; 
	foreach(@mark){ $tct++; push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
}
$enum = $tct if $tct < $enum;
$snum = 0 if $tct == 0;
&action;
if($tct == 0){
	$siteform = "<br>登録されているサイトはありません。<br>";
	$rmes = $linkline = "";
	&siteform;
}else{
	$rmes = "" ;
	if($sort != 3){ if($lltype){ &linkline; }else{ &linkline("a=m&amp;lk=$link$fm"); } }
	if($fm){ &searchform(1); }else{ &searchform(5); }
	$act = 's' unless $act eq 'ds';
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}
}

sub nfmenu{
require $datadir.'ctcnt.cgi';
print "Content-type:text/html; charset=utf-8\n\n";
require $template.'noframe_menu.html';
exit;
}

#マイリンク
sub mylink{
&error("マイリンクは使用出来ません。",0,$fe) unless $mylink;
if($mylink == 1){ &get_cookie; }
elsif(!$ml_mail || !$ml_pass){ &login_top; }
my @ml_id = split(/:/,$ml_list);
my(%a1,@site,@mark,@mark0,$mk,$a1,$a2);
my $flag = 0;
foreach(@ml_id){ if($_ =~ /^\d+$/){ $a1{$_} = 1; $flag = 1; } }
if($flag){
	my($datafl,$id,$date);
	if($sort == 1){ if($type){ &uprank; $datafl = 'urank.cgi'; }else{ &rankfl(0); $datafl = "rank.cgi"; } }
	elsif($sort == 4){ &mylink_sort; if($type){ $datafl = 'musort.cgi'; }else{ $datafl = 'mlsort.cgi'; } }
	elsif($type){ $datafl = "up.cgi"; }else{ $datafl = $searchlog; }
	&error("ログファイルが開けません。","",$fe) unless open(IN,$datadir.$datafl);
	while(<IN>){
		($id,$date) = (split("<>"))[0,3];
		next unless $a1{$id};
		if($day ne "0"){ next if $date <= $cdate; }
		$mk = (split("<>"))[2] if $sort == 5;
		$tct++;
		if($sort == 5 && $mk ne ""){
			$mk = '_'.$mk.'_' if $sm;
			foreach $a1(@primark){ $sm1 = $sm?'_'.$a1.'_':$a1; $a2 = 0;
				if(index($mk,$sm1) != -1){ push(@mark,$_); $a2 = 1; last; } }
			push(@mark0,$_) unless $a2; }
		elsif($sort <= 1 || $sort == 4){ push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
		elsif($sort >= 8){ $sn{(split("<>"))[4]} = $_; }
		elsif($sort == 2){ unshift(@site,$_); }
		else{ push(@site,$_); }
	}
	close(IN);
	if($sort == 2 || $sort == 3 || $sort >= 6){ @site = &lsort(@site) ; }
	elsif($sort == 5){
		push(@mark,@mark0,@site); undef @site; $tct = 0; 
		foreach(@mark){ $tct++; push(@site,$_) if(($tct >= $snum) && ($tct <= $enum)); }
	}
	$enum = $tct if $tct < $enum;
	$snum = 0 if $tct == 0;
}
$action = $mylink >= 2 && $ml_name?"<b>$ml_name</b>さんの":'';
$action .= "マイリンク";
if($tct != 0){
	$rmes = "";
	if($sort != 3){ if($lltype){ &linkline; }else{ &linkline("a=$act&amp;lk=$link$fm"); } }
	&searchform(1);
	if($sort == 1 || $sort == 4){ &siteform($snum,@site); }else{ &siteform("",@site); }
}else{
	$siteform = "<br>登録が無いか、クッキーが有効になっていません。<br>";
	$linkline = $rmes = "";
	&siteform;
}
}

sub mylink_ad{
&error("マイリンクは使用出来ません。",0,$fe) unless $mylink;
&get_cookie if $mylink == 1;
my($a1,$a2,$a3);
if($act eq "mld"){#削除
	$ml_list =~ s/\Q:$id\E//; $a1 = "削除"; $a2 = "をマイリンクから削除しました";
	&set_cookie;
}elsif($act eq "mla"){#追加
	if($ml_list =~ /\Q:$id\E/){ $a2 = "はマイリンク中です"; }
	else{ $ml_list = $ml_list . ':' . $id; $a2 = "をマイリンクに追加しました"; &set_cookie; }
	$a1 = "追加";
}
open(IN,$datadir.$searchlog);
while(<IN>){
	if((split("<>",$_))[0] eq $id){ $a3 = (split("<>",$_))[4]; last; }
}
close(IN);
$linkline = $rmes = "";
$action = "マイリンク".$a1;
$siteform = qq'<div align="center"><br><b>$a3</b> $a2。<br><br>\n[<a href="$searchfile?a=mlink$fm">マイリンク確認</a>]</div>';
&siteform;
}

sub set_cookie{
	my $a1 = $skip?'':' expires=Thu, 1-Jan-2030 00:00:00 GMT;';
	print "Set-Cookie:cc_ml=$ml_list;$a1\n";
	if($mylink >= 2){
		if($act eq 'login' || $act eq 'regml'){
			if(!$skip && $cookielimit){
				my @w = ("Sun","Mon","Tue","Wed","Thr","Fri","Sat");
				my @m = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dev");
				my @d = gmtime($time + 32400 + 86400 * $cookielimit);
				$a1 = " expires=$w[$d[6]], $d[3]-$m[$d[4]]-".($d[5]+1900)." 23:59:59 GMT;";
			}
			my $a2 = qq'$mail<>$pass<>$ml_name';
			$a2 =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
			print "Set-Cookie:cc_ml_set=$a2;$a1\n";
		}else{
			&set_mylink;
		}
	}
}

sub get_cookie{
	my @cookies = split(/; */,$ENV{'HTTP_COOKIE'});
	foreach(@cookies){
		my($cname,$clist) = split(/=/);
		$clist =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
		$ml_list = $clist if $cname eq "cc_ml" && $clist;
		if($mylink >= 2){
			($ml_mail,$ml_pass,$ml_name) = split('<>',$clist) if $cname eq "cc_ml_set" && $clist;
			if($ml_mail && $ml_pass && $ml_name && $ml_list){
				undef $ml_list if $act eq 'regml';
				last;
			}
		}else{
			last if $ml_list;
		}
	}
	if($mylink >= 2){ undef $ml_list if $act ne 'regml' && ($ml_mail eq "" || $ml_pass eq ""); }
}

#検索バー
sub searchform{
my $ck = shift;
my($sl,$ml,$d1);
my $a1 = $act?$act:'s';
$ck1[$line] = " selected";
$ck2[$show] = " selected";
$ck3[$sort] = " selected";
$dck = '<option value="'.$day.'" selected>'.$day."日以内\n" if $day;
if($ck == 4){
	$sl = "\n".'<input type="hidden" name="o" value="'.$oct.'">' if $oct ;
}
if($ck != 2){
	$sl .= "\n".'<input type="hidden" name="c" value="'.$cat.'">' if $cat;
	$sl .= "\n".'<input type="hidden" name="n" value="'.$nct.'">' if $nct;
	$ml = "\n".'<input type="hidden" name="mc" value="'.$mc.'">' if $mc ne "";
	$ml .= "\n".'<input type="hidden" name="mn" value="'.$mn.'">' if $mn ne "";
}

$d1 = qq'\n<div class="df">$snum - $enum （全$tct件中）';
if($ck < 4){
	my($bnr,$rk1);
	$rk1 = "\n".'<option value="5"'.$ck3[5].'>マーク順' if $marks[0][0] && $act !~ /^mark\d/;
	$rk1 .= "\n".'<option value="1"'.$ck3[1].'>ランキング' if $accessrank == 1;
	$rk1 .= "\n".'<option value="4"'.$ck3[4].'>マイリンク数' if $mylink >= 2 && $showuser == 2;
	if($bannerreg == 1){
		if($sib){ $bnr = "\n".'<option value="3"'.$ck2[3].'>バナーなし'; }
		else{ $bnr = "\n".'<option value="4"'.$ck2[4].'>バナー表\示'; }
	}
	$dataform = <<EOD;
<form method="post" action="$searchfile">
<input type="hidden" name="a" value="$a1">
<input type="hidden" name="w" value="$word">
<input type="hidden" name="nw" value="$nword">$sl$ml
<input type="hidden" name="ao" value="$ao">
EOD
	$dataform .= '<input type="hidden" name="f" value="1">'."\n" if $fm;
	$dataform .= $d1."\n<span>";
	if($advmode && $ck != 2){
	my @tck;
	$tck[$type] = ' selected';
	$dataform .= <<EOD;
<select name="t">
<option value="0"$tck[0]>全ログから</option>
<option value="1"$tck[1]>$advname</option>
</select>
EOD
	}
	$dataform .= <<EOD;
<select name="l">
<option value="$showline"$ck1[$showline]>$showline件
<option value="10"$ck1[10]>10件
<option value="25"$ck1[25]>25件
<option value="50"$ck1[50]>50件
<option value="100"$ck1[100]>100件
</select>
<select name="sw">
<option value="0"$ck2[0]>情報全表\示
<option value="1"$ck2[1]>説明・タイトル
<option value="2"$ck2[2]>タイトルのみ$bnr
</select>
EOD
	if($ck != 2 && $ck != 3){
		$dataform .= <<EOD;
<select name="d">
$dck<option value="0">新着・更新
<option value="10">10日以内
<option value="20">20日以内
<option value="30">30日以内
<option value="60">60日以内
</select>
<select name="s">
<option value="0"$ck3[0]>新着順
<option value="2"$ck3[2]>新着降順
<option value="3"$ck3[3]>ランダム
<option value="7"$ck3[7]>登録順(新)
<option value="6"$ck3[6]>登録順(古)
<option value="8"$ck3[8]>サイト名順
<option value="9"$ck3[9]>サイト名逆順$rk1
</select>
EOD
	}
	$dataform .= <<EOD;
$selectlink<input type="submit" value="変更"></span>
EOD
}else{
	$dataform = $d1;
}
$dataform .= '</div>'.($nftype?'':'</form>');

$sline = $sl.($marksearch?'':$ml) if (!$fm && !$nftype) || $ck == 4;
}

#リンク
sub linkline{
$linkline = $selectlink = undef;
my $maxpage = int(($tct-1) / $line);
return if $maxpage < 1;
if($lltype){
	$selectlink = qq'<select name="p" size="1">\n';
	foreach(0 .. $maxpage){
		$selectlink .= '<option value="'.$_.'"'.($_ == $page?' selected':'').'>'.($_ + 1)."P</option>\n";
	}
	$selectlink .= qq'</select>\n';
	$selectlink .= qq'<input name="ctype" type="hidden" value="$type">\n' if $advmode;
}else{
	my $senddata = shift;
	$senddata .= '&amp;t='.$type if $advdate && $type;
	my($start,$end);
	if(($maxpage < 20) || ($page < 10)){ $start = 0; $end = 19; }
	elsif($page > $maxpage-9){ $start = $maxpage - 19; $end = $maxpage; }
	else{ $start = $page - 10; $end = $page + 9; }
	$end = $maxpage if $end > $maxpage;
	$linkline = '<div class="lk">';
	$linkline .= qq'<a href="$searchfile?$senddata&amp;p='.($page-1).'">&lt;&lt;前の'.$line.'件</a> ' if $page > 0;
	for ($start .. $end){
		if($page == $_){
			$linkline .= "<b>".($_+1)."</b> ";
		}else{
			$linkline .= qq'<a href="$searchfile?$senddata&amp;p=$_">'.($_+1).'</a> ';
		}
	}
	$linkline .= qq'<a href="$searchfile?$senddata&amp;p='.($page+1).'">次の'.$line.'件&gt;&gt;</a> ' if $page < $maxpage;
	$linkline .= '</div>';
}
}

###ソート
sub lsort{
my(@a1,$a1,%a1,$i,@site);
if($sort == 6){ @a1 = sort{ $a <=> $b } @_; }
elsif($sort == 7){ @a1 = sort{ $b <=> $a } @_; }
elsif($sort == 8){ push(@a1,$sn{$_}) foreach(sort keys %sn); }
elsif($sort == 9){ push(@a1,$sn{$_}) foreach(sort{ $b cmp $a } keys %sn); }
elsif($sort == 2){ @a1 = @_; }
else{
	eval 'use List::Util qw(shuffle);';
	if($@){ foreach(@_){ $a1 = int(rand(@a1 +1)); push(@a1,$a1[$a1]); $a1[$a1] = $_; } }
	else{ eval '@a1 = shuffle(@_);'; }
}
if($act ne "top"){
	foreach($snum-1 .. $enum-1){
		last unless $a1[$_];
		push(@site,$a1[$_]);
	}
}else{ @site = @a1; }
return(@site);
}

###ランキングファイルの作成
sub rankfl{
my $rfl = shift;
my($cktime,$flag);
if($rfrenew){
	if($rfl == 2){ $cktime = $ck_time{'trank'}; }
	else{ $cktime = $ck_time{'rank'}; }
	if(($time - 3600 * $rfrenew) > $cktime || !$cktime){ $flag = 1; $cktime = $time; }
}
if($flag){
	my(@cnt,%r,%rank,%t,%tank,%r2,%t2,@rank,@trank,$err,@rlog,@slog,%ark);
	open(IN,$datadir."count.cgi");
	while(<IN>){
		@cnt = split("<>");
		$r{$cnt[1]} = $cnt[0] if $cnt[0] >= $minicnt;
		if($totalrank){ $t{$cnt[1]} = $cnt[3] if $cnt[3] >= $minicnt; }
		$ark{$cnt[1]} = $cnt[0].($totalrank?'_'.$cnt[3]:'');
	}
	close (IN);
	open(IN,$datadir.$searchlog);
	while(<IN>){
		my($id,$mrk) = (split("<>"))[0,2];
		my $next = $rankentry && rindex($mrk,'x') != -1?1:0;
		chomp;
		if($nacsnum && $acsnum){
			$_ =~ s/<>[0-9_]+<>$/<>/;
			push(@slog,$_.($ark{$id} && !$next?$ark{$id}:'0')."<>\n") if $rfl < 2;
		}
		next if $next;
		if($rfl < 2){
			if($r{$id}){ $rank{$id} = $_.$ark{$id}."<>\n"; $r2{$id} = $r{$id}; }
			elsif(!$minicnt){ push(@rlog,$_."0<>\n"); }
		}elsif($totalrank){
			if($t{$id}){ $trank{$id} = $_.$ark{$id}."<>\n"; $t2{$id} = $t{$id}; }
			elsif(!$minicnt){ push(@tlog,$_."0<>\n"); }
		}
	}
	close (IN);
	push(@rank,$rank{$_}) foreach(sort{$r2{$b} <=> $r2{$a}} keys %r2);
	if($totalrank){ push(@trank,$trank{$_}) foreach(sort{$t2{$b} <=> $t2{$a}} keys %t2); }
	&lock("rankdata");
	if($rfl < 2){
		if($rankbuf && !$ck_time{'rank'}){
			open(OUT,">".$datadir."rank_bf.cgi");
			open(IN,$datadir."rank.cgi");
			print OUT $_ while(<IN>);
			close(IN);
			close(OUT);
		}
		open (OUT,">".$datadir."rank.cgi");
		print OUT @rank;
		print OUT @rlog;
		close (OUT);
		if($nacsnum && $acsnum){
			open(OUT,">".$datadir.$searchlog);
			print OUT @slog;
			close(OUT);
		}
		$ck_time{'rank'} = $time;
	}elsif($totalrank){
		if($rankbuf && !$ck_time{'trank'}){
			open(OUT,">".$datadir."trank_bf.cgi");
			open(IN,$datadir."trank.cgi");
			print OUT $_ while(<IN>);
			close(IN);
			close(OUT);
		}
		open (OUT,">".$datadir."trank.cgi");
		print OUT @trank;
		close (OUT);
		$ck_time{'trank'} = $time;
	}
	&make_check;
	&unlock("rankdata");
}
if($rfl){
	$cktime = $ck_time{'rankbuf'} if $act eq "rank_bf";
	$cktime = $ck_time{'trankbuf'} if $act eq "trank_bf";
	return($cktime);
}
}

sub uprank{
my $flag = 0;
my $cktime = $ck_time{'uprank'};
if($urrenew){ if(($time - 3600 * $urrenew) > $cktime || !$cktime){ $flag = 1; } }
if($flag){
	my(@l,%r,%r2,$id,@rank,@log,%ark,@site);
	open(IN,$datadir."count.cgi");
	while(<IN>){
		@l = split("<>");
		$r{$l[1]} = $l[0] if $l[0];
		$ark{$l[1]} = $l[0].($totalrank?'_'.$l[3]:'');
	}
	close (IN);
	open(IN,$datadir."up.cgi");
	while(<IN>){
		chomp;
		$id = (split("<>"))[0];
		if($nacsnum && $acsnum){
			$_ =~ s/<>[0-9_]+<>$/<>/;
			$rank{$id}= $_.($ark{$id}?$ark{$id}:'0')."<>\n";
			push(@site,$rank{$id});
		}elsif($r{$id} >= $minicnt){
			$rank{$id}= $_."<>\n";
		}
		$r2{$id} = $r{$id} if $r{$id} >= $minicnt;
	}
	close (IN);
	push(@log,$rank{$_}) foreach(sort{$r2{$b} <=> $r2{$a}} keys %r2);
	&lock("rankdata");
	open (OUT,">".$datadir."urank.cgi");
	print OUT @log;
	close (OUT);
	$ck_time{'uprank'} = $time;
	&make_check;
	&unlock("rankdata");
	if($nacsnum && $acsnum){
		&lock("updata");
		open(OUT,">".$datadir."up.cgi");
		eval{ flock(OUT,2) };
		print OUT @site;
		close (OUT);
		&unlock("updata");
	}
}
}

#検索語ログ
sub swrck{
my $c1 = (stat $datadir.'swr_w.cgi')[7];
if($c1 > 100000){
	my($a1,$a2,%a1,%a2,%a3,@l,@rank,$d1);
	my @t = localtime($time);
	my $tm = sprintf("%04d/%02d/%02d %02d:%02d",$t[5]+1900,$t[4]+1,$t[3],$t[2],$t[1]);
	&lock(swrank);
	open(IN,$datadir."swr_w.cgi");
	while(<IN>){
		chop; @l = split("<>");
		if(!$a3{$_}){ $a1 .= $l[0]." " if $l[0] && $l[0] ne " "; $a2 .= $l[1]." " if $l[1] && $l[1] ne " "; }
		$a3{$_} = 1;
	}
	close(IN);
	open(OUT,">".$datadir."swr_w.cgi");
	close(OUT);
	&unlock(swrank);

	my @a1 = split(" ",$a1);
	my @a2 = split(" ",$a2);
	foreach(@a1){ $a1{$_}++ if $_; }
	foreach(@a2){ $a2{$_}++ if $_; }
	&lock(swrset);
	open(IN,$datadir."swr_l.cgi");
	$d1 = <IN>;
	while(<IN>){
		@l = split("<>");
		if($l[3] == 0){ if($a1{$l[0]}){ $a1{$l[0]} += $l[1]; }else{ $a1{$l[0]} = $l[1]; } }
		else{ if($a2{$l[0]}){ $a2{$l[0]} += $l[1]; }else{ $a2{$l[0]} = $l[1]; } }
	}
	if($d1){ @d = split("<>",$d1); }else{ $d[0] = $time; $d[1] = $tm; }
	push(@rank,join("<>",$d[0],$d[1],$tm,"\n"));
	push(@rank,join("<>",$_,$a1{$_},$category{$_}?$category{$_}:$_,"0","\n")) foreach(sort{$a1{$b}<=>$a1{$a}} keys %a1);
	push(@rank,join("<>",$_,$a2{$_},$category{$_}?$category{$_}:$_,"1","\n")) foreach(sort{$a2{$b}<=>$a2{$a}} keys %a2);
	close(IN);
	open(OUT,">".$datadir."swr_l.cgi");
	print OUT @rank;
	close(OUT);
	&unlock(swrset);
}
}

sub action{
	if($type == 1){ $action .= "$advnameサイト / "; }
	if($sort == 3){ $action .= "ランダム順"; }elsif($sort == 2){ $action .= "新着降順"; }
	elsif($sort == 1){ $action .= "ランキング順"; }elsif($sort == 4){ $action .= "マイリンク数順"; }
	elsif($sort == 6){ $action .= "登録順(古)"; }elsif($sort == 7){ $action .= "登録順(新)"; }
	elsif($sort == 8){ $action .= "サイト名順"; }elsif($sort == 9){ $action .= "サイト名逆順"; }
	elsif($sort == 5){ $action .= "マーク順"; }else{ $action .= "新着順"; }
}