【 スクリプト改造工房 PART 6 】
■ このスレッドは過去ログ倉庫に格納されています
00011
03/03/16 18:28ID:vOOsWTxU# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(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化済み)
0478nobodyさん
03/06/14 12:34ID:???0479nobodyさん
03/06/19 21:50ID:???そのとき、スレッドタイトルをリンクさせたとき
/joyful.cgi? の後に何かをつけて
そのスレッドのみを表示したいのですが、「記事を展開」の
部分をどのように改造したらいいでしょうか？
雰囲気としては、記事表示数が設定できるのでそれを、一記事のみ
表示させるような感じです。
それと、単独表示させたときは、最下部に返信フォームを
入れられるようにしようと思ってます。
こちらの携帯対応の掲示板を携帯に特化させたいのですが
レスが増えてくると、重くなります。
痛いモードで、レスは、最初の1-5 次の5 最新5 みたいに
2chの携帯バージョンのようなこまめな表示がするようにしたいのですが、
可能でしょうか。
0481nobodyさん
03/06/20 16:39ID:Me43kE/Lで、時間が10分単位になってるのですが、
それを１分単位にしようとしてるのですが、まったく分かりません。
いくらCGI内を探しても見つからず・・・・・
教えて頂けませんでしょうか？
0483 ◆Ej0tWpI4SQ
03/06/20 21:06ID:igwYbafgjoyful-2chのような新着スレッド表示件数の指定・レスの表示件数の指定・画像以外のうpろだ対応機能をつけてください。
どなたかおながいします
ffbull http://www.gem.hi-ho.ne.jp/fortunefield/cgi/ffbull_sam.html
joyful-2ch http://falcon.s16.xrea.com/
0484無料動画直リン
03/06/20 21:10ID:Q1+dqLU80485481
03/06/21 01:32ID:O/q8ydvsマルチポスト・・・・結果としてはそうなってしまったのですが
もう片方の板で、改めて見てみると内容が違うなぁと・・・・
だから、こっちに書かせてもらっただけです。
0488481
03/06/22 07:49ID:dS/mcQ1U0492nobodyさん
03/06/23 02:33ID:???0493nobodyさん
03/06/23 07:31ID:???ここは改造スレであって、>>492の言うように、
ないものは自分で作るのが主旨だろ。
何を「探してます」みたいな発言してんだよ。
0494nobodyさん
03/06/24 19:21ID:oWkMjnpbここの
UTILITY3 Webページ上でスケジュール帳を作る
を改造して、カレンダー中の
ログがない日にはリンクを張らないようにしたいのですが、
（ある程度、ログが埋まっていることを前提で）
どうしたものかと悩んでいます。
とりあえずopendirを使うのだろうとは思うのですが、
そのあとどうするかわかりません。
どうか教えてください。
0495nobodyさん
03/06/24 19:29ID:V28TXDZZhttp://www3.kcn.ne.jp/~barozza/
荒らして楽しめ！
0496_
03/06/24 19:49ID:???0497nobodyさん
03/06/25 20:56ID:???のyychatに書き込んだ時にアドレスを打ち込むとリンクを張るように
したいのですが、掲示板などのスクリプト参考にしてやってみたのですが
うまくいかなかったので出来れば、教えてほしいのですが・・
0499nobodyさん
03/06/25 22:07ID:???（訳：何もやってません、面倒だったので）
0500nobodyさん
03/06/25 22:16ID:???（訳：誰かがやってくれたら使ってみてもいいので）
0501nobodyさん
03/06/25 23:34ID:???（訳：早く教えろよ、この厨房ども！！）
0502nobodyさん
03/06/26 13:47ID:???opendir(INDIR, "./schedule/");
my $files = join(",",sort(grep(/$year\_$month\_[0-9]{1,2}\.txt$/,readdir(INDIR))));
closedir(INDIR);
for文内で条件分岐
if($files =~ /$year\_$month\_$i\.txt/){
print "<a href=\"schedule2.cgi?year=$year&month=$month&day=$i\">$i</a>";
}else{
print "$i";
}
これでいちおうできるかも
0503nobodyさん
03/06/26 13:49ID:???0505nobodyさん
03/06/30 15:34ID:NIQmz98Dこのカレンダーは削除時にパスワードが必要なのですが、
予定を書き込む際にパスワードが必須になるように
改造したいので、できる方教えてください。
0506nobodyさん
03/06/30 17:02ID:???0508nobodyさん
03/06/30 19:56ID:???とりあえずパンツはきます。
これでいいですか？
0509nobodyさん
03/06/30 20:03ID:???0510505
03/06/30 20:08ID:???0512nobodyさん
03/06/30 20:40ID:???とりあえず過去ログ見てみ
どういう質問したら、どういう回答があるのかがわかるから。
ま、ぶっちゃけていうとだな。。。
改造してもらうつもりなら、>>510もそれなりの苦労はしてもらうぞと。
0513nobodyさん
03/07/02 00:16ID:???0514nobodyさん
03/07/02 04:40ID:M1i5rE77sage
0515nobodyさん
03/07/02 07:25ID:9UFSTml5http://homepage3.nifty.com/coco-nut/
0517nobodyさん
03/07/02 10:18ID:???NGワードに入ってたわｗ
0519nobodyさん
03/07/02 16:06ID:???大丈夫なんでしょうか？そのままだとログの中身が丸見えになってしまうもんで。
試しに拡張子を変えてみたら一応、動いたんですけど・・・。
少し改造（といっても他のスクリプトからの流用とかデザイン変更程度だけど）
してるので最新版への以降できない状態なので大丈夫なのかどうか教えてください。
何かスレ違いな気もしますがお許しを。
0520nobodyさん
03/07/02 16:25ID:???読み書きしている部分で拡張子変更後のファイルを扱えるように
したのならそれでかまわない。
本当ならパーミッションで制限させるほうがいいけどな。
0521nobodyさん
03/07/02 16:47ID:???そうっすね。冷静に考えたら。
でもこのままで行こうかと・・・。
ログファイルを指定する部分をlogからcgiに変えるだけですよね？
つ〜かそれで問題なく動作してるんですけど。
本体がyybbs.cgiログの方がyybbs2.cgiみたいな感じで。
他にどこか書き換えなきゃいかん部分とかってあるんですか？
スクリプト内にlogで検索かけても特にひっかかる部分がなかったので
大丈夫かな〜なんて思ってるんですけど。
0523nobodyさん
03/07/02 18:00ID:???動 き ゃ 問 題 な い
0524519
03/07/03 12:59ID:???0525nobodyさん
03/07/07 18:35ID:???http://www.rescue.ne.jp/cgi/imgbbs/
なんですが、うｐできる画像サイズが100,000バイト程度なんです。
うｐできるサイズを5倍程度上げたいんですけど、どこをいじればよいでしょう？
ソースです
http://www.geocities.co.jp/HeartLand-Keyaki/4988/imgbbs.txt
http://www.geocities.co.jp/HeartLand-Keyaki/4988/imgbbs2.txt
http://www.geocities.co.jp/HeartLand-Keyaki/4988/imgbbs3.txt
http://www.geocities.co.jp/HeartLand-Keyaki/4988/imgbbs4.txt
0526nobodyさん
03/07/07 20:03ID:???if ($ENV{'CONTENT_LENGTH'} > 131072) { &error2("処理エラー","処理できない大きなファイルを受信しました。-> $ENV{'CONTENT_LENGTH'} bytes","サイズが100,000バイト程度を上限に画像を送信してください。","最初からやり直してください。"); &Menu; exit; }
0529nobodyさん
03/07/07 21:48ID:???できました！
.plのほうでしたか。。。お手数おかけしました。
今までJoyful Note使ってたんですがMacの人が書き込めないらしくて
それでこれを試してみようかなと。。。
0530nobodyさん
03/07/09 19:52ID:???ここのフレームチャットで、ROM人数が表示されるのですが
クッキーをOffにすると、無限に増えてしまいます。
IPでチェックをしたいのですが、どこを弄ればいいか分かりません。
Perlならなんとかなりそうなのですが・・・
怪しいところのソースです。よろしくお願いします。
0531nobodyさん
03/07/09 19:52ID:???$mem_arr = file(MEMBER);
$now = time();
$addr = getenv("REMOTE_ADDR");
$host = @gethostbyaddr($addr);
$fp = fopen(MEMBER, "w");
$flag = false;
foreach($mem_arr as $mem_data){
list($m_name,$m_co,$m_ip,$m_id,$m_time) = explode("\t", $mem_data);
if(($now-$m_time) > 60){
$name = "";
continue;
}elseif($id == $m_id){
fputs($fp,"$name\t$color\t$m_ip\t$id\t$now\n");
$flag = true;
}else{
fputs($fp,"$m_name\t$m_co\t$m_ip\t$m_id\t$m_time");
}
}
if(!$flag) fputs($fp, "$name\t$color\t$host\t$id\t$now\n");
fclose($fp);
}
0532nobodyさん
03/07/09 19:52ID:???$mem_cnt = 0;
$rom_cnt = 0;
$mem_arr = file(MEMBER);
foreach($mem_arr as $mem_data){
list($m_name,$m_color,$m_ip,$m_id,$m_time) = explode("\t", $mem_data);
if(trim($m_name)){
$mem_lst .= " <font color=".$m_color.">".$m_name."</font>".SEPA;
$mem_cnt++;
}elseif(ROM==2){
$mem_lst .= " ".$m_ip.SEPA;
}elseif(ROM==1){
$rom_cnt++;
}
}
0533nobodyさん
03/07/09 21:58ID:???パッと見で・・・
0534nobodyさん
03/07/09 22:53ID:PKJamw+8このCGI、表示される日記が月またぎになると月末の日記が重複されて表示されてしまいます。
１頁に３日分の日記が表示されるように設定していると、「７/１→７/３０→７/３０」というふうに。
これは、他の利用者もBBSなどで質問していることから、私の設定ミスではなくバグのようです。
しかし、開発者さんはこのバグを直すつもりがないようなので、
もし直し方が分かる方がいらっしゃったら、教えてください。
■ＣＧＩの配布元 ttp://www.appleple.com/cgi/a-nikki/index.php
■実際に稼動している状態 http://se.development-network.net/~haru/2chtest/a-nikki.cgi
■本体のＣＧＩをテキストファイル保存したもの http://se.development-network.net/~haru/2chtest/a-nikki.txt
0535nobodyさん
03/07/09 22:56ID:???？
0536nobodyさん
03/07/09 23:00ID:???ああ、阿呆だ自分…
すいません
0537nobodyさん
03/07/10 06:03ID:JsAivAOjhttp://script.s16.xrea.com/2shot/2shotp.zip
の２ショットに画像UP機能が付いたのを見たことあるのですが、
どなたか改造出来ますでしょうか？
何卒お願いいたします。
0538nobodyさん
03/07/10 07:56ID:???530が >Perlならなんとかなりそうなのですが・・・
って書いてるけど?つか、ここはphp分かるヤシ見てるのか?
漏れもワカランが
0540nobodyさん
03/07/10 11:29ID:???そのフレームチャットはユーザーの判別をセッションIDで管理
しているので、それをIPで判別するようにすればいいかと。
ファイルにはホストがすでに書き込まれているので、>>531の
elseif($id == $m_id)
を
elseif(strcmp($m_ip,$host) == 0)
にすれば直るかも。
ちなみにchat.phpの方もセッションIDで管理しているので、
そっちもホスト判別するように書き換えたほうがいいよ。
0541nobodyさん
03/07/10 17:36ID:???ありがとうございました。
chat.phpもセッションIDだらけでした・・・
Offにしていると名前とかも空欄になるのですよね(;´Д`)
リファレンス本買って勉強します。
0542540
03/07/11 11:45ID:???頑張ってくださいー
>>534
もしかしてsetup.cgiのところが
$not_glob = 1;
になってませんか？もしなっていたら
$not_glob = 0;
にしてみてください。
0543nobodyさん
03/07/11 18:59ID:VHZW4KqE【該当cgi】http://dream.lib.net/room/cgi/e_atlink.html
【内容】自動リンクcgi
【ファイル】
atlink.cgi → http://www.geocities.co.jp/Bookend-Ohgai/3774/atlink.txt
jcode.pl → http://www.geocities.co.jp/Bookend-Ohgai/3774/jcode.txt
【依頼】
機能のうち、
・カテゴリー無制限分類
・検索機能
の２つを取り払ってしまいたいんです。
要は、最低限の機能
（1.訪問者と管理人がリンク登録できる 2.各ページに飛んでいく）
だけに改造したいのですが、どうかお知恵をお貸しいただければと思います。
宜しくお願いいたします。
0545nobodyさん
03/07/11 21:42ID:???配布先のURLも出さずにやりたいことだけ書くアフォにくらべればかわいいもんだって。
0546543
03/07/11 22:00ID:VHZW4KqEすみません・・・【】の中、できるだけきちっと書かないとダメかなぁと思って無い知恵絞って考えた結果「依頼」しか思いつかなかったんです・・・
気を悪くされたなら本当にごめんなさい。
>>545
ありがとうございます・・・今後は言葉に気をつけます・・・
0547nobodyさん
03/07/11 22:34ID:???912行目以降の「メニュー表示」の中の「検索」の行だけ消してしまえば、とりあえず
メニューから検索が消える。
ただこれだと機能自体は生きてるし、URL直打ちしたら入れてしまう。
機能を殺したいのなら、176行目の「if ($act eq "srh1"){&srh1;}」の行を削除（または
先頭に # を挿入）して、次の行の先頭の elsif を if に書き換える。
「カテゴリ無制限分類」ってのがよく分かんない。登録するカテゴリ数を制限したいの？
0548543
03/07/11 23:09ID:VHZW4KqEすごい・・・できました！
すごくわかりやすい解説ありがとうございます！
あと、「カテゴリ無制限分類」というのはですね、例えばこのcgiの場合、管理者（自分）がカテゴリーをいくつか作って（例えば「テキストサイト」「配布サイト」などのように）、訪問者が該当するカテゴリー内にリンク登録するという感じですよね。
そのカテゴリ自体を無くしてしまうというか、登録されたサイトすべてが同じページに一緒くたに配置されるようにしたいのです。
ですのでtopにあるチェックボックスも消したくて、見た目に殺風景な感じにしたいのですが、一応自分では「カテゴリー」に関係する箇所を削ったりしてみたのですがどうしても500内部サーバーerrorとなってしまいました。
わかりにくい説明で申し訳ありません・・・
いつまででも待ちますので、お時間のある時がございましたらまたアドバイスの方宜しくお願いします。
とりあえず「検索」を消してもcgiが動くということ自体、自分では手のつけられなかったことです。
本当にありがとうございました。
0549nobodyさん
03/07/12 07:04ID:???>>547の検索機能の削除だが、
sub srh1のブロックも削除した方がｳﾏｰ
暇だったので、カテゴリー機能の削除をやってみた。
非常に面倒だった(ﾔﾙﾝｼﾞｬﾅｶｯﾀ…)。
以下にヅラヅラと書いておくからな。
# アク禁されそうだぞｵｲ
0550nobodyさん
03/07/12 07:05ID:???sub adm2とsub adm1のブロックは削除。
メインルーチンの
elsif ($act eq "adm1"){&adm1;}
elsif ($act eq "adm2"){&adm2;}
も削除。
sub navi1の中の、
<a href="./atlink2.cgi?act=adm1">管理</a>
も削除だな。
0551nobodyさん
03/07/12 07:06ID:???<tr><th>カテゴリー</th>
<td nowrap>$temp1[$temp2[0]]</td>
</tr>
削除すれ。
sub chg3の中の、
<tr>
<th nowrap width=30%>カテゴリー </th>
<td nowrap>$temp1[$sitecat]</td>
</tr>
削除すれ。
0552nobodyさん
03/07/12 07:08ID:???<tr><th>カテゴリー</th>
<td nowrap><select name="sitecat" class="input">
EOD
for(0 .. $#temp1-1){
if ($_ == $temp2[0]){$a2 = " selected";}else{$a2="";}
print "<option value=\"$_\"$a2>$temp1[$_]\n";
}
print <<EOD;
</select>
</td></tr>
削除すれ。
0553nobodyさん
03/07/12 07:08ID:???<th nowrap width=30%>カテゴリー </th>
<td nowrap>$temp1[$sitecat]</td>
</tr>
削除すれ。
sub reg1の中の、
<tr><th>カテゴリー</th>
<td nowrap><select name="sitecat" class="input">
EOD
open(IN,$datafile);
eval{flock(IN,1)};
my @temp1=split(/<>/,<IN>);
close(IN);
my $a2 = " selected";
for(0 .. $#temp1-1){
print "<option value=\"$_\"$a2>$temp1[$_]\n";
$a2 = "";
}
print <<EOD;
</select>
</td></tr>
削除すれ。
0554nobodyさん
03/07/12 07:09ID:???$navibuf = &navi2;
print $navibuf; (2ヶ所あるぞｵｲ)
&navi2;
削除すれ。
while(<IN>){push(@log,$_) if $_ =~ /^$cat</;}
を
while(<IN>){push(@log,$_);}
に変更すれ。
<tr><th bgcolor=$linkcolor1 colspan=2 width=100%>$catdata[$cat] - $ct件</th></tr>
を
<tr><th bgcolor=$linkcolor1 colspan=2 width=100%>登録済み - $ct件</th></tr>
に変更すれ。
0555nobodyさん
03/07/12 07:11ID:???これで>>548の望む動作にはなるはずだ。
他に色々修正すべき点はあるが、根気が続かないのでここで止める。
詳細なテストをしてないので、エラーを吐いたらｽﾏｿ。
(つーか、perl -wc atlink.cgi でいろいろ言われてるがな)
あとは>>548の宿題でよろしいか？
0557549-555
03/07/12 08:48ID:???sub datacheckの中の、
if ($sitecat eq ""){&error("カテゴリーを選択してください。");}
elsif ($sitename eq ""){&error("サイト名を入力してください。");}
を
if ($sitename eq ""){&error("サイト名を入力してください。");}
に変更汁。
これで大丈夫！ ﾀﾞﾄｵﾓｳ
0558nobodyさん
03/07/12 11:20ID:dkTTYYjg※リンクレイアスとはしたらばで使われている名前>>ＵＲＬと書くことで<a href="url">名前</a>
に置き換わる機能です。
0559558
03/07/12 11:21ID:dkTTYYjghttp://zero.s28.xrea.com/public/scripts/test030705.zip
0560nobodyさん
03/07/12 11:33ID:???ソース見ないでカキコ。ファイル名のサフィックスが .pl だったので、
perl だな…
名前>>URL をマッチさせればいいんじゃない？
URL のマッチルールはperlメモでも読んでくれ
あと、名前のところは当然マルチバイト文字も入るから…
\b[\B]+>>
こんな正規表現ではどうか？
0561560
03/07/12 11:41ID:???s/(\b[\B]+)>>(s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)/<a href=\"\2\">\1</a>/g;
こんな感じかな…。ただ、(\b[\B]+)>> の部分はマルチバイト文字入るとどうなるか自信なし（ｗ
0562560
03/07/12 11:42ID:???s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
0564558
03/07/12 11:46ID:???挿入すればいいんでしょうか？
0565543
03/07/12 11:49ID:M0XOsREiたぶんＩＤ変わってると思いますが昨日の543です。
もう何というか・・・なんというかですね・・・
「ありがとうございました」
って文字をタイピングすることでしか感謝の気持ちを表現できないのが腹立たしい・・・
それくらい感謝です。
実は今から御指摘通りにやってみるつもりなので結果はまだなのですが、どうしても先にお礼を言っておきたくて先に書き込んでしまいました。
webProg板にお邪魔するのにはあまりにも無知な自分の質問にこころよくお答えくださった547さん、549さんの優しさは一生忘れません。
自分ももっと勉強して、いつか誰かに質問された時にお二方のようにこころよく、わかりやすく、アドバイスできるようになれるように頑張ります！
何もお礼ができませんが、せめてお二方の幸福と御健康をお祈りしています。
本当にありがとうございました！
0567558
03/07/12 12:56ID:dkTTYYjgすみません。組めません、、
http://miscast.s35.xrea.com/joyful/img/12.txt
こんなこんな感じでやってみましたが、内部サーバーエラーが出て
しまいました。
教えてクンですね、、、
0568_
03/07/12 13:08ID:???0569560
03/07/12 13:18ID:???君さ、性別と年齢は？
ま、取り敢えず
$s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
これを
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
こう変えてみ
0570543
03/07/12 15:43ID:???今設置し終わりました。
549さんのおっしゃる通りに、すべてそのままでしっかり動作しました！
エラーもありません。
何回も言ってすみなせんが、本当にありがとうございました。
sageにて報告させていただきました。
0571558
03/07/12 17:47ID:dkTTYYjgその文に置き換えても500エラーです。
ちょっとあきらめてみます。ありがとうございました。
0573560
03/07/12 18:56ID:???よく見ると、思いっきり間違えてるな（藁
エラー出て当然だわ( ´,_ゝ`)ﾌﾟｯ
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1<\/a>/g;
0574558
03/07/12 20:19ID:dkTTYYjgなんかエラーはなくなったんですが、例えば2ch>>ｈttp://www.2ch.net/
と記述しても出ないです。
0575nobodyさん
03/07/12 20:30ID:N7l3tI07http://www3.free-city.net/home/espresso/adult/xxx.html
0576nobodyさん
03/07/12 20:33ID:???ｈttp://www.2ch.net/
http://www.2ch.net/
上の二つの違いがわかるか？
■ このスレッドは過去ログ倉庫に格納されています