【 スクリプト改造工房 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化済み)
0003nobodyさん
02/08/01 19:34ID:???0004nobodyさん
02/08/01 19:44ID:???なぜスレ名に飾り付けたがるのか
0005nobodyさん
02/08/01 20:03ID:???0006nobodyさん
02/08/01 20:22ID:???ズサーーーーーーーーーーーーーーーー
ぷうーあぶねー間に合ったぜ
00077GET
02/08/02 00:10ID:SyIGyoHO0008Pers工房
02/08/02 00:22ID:???00093PIO ◆3pIoOHKo
02/08/02 21:41ID:QeEOKQz7お疲れさん
0010nobodyさん
02/08/02 22:09ID:???0011nobodyさん
02/08/02 22:22ID:???(ﾟдﾟ)ﾊｯ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧｽｰﾝｽｰﾝｽｰﾝｽｰﾝ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｲｪｲｪｧ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧｲｪｧｲｪｧｲｪｧｽｰﾝ
(ﾟдﾟ)ﾔ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(ﾟдﾟ)ﾔ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧﾓﾝﾓﾝ
(ﾟдﾟ)ﾔ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｼｹﾀｼｹﾀ
(ﾟдﾟ)ﾔ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｲｪｰｱ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｲｪｰｱ!
(´Д`)ｽﾝﾍﾞｽﾝﾍﾞｿﾝｽﾝｽﾝﾊﾞ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(ﾟдﾟ)ﾌﾞﾍﾞﾗ!
(´Д`)ｽｰﾝｽｰﾝｽｰﾝ
0012nobodyさん
02/08/02 22:53ID:???ちなみにこのスレはWEBプログラミングに関する言語ならなんでもOKなんだよね？
Perlだけじゃないよな・・？
0013nobodyさん
02/08/02 23:09ID:???0014nobodyさん
02/08/02 23:19ID:???,,というよりPythonだれか教えて
0015nobodyさん
02/08/03 12:10ID:QHwXQt4Phttp://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
このように改造したいんですけど、どうすればいいんでしょうか？
ツリー型にしたいんです。
そこから書き込めるように。
0017nobodyさん
02/08/03 12:26ID:???0018nobodyさん
02/08/03 12:29ID:???001915
02/08/03 12:51ID:QHwXQt4P鬼レスボードは、本来
http://www85.sakura.ne.jp/~cgilabo/sample/resbbs/bbs.cgi
このような形なんです。
ＤＬは
http://www85.sakura.ne.jp/~cgilabo/resbbs.html
で、やりたいのは、
http://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
のように、スレッド一覧から書き込みできるように。
書き込みしたら、スレッド一覧に戻るように。
したいんです。
悪くいえば、
http://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
と同じようなデザイン、
まんまコピーをしたいんです。
どなたかわかる人はいませんでしょうか？
0020２０
02/08/03 18:41ID:hhYBlAJk0021２０
02/08/03 18:42ID:hhYBlAJk思わずsageって入れたら起こられた…。
ｶﾞｰﾝ（ｗ
0022２２
02/08/04 15:08ID:???→kent-webのウェブパティオという掲示板http://www.kent-web.com/bbs/patio/patio.cgi
希望 →投稿内容を増やしたい。デフォルトでは名前やコメントだけだが、
年齢と性別、出身地等を記入できるようにしたい。(クッキー保存は無くて構いません）
$logder$in{'no'}\,cgiと$nowfileへの書き込みを中心に変更したのですがうまくいきません。
よろしくお願いします。
patio.cgiの400行目あたりに
<table cellspacing=1 cellpadding=5 width="100%">
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>題名</td>
<td><input type=text name=sub size=30 value="$resub" maxlength=30></td>
</tr>
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>名前</td>
<td><input type=text name=name size=30 value="$cname" maxlength=30></td>
</tr>
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>E-Mail</td>
<td bgcolor="$col2"><input type=text name=email size=30 value="$cmail"></td>
</tr>
ってところがある。そこを
<tr bgcolor="$col2"><td bgcolor="$col2" width=80>題名</td>
<td><input type=text name=sub size=30 value="$resub" maxlength=30></td></tr>
<tr bgcolor="$col2"><td bgcolor="$col2" width=80>名前</td>
<td><input type=text name=name size=30 value="$cname" maxlength=30></td></tr>
<tr bgcolor="$col2"><td bgcolor="$col2" width=80>E-Mail</td>
<td bgcolor="$col2"><input type=text name=email size=30 value="$cmail"></td></tr>
<tr bgcolor="$col2"><td bgcolor="$col2" width=80>年齢</td>
<td bgcolor="$col2">
<select name="age">
<option value="10">10歳代
<option value="20">20歳代
<option value="30">30歳代
</select></td></tr>
のように年齢用プルボックスを付け加える
（書き方が上と下ではちょっと違うがどっちでもOK）
<select name="sex">
<option value="boy">男
<option value="girl">女
</select></td></tr>
<select name="from">
<option value="hokkaido">北海道
<option value="tokyo">東京
<option value="okinawa">沖縄
</select></td></tr>
注意するのは<select name="age" などの name="〜"の〜は重複しないようにする
valueも分かりやすいように重複させないこと
<tr bgcolor="$col2"><td bgcolor="$col2" width=80>年齢</td>
<td bgcolor="$col2">
が抜けてた。自分で付け足してね
$mode = $in{'mode'};
$p = $in{'p'};
$in{'no'} =~ s/\D//g;
$in{'res'} =~ s/\D//g;
$i_nam = $in{'name'};
$i_sub = $in{'sub'};
$i_com = $in{'comment'};
ってのがあるからそこを
$mode = $in{'mode'};
$p = $in{'p'};
$in{'no'} =~ s/\D//g;
$in{'res'} =~ s/\D//g;
$i_nam = $in{'name'};
$i_sub = $in{'sub'};
$i_com = $in{'comment'};
$i_age = $in{'age'};
$i_sex = $in{'sex'};
$i_from = $in{'from'};
にする。
0028nobodyさん
02/08/04 16:20ID:???# 投稿内容チェック
if ($i_com eq "") { &error("コメントの内容がありません"); }
if ($i_nam eq "") {
if ($in_name) { &error("名前は記入必須です"); }
else { $i_nam = '名無しのゴンベエ'; }
}
if ($in_mail && $in{'email'} eq "") { &error("E-Mailは記入必須です"); }
if ($i_sub eq "") { &error("タイトルは記入必須です"); }
ってあるからそこを
# 投稿内容チェック
if ($i_com eq "") { &error("コメントの内容がありません"); }
if ($i_nam eq "") {if ($in_name) { &error("名前は記入必須です");}
else { $i_nam = '名無しのゴンベエ'; }}
if ($in_mail && $in{'email'} eq "") { &error("E-Mailは記入必須です"); }
if ($i_sub eq "") { &error("タイトルは記入必須です"); }
if ($i_sex eq "boy") {$i_sex = "男";} else {$i_sex = "女";}
if ($i_from eq "hokkaido") {$i_from = "北海道";}
elsif ($i_from eq "tokyo") {$i_from = "東京";}
elsif ($i_from eq "okinawa") {$i_from = "沖縄";}
$i_age = "$i_age歳代";
ってな感じにする
0030nobodyさん
02/08/04 16:27ID:???んじゃあとはよろしくね
あ、まだ↑のだけじゃ動かないからね。
修正するところいっぱいあってけっこう時間かかる
0034おとのちゃま
02/08/05 22:05ID:jr9SkgFH↓エースさんのスケジュール（履歴風）を、進行管理に使いたいのです。
http://www.ace-cgi.jp/cgi/sch/005/index.html
具体的には ・・・ 一行に書き込む数を増やす。
・・・ 進行状況によって、該当行の書き込みが変えられる。
改造が簡単そうに見えたのですが、日付管理しているらしく、
同じ日付の書き込みができない。というところにぶち当たってしまいました。
管理を時・分・秒まで細かくすれば…とか思ってやってみたのですが、
だんだんとおかしなシステムになってしまいました＾＾；
書き込みを編集すると、別スレになる。削除ができない。といった不都合が
でてしまい、もうだめです…
お力をお貸しください。
ソースを挙げておきますので、改造のご指導お願いします。
改造後：http://isweb9.infoseek.co.jp/play/otenba/sample/after.lzh
0035クロス（本当に迷惑かけます）
02/08/06 19:04ID:AiGWWT1tうちのサーバーではgzipに対応していないのです
自分でもいじったんですがうまくいきませんでした
どなたかgzipの記述を見つけて削除してもらえませんでしょうか？
アドレスは
http://x-wing.tsukaeru.jp/t/
です
まことにずうずうしくてごめんなさい
0036nobodyさん
02/08/06 20:14ID:???2行目に
undef($ENV{'HTTP_ACCEPT_ENCODING'});
不具合出たら知らないｗ
0039クロス（本当に迷惑かけます）
02/08/06 22:31ID:4KFNCG3i詳しくおしえていただけませんでしょうか？
すいません
0040クロス（本当に迷惑かけます）
02/08/06 22:39ID:4KFNCG3i0041nobodyさん
02/08/08 16:24ID:???CGI-StationさんのＡｎｓ．Ｑ（http://www7.big.or.jp/~jawa/cgi-bin/ansq/ansq.cgi）なんですが、
ソースにＩＰアドレスを出さないようにしたいのです。
しょうもない質問ですが、ぜひとも教えて頂けると有り難く思います。
よろしくお願いします。
0042nobodyさん
02/08/08 16:56ID:???0043nobodyさん
02/08/08 17:23ID:???早速の解答有り難う御座いました。
やってみたのですが、投稿した人のＩＰアドレスは消えたのですが、
答えた人のＩＰアドレスはやはりソースに残ります。
答えて頂いたのに申し訳ありませんが、今一度どこをいじればいいか
教えて頂けないでしょうか。
すみません。
0044nobodyさん
02/08/08 17:31ID:???0045nobodyさん
02/08/08 17:35ID:???そうですよね。それが、４２様の言われた部分を削除すると、
投稿者のＩＰアドレスは消えて、回答者のＩＰアドレスが載るように
なってしまったのです。
後いじるところといえば、どこかわからなくて・・・
本当に申し訳ないです。
0046nobodyさん
02/08/08 17:36ID:???だから、投稿者のIPはもともと出ないってば。
004746
02/08/08 17:37ID:???↑だって、回答者しか出てないし。
0048nobodyさん
02/08/08 18:30ID:???大変大変失礼しました。
私の勘違いでした（汗）
ＩＰアドレス消えました。
お手数おかけしてすみません。
有り難う御座いました！！！
0050にすと
02/08/10 11:17ID:OIUOCS1Vのyycahtを使っているんですけど、トップから入室者を表示させる方法はありますか？
もし、ありましたらお教え下さい。
0052nobodyさん
02/08/10 19:29ID:???トップページってindex.htmlの画面の中に表示させたいの？
それだったらSSIつかえば出来るよ。それかインラインフレームの中に
CGIファイルを表示させるとか。
それか参加者一覧みたいので別ウィンドウでCGIファイル開いて表示とか
どっち？
0053Pers工房
02/08/11 00:28ID:???<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有り難う御座います。(^^
助かりました。
>>52
一応、index.htm内の事です。
５３さんのお陰でなんとかなりそうですが。(^^;
0055nobodyさん
02/08/12 19:26ID:0dsfb2nN2chみたいなｽﾚ一覧表示機能を実装する方法はありますか？
ありましたらどなたかお教え下さい
0057nobodyさん
02/08/13 03:05ID:2vLbRybx1: 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投稿欄
と下に投稿された返信コメントを表示されるようにして欲しいのですが
返信できたら良いです。どうかお願いします
0060nobodyさん
02/08/16 16:44ID:fDHEelSJ0061nobodyさん
02/08/17 08:36ID:???「Ａｋｉａｒｙ」（http://www.hi-ho.ne.jp/yakira/akiary/）という日記スクリプトなんですが、
過去日記を、目次（例えば○月×日「タイトル」・○月△日「タイトル」スタイルに
変更することは、ムズカシイことなんでしょうか？
（現在は、過去日記の目次は月毎で、月ボタンを押すとその月がずらずらっと
全て現れる状態です）
あまりPealの知識がなく、どこをいじればいいか皆目検討が尽きません。
申し訳ありませんが、アドバイスをお願いいたします。
0062謎？
02/08/17 09:02ID:oGO0yuMmhttp://ja2kai.hoops.livedoor.com
これはなんだ？
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何のソースだよ？
というか一部省略してないか？
007070
02/08/19 23:45ID:La8Q9Gx7お断りするロジックを追加したいのですが…
HTTP_REFERER を？？？良く判りません。宜しくお願いします。
0071nobodyさん
02/08/20 01:10ID:???if ( $ENV{'HTTP_REFERER'} !~ /^$myurl/ ) {
exit;
}
適当に。
007270
02/08/20 01:37ID:Oem70iG+ありがとうございます。やってみます。
0073nobodyさん
02/08/20 18:33ID:???どなたか見ていただけませんか？
http://kari.to/upload/source/4464.txt
0074nobodyさん
02/08/21 10:56ID:???007574
02/08/21 11:01ID:Nqi4eTFIprint $sock "Host: $HostAddr\r\n";
を
print $sock "Host: $hostaddr\r\n";
にしたら74のように投稿できますた。
perl -cwでSyntax checkしたら一発でわかりましたが。
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:???007977
02/08/23 00:16ID:BMtMcA8tprint "<DIV ALIGN=center><NOBR><SMALL>";
の部分ですか？？
それとも１６８行目以降という意味？？
0080ビギナー
02/08/23 00:43ID:ln2ctNdpレスに 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:???http://pc.2ch.net/test/read.cgi/php/1028052835/l50
008277
02/08/23 01:46ID:BkAaZ1YHありがとうございました。
なんとか出来たようです。
行番号がずれてたみたいで折角ヒント頂いたのに
生かせなくてもうしわけありません、78さん。
この辺もいじってたんですがいじりが足りなかったようですね(^^;
本当にありがとうございました〜
0083nobodyさん
02/08/28 07:34ID:O4565eSf↑なんですが、置いてるサーバがアメリカのせいで、
日付が狂ってしまいます。日本時間に直すにはどこを
どういじったらいいんでしょうか。
いろいろ見てみたんですが、わかりませんでした。。
よろしくお願いします。。
00843PIO ◆3pIoOHKo
02/08/28 09:29ID:???$ENV{'TZ'} = 'JST-9';
を書き加えてみたら？
0085nobodyさん
02/08/28 14:55ID:???の下に加えたらいいよ
008683
02/08/28 18:26ID:O4565eSfできますた！ありがとうございますた！
たった一行の追加でOKだったなんて、、、。
ほかにもいろいろ時間の狂ったCGIが置いてあるので
これから片っ端から試してみます。おかげさまで
これでやっと日本時間に日記更新できます（;´3｀）
0087nobodyさん
02/08/30 01:08ID:???0088nobodyさん
02/08/30 02:05ID:RXFLyC5Cプログラムなんですが、簡単な素材などを提供して貰う為、
ファイルも添付できるように改造したいです。どうすればいいでしょうか？
------------------------------------------------------------------
@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:RXFLyC5Cif ($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:???0092nobodyさん
02/08/30 17:28ID:eOo55UHJKENT-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/
へ置いてみましたので、チェックしてみてくださいネ。
009592
02/08/30 21:03ID:eOo55UHJできました！ありがとうございます！
欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
クッキーの発行辺りをいじればよさそうなんですが、書き方が分からないもので。
それと、rand.gifを用意するということは、ランダム表示の際に、rand.gifが表示されることもあるのでしょうか？
質問続きですみません。
0096ビギナー
02/08/30 21:19ID:???無事に動きましたか、良かったです。 これからも改造、頑張ってくださいね。
＞ それと、rand.gifを用意するということは、ランダム表示の際に、
＞ rand.gifが表示されることもあるのでしょうか？
いえ、rand.gif は表示されませんが、ダミーとして入れておかないと、
【画像イメージ参照】をクリックした時に ×印(画像が無いって意味)が表示されて
エレガントじゃ無いですから、その対処として、rand.gif を入れてあるだけです。
＞ 欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
はい、対応できるように考えてみます。
でも、今からちょっと仮眠タイムですので、明日になっても良いですか？ ごめんね。
それでは、また明日にでも…。 (って、どなたかが対応してくだされば嬉しいのですが。)
009792
02/08/30 21:30ID:???rand.gifは表示されないんですね。分かりました。
クッキーの件については、
お忙しい中、申し訳ありませんがよろしくお願いします。
もう少し勉強せねば…
0098ビギナー
02/08/31 06:16ID:???なんとかクッキ対応にしたかったのですが、私のチカラ不足です。
とりあえずのサンプル と 説明は → http://you.s16.xrea.com/b2/
と、いう訳なので、どなたかにバトンタッチ！ お願いします。
009992
02/08/31 09:21ID:???とんでもないです。朝早くからわざわざページまで作ってくださって
感謝感謝です。
自分の思ってたほど処理が簡単じゃなかったんですね。
この機能はあったら便利だけど、なくて困るようなものじゃないので…
しばらくこのままで使ってみます。
ほんとにありがとうございました。
0100ビギナー
02/08/31 12:26ID:???＞＞９９
９２さん、レスをありがと！
お役にたてなくて ＆ 中途半端にしゃしゃり出て すみませんでした。
私も今後、精進に励みますので、どうかご勘弁ください。
ここはこーだろ？ って、どなたかが教えてくださればありがたいのですが…。
どうぞよろしくお願いします＞ 分かるかた
0101nobodyさん
02/08/31 12:31ID:???（ ´,_ゝ`） ﾌﾟｯ
0102nobodyさん
02/08/31 13:39ID:???0103nobodyさん
02/08/31 14:37ID:???クッキーにはそのまま$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');
を置けば事は済むだろ。試しとらんけど。
■ このスレッドは過去ログ倉庫に格納されています