isweb における設置方法を以下に示します。
#!/usr/local/bin/perl
例
/ :トップディレクトリ
index.html :サイトトップページ
/cgi-bin/ :CGI実行ディレクトリ
├ site_search.cgi (パーミッション:705 or 755)
└ jcode.pl (パーミッション:705 or 755 or 604 or 644)
http://****.hp.infoseek.co.jp/cgi-bin/site_search.cgi?mode=test
**** には、あなたのサイト名を入れます。
以下のような表示がされると思います。
このファイルのURL:http://。。。/site_search.cgi 検索範囲:http://。。。/以下このURLと検索範囲では十分な動作が得られませんので、 さらにsite_search.cgiの設定を書き換えていきます。ファイル内行数は論理行表示で数えています。
@search_type = ('html','htm','shtml','txt' );
@pass_files = ('./index.html','./himitsu/xxx.html','../uhehe.html');
例:サイトトップディレクトリ以下を対象にする時 $st_dir = "../";検索対象は「あるディレクトリの下全て」でしか設定は出来ません。 下位ディレクトリの一部に検索したくないディレクトリが有る場合は、 そのディレクトリにあるファイルを全てリストアップして、 52行目のヒットさせたくないファイル名に記述して下さい。
$url = "http://****.hp.infoseek.co.jp/cgi-bin/site_search.cgi";
**** には、あなたのサイト名を入れます。
print "<input type=radio name=mode value=and$c_and id=and_r$_[0] onClick='this.form.key.focus()' title='全てのキーを含む検索'><label for=and_r$_[0] title='全てのキーを含む検索'>AND</label>\n"; print "<input type=radio name=mode value=or$c_or id=or_r$_[0] onClick='this.form.key.focus()' title='いずれかのキーを含む検索'><label for=or_r$_[0] title='いずれかのキーを含む検索'>OR</label>\n"; print "<input size=$fsize name=key value='$keys'> <input type=submit value='検索' class=btn> "; print "<input type=button onClick='this.form.key.value=\"\"' value='消去' class=btn> ";
http://****.hp.infoseek.co.jp/cgi-bin/site_search.cgi?mode=test
| 検索フォーム frame name="srchform" |
| 検索結果リンクリスト frame name="linklist" |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN"> <FRAMESET rows="40%,*"> <FRAME name="srchform" src="srchform.htm"> <FRAME name="linklist" src=""> </FRAMESET>
<form action='./site_search.cgi' method=get target="linklist">
| 検索ページ (フォームや検索結果リンクリスト) frame name="srchform" | 検索結果リンク先ページ frame name="linkpage" |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN"> <FRAMESET cols="50%,*"> <FRAME name="srchform" src="./site_search.cgi"> <FRAME name="linkpage" src=""> </FRAMESET>
$target_w = "linkpage";
| ファイル種別 | サーバー内位置 | 左のディレクトリ直下へのurl |
| cgi実行用ファイル | /cgi-bin | http://hpcgi?.nifty.com/****/
? には、ホームページ取得時に指定された1または2または3が入る。 **** には、あなたのサイト名が入ります。 |
| 通常のhtmlファイルや画像ファイル | /homepage | http://homepage?.nifty.com/****/
? **** について同上 |
例:homepageディレクトリ以下を対象にする時 $st_dir = "../homepage/";
$url = "http://homepage?.nifty.com/****/";
? **** について上記テーブル内記載と同じ
最後のファイル名は入れなくても、site_search.cgiとの相対的なディレクトリの深さ関係が合っていれば、okです。
144: if ($set_dir) ...
$set_dir =~ s/homepage/xxxx/;
### xxxx には、あなたのサイト名を入れます。
145: if ($in{'mode'} ...
212: $update = sprintf ( ...
$file =~ s/homepage/xxxx/;
### xxxx には、あなたのサイト名を入れます。
214: push (@hits, ...
| [前のページ(history.back)] [Perl CGI index]< [my-tools サイト トップ] [サイト マップ] |