★三　【 スクリプト改造工房 PART 9 】　★三

200 ：196：2007/01/12(金) 15:49:54 ID:Sg/zwaZY

保守

201 ：nobodyさん：2007/01/15(月) 00:23:08 ID:ho2dYuVd

【.　 CGI名 　.】Online Server Status v 1.4 English Version
【配布先URL】http://www.schwebdesigns.com/serverstatus/
【. 置き場所 .】http://cowboy.jf.land.to/test.html
【ヘルプ内容】
サーバーの状態確認PHPなのですが、現在サイトのトップページに使用しています。
このスクリプトを最終訪問者から10分後に来た訪問者が実行するようにしたいのです。
最終訪問者の時間記録＞次の訪問者＞時間確認＞10分以内ならサーバーに問い合わせず、画像そのまま。
という形に出来ませんでしょうか？

いざ改造しようにも手も足も出ず書き込んだ次第です。宜しくお願いいたします。

202 ：nobodyさん：2007/01/15(月) 15:33:53 ID:???

マルチはクタバレ。

203 ：201：2007/01/15(月) 18:14:43 ID:???

重複申し訳有りません。
丸投げスレに依頼しましたのでそちらの方でお願い致します。

204 ：198：2007/01/19(金) 22:25:32 ID:???

宜しくお願いします

205 ：nobodyさん：2007/01/20(土) 23:53:45 ID:???

>>198
hcnt4.datの中身見れば分かると思うけど、
そのスクリプトはカウンタ名とダウンロード回数しか記録していない。
集計モードではファイルの置き場所が分からないのでそれを表示なんて無理。

どうしてもこのカウンタにこだわるのなら
ダウンロード回数をカウントする際にダウンロード先のURLも合わせて記録するようにすれば
一応おまいのやりたかったことも実現できるけど、
おまいの腕なら改造するよりそういう機能を持った別のCGIを探した方が早いだろう。

206 ：198：2007/01/21(日) 02:04:43 ID:???

>>205
レスありがとうございます。

＞ダウンロード回数をカウントする際にダウンロード先のURLも合わせて記録する
にチャレンジしていたのですが、自力では無理そうです。
私はこのCGIを気に入っていたのですが、変に改造して不具合が出ても困りますし、(今更ですが)別のものを探した方が早いと思うので、諦めて他に乗り換えます。
アドバイスありがとうございました。

207 ：nobodyさん：2007/01/23(火) 19:05:41 ID:???

どなたかお願い致します。

【.　 CGI名 　.】　Web Patio 3.06
【配布先URL】　http://www.kent-web.com/
【ヘルプ内容】　
投稿フォームにプルダウン式の項目を追加し、その項目をスレッドタイトル横に表示させたいのですが
どのように改造すれば良いのでしょうか…

配布元のサポートの過去ログに「ラジオボタンで項目追加したい」と言う物があり、（http://www.kent-web.com/support/old/62/0281.html）
それを参考に見よう見真似でプルダウンに置き換えてみたのですが、
初心者な上に、バージョンも違うので何をどこに追加挿入していいかわからなくなってしまいます…
どなたかお力添えお願い致します。

208 ：nobodyさん：2007/01/23(火) 19:40:59 ID:???

当然ここで聞く前にKENTのサポート板でも聞いたよね？
そこでは何と言われたのかな？

209 ：207：2007/01/23(火) 22:01:06 ID:???

>>207で記述した過去ログを参考にしてみろと言われましたが、
やっぱり上手く行かなかったのでこちらに質問に来ました…

210 ：nobodyさん：2007/01/23(火) 22:15:16 ID:???

KENTのサポート板でちゃんと「言われた通りに過去ログを参考にしてみたけど
やっぱり分かりませんでした」と言ったんだよね？

211 ：207：2007/01/23(火) 22:24:47 ID:???

そこまではしませんでした…！
また新にスレッドを作成して聞いてみたいと思います＞＜
厳しいご対応ありがとうございました。
ご迷惑お掛けしてしまい申し訳ございませんでした。

212 ：nobodyさん：2007/01/23(火) 23:14:12 ID:???

新しいスレッドじゃなく今のスレッドに続けてレスで書いた方がいいんじゃないかと思うんだが・・・
質問の内容は続いてるのに、いちいちスレッド立てられたら禿しくウザイよ。
KENTのサポート板覗いたことないからどういう構造になってんのか知らんけどさ。

213 ：nobodyさん：2007/01/26(金) 08:18:44 ID:FhPFkwLT

【.　 CGI名 　.】　SS(C-BOARD)
【配布先URL】　http://www.skullysoft.com/ssc-board/
【ヘルプ内容】　携帯の固体識別番号を取得し、その取得の際通知を拒否した者をはじきたいのですがどうしたら良いでしょうか？ご伝授ください。

214 ：nobodyさん：2007/01/26(金) 10:47:43 ID:???

自己解決しました。アクセル解析してif文で振り分けますね。

215 ：nobodyさん：2007/01/26(金) 14:08:16 ID:???

ｳﾞｩｫｵｵﾝ！！ｳﾞｩｫｵｫｵｵﾝ！！！

216 ：196：2007/01/27(土) 09:14:27 ID:0yEfcEBm

誰かお願いします；；

217 ：nobodyさん：2007/01/27(土) 15:15:20 ID:???

自分でやる気がないものをここで聞くな。

218 ：196：2007/02/02(金) 12:58:55 ID:tLR7xhcU

自分でできました！
やる気だせばタグを追加すればいいだけで簡単でした。
死ね糞ども。

219 ：nobodyさん：2007/02/03(土) 11:40:42 ID:???

kent　webにあるWEB PATIOの掲示板でスレッドの返信数を多くしたいので
すが（1000くらい）。

普通に返信数の設定を1000に変えるだけで問題はありませんか？
それともSQLとかデータベースを使ったほうがいいですか？

220 ：nobodyさん：2007/02/03(土) 11:46:44 ID:???

知らんがな。サーバ運営に聞けよ。

まあマジレスするとたかだか1000件程度ならデータベースはいらんと思うけどな。

221 ：nobodyさん：2007/02/12(月) 19:46:19 ID:???

アイコンを1つだけ選択して表示するためのルーチンを改造し
複数選択して表示できるようにしたいのですが
アドバイスいただけますでしょうか。
ラジオボタン式からチェックボックス式に変えてみましたが、
当然というか、それだけでは複数表示できませんでしたorz

以下、そのルーチン部分です。

sub icon_select {
unshift(@icon_image,"");
if($icon eq ""){ $icon = $icon_image[0]; }
$sel = "";
foreach $ico (@icon_image) {
if($ico ne ""){ $ico_img = "<img src=\"$icon_dir$ico\" align=\"absmiddle\">"; }else{ $ico_img = "なし"; }
if($ico eq $icon){ $sel .= "| <input type=\"radio\" name=\"icon\" value=\"$ico\" checked>$ico_img \n";}
else{ $sel .= "| <input type=\"radio\" name=\"icon\" value=\"$ico\">$ico_img \n";}
}
$sel .= " |\n";
return $sel;
}

222 ：nobodyさん：2007/02/12(月) 20:52:26 ID:???

>>221
同じnameで複数の値を送信する用に改造したい場合、
・値を受け取るところで、値を変数に入れている部分を複数の値を配列に入れる改造が必要である。
・ｱｲｺﾝを表示する部分では配列に入った分だけ表示されるように改造する必要がある。

223 ：221：2007/02/13(火) 02:12:51 ID:???

>>222
アドバイスありがとうございます。
教えていただいた事を参考に改めて挑戦してみます。

224 ：nobodyさん：2007/02/21(水) 14:01:46 ID:???

【.　 CGI名 　.】　アイコンTeaChatV2
【配布先URL】　http://blog.tirno.net/e212.html
【.動作サンプル .】　http://www.tirno.net/chat2/chat.cgi
【ヘルプ内容】　
TEACHATにpup.cgiを追加したユーザーアップロード形式のアイコンチャットなのですが、
このアイコンが基本的に登録した順にセレクトボックス内に並ぶので、一人で複数とか登録すると
だんだんと探したり入室中に変えたりが遣りづらくなってしまいます。

また、登録時にパスを設けた専用アイコンは、また別に並ぶので、
「登録アイコン」「専用アイコン」それぞれを名前昇順で自動的にソートするようにしたいです。

225 ：nobodyさん：2007/02/21(水) 14:05:25 ID:???

長くなってしまったので続きます。
関係部分はこんな感じです。(html.plの590〜672行あたり）

if(@iconu1){
$facemark = $facemark."<optgroup label=\"〜登録アイコン〜\">";
}
foreach (0 .. $#iconu1){
$icon_value = $icon_url . "\/" . $iconu1[$_];
if (!$icon) { $icon = $icon_value; }
if ($icon eq $icon_value) {
$iconch = " selected";
} else {
$iconch = "";
}
$facemark = $facemark."<option value=\"$icon_value\"$iconch>$iconv1[$_]\n";
}
if(@iconu1){
$facemark = $facemark."</optgroup>\n";


自分でも色々遣ってみたのですが配列が二重だからか、
ソート関数の使い方が今ひとつ要領を得なかったので此方で質問させていただきました。
宜しければどなたかご教授願えませんでしょうか？

226 ：nobodyさん：2007/03/02(金) 01:24:23 ID:???

ttp://www.42ch.net/UploaderSmall/source/1171796861.zip
このスクリプトで、ログファイルへのデータ追加時に
現在の年日時を取得して
2007/2/18 20:09
のような形式で行の末端に自動的に書き込むようにしたいのですが、
どの部分にどのような処理を加えれば良いでしょうか？

227 ：nobodyさん：2007/03/04(日) 21:22:44 ID:???

とりあえず自分でどう書いてどう動かないのか言ってみ？

228 ：nobodyさん：2007/03/10(土) 17:08:20 ID:???

sendmailについてお聞きしたいのですが

open(DATA,'| /usr/sbin/sendmail -t "xxxxxx@xxx.xxx"');
これなら通るのですが

$mlto="xxxxxx@xxx.xxx";
open(DATA , '| /usr/sbin/sendmail -t $mlto');
これだと通らないで困っています。

目的はログイン制CGI内部でメンバの特定人物指定によるメッセージ機能で
メッセージが入るとｍｓｎメッセンジャーや携帯メールにお知らせするためのものです
サーバーは個人運営してるところでお借りしているのですがそちらに問い合わせる
前にこちらで相談してからと思いました。基礎を知らないものですみません。
アドバイスがあればよろしくお願いいたします。

229 ：nobodyさん：2007/03/10(土) 18:29:56 ID:???

シングルクォート内では変数は展開されない

230 ：228：2007/03/10(土) 22:32:41 ID:???

>>229
そうでした。忘れてました。ご指摘ありがとうざいます。
ダブルクォートで試してみましたがダメでした。
open(DATA , "|$mailer -t $mlto");も検索して見つけた次行
open(DATA , "|$mailer -t '$mlto'");もダメでした。
open(DATA , "|$mailer -t");print･･･;　print DATA "To :$mlto";もダメでした。
一応一通り試してみたのですが自分では解決できそうにありません。
なにかアドバイスがあればよろしくお願いいたします。

231 ：nobodyさん：2007/03/10(土) 23:18:11 ID:???

>>228で>>229と言われて>>230に走るようでは
それ以上火傷しない内にもう止めろと言いたくなる。

232 ：228：2007/03/11(日) 00:10:26 ID:???

>>231
言われる前に一通り試したのですがダメだったので相談しにきたのですが
止めろと言われるなら素直に借りてるサーバの管理者に相談します。
ありがとうございました。

233 ：nobodyさん：2007/03/12(月) 19:01:30 ID:D70wnXmo

【.　 CGI名 　.】　2chブラウザ対応掲示板 (PATH_INFO対応) - Perl版　-
【配布先URL】　http://perl.toshinari.net/cgi/bbs/new2ch/index2.html
【ヘルプ内容】　PC版の場合、アドレスがttp://homepage/ID/（ttp://homepage/test/read.cgi/ID/）となるんですが
　　　　　　　　　携帯のアドレスはttp://homepage/test/mread.cgi/ID/でしかアクセスできません
　　　　　　　　　ttp://homepage/ID/i/でアクセスできる様にしたいのでお願いします

234 ：nobodyさん：2007/03/12(月) 21:45:30 ID:???

【.　 CGI名 　.】KENT SUN BOARD(HTMLボード) Ver: 3.9
【配布先URL】http://www.kent-web.com/bbs/sunbbs.html
【ヘルプ内容】携帯には対応してはいませんが、文字サイズを小さくしたりして
一応携帯からも表示できるようにしました。
そこで、携帯から書き込みをした時に機種名を表示させたいのですが、
とりあえず時間取得の変数に混ぜて表示させてました。
日時のあとに DoCoMo/2.0 N903i(c100;TB;W24H12) このように表示されるのですが、
このN903iの部分だけ表示させるにはどうしたらよいでしょうか？


改造した部分も書いたほうがいいでしょうか？

235 ：nobodyさん：2007/03/13(火) 09:00:16 ID:???

>>234
そこまでできたならperl板行った方が…
正規表現で

^DoCoMo.* (.*)\(.+$
で\\1をとればいいんじゃないかな。

236 ：nobodyさん：2007/03/13(火) 13:23:35 ID:???

【.　 CGI名 　.】　nicky.cgi
【配布先URL】　ttp://www.din.or.jp/~raelian/ReadMeNicky.html
【ヘルプ内容】　
同日に記事を二つ以上作成すると、デフォルトでは後に作成したほうが上に来ます。
それを後に作成したほうを前に作成した記事の下に来るようにしたいです。
よろしくお願いします。

237 ：nobodyさん：2007/03/13(火) 17:28:48 ID:???

>>235
ありがとうございます。
web製作板から誘導されてきたもので。
箇所を書きます。できればここにその形で修正を施してくれればありがたいです。

238 ：nobodyさん：2007/03/13(火) 17:29:36 ID:???

#-------------------------------------------------
# 時間取得
#-------------------------------------------------
sub get_time {
local($date,@week);

$ENV{'TZ'} = "JST-9";
local($min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[1..6];
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

# 日時のフォーマット
if ($whatsnew) {
$date = sprintf("%04d-%02d-%02d (%s)",
$year+1900,$mon+1,$mday,$week[$wday]);
} else {
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);

# UA記録
my $ua = $ENV{'HTTP_USER_AGENT'};

if ($ua =~ /^L-mode/) {
$ua = 'L-mode';
} elsif ($ua =~ /^Mozilla/){
$ua = 'PC';
}

$date .= " $ua";
# UA記録終了
}
$date;}

239 ：nobodyさん：2007/03/13(火) 17:31:08 ID:???

こんなかんじで後は$dateをログ生成の適当なところに書き加えてました。
正直今までプログラミングやったことがないので、何度もコピペしたりテストしたりして
と、まるっきり初心者です。
何度も携帯機種表示は試したのですがまるっきり。

もしあれならばperl板に誘導していただければ。

240 ：nobodyさん：2007/03/14(水) 09:16:53 ID:???

>>239

if ($ua =~ /^L-mode/) {
$ua = 'L-mode';
} elsif ($ua =~ /^Mozilla/){
$ua = 'PC';
} elsif ($ua =~ /^DoCoMo.* (.*)\(.+$/) {
$ua = $1;
}

241 ：nobodyさん：2007/03/14(水) 20:29:06 ID:???

>>240
ありがとうございます。
できました。

242 ：236：2007/03/16(金) 04:59:07 ID:???

すみません、自己解決しました。

243 ：nobodyさん：2007/03/21(水) 15:25:47 ID:???

jewel掲示板
http://www.groo-web.com/jewel.html
この掲示板に禁止ワード設定を組み込みたいんですが、
jewel(改)
http://xxxw007.s12.xrea.com/cgi/merutomo.htm
を見て、CGI本体の中に入れてもどうしてもエラーになってします。


あちこちの掲示板CGIを落として見て、jewelCGI本体の中に入れてもエラー。
どうカスタマイズしたら禁止ワード設定を組み込めるでしょうか？

初心者ですが、jeweはなんとか設置できました。.htaccecsもできた。
あーとーはー禁止ワードだーけー・・・orz

なんとか、教えて下さい。お願いします。

244 ：243：2007/03/21(水) 16:25:13 ID:TD8dcTEz

# 禁止ワード（いくつでも追加可能）
#例　('死ね','淫乱','援助交際','docomo')
#新規登録時の名前 タイトル メッセージ ホストに適用。
@input_deny = ('死ね','','');


##--禁止ワードチェック--##
foreach (@input_deny) {
if ($in{'name'} =~ /$_/i) { &error("名前に禁止ワードが含まれています。"); }
if ($in{'title'} =~ /$_/i) { &error("タイトルに禁止ワードが含まれています。"); }
if ($in{'comment'} =~ /$_/i) { &error("メッセージに禁止ワードが含まれています。"); }

}

これを追加するとエラーになってしまうのです。
何か足りないのでしょうか？

245 ：243：2007/03/21(水) 16:30:54 ID:TD8dcTEz

#■投稿禁止ワード ""で囲って記入　複数設定する場合は『,』で区切ってください
#　設定した文字列が名前かメッセージに含まれる場合、投稿できません
# 必要ない場合は()
@deny_words = ("アダルト","エロ");


foreach $d_words (@deny_words) {if ($title =~ /$d_words/i) {&error("名前に投稿できない言葉が含まれています");} }
foreach $d_words (@deny_words) {if ($message =~ /$d_words/i) {&error("メッセージに投稿できない言葉が含まれています");} }

これは違うスクリプトですが、
これだけでもできますか？？

246 ：nobodyさん：2007/03/21(水) 17:32:36 ID:???

>243
マルチポストしてんじゃねーよ
市ねよクズ
http://pc11.2ch.net/test/read.cgi/hp/1166794984/455
http://pc11.2ch.net/test/read.cgi/php/1157787046/403

247 ：243：2007/03/21(水) 17:38:39 ID:TD8dcTEz

他のあとにココ見つけたのですよ。ですから他には１つだけです。以下続き。

#####イタズラ投稿防止設定
# リモートホスト（またはIPアドレス）での投稿拒否
#ppp123.abc.or.jp などの場合は、数字の部分がアクセスのたびに異なるので
#数字の部分を .* （ピリオド＋アスタリスク）に置き換えます。
#@deny = ('ppp.*.abc.or.jp','web.net'); #などと設定します。
@deny = ();

# 投稿記事内容にふさわしくない語句の禁止
# @word = ('セックス','エッチ','スカトロ','test', 'あああ','馬鹿');#などと設定。
@word = ();



#投稿拒否
sub deny {
foreach (@deny) {
if ( $host =~/$_/ ){ &error(1,"あなたの投稿は許可されてません。"); }
}
}

#禁止ワードチェック
sub wordcheck {
local($string) = $_[0];local($line);
foreach $line(@word) {
if (index($string,$line) >= 0) {
&error(1,"$line<BR>使用禁止の文字が使われているようです。");
}
}
これでは？

248 ：243：2007/03/21(水) 18:30:09 ID:TD8dcTEz

うー、ページがエラーにならず書き込みができたのは以下だけですが、
禁止設定が働かない。何が足りないのでしょうか？？

#■投稿禁止ワード ""で囲って記入　複数設定する場合は『,』で区切ってください
#　設定した文字列が名前かメッセージに含まれる場合、投稿できません
# 必要ない場合は()
@deny_words = ("アダルト","エロ");


foreach $d_words (@deny_words) {if ($title =~ /$d_words/i) {&error("タイトル名前に投稿できない言葉が含まれています");} }
foreach $d_words (@deny_words) {if ($comment =~ /$d_words/i) {&error("メッセージに投稿できない言葉が含まれています");} }

もう寸前まで出来てる気がする・・・

249 ：nobodyさん：2007/03/21(水) 18:57:27 ID:???

>>243
>>5嫁

250 ：243：2007/03/21(水) 19:30:00 ID:TD8dcTEz

エラーは毎回Internal Server Errorと出ます。
鯖のログには何も。。掲示板のエラーログはありません。
やはり無理なのかな・・・orz

ランキング２つ、掲示板１つをムーバブル・タイプの中に設置、
ベーシック認証も設置できたのに、このカスタマイズで初挫折。

やはりカスタマイズは難しいですね。
ちなみに、CGIも巡り会って１週間の初心者です。

251 ：nobodyさん：2007/03/21(水) 20:24:05 ID:???

ローカルにサーバも立てられない餓鬼にCGIなんてまだ早い。
>>243には絶対無理なので受精卵からやり直すように。

252 ：nobodyさん：2007/03/22(木) 17:29:14 ID:ZUn5Ffec

なんだよ。結局誰も答えられないのかよ。
糞スレ終了だなwww

253 ：nobodyさん：2007/03/22(木) 21:27:27 ID:???

マルチポストしてなけりゃ、ヒントくらいは教えてやってもいいかと思ったんだけどねえ
3回も同じものを読まされたらそんな気は失せる

254 ：nobodyさん：2007/03/22(木) 21:50:49 ID:ZUn5Ffec

オマエもただのカスだなwwwwww

255 ：nobodyさん：2007/03/22(木) 22:03:46 ID:8uBdXhS9

何で教えてもらう側の態度ってのが出来ないのかねぇ
わけのわからん売り言葉見てると折角のモノも書く気も起きん

256 ：nobodyさん：2007/03/26(月) 04:28:29 ID:???

【 CGI名 】 Anthologys
【 配布先URL 】 http://www2s.biglobe.ne.jp/~yasuu/cgi2.html
【 利用規約（改造OK確認）】http://www2s.biglobe.ne.jp/~yasuu/cgi1.html
【 依頼内容 】 投稿するときの名前のクッキー保存をKENTさんとこと同じようにしてほしい。
名前を保存すると、文字化けするからです。

よろしくお願いします。

257 ：nobodyさん：2007/03/27(火) 10:58:52 ID:???

ソースコピペなり何なりで同じようにすればいいわけだが
どこでつかえてるんだ？

258 ：２５６：2007/03/27(火) 11:43:48 ID:???

Linuxの自宅サーバー（apache）とレンタルサーバーならば問題なく使用できるのですが、
Windowsの自宅サーバー（apache）だとどうしても、投稿の際の名前の欄が、
二度目から文字化けをしてしまいます。
Windowsの設定だとはじめは思いましたが、KENTさんの掲示板の場合
Windowsでも問題なく使用できているため、以前、セキュリティーなどの問題を指摘されましたが
結局Linuxを使用することになっていたので放置してました。
しかし、今回どうしてもWindowsで使用したいために質問させていただきました。
もし、よろしかったら、何行目をどのように訂正すれば良いのかご教授願えたら幸いです。

259 ：nobodyさん：2007/03/27(火) 11:48:18 ID:???

それは本当にCGI側の問題なのか…？

260 ：２５６：2007/03/27(火) 12:14:21 ID:???

１００％とは言えないです。
ただ、すばらしいCGIなのでどうにかWindowsで
使用したいです。
一応↓が結果です。

　　　　『Anthologys』
○　自宅サーバーLinuxアパッチ
○　レンタルサーバー
×　自宅サーバーWindowsアパッチ

　　　『KENTさんのCGI』
○　自宅サーバーLinuxアパッチ
○　レンタルサーバー
○　自宅サーバーWindowsアパッチ

それから、なぜCGI側に問題があるかというと、
以前質問して指摘されたことがありました。
他に、CGIのことはあまりくわしくありませんが、
他のCGIが、Windowsで使用できる場合、
設定でどうにかなるのではないかと思ったからです。

261 ：nobodyさん：2007/03/27(火) 15:04:23 ID:???

>>256
Windows+Apache2ならそうなるので、
　・クッキーをエンコード・デコードする。
　・Apache1系を使う。
のどちらか。

262 ：nobodyさん：2007/03/27(火) 15:38:55 ID:tZOgiuH5

CGI上で、
男性の画像をotoko.gif、女性の画像をonna.jifとした場合、
それぞれのページにあった画面を表示させる方法を教えてもらますか？

実際の処理のところに<img src="otoko.gif">を挿入すると、
女性の方にも表示されてしまいます。

263 ：２５６：2007/03/27(火) 15:46:53 ID:???

【 CGI名 】 Anthologys
【 配布先URL 】 http://www2s.biglobe.ne.jp/~yasuu/cgi2.html
【 利用規約（改造OK確認）】http://www2s.biglobe.ne.jp/~yasuu/cgi1.html
【 依頼内容 】 ↑の掲示板（Anthology）に投稿するときの
名前のクッキー保存をKENTさんとこと同じようにしてほしい。
理由は自宅サーバーWindowsのApache2での掲示板に名前を保存すると、
文字化けするからです。尚、自宅サーバーLinux、レンタルサーバー、
自宅サーバーWindowsでのApache１系ならば正常にクッキー保存されます。
（Windows１系は確認しておりませんが、>>261　さんを参考にさせていただきました。）


>>261　さんの言われたように、
記事を投稿するさいの名前のクッキーをエンコード・デコード出来るように、
CGIスクリプトの
何行目をどのように変更したらよいかよろしくお願いします。

264 ：nobodyさん：2007/03/27(火) 16:04:39 ID:???

お前は丸投げ行け

265 ：262：2007/03/27(火) 16:34:12 ID:tZOgiuH5

これを応用できませんか？
男性は0、女性は1となっています。
if ($in{'sex'} eq "0" && $color eq "defwruto") { $color = "$boy_color"; }
elsif ($in{'sex'} eq "0" && $color eq "") { $color = "$boy_color"; }
if ($in{'sex'} eq "1" && $color eq "defwruto") { $color = "$girl_color"; }
elsif ($in{'sex'} eq "1" && $color eq "") { $color = "$girl_color"; }

上の書き込みの画像を表示させる位置に・・・うーん、、お願いしまつ

266 ：nobodyさん：2007/03/27(火) 16:44:46 ID:???

>>262
if ($in{'sex'} eq "0") {
$src = 'otoko.gif';
} elsif ($in{'sex'} eq "1") {
$src = 'onna.gif';
} else {
$src = 'okama.gif';
}

267 ：262：2007/03/27(火) 16:59:22 ID:tZOgiuH5

独自でできたよ。
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## SUB >>> ユーザー出力処理
###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub member_view {
if ($in{'sex'} eq "0") { $word_color = "$boy_color"; }
elsif ($in{'sex'} eq "1") { $word_color = "$girl_color"; }
↑この部分を見て男女のページの色を区別してるんだから、
これに画像を当てはめれば良いんだと分かった。
下の方に→$word_colorがあったから。

んで、こうやって
if ($in{'sex'} eq "0") { $image = "image/otoko.gif"; }
elsif ($in{'sex'} eq "1") { $image = "image/onna.gif"; }

実際に画像を表示させる場所に、
<img src="$image" align="left">を入れたらできた！
俺って天才だ！

268 ：262：2007/03/27(火) 17:01:00 ID:???

あ、
>>266さん教えてくれたんですね。
わざわざ有難う。でもできたよ。^^)/

269 ：nobodyさん：2007/03/27(火) 17:14:48 ID:???

【 CGI名 】 Anthologys
【 配布先URL 】 http://www2s.biglobe.ne.jp/~yasuu/cgi2.html
【 利用規約（改造OK確認）】http://www2s.biglobe.ne.jp/~yasuu/cgi1.html
【 依頼内容 】 ↑の掲示板（Anthology）に投稿するときの
名前のクッキー保存をKENTさんとこと同じようにしてほしい。
理由は自宅サーバーWindowsのApache2での掲示板に名前を保存すると、
文字化けするからです。尚、自宅サーバーLinux、レンタルサーバー、
自宅サーバーWindowsでのApache１系ならば正常にクッキー保存されます。
（Windows１系は確認しておりませんが、>>261　さんを参考にさせていただきました。）


>>261　さんの言われたように、
記事を投稿するさいの名前のクッキーをエンコード・デコード出来るように、
CGIスクリプトの
何行目をどのように変更したらよいかよろしくお願いします。

270 ：nobodyさん：2007/03/27(火) 17:24:48 ID:???

うざ

271 ：nobodyさん：2007/03/27(火) 17:31:25 ID:???

>>268
それ$in{'sex'}が0でも1でもない場合を想定できてないぞ

272 ：nobodyさん：2007/03/27(火) 19:03:25 ID:???

>256,263,269
何度も同じコピペを繰り返すような迷惑なクズの依頼は断わる！

273 ：262：2007/03/27(火) 19:24:24 ID:tZOgiuH5

>>268
オカマを選択させる余地はありませぬ！w


自作掲示板完成まであと少しです。
最後に、
NGワードを外部ファイルで呼び出してチェックさせる秘儀を伝授して下さいマセ、殿！

274 ：262：2007/03/27(火) 19:26:02 ID:???

レス間違え失礼
>>266
>>271
オカマを選択させる余地はありませぬ！w


自作掲示板完成まであと少しです。
最後に、
NGワードを外部ファイルで呼び出してチェックさせる秘儀を伝授して下さいマセ、殿！

275 ：nobodyさん：2007/03/27(火) 21:40:24 ID:???

>>274
問題をはき違えてるな。
読解力の無い奴にゃ教える気もおきねーや。

276 ：nobodyさん：2007/03/31(土) 14:46:34 ID:???

【 CGI名 】 Anthologys
【 配布先URL 】 http://www2s.biglobe.ne.jp/~yasuu/cgi2.html
【 利用規約（改造OK確認）】http://www2s.biglobe.ne.jp/~yasuu/cgi1.html
【 依頼内容 】 ↑の掲示板（Anthology）に投稿するときの
名前のクッキー保存をKENTさんとこと同じようにしてほしい。
あるいは、文字化けしないように設定してほしい。
理由は自宅サーバーWindowsのApache2での掲示板に名前を保存すると、
文字化けするからです。尚、自宅サーバーLinux、レンタルサーバー、
自宅サーバーWindowsでのApache１系ならば正常にクッキー保存されます。
（Windows１系は確認しておりませんが、>>261　さんを参考にさせていただきました。）


>>261　さんの言われたように、
記事を投稿するさいの名前のクッキーをエンコード・デコード出来るように、
CGIスクリプト↓

http://umikaze.mydns.to/anthologys.txt

の （１９３０行目あたりだと思われます。。）
何行目をどのように変更したらよいかよろしくお願いします。

277 ：nobodyさん：2007/03/31(土) 15:39:19 ID:???

>>256 >>260
>>263 >>269 >>276

278 ：２７６：2007/03/31(土) 16:30:59 ID:???

一応↓も参考にしたのですが、

http://www.aimix.jp/cgi/accurlenc.html

じぇんじぇんわかりません。
先輩各々方

よろしくお願いいたします。

279 ：nobodyさん：2007/04/01(日) 18:15:14 ID:???

【.　 CGI名 　.】　Mobile Access
【配布先URL】　ttp://download.torworld.com/page/access/readme.html
【ヘルプ内容】
ソフトバンク機種もちゃんと振り分け・解析が出来るようにしたいのですが
どう書き換えたらいいかよくわかりません
あと、PC表示ページでフレームを使っているのですが
動作確認してみたところカウンターが表示されません
フレームを使う場合は設定や書き換えなどが必要なのでしょうか？
よろしくお願いします

280 ：nobodyさん：2007/04/19(木) 22:04:34 ID:Nm6vIpzI

【.　 CGI名 　.】　アルバムPHP
【配布先URL】　ttp://golbed.main.jp/g_album_page.html
　　　　　　　　　 ttp://golbed.main.jp/php/g_album/　（サンプル）
【ヘルプ内容】
・画像ごとに異なるコメントを出したい
・画像へのリンクを任意の文字列にしたい
・トップに画像とコメントを表示したい

自力で改造しようと頑張ってみたんですがやはり無理でした。
よろしくお願いします。

281 ：280：2007/04/19(木) 22:45:12 ID:???

すみません、複数のフォルダを指定する方法もお願いします。

282 ：nobodyさん：2007/04/21(土) 19:53:28 ID:vsUwQ1K4

>>280さん

まだ見てるか知らんけど・・・
↓こんなんでいいのかな？
ttp://sv1.jp/2ch/g_album_c1/

> 画像ごとに異なるコメントを出したい
「画像のファイル名.txt」のファイルを置いておくと、
コメントとして表示するようにしてみますた。

> 画像へのリンクを任意の文字列にしたい
意味がわかりませんですた。

> トップに画像とコメントを表示したい
トップとかの概念が無いような気もするけど、設定できるようにしてみますた。
コメントは同じく「画像のファイル名.txt」で表示されます。

> 複数のフォルダを指定する方法もお願いします。
index.phpの設定んとこで対象フォルダを指定できるようにしてみますた。

↓ソース
ttp://sv1.jp/2ch/g_album_c1/g_album_c1.zip

注意点
・設定のとこいくつか増えてるんで確認してください。
・複数フォルダのせいで、ファイル名でソートが曖昧です。
　フォルダ名も含めてソートしてるかも。
・あんま確認してないんで、おかしいとこあったらごめんちゃい。

283 ：nobodyさん：2007/04/21(土) 19:55:56 ID:???

久しぶりに書き込んだらageてもたorz
ごめんちゃいorz

284 ：nobodyさん：2007/05/04(金) 19:01:19 ID:???

丸投げのほうで反応無かったのでこちらで

【CGI名】 Sn Uploader Candy Type1
【配布先URL】 http://www.candy-cgi.com/perl/Sn_Uploader_Candy_Type1.html
【ヘルプ内容】 パスなしでUpしてもパスありと同じようにファイルを保存するようにしてほしい

パスなしだとhttp://〜/src/file0001.zipなどのようになりますが
それを、パスありのときと同じようにhttp://〜/src/file0001.zip_f0FMk3CGphyD2AQNBBtN/file0001.zip
といった感じにしたいです。
おねがいします。

285 ：nobodyさん：2007/05/05(土) 01:07:15 ID:???

で、どこまでやってどこで躓いてる？
言っておくがここは丸投げできるスレじゃないぞ

286 ：nobodyさん：2007/05/05(土) 10:54:34 ID:???

とりあえず、189行目から323行目と1061行目から最後までをいじれば良いと思うのですが
それ以上はあんまり解りません

287 ：nobodyさん：2007/05/05(土) 13:32:02 ID:???

じゃ丸投げで延々と待つしかないな

288 ：LSZmZkpEmkCJhgN：2007/07/19(木) 17:39:33 ID:???

GMazvB name is Kostya.My nick is Zold . I want to find friends .ICQ 324600825

289 ：nobodyさん：2007/08/13(月) 23:36:28 ID:???

丸投げが無い。。。
一から勉強しよ(´・ω・｀)

290 ：nobodyさん：2007/10/31(水) 00:01:43 ID:???

ICQってまだあんの？

291 ：nobodyさん：2007/10/31(水) 13:42:14 ID:???

>>289
【 スクリプト改造依頼スレ 】(丸投げ) part6
http://pc11.2ch.net/test/read.cgi/php/1157787046/

292 ：nobodyさん：2008/02/16(土) 15:55:54 ID:7IBR1+e+

【.　 CGI名 　.】Variable Board Ver.1.06
【配布先URL】http://dream.lib.net/room/
【ヘルプ内容】携帯端末の書き換えについて
CGI自体は携帯端末対応なのですが、端末情報が少し古いようで現在での対応が一部できません。
variable.cgiの255行目「端末チェック」部分、
「ASTEL」の項は「KDDI」に変えてauへの対応はできたのですが、
Softbankが現在「J-PHONE」「Vodafone」「SoftBank」の三つがUAとしてあり、
そのうちJ-PHONEにしか端末チェックがなされてません。
「Vodafone」と「SoftBank」がSoftBank端末アクセスの８割を占めているので
両方も端末チェックに加えたいのですが、安易に項目を増やしてみたところ
やはりというか何というかUA偽装でチェックしてみても無理でした。
VodafoneがUAの場合、KDDI同様「UP.Browser」がありましたのでそれで出来るかと思ったんですが、
「UP\.Browser」と入れてみても対応はできませんでした。
もし良い方法がありましたら教えてください。

293 ：nobodyさん：2008/03/03(月) 16:17:11 ID:g0NPU4km

>>292
検索して調べれば判る事は自分で調べなさい！ｱﾎ

263行目を
$user_agent =~ /^J-PHONE|^Vodafone|^SoftBank/
に変更すれば判別出切る筈です。

294 ：nobodyさん：2008/03/03(月) 17:45:27 ID:ztXniNQN

色々なサイトを見て簡単な更新履歴のcgiを作ったんですが
記事ナンバーをつける事が出来なくて困っています・・・。

ソース
http://www.uploda.org/uporg1282947.txt

どうやったら記事ナンバーが追加できるか教えて下さい・・・。
お願いします。

295 ：nobodyさん：2008/03/03(月) 18:15:10 ID:???

記事ナンバーって何？

296 ：nobodyさん：2008/03/03(月) 18:25:38 ID:ztXniNQN

>>295
掲示板とかについてる記事の番号です。
一つの記事ごとに番号を付けたいんです。

297 ：nobodyさん：2008/03/03(月) 18:28:58 ID:???

それ本当に自分で作ったの？

298 ：nobodyさん：2008/03/03(月) 21:58:38 ID:ztXniNQN

>>297
色んなサイトを参考にして作りました。

299 ：nobodyさん：2008/03/04(火) 23:01:12 ID:8AwOHZTZ

【 CGI&PHP名 】 簡易コメント　ver1.0
【 配布先URL 】 http://nurupo.biz
【 依頼期限 】　１週間以内
【 依頼内容 】
>>1みたいにアンカー機能を付けて頂きたいです
75行目 my $max = @DATA;
76行目 my $res_no = undef;

96行目と97行目の間に追加 $res_no = $max - $i + 1;

97行目　print "[$date] $res_no. $text\n";
を追加でレス番号が付くのはわかったんですけど
正規表現が分からないので、調べられません(ToT)

300 ：nobodyさん：2008/03/04(火) 23:10:44 ID:???

正規表現のどの辺が分からんって？

301 ：nobodyさん：2008/03/05(水) 06:31:08 ID:???

>>294
日本語で失礼。

投稿内容をログファイルに書く前に、直前のログを取り出す。
そのログにある数字を取り出して、+１したものを最新記事のナンバーとする
そのナンバー+投稿内容としてログファイルに追記

ただの更新履歴ならコレで問題ない・・・・と思う
コードはあなた以上の初心者なので勘弁。

302 ：nobodyさん：2008/03/05(水) 20:35:19 ID:Wm0WO3jS

>>300
アンカーの構造から分かりません(∋_∈)

303 ：nobodyさん：2008/03/05(水) 22:26:38 ID:???

どこまでは考えた？

304 ：nobodyさん：2008/03/06(木) 00:39:31 ID:UOTbbi+N

えっと、全然発想すら分からないので

>>数字
@DATA[数字]
それでｻﾌﾞﾙｰﾁﾝで取り出して表記する？という事だけです･･･

305 ：292：2008/03/10(月) 06:53:01 ID:???

>>293
お礼が遅くなってしまいすみません。
方法がさっぱりだったのでぐだぐだになってしまってました。
お答えくださりありがとうございました。

306 ：nobodyさん：2008/03/16(日) 17:23:34 ID:???

http://ari-sin3.hp.infoseek.co.jp/arisin5.html
このアップローダを以下の様に改造したいのですがサイト等を参考にしてもよくわからなかったので
ここで質問させてもらいます。
・一日にアップロード可能な容量を制限したい。
・日付や件数で削除するのではなく設定した日付を
　オーバーしたらファイルを削除するようにしたい。

この二つです。

307 ：訂正：2008/03/16(日) 17:26:49 ID:???

http://ari-sin3.hp.infoseek.co.jp/arisin5.html
このアップローダを以下の様に改造したいのですがサイト等を参考にしてもよくわからなかったので
ここで質問させてもらいます。
・一日にアップロード可能な容量を制限したい
・指定した容量になると古いファイルから削除

308 ：nobodyさん：2008/04/14(月) 00:14:52 ID:sAfeJoyW

【.　 CGI名 　.】　p++BBS 2006/03/02版　　【配布先URL】　http://php.s3.to/
【ヘルプ内容】http://www.cj-c.com/にあるChildTreeと同様の記事リストで、レスの更新時間を読んでUP!と表示させたいです。
自作の下記の処理だと親記事の更新時間しか読めてないため、レスがついてもNew!表示時間が延長されません。
レスの更新時間も読みにいく処理がうまく書けませんでした。お助け頂けたら嬉しいです。
素人のクソな処理なので効率化の突っ込みも大歓迎です。よろしくお願いします。
改行が多いと怒られたのでまとめてます…

function Kijilist(){
global $SCRIPT_NAME,$log;
array_shift($log); //要素1個目に非ログがあるので削除
foreach($log as $l){ list($ano,$no,) = split(',',$l); $carray[] = $no; }
$cdata = array_count_values($carray); /*要素数数えて格納*/ $tim = time(); $tgcnt = 0; /*別機能用*/ $page = $_GET['page']; /*別機能用*/
foreach($cdata as $key=>$val){
foreach($log as $l){
list($ano,$no,$res,$now,$name,$email,$sub,$com,$url,$ho,,$pco,$pk,$cnt,$uid) =split(',',$l);
if($res==0 && $no == $key) {
$val = $val-1;//親記事もカウントしてたのを除外
if($tim-$pk<NEWTIME * 3600) { //NEWTIMEを宣言しないとエラー
if($page <= 0 && $tgcnt<PAGEVIEW){ //PAGEVIEWを宣言しないとエラー
echo "<a href=\"#$no\">".NEWIMG."{$sub}($val)</a> | ";$tgcnt++; //NEWIMGを宣言しないとエラー
} else {
echo "<a href=\"$SCRIPT_NAME?mode=all&no=$no\">".NEWIMG."{$sub}($val)</a> | ";$page--;
}
} else {
if($page <= 0 && $tgcnt<PAGEVIEW){
echo "<a href=\"#$no\">$sub($val)</a> | ";$tgcnt++;
} else {
echo "<a href=\"$SCRIPT_NAME?mode=all&no=$no\">$sub($val)</a> | ";$page--;
}}}}}}

309 ：308：2008/04/14(月) 12:41:15 ID:???

クソな処理なのは変わりませんが、自己解決できました。

310 ：nobodyさん：2008/04/24(木) 21:25:50 ID:???

【.　 CGI名 　.】　UpdaterRSS
【配布先URL】　http://php.s3.to/simple/
【. 置き場所 .】　http://php.s3.to/simple/source.php?updaterss.php
【ヘルプ内容】　ping送信機能を組み込みたい。
よろしくお願いします。

311 ：nobodyさん：2008/05/02(金) 23:36:35 ID:???

【.　 CGI名 　.】　Miniりすと
【配布先URL】　http://www.minicgi.net/
【. 置き場所 .】　http://www.minicgi.net/cgi2/list.html （サンプルあり）
【ヘルプ内容】
新規登録/編集でcheckbox（inputタグ）を使えるようにして、複数の項目を選択できるようにしたい
IDにカテゴリ付けをして、カテゴリ別に表示したい（だけど全表示してくれるページもあると有り難い）

この二つの機能を使えるようにしたいんですが
どうにもチンプンカンプンで自力では難しいので投稿しました
知恵をお貸しください。よろしくお願いします

312 ：nobodyさん：2008/05/08(木) 10:00:49 ID:???

【CGI名】　スレッド天国 ver.1.10
【配布先URL】http://cgipon.specters.net/
【置き場所】http://cgipon.specters.net/tengoku/download.html
【ヘルプ内容】ログのスレ上げをなくしたいです。　
（親スレに子レスが付くと、その親スレごと一番上にあがるやつです）
あげ荒らしが猛威をふるってるんで急ぎでお願いしたいです。

3060行位からそれらしい部分があるようにもみえるのですけど
perl素人すぎるのか、もの凄く複雑そうに見えちゃって
どこいじればいいのか かいもく検討がつきません。
どこいじればいいのか教えて下さい。（ぺこり

313 ：nobodyさん：2008/05/14(水) 17:55:06 ID:1VhcNHK7

【.　 CGI名 　.】　phpexit ver.1.1.4
【配布先URL】　http://chibinowa.net/
【. 置き場所 .】　http://chibinowa.net/webapp/phpexit.html
【ヘルプ内容】

　項目の追加をお願いします。
　配布先にスクリーンショット画面がありますが、
　一覧部分の「webplog>perl」の部分（カテゴリの部分）の上部に、2件の項目を追加したく思っています。
　追加項目の内容は、1件はテキストエリア、2件目はコメント欄と同じくらいの文章です。

　個人で、テキストエリアの追加は出来たのですが、肝心の一覧にその部分が表示されず、行き詰っています。

　lib/cmd/edit.php、item.php　などを弄ってあります。

　ご助言お願い致します。

314 ：nobodyさん：2008/05/16(金) 23:46:50 ID:oqDS1N2X

313です。自己解決しました。

315 ：nobodyさん：2008/05/17(土) 02:10:38 ID:Td8Jyj+I

【.　 CGI名 　.】　Photo Memo
【配布先URL】　http://www.sa-k.jp/memo/cgi/p_memo.htm
【. 置き場所 .】　http://www.sa-k.jp/memo/cgi/p_memo/p_memo.cgi
【ヘルプ内容】

10枚までの同時アップロードなのですが、20枚までに増やせないでしょうか。
ファイルを開いて1〜10まである項目を無理矢理20まで増やしてみたのですが、
途中でエラーが出てしまい、どこをどういじったのかもわからず…
たくさんあって半日くらいかかっていじってみたのですが、結局わかりませんでした。
よろしくおねがいします。

316 ：nobodyさん：2008/05/17(土) 04:44:29 ID:???

foreach (@lines) {
($noa,$Yeara,$Montha,$Daya,$suba,$tail1a,$W1a,$H1a,$com1a,$tail2a,$W2a,$H2a,$com2a,$tail3a,$W3a,$H3a,$com3a,
$tail4a,$W4a,$H4a,$com4a,$tail5a,$W5a,$H5a,$com5a,$tail6a,$W6a,$H6a,$com6a,$tail7a,$W7a,$H7a,$com7a,
$tail8a,$W8a,$H8a,$com8a,$tail9a,$W9a,$H9a,$com9a,$tail10a,$W10a,$H10a,$com10a,$hosta) = split(/<>/);
ひどい処理だな｡
一応html部から全て項目を増やせば動作するはず｡
あるいは１件１行として全体的にリビルドしてしまうか｡

317 ：nobodyさん：2008/05/24(土) 20:37:38 ID:???

【.　 CGI名 　.】　SN Uploader　　【配布先URL】　http://sugachan.dip.jp/obsolete/snup/
【ヘルプ内容】
拡張子とMIMEが合わなくてもアップロードできてしまいます。
ログには拡張子合わずと記録されてるので簡単に改造できるかなと思いましたら
知識が全然足りずに改造しても動きませんでした。
何方か知識をお貸しください。

318 ：nobodyさん：2008/05/24(土) 20:47:10 ID:???

まず拡張子合わずと記録する部分を見つけるんだ
そしたらそこの条件を見るんだ
そしたらそこでbreakするなりexitするなりしてアップロードできないようにするんだ

319 ：nobodyさん：2008/05/25(日) 07:43:08 ID:???

sub error{
my ($no,$note) = @_;
if (length($note) > 64) { $note = substr($note,0,64).'...'; }
$note =~ s/&/&/g; $note =~ s/\"/"/g; $note =~ s/</</g; $note =~ s/>/>/g; $note =~ s/\r//g; $note =~ s/\n//g; $note =~ s/\t//g; $note =~ s/\0//g;
my ($message,$dispmsg,$flag);
if($no == 98){ $message = ""; }
elsif($no == 99){ $message = "UpFileなし"; }
elsif($no == 101){ $message = "投稿禁止HOST"; }
　　　　　　　　　（略）
# elsif($no == 108){ $flag = 1; $message = "POSTデータ不完全"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>POSTデータが不完全です</td></tr>';}
elsif($no == 109){ $flag = 1; $message = "POSTKey不一致"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>POSTKeyが一致しません</td></tr>';}
elsif($no == 202){ $flag = 1; $message = "拡張子合わず"; $dispmsg = '<tr><td>ファイルをアップロードできませんでした</td></tr><tr><td>投稿できる拡張子は'.$set{'up_ext'}.'です</td></tr>';}
見つけたけどわからない・・・orz

320 ：nobodyさん：2008/05/25(日) 15:57:11 ID:???

エラーナンバー202を記録してるとこ探せばいいだろｗ

321 ：nobodyさん：2008/05/25(日) 18:41:41 ID:???

{#メイン処理
if(!$in{'upfile'}){ &error(99); }
if($set{'post_flag'} && !check_postkey($in{'postkey'})){ error(109); }
if($set{'dlkey'} == 2 && !$in{'dlkey'}){ unlink("$in{'tmpfile2'}"); &error(61); }
open(IN,$set{'log_file'})||&error(303);
my @log = <IN>;
close(IN);
my ($no,$lastip,$lasttime) = split(/<>/,$log[0]);

if($set{'interval'} && $set{'interval'} && $in{'time'} <= ($lasttime + $set{'interval'}) && $in{'addr'} eq $lastip){ &error(203);}
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }

my $orgname;
if(split(/\//,$in{'orgname'}) > split(/\\/,$in{'orgname'})){ my @name = split(/\//,$in{'orgname'}); $orgname = $name[$#name]; }
else{ my @name = split(/\\/,$in{'orgname'}); $orgname = $name[$#name];}


ここぐらいしか 202 ってところないけど・・・

322 ：nobodyさん：2008/05/25(日) 19:14:47 ID:???

もしかしてperlのソース読めないんですか？

323 ：nobodyさん：2008/05/25(日) 19:16:16 ID:???

>>322
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
この行をどうにかすればいけるぐらいしかわからん

324 ：nobodyさん：2008/05/29(木) 19:57:45 ID:Ql0N4gMP

上げてもよかったのでしょうか…

【.　 CGI名 　.】　Link ＆ Rank
【配布先URL】　http://taitaistudio.com/
【. 置き場所 .】　http://taitaistudio.com/cgi/linkrank.html
【ヘルプ内容】
ユーザーエディット(sub mente)で、サイト名やサイトURLなどに追加して、
新しい変数($kisyu)を追加して、登録者が対応機種を選択出来る
新しい選択欄を追加したいのですが、どうしてもログに追加されません。
挙げ句の果てにはズレてIPが表示されてしまいます。
配布元は改造のサポートは行っていないとの事なので、完全にいきずまってしまいました。
どなたか、御教授よろしくお願い致します。

325 ：nobodyさん：2008/05/30(金) 03:14:29 ID:???

もっと詳しくかつ明瞭に。

326 ：324：2008/05/30(金) 19:04:03 ID:mgybmJwP

ちょっと説明しづらいのですが、
デフォルトでランキングの登録者がサイト名やサイトURL、バナーURL、キーワード、サイト紹介文を決められるのに追加して、
例えば、『サイト詳細』などの新しい項目を作りたいです。

しかし、何度やってもログに記録されずにログから呼び出すことも出来ません。

わかりにくい説明かとは思いますがよろしくお願い致します。

327 ：nobodyさん：2008/05/30(金) 21:07:56 ID:???

「何をどうやった」のかを「具体的に」説明してくれないと
こっちもアドバイスのしようがないんだが

328 ：nobodyさん：2008/05/30(金) 21:26:46 ID:mgybmJwP

全てに新しい変数を追加しました。

329 ：nobodyさん：2008/06/01(日) 16:00:47 ID:???

┓(￣∇￣;)┏

330 ：nobodyさん：2008/06/14(土) 03:25:31 ID:???

置いてある場所
http://www.cj-c.com/cgi_s/cbbs.htm

新規投稿時（親記事）の入力項目（セレクトフォーム）を増やすしたいです。
設定でセレクトフォームをつけれるのですが１つだけで、もう１つ増やしたいのです。
宜しくお願いします。

331 ：nobodyさん：2008/06/16(月) 05:57:41 ID:???

１．設定で現在の書き方を参考に新しい変数を作ってデータを入れる
２．メインcgiのhtml出力しているところを見つけて同じように書く
３．メインcgiの書き込み、読み出ししてるところを見つけて同じように書く
以上

332 ：nobodyさん：2008/07/25(金) 03:17:16 ID:???

【CGI名】 DiaryCGI nicky!
【配布先URL】 http://www.din.or.jp/~raelian/ReadMeNicky.html
【ヘルプ内容】コメント記入時に、メールが送信されるように設定した場合、
通知メール内容にコメント文も載せるようにしたい。
nicky.CGIの2725行にどのような記述をいれれば本文に入るのでしょうか？
宜しくお願いします。

333 ：nobodyさん：2008/07/25(金) 04:48:36 ID:???

>>332
2725行？入れるところはそこじゃないと思うよ。

from : $ENV{REMOTE_HOST}($ENV{REMOTE_ADDR})
agent : $ENV{HTTP_USER_AGENT}
という行の下に以下を追加する
name : $CommentName
message : $CommentMsg

文字化けで読めなかったら
$CommentName
$CommentMsg
をjcodeでjisコードに変換する文をsub SendMailRcvNotice{の下の行に追加

334 ：nobodyさん：2008/07/25(金) 22:21:13 ID:???

>>333
ありがとうございました！
ちゃんとできました！

335 ：nobodyさん：2008/08/07(木) 13:46:25 ID:qpI1q2Ei

【CGI名】 PRTC BBS
【配布先URL】 一般に配布されていません
【ヘルプ内容】暗号化をしたいです

http://www.rescue.ne.jp/cgi/htpasswd/makepwd-des/
このサイトのような感じで(もっと簡素でも構いません)
とにかく出力をしたいんです
下記のソースでcgiを動かしたいのですが、初心者でわかりません
知識不足なのはわかっているのですがどうしてもやりたいです
よろしくお願いします

sub enc_string{
my ($key, $string) = @_;
my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&');
my @key = unpack('C*', $key);
my $str = '';
my @x = map { int(rand(200)) } (0 ... 2);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
while($string ne ''){
my $n = substr($string, 0, 3, '');
my @n = unpack('C3', $n);
map{$n[$_] ^= ($key[$_])} (0 ... 2);

336 ：335：2008/08/07(木) 13:47:25 ID:???

@key = unpack('C3', $n);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
my $a = $n[0] >> 2;
my $b = (($n[0] & 3) << 4) | ($n[1] >> 4);
my $c = (($n[1] & 15) << 2) | ($n[2] >> 6);
my $d = $n[2] & 63;
$str .= $map[$a] . $map[$b] . $map[$c] . $map[$d];
}
my $a = $x[0] >> 2;
my $b = (($x[0] & 3) << 4) | ($x[1] >> 4);
my $c = (($x[1] & 15) << 2) | ($x[2] >> 6);
my $d = $x[2] & 63;
return $str.'<>'.$map[$a].$map[$b].$map[$c].$map[$d];
}

337 ：nobodyさん：2008/08/09(土) 03:15:31 ID:pVYfvjSg

【盗聴】web-up.cside.biz【個人情報詐取】
http://pc11.2ch.net/test/read.cgi/php/1218216303/l50

338 ：nobodyさん：2008/08/18(月) 18:39:47 ID:???

>>335
それは暗号化キーと暗号化対象文字列を引数に取り、暗号化後の文字列二種を '<>' 区切りで返すサブルーチンです。
あとはそのサブルーチンを適切な引数で呼出し、返値を受取って表示するだけです。
この場合、引数は基本的に任意ですから、必要なものを与えてください。
値の与え方が分からない場合は暗号化アルゴリズムについて調べてください。
ルーチンの呼出し方、または返値の受取り方が分からない場合は、Perl のサブルーチン呼出しについて調べて下さい。
プログラムでの値の受取り方、または値の表示の仕方が分からない場合は、CGI の基礎を学ばれるべきだと思います。

339 ：nobodyさん：2008/08/22(金) 12:34:43 ID:HAxZZ1Pz

△▲　WebProg 初心者の質問 Part17　▼▽
http://pc11.2ch.net/test/read.cgi/php/1204462146/l50
（スレ違いしみませんでした））
から来ましたm(__)m

CGI掲示板スクリプト、ウェブパティオの記事表示順の変更について教えてください。

http://bbs.capture-game.com/cgi/mobile.html
（バージョンは3.19です）
のウェブパティオについて質問なのですが
携帯のレス表示画面で単純に新しいレス記事を上から表示するには
何処を変更したらいいでしょうか？
初心者の質問スレではreverseを使う所まで教えて頂いたのですが、
何分初心者ですので何卒お願い致します。

340 ：nobodyさん：2008/08/22(金) 12:37:00 ID:???

>(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

341 ：nobodyさん：2008/08/22(金) 12:58:25 ID:HAxZZ1Pz

>>340
すいません。ご指摘ありがとうございます。

補足です。

【.　 CGI名 　.】　携帯対応ウェブパティオv3.19
【配布先URL】　ttp://www.capture-game.com/modules/wfdownloads/singlefile.php?cid=1&lid=2
【. 置き場所 .】　ttp://www.capture-game.com/modules/wfdownloads/visit.php?cid=1&lid=2
【ヘルプ内容】　携帯電話表示でレス表示画面の並び順を通常12345と並んでいるのを54321という風に新しい書き込みからに並び替えたいです。
lib/phone/read.plをいろいろやってみましたがPerlの知識が乏しいため駄目です。初心者の質問スレではreverseを教えていただきましたが、
どの様なプログラムを何処に入れたらいいか解りません。教えて下さい。何行目を（）しなさいみたいに言っていただけたら幸いです。
なにとぞお願い致します。

342 ：nobodyさん：2008/08/22(金) 12:59:30 ID:???

>少しは自分で考えること

343 ：nobodyさん：2008/08/22(金) 13:38:02 ID:???

>>342
もしかして
# 投稿順にソート
@new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

regist.plのここですかね？^^;

344 ：nobodyさん：2008/08/22(金) 17:08:31 ID:???

>>343
で、やってみたか？

345 ：nobodyさん：2008/08/22(金) 17:49:49 ID:???

>>344
やってみました＾＾
これと
@new = @new[reverse sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

これを
@new = reverse(@new);
@new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

試しましたが無理でしたorz

346 ：nobodyさん：2008/08/22(金) 23:20:22 ID:???

>>345
reverse() までたどり着いてんならあともう一歩だ。がんばれ。

347 ：nobodyさん：2008/08/23(土) 01:26:37 ID:???

lib/phone/read.plの２２０行目
while (<IN>) {
　　　　↓
for (reverse <IN>){

ってな感じじゃないかな

348 ：nobodyさん：2008/08/23(土) 01:32:40 ID:???

>>347
while と for では $_ のスコープに関する扱いに違いがある点に注意。
また逐行処理前提で書かれたループ内のコードが適切でない可能性があるよ。

読んでないからどう影響するかはわからんけど応援してみる。

349 ：nobodyさん：2008/08/23(土) 01:48:47 ID:???

>>346
>>348
ありがとうございます(^o^)

>>347
解りやすくありがとうございます＾＾
出来た！と思ったのですが（ひっくり返りました（感動））
１ページ表示数以上のレスが付くと一番新しいレスが２ページ目に行ってしまいます（涙）

350 ：nobodyさん：2008/08/23(土) 03:58:22 ID:???

@new = @new[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort];

でどうだ？

351 ：nobodyさん：2008/08/23(土) 09:27:40 ID:???

>>350
２カ所とも試してみましたが変わりませんでした(;.;)

ありがとうございました。

352 ：347：2008/08/23(土) 09:49:35 ID:???

>>349
あとは表示するレスの抽出だけみたいだから
$i = 0;
while (<IN>) {
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }

chop;
↑の部分（read.pl２２０行目辺り）を
$i= 0; my @line;
while (<IN>){
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }
push(@line, $_);
}
for (reverse @line){
chop;

ってな感じじゃないかな

353 ：nobodyさん：2008/08/23(土) 16:32:22 ID:???

>>352

見事に出来ました(T.T)
非常に解りやすく教えて頂き本当に感謝致します。
ありがとうございましたm(__)m

354 ：nobodyさん：2008/08/24(日) 20:26:26 ID:8OT0ZHuq

【.　 CGI名 　.】　HiLink ver1.12（サンプルAバージョン）
【配布先URL】　http://www.e-hws.net/
【. 置き場所 .】　http://www.e-hws.net/hilink.html
【ヘルプ内容】
リンク登録時に特定のカテゴリーを選択したとき、表示部のテーブル背景色を変更したいです。
hilink.cgiの「表示データ作成」部分に以下のように追加し

if ($category eq 'ああああ' ){$cate_clr="red";}
elsif ($category eq 'いいいい ){$cate_clr="blue";}
else {$cate_clr="#999999";}

スキンのmain.htmlで、テーブルタグにbgcolor="$cate_clr"と入れてみましたが
うまくいきませんでした。
なにぶん手探りで、何かおかしなことをやらかしているかもしれないのですが
なんとかご教授いただけると嬉しいです。
どうかよろしくお願いします。

355 ：nobodyさん：2008/08/24(日) 20:38:01 ID:ZUYvYMes

【.　 CGI名 　.】　へっどらいん
【配布先URL】　http://php.s3.to/
【. 置き場所 .】　http://php.s3.to/net/#amezo
【ヘルプ内容】
このへっどらいんで出力させる場合に<script>コードを無効にしてほしいです
ないサイトなら問題ないのですがある場合は気になります
よろしくお願いします

356 ：nobodyさん：2008/08/28(木) 12:17:05 ID:???

>>355
headline.phpの144〜146行目

144:　for($j=7; $j<count($files); $j++){//残りはHTMLデータ
145:　　$line.= $files[$j];
146:　}

の下に、以下の行を加える。
$line = preg_replace('/<script[^>]*>.*<\/script>/','',$line);

表示時だけでなくデータ取り込みの際にも<script>を除去したければ、85行目の上にも同じものを入れる。

84:　if($start || !$head[start]){
85:　　　$new.= $line;

検証してないけど。