http://w.atwiki.jp/searchcustom/ 検索CGI改造メモ ja 2008-12-20T23:12:36+09:00 1229782356 https://w.atwiki.jp/searchcustom/pages/26.html &topicpath() **注意 - 未改造スクリプトと実際稼働させているものと見比べて抜粋しているメモ書きです。 -&u(){実際に未改造の物へ組み込んで動作確認してません。} エラーになるかもしれません。 エラーになったらできればwikiの方も修正しておいてください。 - &bold(){かならずローカルでテストしてからサーバーにアップロードしてください。} ---- &topicpath() 2008-12-20T23:12:36+09:00 1229782356 https://w.atwiki.jp/searchcustom/pages/25.html &topicpath() #contents **登録カテゴリ表示 検索結果に登録しているカテゴリ一覧をリンク表示する。 - ''ps_search.cgi''　704行付近（sub siteindicate） $書き出しの直前に追加 #aa(blockquote){{{## カテゴリ表示【追加】 $catgo = " "; @catg = split /<c>/, $y2[11]; $size = @catg; for ( $i = 1 ; $i <= $size ; $i++ ) { $catgo .="/ <a href=\"ps_search.cgi?act=cat&cat=$catg[$i]\">$category{\"$catg[$i]\"}</a> "; } ##}}} 表示したい場所に >$catgo と記入。 - 下記をローカル変数にしておくと少しはマシかもしれない。 >$catgo,$siterenew,$size >@catg #right(){{ &link_up(▲) }} **バナー欄空欄の時特定画像表示 - ''ps_search.cgi''　684行付近（sub siteindicate） #aa(blockquote){{{if (($y2[6] eq "") || ($bannerreg == 0)){ $banner = ""; } }}} 差し替え #aa(blockquote){{{if ($bannerreg == 0){ $banner = ""; } elsif(($y2[6] eq "") && ($bannerreg != 0)){ $banner = "<a href=\"$siteurl\" target=\"$linktarget\" title=\"$y2[9]様\"><img src=\"【画像のパス】\" width=\"【画像サイズ】\" height=\"【画像サイズ】\" border=\"0\"></a>"; } }}} ※この時点でバナーにもリンク付けちゃってますので、初期のようにリンクなしにしたいときは外してください。 #right(){{ &link_up(▲) 2008-12-20T23:03:44+09:00 1229781824 https://w.atwiki.jp/searchcustom/pages/22.html &topicpath() #contents **特定マーク・特定カテゴリを選択していると更新サイトリストに出ない 「特定マーク」を選択している場合で解説。 「特定カテゴリ」でやりたい時は、同じように正規表現などで条件付けしてやればできます。 例）mark0 がついているサイトのみ更新サイト一覧に出す - ''ps_search.cgi''　153行付近（sub new） while 処理の中に下記条件文を追加 #aa(blockquote){{{if ($_ =~/^0/){ $totalct++; push(@site,$_) if ($totalct >= $startnum) && ($totalct <= $endnum); } }}} #right(){{ &link_up(▲) }} **パワーモード：カテゴリのand/or選択 複数カテゴリ選択したときに、カテゴリ同士を「and」「or」どちらで検索するか選べるようにする。 - ''ps_search.cgi''　388行付近（sub powersearch） 「#カテゴリーチェック」とコメントアウトされている部分を書き換える。 #aa(blockquote){{{if($andor == 1){ $flag = 0; foreach $data(@cat){ if (rindex($_,$data) != -1){ $flag = 1; }else{ $flag = 0; last; } } next if !($flag); }else{ $flag = 0; foreach $data(@cat){ if (index($_,$data) != -1){ $flag = 1; last; } } next if !($flag); } }}} - ''ps_search.cgi''　58行付近 #aa(blockquote){{{foreach $i (0 .. $#contents) { ･･･ } }}} カッコ内のどこかに追加 >$andor = $text 2009-01-12T19:38:42+09:00 1231756722 https://w.atwiki.jp/searchcustom/pages/20.html &topicpath() #contents **バナーURLに特定のワードが入っていると「banner.拡張子」以外エラー 禁止URLをそのままコピーでできます。 - ''ps_prf.cgi''　184行付近 「#登録を拒否するURL」の下辺りに追加 #aa(blockquote){{{#登録を拒否するURL（バナー） # 指定した単語がバナーURLに入っていた場合、エラー画面に移行 @denyurlb = ("fc2","at-ninja.jp"); }}} - ''ps_user.cgi''　480行付近（sub datacheck） ↓追加する #aa(blockquote){{{foreach(@denyurlb){ if (($sitebanner =~ /$_/i)&&($sitebanner!~ /banner/)){ &error("このバナーURLは登録できません。"); } } }}} 場所（483行付近）この後に追加 #aa(blockquote){{{foreach(@denyurl){ （略） } }}} #right(){{ &link_up(▲) }} ---- &topicpath() 2008-12-18T00:01:01+09:00 1229526061 https://w.atwiki.jp/searchcustom/pages/19.html &topicpath() #contents ** カテゴリ選択部分（複数select化） かなり無理矢理 - ''ps_user.cgi''　56行目 >push(@sitecat,$text) if $key eq 'sitecat'; この行の上に↓追加 #aa(blockquote){{{for($i=0;$i<$maxcat;$i++){ my $name = "sitecat".$i; if($text){push(@sitecat,$text) if $key eq $name;} } }}} - ''ps_user.cgi''　292行目（sub change1） #aa(blockquote){{{foreach(@y2){$z1{$_}=1;} foreach (sort {$a cmp $b;} keys %category){ $category.="<option value=\"$_\"".($z1{$_}?" selected":"").">".&linkmake($_,1)."\n"; } $category="<select name=\"sitecat\" size=10".(($maxcat-1)?" multiple":"").">$category</select>\n"; }}} ↓と差し替え #aa(blockquote){{{##カテゴリ複数行 for($i=0;$i<$maxcat;$i++){ $category.="<select name=\"sitecat".$i."\" size=1><option value=\"\">----</option>\n"; foreach (sort {$a cmp $b;} keys %category){ if($_ eq $y2[$i]){$category.="<option value=\"$_\" selected>".&linkmake($_,1)."</option>\n";} else{$category.="<option value=\"$_\">".&linkmake($_,1)."</option>\n";} } $category.="</select><b 2008-12-18T00:01:33+09:00 1229526093 https://w.atwiki.jp/searchcustom/pages/18.html &topicpath() #contents ** パスワード自動再発行 登録時のメールアドレスを入力すると、登録メールアドレスにパスワードが自動発行されます。 ここでは、情報更新時にログインする画面に設置しています。 - ''ps_user.cgi''　74行目 &font(red){追加部分} >&font(red){elsif ($act eq "repass"){&repass;}} >elsif ($act eq "repass1"){&repass1;} - ''ps_user.cgi''　417行付近（sub check） ↓を追加 #aa(blockquote){{{パスワード再発行<br> <form method="post" action="./ps_user.cgi"> 登録メールアドレス <input type="text" name="cpass" size="25"> <input type="submit" value="再発行"> <input type="hidden" name="act" value="repass"> <input type="hidden" name="curl" value="$url"> </form> }}} 追加場所 #blockquote(){{$message = <<EOD; <b>$site[4]</b>の情報変更・削除を行います。<br> <form method="post" action="./ps_user.cgi"> <input type="radio" name="cman" value="0" checked>登録者 <input type="radio" name="cman" value="1">管理人<br> パスワード <input type="password" name="cpass" size=9 maxlength=8> <input type="submit" value="認証"> <input type="hidden" name="act" value="change1"> <input type="hidden" name="curl" value="$url"> </form> 2008-12-18T00:01:12+09:00 1229526072 https://w.atwiki.jp/searchcustom/pages/16.html &topicpath() *PowerSearch改造 未改造スクリプトと実際稼働させているものと見比べて抜粋。 &u(){実際に未改造の物へ組み込んで動作確認してません。} 動かなかったらツッコミ・修正よろしくお願いします。 #ls(注意) #ls2(PowerSearch改造,title) ---- &topicpath() 2008-12-20T22:46:08+09:00 1229780768 https://w.atwiki.jp/searchcustom/pages/15.html &topicpath() 質問他 何かあればここにどうぞ。 #comment(title_name=名前,title_msg=コメント,nsize=20,size=50,vsize=5,below) - 素人改造で申し訳ないです。 &br()CCSEARCHのことは知ってます。中身みたことないですがなかなか良さそうですね。 &br()The Roomさん閉鎖とのこと…。長く利用させてもらってましたので残念ですね。 &br()跡地へリンクさせていただこうと思います。 -- 管理 (2009-12-01 18:27:44) - The Roomさんが閉鎖決定ということですが、残念ですね・・・。 &br() &br()まだまだ使っていきたいと思っていますが、こちらのサイトはとても参考になりました！ &br()「バナー欄空欄なら特定画像を表示」「登録カテゴリを表示」を早速導入させて頂きました。 &br()とても楽になりました！ありがとうございます。 &br() &br()ところで・・・ &br()http://ccr.mydisk.jp/ &br()こちらで、Yomi-SearchとPower Searchのいいとこどりといった感じのスクリプトが公開されています。 &br()何か改造のヒントになる部分があればいいのですが… -- 要 (2009-11-23 00:03:58) - お忙しいところ申し訳ありませんが、登録カテゴリ表示 &br()（yomiのようなカテゴリへのリンクが貼られる形式のものですか？）と &br()バナー欄空欄時の特定画像表示の改造方法をお願いします。 &br()wiki立ち上げありがとうございました！ -- ななか (2008-12-20 09:53:10) - てすと -- てすと (2008-12-17 20:04:40) 2009-12-01T18:27:44+09:00 1259659664 https://w.atwiki.jp/searchcustom/pages/14.html &topicpath() &date()追加 wiki作った人が実際に稼動させている改造版の機能を羅列してみた。 負荷とか難しいことは考えていないのであしからず。 特定部分をそのままコピーでできるものもかなりあります。 途中までやって放置したのもあります。難しいことはやってません。 思い出せないのとか細かくなるので書き出せないものもあります。 思い出したら随時追加 ここに書いた機能の解説は全部はしないとおもいます。 いたる所を触ってしまったことと省いた機能などもあり、配布されているものと照らし合わせるのがかなり手間なのでやる気あるときにメモ化していきます。 実物が見たいとか、知りたい部分あったら連絡してください。 ****結果表示 - 検索ワードに対応するカテゴリを一覧表示する。 -- 検索ワードのand/or/not対応済 - [[登録カテゴリ表示>PowerSearch改造/検索結果表示]] -- 特定カテゴリは表示しないなども可能です。 - URL表示 - 情報バー --「更新日時で絞り込み（何日以内）」と「表示件数」に変更。説明on/offは撤去。 - [[バナー欄空欄なら特定画像を表示>PowerSearch改造/検索結果表示]] ****検索機能 - 検索ワードに対応するカテゴリを一覧表示する。 -- 検索ワードのand/or/not対応済 - パワーモード時 --カテゴリ選択無しだと全カテゴリから検索（かなり無理矢理） --[[カテゴリand/or検索選択>PowerSearch改造/検索機能]] - 新着順に全件一覧 - [[特定マーク・特定カテゴリを選択していると更新サイトリストに出ない>PowerSearch改造/データチェック]] ****登録・修正 - 下位カテゴリ選択→自動的に上位カテゴリも選択。 - 同じ日に修正したときはデータの順番が上がらない。 - 修正の時も管理人コメント送れる（管理画面でも確認可） - カテゴリ選択形式 -- [[カテゴリ選択（複数select化）>PowerSearch改造/登録修正画面]]：selectが選択数だけ並ぶ形。 --ﾃﾞﾌｫﾙﾄと同じselect形式で任意の場所で複数に分割（カテゴリ数が多い時に） 2009-01-21T07:16:25+09:00 1232489785 https://w.atwiki.jp/searchcustom/pages/13.html 検索CGIの改造メモ。 改造内容を載せる予定でwikiにしていますが突然消えたらごめんなさい。 ---- 参考までに施した改造一覧　[[PowerSearch改造項目一覧]] - 負荷とか記述のスマートさとかは考えてません。 - 素人改造です - （2009/03/10）需要も微妙だとおもいますので今後は要望がきた改造だけ追記していきます。 ---- &link_contact() &topicpath() &counter(total, page=トップページ) 2009-03-10T19:39:49+09:00 1236681589