検索CGI改造メモ

メニュー

2009-12-01T18:29:12+09:00

-[[PowerSearch改造]] -[[コメント>コメント]] ****リンク - [[ウェブリング＆検索サイト管理人専用スレまとめ @ wiki>http://www27.atwiki.jp/searchmaster/]] ****配布元 - [[The room>http://dream.lib.net/room/index.shtml]]（PowerSearch） -[[The room跡地>http://exdreams.net/room/]] -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] ---- *****更新履歴 #recent(5) &link_editmenu(text=ここを編集)

2009-12-01T18:27:44+09:00

&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-03-10T19:39:49+09:00

検索CGIの改造メモ。改造内容を載せる予定でwikiにしていますが突然消えたらごめんなさい。 ---- 参考までに施した改造一覧　[[PowerSearch改造項目一覧]] - 負荷とか記述のスマートさとかは考えてません。 - 素人改造です - （2009/03/10）需要も微妙だとおもいますので今後は要望がきた改造だけ追記していきます。 ---- &link_contact() &topicpath() &counter(total, page=トップページ)

PowerSearch改造項目一覧

2009-01-21T07:16:25+09:00

&topicpath() &date()追加 wiki作った人が実際に稼動させている改造版の機能を羅列してみた。負荷とか難しいことは考えていないのであしからず。特定部分をそのままコピーでできるものもかなりあります。途中までやって放置したのもあります。難しいことはやってません。思い出せないのとか細かくなるので書き出せないものもあります。思い出したら随時追加ここに書いた機能の解説は全部はしないとおもいます。いたる所を触ってしまったことと省いた機能などもあり、配布されているものと照らし合わせるのがかなり手間なのでやる気あるときにメモ化していきます。実物が見たいとか、知りたい部分あったら連絡してください。 ****結果表示 - 検索ワードに対応するカテゴリを一覧表示する。 -- 検索ワードのand/or/not対応済 - [[登録カテゴリ表示>PowerSearch改造/検索結果表示]] -- 特定カテゴリは表示しないなども可能です。 - URL表示 - 情報バー --「更新日時で絞り込み（何日以内）」と「表示件数」に変更。説明on/offは撤去。 - [[バナー欄空欄なら特定画像を表示>PowerSearch改造/検索結果表示]] ****検索機能 - 検索ワードに対応するカテゴリを一覧表示する。 -- 検索ワードのand/or/not対応済 - パワーモード時 --カテゴリ選択無しだと全カテゴリから検索（かなり無理矢理） --[[カテゴリand/or検索選択>PowerSearch改造/検索機能]] - 新着順に全件一覧 - [[特定マーク・特定カテゴリを選択していると更新サイトリストに出ない>PowerSearch改造/データチェック]] ****登録・修正 - 下位カテゴリ選択→自動的に上位カテゴリも選択。 - 同じ日に修正したときはデータの順番が上がらない。 - 修正の時も管理人コメント送れる（管理画面でも確認可） - カテゴリ選択形式 -- [[カテゴリ選択（複数select化）>PowerSearch改造/登録修正画面]]：selectが選択数だけ並ぶ形。 --ﾃﾞﾌｫﾙﾄと同じselect形式で任意の場所で複数に分割（カテゴリ数が多い時に） - サイト内容説明文みたいな入力欄を追加 - 修正時に修正前のバナーを表示確認。 - （perlじゃないけど）文字数カウント - 特定カテゴリを選択していないと内容確認画面で警告がでる。 - 登録者削除の場合：削除理由コメント入力欄 ****管理部分（ps_admin.cgi,ps_user.cgi） - [[パスワード自動再発行。>PowerSearch改造/管理機能]] - [[全URL抜きだし>PowerSearch改造/管理機能]]（移転閉鎖チェック用） - 情報更新ログ取り --修正日時時間、管理人へのメッセージ、該当データ修正ページへのリンク。「管理人へのコメント」の見やすい版 - 管理人許可制の時、本登録時に個別にコメントを入れられる。 --「登録完了メール」に記載される。 - 管理人許可制の時、登録拒否時もメール送信。 --他のメールと同様内容タイトルなど編集可能。 --個別にコメントもつけられる。 - 管理人が修正する時ににコメントを入れると登録者にメール送信。 --通常管理人修正時はメール送信されないが、伝達事項がある時用のメールが送信される。フォーマットは他のメールと同様に編集可。 --個別にコメント入れられる。というかコメントある時だけメール送信する。コメント無しで管理人修正したときはメールとばさない。 --バナーリンク切れ連絡とかがちょっと楽になる。 - マークの可視・不可視 --管理側でマークアップしたい時とかに使用。（404報告来たときに一時的にサーバーが落ちてるのかどうかマークしておいて後から確認…とか。要注意サイトのマークアップなど） - マーク10個以上 --ﾋﾝﾄ。マークの番号を数字1文字でなくカテゴリと同じ方式で格納する。 ****データチェック（ps_user.cgi） - 特定マークや特定カテゴリがついていると更新間隔がかわる。 - 特定カテゴリを選択しないと登録申請できない。 - 特定カテゴリの選択有無でカテゴリ選択数が変わる。 - [[URLに特定ワードを含むとbannerを含むURLしかバナー欄に入れられない。>PowerSearch改造/データチェック]] - 半角カナ許可不許可 --キーワードへ半角ｶﾅ入力できるけど検索ワードには半角ｶﾅ使えないから… ****データ分離 - 新規登録時のみ別ファイルにもデータ書き込み（新着のみ表示に使える） --応用で更新時のみ別ファイル保存で最新更新サイト何件とかならできそう。何日縛りだと面倒かも - 更新サイトを別ファイルに記録してトップページでバナー表示とか ****その他 - ジャンプ機能だけ別に - 複数管理人用CGI - 別スクリプトと連動して閉鎖サイトなど報告できるように - メールヘッダー修正。 - 全部EUC化 ****デザイン - ヘッダ、フッタ。個別表示部分、検索バー、情報バー、色々さわって全てテーブルじゃないパーツに分割。 -- デザインはCSSで --- 配布もとのテーブルデザインはぶっちゃけさわりにくいので… -- ps_user.cgiの最後のとこ（画面書き出すとこ）はこんな感じに。各パーツがテーブルで繋がってたのを分離。各自個別で修正ですっきり。 #aa(blockquote){{{sub html_output{ #最終出力フォーマット print "Content-type:text/html; charset=shift_jis\n\n"; print < $action

$message $_[0]

$action

$footer EOD exit; } }}} ****やりたいというか誰かやってください。 - ランキングを別ファイルに記録 - 更新時にあげない選択できるように - &s(){検索時：カテゴリ名でも検索し一覧表示。（ﾖﾐみたいに）}　出来たので上に移動 ----

PowerSearch改造/検索機能

2009-01-12T19:38:42+09:00

&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 if $key eq 'andor'; - ''ps_search.cgi''　836行付近（sub power）検索フォーム。パワーモードを表示させるのにsub powerを使ってないのでsub powerとしての確認はしてません。 #aa(blockquote){{{カテゴリandor }}} #right(){{ &link_up(▲) }} ---- &topicpath()

注意/注意事項

2008-12-20T23:12:36+09:00

&topicpath() **注意 - 未改造スクリプトと実際稼働させているものと見比べて抜粋しているメモ書きです。 -&u(){実際に未改造の物へ組み込んで動作確認してません。} エラーになるかもしれません。エラーになったらできればwikiの方も修正しておいてください。 - &bold(){かならずローカルでテストしてからサーバーにアップロードしてください。} ---- &topicpath()

PowerSearch改造/検索結果表示

2008-12-20T23:03:44+09:00

&topicpath() #contents **登録カテゴリ表示検索結果に登録しているカテゴリ一覧をリンク表示する。 - ''ps_search.cgi''　704行付近（sub siteindicate） $書き出しの直前に追加 #aa(blockquote){{{## カテゴリ表示【追加】 $catgo = " "; @catg = split //, $y2[11]; $size = @catg; for ( $i = 1 ; $i <= $size ; $i++ ) { $catgo .="/ $category{\"$catg[$i]\"} "; } ##}}} 表示したい場所に >$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 = ""; } }}} ※この時点でバナーにもリンク付けちゃってますので、初期のようにリンクなしにしたいときは外してください。 #right(){{ &link_up(▲) }} ---- &topicpath()

PowerSearch改造

2008-12-20T22:46:08+09:00

&topicpath() *PowerSearch改造未改造スクリプトと実際稼働させているものと見比べて抜粋。 &u(){実際に未改造の物へ組み込んで動作確認してません。} 動かなかったらツッコミ・修正よろしくお願いします。 #ls(注意) #ls2(PowerSearch改造,title) ---- &topicpath()

PowerSearch改造/登録修正画面

2008-12-18T00:01:33+09:00

&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.="\n"; } for($i=0;$i<$maxcat;$i++){ $category.="
\n"; } ##ここまで }}} #right(){{ &link_up(▲) }} ---- &topicpath()

PowerSearch改造/管理機能

2008-12-18T00:01:12+09:00

&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){{{パスワード再発行
}}} 追加場所 #blockquote(){{$message = <$site[4]の情報変更・削除を行います。
&font(red){ココへ追加} EOD }} - ''ps_user.cgi'' どこでもいい。サブルーチンの隙間に追加すればOK。 #asciiart(blockquote){{{#************************************************************ sub repass{ #パスワード再発行（ユーザー） my (@site,@y2,$name,$email,$sitename,$siteurl,$newpass,$cryptpass,$buffer); my $flag = 0; my $a1="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ./"; my $a2=substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1); for(0 .. 7){$newpass.=substr($a1,int(rand(62)),1);} $cryptpass = crypt($newpass,$a2); &filelock("linkdata"); open (IO,"+<$linkdata"); while(){ if (index($_,">$curl<") != -1){ @y2=split(/<.?>/,$_); if (($y2[5] eq $curl) && ($y2[10] eq $cpass)){ ($name,$email,$sitename,$siteurl) = ($y2[9],$y2[10],$y2[4],$y2[5]); for ($i=0;$i<=10;$i++){$buffer.="$y2[$i]<>";} $buffer.=$cryptpass; for ($i=12;$i<=$#y2-1;$i++){$buffer.="$y2[$i]";} push(@site,$buffer."<>\n"); $flag = 1; }else{ push(@site,$_); } }else{ push(@site,$_); } } if ($flag == 0){ close(IO); &fileunlock("linkdata"); &error("登録時のメールアドレスを入力してください。"); } truncate(IO,0); seek(IO,0,0); print IO @site; close (IO); &fileunlock("linkdata"); &repass_mail($name,$sitename,$siteurl,$newpass,$email) if ($mailcheck[4][0]); $action = "パスワード再発行"; $message = <
$sitenameの新しいパスワードは $newpass です。
パスワードはログイン後変更できます

EOD &html_output; } ##ここまで }}} #right(){{ &link_up(▲) }} **全URL抜き出し改造っていうかメール抜き出しをまるっとコピー - ''ps_admin.cgi''　68行付近 >if ($pass ne $adminpass){&enter;} の後に↓追加 >elsif ($act eq "link1"){&link1;} - ''ps_admin.cgi''　670行付近 &font(red){追加部分} >