トップページ⇒php
1001コメント413KB

【 スクリプト改造工房 PART 5 】

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/08/01 18:19ID:???

#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)
0037nobodyさん02/08/06 20:29ID:???
>>36
そういう問題じゃ無いとおもわれ。
00383702/08/06 20:31ID:???
あ、そういう解決もあるか。すまん>>36
0039クロス（本当に迷惑かけます）02/08/06 22:31ID:4KFNCG3i
えっとすいません>>36さん
詳しくおしえていただけませんでしょうか？
すいません
0040クロス（本当に迷惑かけます）02/08/06 22:39ID:4KFNCG3i
できましたぁ本当にありがとうございます♪
0041nobodyさん02/08/08 16:24ID:???
はじめまして。
CGI-StationさんのＡｎｓ．Ｑ（http://www7.big.or.jp/~jawa/cgi-bin/ansq/ansq.cgi）なんですが、
ソースにＩＰアドレスを出さないようにしたいのです。
しょうもない質問ですが、ぜひとも教えて頂けると有り難く思います。
よろしくお願いします。
0042nobodyさん02/08/08 16:56ID:???
219行目の<!--$ipad $rhost-->を消せ。
0043nobodyさん02/08/08 17:23ID:???
>>42様
早速の解答有り難う御座いました。
やってみたのですが、投稿した人のＩＰアドレスは消えたのですが、
答えた人のＩＰアドレスはやはりソースに残ります。
答えて頂いたのに申し訳ありませんが、今一度どこをいじればいいか
教えて頂けないでしょうか。
すみません。
0044nobodyさん02/08/08 17:31ID:???
投稿した人のIPはもともと出ないはずだが？
0045nobodyさん02/08/08 17:35ID:???
>>44様。
そうですよね。それが、４２様の言われた部分を削除すると、
投稿者のＩＰアドレスは消えて、回答者のＩＰアドレスが載るように
なってしまったのです。
後いじるところといえば、どこかわからなくて・・・
本当に申し訳ないです。
0046nobodyさん02/08/08 17:36ID:???
＞投稿者のＩＰアドレスは消えて、回答者のＩＰアドレスが載るように
だから、投稿者のIPはもともと出ないってば。
00474602/08/08 17:37ID:???
http://www7.big.or.jp/~jawa/cgi-bin/ansq/ansq.cgi
↑だって、回答者しか出てないし。
0048nobodyさん02/08/08 18:30ID:???
>>46様。
大変大変失礼しました。
私の勘違いでした（汗）
ＩＰアドレス消えました。
お手数おかけしてすみません。
有り難う御座いました！！！
0049 02/08/09 11:05ID:???
sage
0050にすと02/08/10 11:17ID:OIUOCS1V
新しい質問なんですけど、kent-web（http://www.kent-web.com/）
のyycahtを使っているんですけど、トップから入室者を表示させる方法はありますか？
もし、ありましたらお教え下さい。
0051nobodyさん02/08/10 17:54ID:???
>>50
期待するなよ。
このスレは質問ばかりで答えは少ないから。
0052nobodyさん02/08/10 19:29ID:???
>>50

トップページってindex.htmlの画面の中に表示させたいの？
それだったらSSIつかえば出来るよ。それかインラインフレームの中に
CGIファイルを表示させるとか。

それか参加者一覧みたいので別ウィンドウでCGIファイル開いて表示とか

どっち？
0053Pers工房02/08/11 00:28ID:???
<form method="$method" action="$script" target="form" name="ponny">
<input type=hidden name=mode value="into">
<table border=2 cellspacing=0>
<tr><th colspan=2><font color="$t_color" size=5><b style="font-size:$t_size">$title</b></font></th></tr>
<tr><td><b>おなまえ</b> <input type=text name=name size=20></td></tr>
<tr><td>リロード <select name=retime>
EOM
$in{'retime'} = $retime;
foreach (@retime) {
if ($in{'retime'} == $_) { print "<option value=$_ selected>$_秒\n"; }
else { print "<option value=$_>$_秒\n"; }
}
print "</select> 文字色 <select name=color>\n";
foreach (0 .. $#COLORS) {
print "<option value=\"$COLORS[$_]\">$IROIRO[$_]\n";
}

print <<"EOM";
</select></td></tr></table>
<table cellpadding=0 cellspacing=0><tr>
<th><input type=submit value="入室する"></th></form>
<th><form action="$homepage" target="_top"><input type=submit value="もどる"></th>
</form></tr></table>
<SCRIPT LANGUAGE="JavaScript">
<!-- self.document.ponny.name.focus(); //-->
</SCRIPT>

これをHTML仕様にしてトップにはっつけれ
0054にすと02/08/11 00:42ID:7XQNhXs7
>>53
有り難う御座います。(^^
助かりました。

>>52
一応、index.htm内の事です。
５３さんのお陰でなんとかなりそうですが。(^^;
0055nobodyさん02/08/12 19:26ID:0dsfb2nN
imgboard v1.22.Rev6f http://www1.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi に
2chみたいなｽﾚ一覧表示機能を実装する方法はありますか？
ありましたらどなたかお教え下さい
0056nobodyさん02/08/13 02:44ID:???
>>55
> ｽﾚ一覧表示機能
具体的にどんなのだ？
↑にあるようなやつか？
0057nobodyさん02/08/13 03:05ID:2vLbRybx
>>56

1: IDにPerlが出た奴は神！PHPがでたらDQN (552)　2: こんなCGI探してますスレッド Ver6 (754)　3: 【 スクリプト改造工房 PART 5 】 (56)　
・・・
スレッド一覧はこちら

みたいな漢字でおながいします
0058コージ02/08/14 04:09ID:???
はじめまして。
http://zurubon.strange-x.com/upload.txt　ずるぼんあぷろだ
なのですがひとつひとつのファイルに返信できるように改造できませんか？
希望としてはDATEの横にRESというものを作ってそのRES押すとRES投稿欄
と下に投稿された返信コメントを表示されるようにして欲しいのですが
返信できたら良いです。どうかお願いします
0059nobodyさん02/08/16 13:42ID:???
>>58
ttp://fafa.page.ne.jp/idol/file.html
こんな感じか？
0060nobodyさん02/08/16 16:44ID:fDHEelSJ
>>59の所のように全ページHTML表示にできますでしょうか？
0061nobodyさん02/08/17 08:36ID:???
よろしくお願いします。

「Ａｋｉａｒｙ」（http://www.hi-ho.ne.jp/yakira/akiary/）という日記スクリプトなんですが、
過去日記を、目次（例えば○月×日「タイトル」・○月△日「タイトル」スタイルに
変更することは、ムズカシイことなんでしょうか？
（現在は、過去日記の目次は月毎で、月ボタンを押すとその月がずらずらっと
全て現れる状態です）
あまりPealの知識がなく、どこをいじればいいか皆目検討が尽きません。
申し訳ありませんが、アドバイスをお願いいたします。
0062謎？02/08/17 09:02ID:oGO0yuMm
ハケーソ！
http://ja2kai.hoops.livedoor.com
これはなんだ？
0063nobodyさん02/08/17 09:22ID:???
>>61
漏れもPealは知らないな。
誰か知ってる奴にでも教えてもらえ。（ｗ
0064nobodyさん02/08/17 09:39ID:???
>>63さん。
間違ってました。ごめんなさい。Perlですね・・・。
本当にすみません。
0065コージ02/08/18 03:56ID:???
>>59
遅れてすいません。はい。そういう感じで良いです！
それは配布してないでしょうか？
0066nobodyさん02/08/18 17:38ID:???
*** 殺伐スレにほのぼのキャンペーン ***

http://www.gassan.co.jp/s.es.tasiro/
田舎の寂れた田代小学校のHPを、１００万アクセスの
超人気サイトにしてあげる、夏休み特別企画です。

（現在ここがターゲットです）

どんどんコピペして他の板にまいてください
0067nobodyさん02/08/18 21:18ID:a91+qg6N
#●レス書き込み
#####################
sub reswrite{
&datacheck;
my (@lines,@tmp,$inflag,$lastmsg,$xno,$pastpage, $mcount,$insert,$msum,$mdata);
my ($lasttime,$lot,$rflag,$xres) = (0,0,0,0);
my $momy = "";
my @xnew = ();
my $crypted = &encrypt($delkey);
&lock;
open (IN,"$logfile") || die &error("Open Error : $logfile");
my ($xno,$pastpage, $mcount,$msum) = split(/<>/,scalar(<IN>));

while(<IN>){
#書き込み処理
open(WR,">$logfile") || &error("Write Error : $logfile");
#一行目
print WR "$xno<>$pastpage<>$mcount<>$msum<>\n";
print WR "$mlist[0]<>m<>$mlist[2]<>$mlist[3]<>$mlist[4]<>
$mlist[5]<>$mlist[6]<>$mlist[7]<>$mlist[8]<>$mlist[9]<>
$mlist[10]<>$mlist[11]<>$mlist[12]<>$resize<>$name<>$today<>$mlist[16]<>$mlist[17]<>$mlist[18]<>\n";
print WR @xnew;
print WR "$xno<><>$vine<>$xres<>$today<>$name<>$mail<>
$url<>$crypted<>$subject<>$msg<>$addr<>$host<><><><>$color<>$icon<>$admark<>\n";
print WR @lines;
close (WR);
&unlock;
&setcookie;

これではどうしても返信すると親記事が上がってしまうんです
どうしたら、あがらないようにできるのでしょうか？
ご教授願えたら、幸いです
0068nobodyさん02/08/19 00:21ID:fNGRiFtL
>>67
何のソースだよ？
というか一部省略してないか？
00695902/08/19 14:34ID:???
>>65
配布はしていないと思われます。
なんか見つけただけですね。すみません。
00707002/08/19 23:45ID:La8Q9Gx7
CGIの呼び出しが設置しているサイト内のリンク以外からだったら
お断りするロジックを追加したいのですが…

HTTP_REFERER を？？？良く判りません。宜しくお願いします。
0071nobodyさん02/08/20 01:10ID:???
$myurl = 'http://hogehoge.com.';
if ( $ENV{'HTTP_REFERER'} !~ /^$myurl/ ) {
exit;
}

適当に。
00727002/08/20 01:37ID:Oem70iG+
>71さん

ありがとうございます。やってみます。
0073nobodyさん02/08/20 18:33ID:???
2chに書き込みさせるスクリプトを作っているのですがうまく投稿できないみたいです。
どなたか見ていただけませんか？
http://kari.to/upload/source/4464.txt
0074nobodyさん02/08/21 10:56ID:???
test
00757402/08/21 11:01ID:Nqi4eTFI
55行目の
print $sock "Host: $HostAddr\r\n";
を
print $sock "Host: $hostaddr\r\n";
にしたら74のように投稿できますた。
perl -cwでSyntax checkしたら一発でわかりましたが。
00767302/08/21 13:34ID:???
>>75
あ、一回手直ししたときにコピー元から直してなかったのか。。
うまくできました。どうもです
0077nobodyさん02/08/21 23:45ID:3+zymHFq
日記風の掲示板なのですが
タグを使用できるようには何とか改造できたのですが
オートリンク？を切ることができません。
色々調べたりしていじってみたのですが結局ダメでした。
オートリンクって設定の命令がないと機能しない物ですよね？

タグで直接
<font><a href="http:ほにゃらら">テスト</a></font>
と書き込むと

　　http://ほにゃらら">テスト
と表示され、httpを書くとプログラムで自動的につくのかと抜いて書くと
見た目は成功してるのですが　リンク先が

cgiの設置場所URL/http://ほにゃらら　　
と設置場所のURLがくっついてきてしまいます。

なんとかできないでしょうか？

配布元はもう無くなってしまっています

スクリプトを以下にUPしました。
http://www.geocities.co.jp/SiliconValley-Bay/5767/dr.txt

分かり難い文で申し訳ないです。よろしくお願いします。
0078nobodyさん02/08/21 23:50ID:???
168行目
00797702/08/23 00:16ID:BMtMcA8t
１６８行目って言うと
print "<DIV ALIGN=center><NOBR><SMALL>";

の部分ですか？？
それとも１６８行目以降という意味？？
0080ビギナー02/08/23 00:43ID:ln2ctNdp
えと、78さんの仰る通りですが、
レスに http が書いてあった場合は自動リンクで良いのかな？
それも外したければ 176行目もコメントアウトです。
クドイでしょうが、以下、そのへんの当たりの付けかた ↓↓↓

http が含まれている文字列を <A HREF="http文字列">http文字列</A> に変える
必要が有るのだから、スクリプト中で 置換命令 ( =~ s/なんとか/かんとか/ ) が
書かれてあって、なおかつ A HREF= も書かれて有れば、その行に見当をつけます。

で、168行目が正にその通りで、
　$hb_txt =~ s/((http|ftp):\/\/[\w]*\.[\w\/\.\?\-~=&#]*[\w\/\?])/<A HREF=\"$1\">$1<\/A>/g;
となっていますから 行頭に # をつけてコメントアウトします。
# $hb_txt =~ s/((http|ftp):\/\/[\w]*\.[\w\/\.\?\-~=&#]*[\w\/\?])/<A HREF=\"$1\">$1<\/A>/g;
説明が下手ですみません。 私は初心者ですのでご勘弁を。
0081nobodyさん02/08/23 00:43ID:???
>>79
http://pc.2ch.net/test/read.cgi/php/1028052835/l50
00827702/08/23 01:46ID:BkAaZ1YH
>>80
ありがとうございました。
なんとか出来たようです。
行番号がずれてたみたいで折角ヒント頂いたのに
生かせなくてもうしわけありません、78さん。
この辺もいじってたんですがいじりが足りなかったようですね(^^;

本当にありがとうございました〜
0083nobodyさん02/08/28 07:34ID:O4565eSf
http://sound.jp/idm/sch003.txt

↑なんですが、置いてるサーバがアメリカのせいで、
日付が狂ってしまいます。日本時間に直すにはどこを
どういじったらいいんでしょうか。
いろいろ見てみたんですが、わかりませんでした。。
よろしくお願いします。。
00843PIO ◆3pIoOHKo 02/08/28 09:29ID:???
上のほうに
$ENV{'TZ'} = 'JST-9';
を書き加えてみたら？
0085nobodyさん02/08/28 14:55ID:???
#---- 現在日付 ----#
の下に加えたらいいよ
00868302/08/28 18:26ID:O4565eSf
>>84 >>85

できますた！ありがとうございますた！
たった一行の追加でOKだったなんて、、、。
ほかにもいろいろ時間の狂ったCGIが置いてあるので
これから片っ端から試してみます。おかげさまで
これでやっと日本時間に日記更新できます（;´3｀）
0087nobodyさん02/08/30 01:08ID:???
２ちゃんに自動書き込みのできるスクリプト探してます。
0088nobodyさん02/08/30 02:05ID:RXFLyC5C
以下のようなホームページ上から、感想などを送ってもらうsendmailを利用した
プログラムなんですが、簡単な素材などを提供して貰う為、
ファイルも添付できるように改造したいです。どうすればいいでしょうか？

------------------------------------------------------------------

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

&jcode'convert(*name,'sjis');
&jcode'convert(*value,'sjis');

if ($name eq 'to') { $to = $value; }
if ($name eq 'from') { $from = $value; }
if ($name eq 'subject') { $subject = $value; }
if ($name eq 'body') { $body = $value; }

}

0089８８の続き02/08/30 02:05ID:RXFLyC5C
# cheack
if ($from eq "") { $from = "unknown\@."; }
if ($from eq " ") { $from = "unknown\@."; }


# send mail
&jcode'convert(*from,'jis');
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
if (!(open(MAIL,"| $sendmail -t"))) { &error('システムエラー','メールの送信に失敗しました。'); }
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/plain; charset=iso-2022-jp\n";
print MAIL "$body\n";
close(MAIL);

# view html
&jcode'convert(*from,'sjis');
&jcode'convert(*subject,'sjis');
&jcode'convert(*body,'sjis');
$body =~ s/\r\n/\r/g;
$body =~ s/\n/\r/g;
$body =~ s/\r/<BR>/g;
0090nobodyさん02/08/30 02:08ID:???
既存のファイルも添付できるのを使え。
0091sage02/08/30 02:12ID:???
>>88
mime
0092nobodyさん02/08/30 17:28ID:eOo55UHJ
すみません。
KENT-WEB（http://www.kent-web.com/の)YY-BOARDを使っているのですが、
アイコンの選択のところで、ランダムを選択してアイコンをランダムに表示するには
どうすればいいのでしょうか？
くだらない質問かもしれませんが、よろしくお願いします。
0093ビギナー02/08/30 18:48ID:???
＞＞９２
ごめん、やりたいことの意味がよく把握できないので、とんちんかんな返事かも？
とりあえず、お書きだったリンクから 'YYBBS v4.6' を入手してテストしてみました。

前準備：
rand.gif という名前でアイコンを作って img/ の中へ入れておきます。

スクリプト修正：
８５行目当たりの…

　　# アイコンを定義（上下は必ずペアで）
　　@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif');
　　@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ');

…に、【ランダム】の項目を付け足すために ↓ のように書き足します。
　　−−(改行が多すぎますって怒られて書けないので) 続きは次へ−−
0094ビギナー02/08/30 18:49ID:???
　　# アイコンを定義（上下は必ずペアで）
　　@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif','rand.gif');
　　@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ','ランダム');


１４２９行目当たりの…
　　# 管理アイコンのチェック
　　if ($my_icon && $in{'icon'} eq $my_gif) {
　　　　if ($in{'pwd'} ne $pass) { &error("管理用アイコンは管理者専用です"); }
　　}

…の下にでも ↓ を書き足します。
　　if( $in{'icon'} eq 'rand.gif' ){
　　　　$in{'icon'} = $icon1[ int( rand( $#icon1 ) ) ];
　　}

十分なテストを行ったわけではありませんから動作は未保証です、すみません。
http://you.s16.xrea.com/b/
へ置いてみましたので、チェックしてみてくださいネ。
00959202/08/30 21:03ID:eOo55UHJ
>>93>>94
できました！ありがとうございます！
欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
クッキーの発行辺りをいじればよさそうなんですが、書き方が分からないもので。
それと、rand.gifを用意するということは、ランダム表示の際に、rand.gifが表示されることもあるのでしょうか？
質問続きですみません。
0096ビギナー02/08/30 21:19ID:???
９２さん、ご報告、ありがとうございました。
無事に動きましたか、良かったです。 これからも改造、頑張ってくださいね。

＞ それと、rand.gifを用意するということは、ランダム表示の際に、
＞ rand.gifが表示されることもあるのでしょうか？
いえ、rand.gif は表示されませんが、ダミーとして入れておかないと、
【画像イメージ参照】をクリックした時に ×印(画像が無いって意味)が表示されて
エレガントじゃ無いですから、その対処として、rand.gif を入れてあるだけです。

＞ 欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
はい、対応できるように考えてみます。
でも、今からちょっと仮眠タイムですので、明日になっても良いですか？ ごめんね。
それでは、また明日にでも…。 (って、どなたかが対応してくだされば嬉しいのですが。)
00979202/08/30 21:30ID:???
>>96
rand.gifは表示されないんですね。分かりました。
クッキーの件については、
お忙しい中、申し訳ありませんがよろしくお願いします。

もう少し勉強せねば…
0098ビギナー02/08/31 06:16ID:???
う〜ん、う〜ん、思ってた以上に難しくって、、、９２さん、すみません。
なんとかクッキ対応にしたかったのですが、私のチカラ不足です。
とりあえずのサンプル と 説明は → http://you.s16.xrea.com/b2/

と、いう訳なので、どなたかにバトンタッチ！ お願いします。
00999202/08/31 09:21ID:???
>>98
とんでもないです。朝早くからわざわざページまで作ってくださって
感謝感謝です。
自分の思ってたほど処理が簡単じゃなかったんですね。
この機能はあったら便利だけど、なくて困るようなものじゃないので…
しばらくこのままで使ってみます。

ほんとにありがとうございました。
0100ビギナー02/08/31 12:26ID:???
１００ゲト！
＞＞９９
９２さん、レスをありがと！
お役にたてなくて ＆ 中途半端にしゃしゃり出て すみませんでした。
私も今後、精進に励みますので、どうかご勘弁ください。

ここはこーだろ？ って、どなたかが教えてくださればありがたいのですが…。
どうぞよろしくお願いします＞ 分かるかた
0101nobodyさん02/08/31 12:31ID:???
＞１００ゲト！















（　´,_ゝ`） ﾌﾟｯ
0102nobodyさん02/08/31 13:39ID:???
ｯﾁﾓﾆ。
0103nobodyさん02/08/31 14:37ID:???
>>100
クッキーにはそのまま$in{icon} = rand.gifで記憶させとけ。いじる必要無し。
変なとこで変換しないで書き込む直前でのみ変換させれ。
具体的には

sub regist{
の

# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }

の下辺りに

$in{'icon'} = $icon1[int(rand( $#icon1))] if($in{'icon'} eq 'rand.gif');

を置けば事は済むだろ。試しとらんけど。
0104nobodyさん02/08/31 17:18ID:???
>>102
おいおい、ｯ が余計だろ
0105ビギナー02/08/31 21:43ID:???
＞１０３
どうもありがとうございます、試してみます。
0106ビギナー02/08/31 22:03ID:???
１００さんへ
早速、試してみましたが、うまく動きません。 残念です。
投稿、返信、と移ったときにはクッキは効いてますが
返信、投稿、と戻った時にはクッキが【ランダム】では無くなります。
それと、表示されちゃ困る rand.gif が表示されちゃいます。
テスト結果は → http://you.s16.xrea.com/b2/yybbs.cgi でした。
0107nobodyさん02/09/01 00:23ID:???
>>ビギナー
ならこうしてみ。試したら出来た。

# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }

if($in{'icon'} eq 'rand.gif'){
$rand_icon = 1;#フラグを立てる
$in{'icon'} = $icon1[int(rand( $#icon1))];
}else{$rand_icon = 0;}


〜

書き込み処理

〜


if($rand_icon){$in{icon} = 'rand.gif';}#書き込み終わったので戻す

# ロック解除
if ($lockkey) { &unlock; }
01089202/09/01 00:57ID:???
>>107
92ですが、107さんのようにすればできました。
ビギナーさん、103さん、107さん、ありがとうございました！
あと、rand.gifを表示しないようにするには、アイコンの定義のところで

@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif','rand.gif');
@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ','ランダム');

#rand.gifを除く
@icon3 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif');

という風に、icon3を付け加えて、ランダム処理の記述を

$in{'icon'} = $icon1[int(rand( $#icon3))];

にすればrand.gifは表示されなくなりました。（多分）
合ってるかどうか分かりませんが、とりあえず問題なく動いてます。


0109ビギナー02/09/01 01:51ID:???
107さん、 92さん、ありがとうございました。
順を追って試してみたのですが…。

う〜ん、やっぱり rand.gif が表示されちゃいます
投稿、返信、修正、とやってるうちで クッキの件は解決されましたが
rand.gif が表示されちゃう件は未解決です
修正で【ランダム】を選択すると ↑ の現象が起こります
0110 ◆DYeooZwg 02/09/02 22:41ID:QqVcQsGu
自分が去年書いたコードでは、
unshift (@icon1,"rand.gif");
unshift (@icon2,"ランダム");
を
foreach(0 .. $#icon1) {
前に加えて

sub regist{
# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }
の下辺りに

if ($in{'icon'} eq 'rand.gif'){
# アイコンにランダムが選択されたときの処理
$in{'icon'} = "$icon1[int(rand($#icon1))]";
}
という風にやっています。

もっと、うまい方法があるだろうけど、
これによって、ランダムを選択したときrand.gifが表示される事は無いと思う。
0111nobodyさん02/09/03 00:15ID:???
まずは、99行目の# アイコンモード
の下に
# ランダムアイコンモード (0=no 1=yes)
$rand_icon = 1;
と付け加えてください

357行目と745行目に# 管理者アイコンを配列に付加
とあるので、その上に
　# アイコンをランダムにする配列を付加
　if ($rand_icon) {
　　unshift(@icon1,"random");
　　unshift(@icon2,"ランダム");
　}
と付け加えてください
　
541行目に# クッキーを発行
とあるので、
　# ランダムアイコンかチェック
　if ($in{'icon'} eq "random") {
　srand;
　$r_icon = int(rand(scalar @icon1));
　$in{'icon'} = $icon1[$r_icon];
　　}
こんなの拾った。試してはないけど
0112_02/09/03 14:27ID:???
前記のビギナーですが、、、１１０さん、１１１さん、どうもありがとう。
教えていただいた方法を今度、試してみます。
0113きつね02/09/07 21:29ID:ePdmblI2
１７氏スクリプトの改造なんですけど
スレッドを立てた１だけのリモホを、表示させるには
どうすれば良いの？？

↓書き込みスクリプト
http://band.lib.net/2ch/bbs.txt
0114nobodyさん02/09/07 22:04ID:???
ちっとは自分で試行錯誤してから
質問しろやボケ
0115nobodyさん02/09/08 18:01ID:x3j5SYvz
>>113　同さ未確認ですが何か?
288行目に追加
$threadtate_ip = $ENV{'REMOTE_HOST'};

897行目を変更
print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DATE $threadtate_ip <> $FORM{'MESSAGE'} <>$FORM{'subject'}\n";
0116きつね02/09/08 20:11ID:zO9UXU5c
>>114
ここは殺伐としたインターネットですね

>>115
ありがとうございます、早速やってみます。
0117きつね02/09/09 12:30ID:YPMaGOW6
サーバーエラーになっちゃった
print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DATE<> $threadtate_ip <> $FORM{'MESSAGE'} <>$FORM{'subject'}\n";
にしても、エラー

http://band.lib.net/2ch/16a.zip
0118nobodyさん02/09/09 13:25ID:???
>>117
$threadtate_ipの宣言と受け渡ししてないだろ。
よくわからないなら3行目の use strict; は消しとけ。そうすりゃ
いつでもどこでも勝手に変数使えるから。
0119nobodyさん02/09/09 23:58ID:5bzF4wXy
>>117
どうしてサーバエラーになるのかくらい調べなさい。
0120nobodyさん02/09/10 12:35ID:???
少しは自分の脳みそ使えやボケ
0121名無し02/09/12 14:40ID:cLzEmwaR
KENT-WEB（http://www.kent-web.com/の)YY-BOARDの改造について質問なのですが
記事に返信する場合に、記事を上に上げるか上げないかは初期設定で行うようになっているのですが、
それをネット上で実際に返信する人が選べるようにしたいのですが、そういう設定にするにはどうしたら良いのでしょうか？
0122nobodyさん02/09/12 15:19ID:???
>>121
上げたくないときは、メール欄にsageと書くのじゃ
0123nobodyさん02/09/12 15:22ID:???
結構簡単そうなんだけどな。
0124nobodyさん02/09/12 15:45ID:???
>>121

103行目の $topsort を削除する

# 返信がつくと親記事をトップへ移動 (0=no 1=yes)
# $topsort = 1;


ログ書き込み処理のとこを変更
593行目

# レス記事の場合：トップソートあり
elsif ($in{'reno'} && $in{'topsort'} eq "age") {


返信フォームのとこにソートするかしないか追加(とりあえず730行目あたりにでも)

<tr>
  <td nowrap><b>ＵＲＬ</b></td>
  <td><input type=text name=url value="http://$c_url" size=$url_wid></td>
</tr>
<tr>
  <td nowrap><b>ソ\ート</b></td>
  <td>
  <select name=topsort>
    <option value="age">スレッドをあげる</option>
    <option value="sage">スレッドをあげない</option>
  </select>
  </td>
</tr>
EOM
012512202/09/12 15:50ID:fqwY/73y
ラジオボタンなら
<INPUT type=radio name=topsort value=1 checked>age
<INPUT type=radio name=topsort value=0>sage
とか
012612202/09/12 15:54ID:CWF7GrNv
>>125の場合は
eq "age"
は要らないです
012712102/09/12 17:36ID:ZMgsQhUH
みなさんどうもありがとうございます。
早速やってみたのですが、一回目は失敗しました。
もう一度やってみます。
できたら報告します。
012812102/09/12 17:40ID:ZMgsQhUH
それとちょっとお聞きしたいのですが、
ディフォルトが記事を上げない設定で
チェックを入れたときだけ記事を上げる設定にする場合が
一番良いのでその記述方法を可能でしたら教えて下さいませ。
厚かましくて申し訳ありません。
0129122じゃないけど02/09/12 17:43ID:FUZonuZ5
<input type="checkbox" name="topsort" value="1">あげる
0130nobodyさん02/09/13 01:22ID:lofLfMBW
私も、KENT氏のMT-BOARDの改造についての質問なのですが。
改造したい部分は、メール欄に書き込んだ時に表示色を
変えたいのですが他のスクリプトと見比べてもわかりませんでした・・・
どなたかご教示下さい。お願いします。
01313PIO ◆3pIoOHKo 02/09/13 22:28ID:oB59gluG
>>130
つーかHTMLの改造で簡単に済むかと思われ
この板で聞く質問ではない。
0132nobodyさん02/09/13 22:43ID:???
>>130
「何の」表示色よ？本文？画面全体？
つーかMT-BOARDってどこにあんのよ。
KENTのサイト探してそのスクリプト探して該当部分探して答え教えろと？
0133nobodyさん02/09/14 02:37ID:8wcKLn20
http://www.big.or.jp/~talk/t-club/soft/index.html
ここにある画像アップロード掲示板を
http://fafa.page.ne.jp/bbslog/imgboard.cgi
ここのように2chみたいにして貰えませんか？
01343PIO ◆3pIoOHKo 02/09/14 21:13ID:???
>>133
大改造が必要です。
自分で改造してください。
01353PIO ◆3pIoOHKo 02/09/14 21:16ID:???
>>130
MT-BOARDって書籍収録でしょ？
スクリプトが簡単に手に入らないのにどうやって改造するのさ
013613002/09/15 01:19ID:???
ｽｸﾘﾌﾟﾄ見直し解決しました。
ｱﾎな質問してすみませんでした。
■ このスレッドは過去ログ倉庫に格納されています