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

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

[前50を表示]
300:nobodyさん
08/03/04 23:10:44
正規表現のどの辺が分からんって？

301:nobodyさん
08/03/05 06:31:08
>>294
日本語で失礼。

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

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

302:nobodyさん
08/03/05 20:35:19 Wm0WO3jS
>>300
アンカーの構造から分かりません(∋_∈)

303:nobodyさん
08/03/05 22:26:38
どこまでは考えた？

304:nobodyさん
08/03/06 00:39:31 UOTbbi+N
えっと、全然発想すら分からないので

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

305:292
08/03/10 06:53:01
>>293
お礼が遅くなってしまいすみません。
方法がさっぱりだったのでぐだぐだになってしまってました。
お答えくださりありがとうございました。

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

この二つです。

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

308:nobodyさん
08/04/14 00:14:52 sAfeJoyW
【.　 CGI名　.】　p++BBS 2006/03/02版　　【配布先URL】　URLﾘﾝｸ(php.s3.to)
【ヘルプ内容】URLﾘﾝｸ(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
08/04/14 12:41:15
クソな処理なのは変わりませんが、自己解決できました。

310:nobodyさん
08/04/24 21:25:50
【.　 CGI名　.】　UpdaterRSS
【配布先URL】　URLﾘﾝｸ(php.s3.to)
【. 置き場所 .】　URLﾘﾝｸ(php.s3.to)
【ヘルプ内容】　ping送信機能を組み込みたい。
よろしくお願いします。

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

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

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

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

313:nobodyさん
08/05/14 17:55:06 1VhcNHK7
【.　 CGI名　.】　phpexit ver.1.1.4
【配布先URL】　URLﾘﾝｸ(chibinowa.net)
【. 置き場所 .】　URLﾘﾝｸ(chibinowa.net)
【ヘルプ内容】

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

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

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

　ご助言お願い致します。

314:nobodyさん
08/05/16 23:46:50 oqDS1N2X
313です。自己解決しました。

315:nobodyさん
08/05/17 02:10:38 Td8Jyj+I
【.　 CGI名　.】　Photo Memo
【配布先URL】　URLﾘﾝｸ(www.sa-k.jp)
【. 置き場所 .】　URLﾘﾝｸ(www.sa-k.jp)
【ヘルプ内容】

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

316:nobodyさん
08/05/17 04:44:29
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さん
08/05/24 20:37:38
【.　 CGI名　.】　SN Uploader　　【配布先URL】　URLﾘﾝｸ(sugachan.dip.jp)
【ヘルプ内容】
拡張子とMIMEが合わなくてもアップロードできてしまいます。
ログには拡張子合わずと記録されてるので簡単に改造できるかなと思いましたら
知識が全然足りずに改造しても動きませんでした。
何方か知識をお貸しください。

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

319:nobodyさん
08/05/25 07:43:08
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さん
08/05/25 15:57:11
エラーナンバー202を記録してるとこ探せばいいだろｗ

321:nobodyさん
08/05/25 18:41:41
{#メイン処理
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さん
08/05/25 19:14:47
もしかしてperlのソース読めないんですか？

323:nobodyさん
08/05/25 19:16:16
>>322
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
この行をどうにかすればいけるぐらいしかわからん

324:nobodyさん
08/05/29 19:57:45 Ql0N4gMP
上げてもよかったのでしょうか…

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

325:nobodyさん
08/05/30 03:14:29
もっと詳しくかつ明瞭に。

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

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

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

327:nobodyさん
08/05/30 21:07:56
「何をどうやった」のかを「具体的に」説明してくれないと
こっちもアドバイスのしようがないんだが

328:nobodyさん
08/05/30 21:26:46 mgybmJwP
全てに新しい変数を追加しました。

329:nobodyさん
08/06/01 16:00:47

┓(￣∇￣;)┏

330:nobodyさん
08/06/14 03:25:31
置いてある場所
URLﾘﾝｸ(www.cj-c.com)

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

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

332:nobodyさん
08/07/25 03:17:16
【CGI名】 DiaryCGI nicky!
【配布先URL】 URLﾘﾝｸ(www.din.or.jp)
【ヘルプ内容】コメント記入時に、メールが送信されるように設定した場合、
通知メール内容にコメント文も載せるようにしたい。
nicky.CGIの2725行にどのような記述をいれれば本文に入るのでしょうか？
宜しくお願いします。

333:nobodyさん
08/07/25 04:48:36
>>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さん
08/07/25 22:21:13
>>333
ありがとうございました！
ちゃんとできました！

335:nobodyさん
08/08/07 13:46:25 qpI1q2Ei
【CGI名】 PRTC BBS
【配布先URL】一般に配布されていません
【ヘルプ内容】暗号化をしたいです

URLﾘﾝｸ(www.rescue.ne.jp)
このサイトのような感じで(もっと簡素でも構いません)
とにかく出力をしたいんです
下記のソースで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
08/08/07 13:47:25
@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さん
08/08/09 03:15:31 pVYfvjSg
【盗聴】web-up.cside.biz【個人情報詐取】
ｽﾚﾘﾝｸ(php板)l50

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

339:nobodyさん
08/08/22 12:34:43 HAxZZ1Pz
△▲　WebProg 初心者の質問 Part17　▼▽
ｽﾚﾘﾝｸ(php板)l50
（スレ違いしみませんでした））
から来ましたm(__)m

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

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

340:nobodyさん
08/08/22 12:37:00
>(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

341:nobodyさん
08/08/22 12:58:25 HAxZZ1Pz
>>340
すいません。ご指摘ありがとうございます。

補足です。

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

342:nobodyさん
08/08/22 12:59:30
>少しは自分で考えること

343:nobodyさん
08/08/22 13:38:02
>>342
もしかして
# 投稿順にソート
@new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

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

344:nobodyさん
08/08/22 17:08:31
>>343
で、やってみたか？

345:nobodyさん
08/08/22 17:49:49
>>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さん
08/08/22 23:20:22
>>345
reverse() までたどり着いてんならあともう一歩だ。がんばれ。

347:nobodyさん
08/08/23 01:26:37
lib/phone/read.plの２２０行目
while (<IN>) {
　　　　↓
for (reverse <IN>){

ってな感じじゃないかな

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

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

349:nobodyさん
08/08/23 01:48:47
>>346
>>348
ありがとうございます(^o^)

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

350:nobodyさん
08/08/23 03:58:22
@new = @new[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort];

でどうだ？

351:nobodyさん
08/08/23 09:27:40
>>350
２カ所とも試してみましたが変わりませんでした(;.;)

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

352:347
08/08/23 09:49:35
>>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さん
08/08/23 16:32:22
>>352

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

354:nobodyさん
08/08/24 20:26:26 8OT0ZHuq
【.　 CGI名　.】　HiLink ver1.12（サンプルAバージョン）
【配布先URL】　URLﾘﾝｸ(www.e-hws.net)
【. 置き場所 .】　URLﾘﾝｸ(www.e-hws.net)
【ヘルプ内容】
リンク登録時に特定のカテゴリーを選択したとき、表示部のテーブル背景色を変更したいです。
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さん
08/08/24 20:38:01 ZUYvYMes
【.　 CGI名　.】　へっどらいん
【配布先URL】　URLﾘﾝｸ(php.s3.to)
【. 置き場所 .】　URLﾘﾝｸ(php.s3.to)
【ヘルプ内容】
このへっどらいんで出力させる場合に<script>コードを無効にしてほしいです
ないサイトなら問題ないのですがある場合は気になります
よろしくお願いします

356:nobodyさん
08/08/28 12:17:05
>>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;

検証してないけど。

357:nobodyさん
08/09/02 17:46:02 ikXIt5qG
【　 CGI名　】配布用web拍手CGI
【配布先URL】URLﾘﾝｸ(www.webclap.com)

web拍手CGI公式サイトさんのところで無料配布のスクリプトをもらってきたのですが、
ファビコンがプロバイダ側のへんてこファビコンなので変えたいのです！
自サイトのhtmlページでは自作のファビコンで被せてあるのですが、CGIでファビコンを
つけるのはどこをどういじったら良いですか？

clapinit.txt (cgi)　このファイルがあやしかったので、

#--------------
# HTMLヘッダー
#--------------
sub header{

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">',"\n";
print '<html lang="ja"><head>',"\n";
print "<title>$title</title>\n";
print "</head>\n";

この内に
print "<link rel="shortcut icon" href="favicon.ico">\n";
↑これを加えてみたのですがダメですた。

他にもいじらないとダメだったりするのでしょうか。
もしかして根本的に間違ってたりするのでしょうか…。
どなたかお助けください。

スクリプトダウンロード先は
URLﾘﾝｸ(www.webclap.com)←ここです。

358:nobodyさん
08/09/02 18:03:23
print qq|<link rel="shortcut icon" href="favicon.ico">\n|;
書くならエスケープしないと

359:357
08/09/02 18:21:23 ikXIt5qG
358さん、ありがとうっ！
できました。ヽ(　　´　　∇　　｀　　)ノ

エスケープてなんのことかさっぱりですが、助かりました！
ありがとうございましたー。

360:WIvuwbtzwfKUbeCY
08/09/04 04:46:54
8BjBoM <a href="URLﾘﾝｸ(ywnlxptotivr.com)">ywnlxptotivr</a>, [url=URLﾘﾝｸ(rteiyeyfadlo.com) [link=URLﾘﾝｸ(ogppqltwqlls.com) URLﾘﾝｸ(qkrzooqzbhel.com)

361:nobodyさん
08/09/04 06:55:50
PHP限定で改造やります
改造したものはHPで公衆発信します

まず以下の情報を書いてレスよろ

[スクリプト名]名前は正確に！！
[配布先URL]二次配布できるかできないか確認するためです。うｐローダに置いてあったらスルー
[改造内容]何をどのように改造したいのか詳しく。あいまいな内容は基本的にスルー

362:nobodyさん
08/09/04 20:31:18
>>361
スレの趣旨から反するから改造丸投げはNG

363:nobodyさん
08/09/04 20:58:58
一部も丸投げもどっちでもいいよ

364:nobodyさん
08/09/04 23:19:35
関連スレ
【スクリプト改造依頼スレ】(丸投げ) part7再
ｽﾚﾘﾝｸ(php板)

365:RZWXbJawD
08/09/15 12:13:38
map+1409.txt;50;60

366:nobodyさん
08/09/20 18:44:46
URLﾘﾝｸ(www.dotup.org)

ゲームの得点ランキングを作ろうと思い、
名前・得点・コメントを入力してランキングに登録するといった形のものを作りたかったのですが、
値を入力し、送信してもうまく表示されません。
logのファイルに書き込みはできてるみたいですが、正しくかけていないように思えます。

どうすればランキングを表示できるでしょうか？
もうどこが間違ってるのか分からなくなってしまいましたので、アップロードさせていただきました。
どなたか修正・ご指導よろしくお願いします。

URLﾘﾝｸ(www.cgi-web.net)様の
quizというCGIを元に改造してみたものです。

こちらに誘導されました。よろしくお願いします。

367:nobodyさん
08/09/21 01:27:40
>>366
配布元の制限を読むと、あなたが配布元に連絡していない場合、
今回のアップロードは「スクリプトの無断再配布」に当たり、
同サイトの提示するライセンスに抵触する可能性があります。
権利関係を再確認してください。

368:nobodyさん
08/09/26 20:08:56 ze4UkUPR
【.　 CGI名　.】toshinariスクリプト(Perl)
【配布先URL】URLﾘﾝｸ(www.toshinari.net)
【ヘルプ内容】
としなり掲示板にリモートホスト、IPを取得できるように改造してください。
できれば/BBSID/log/00000.cgi
みたいに掲示板IDディレクトリに新しくlogディレクトリを作成してcgiファイルで保存するようにして
それでレス削除画面にリモートホスト、IPを表示させるようにしてくれるといいです。
あと、ここからは希望ですが
リモートホスト(IP)規制機能と透明あぼーん機能をつけてください。
報酬はリモートホスト、IP取得が500P
リモートホスト(IP)規制機能、透明あぼーんまで追加してくださったら+500P払います

369:nobodyさん
08/09/26 20:33:39
Pって何やねん

370:368
08/09/26 20:35:04 ze4UkUPR
>>368
すいません、書き忘れてました
ウェブマネーのことです。

371:368
08/09/26 20:36:50 ze4UkUPR
安価ミス・・・
>>368じゃなくて>>369

372:nobodyさん
08/09/26 20:52:29
ケチくさいにもほどがあるな

373:nobodyさん
08/09/27 00:18:26
>>368
「ここからは希望」ってあるがじゃあその前は何なんだ

374:nobodyさん
08/09/27 04:01:31
ま、>>1嫁

375:368
08/09/27 07:15:06 DmLoG2K4
すいません。書き直します
ダウンロード場所：URLﾘﾝｸ(cgi.toshinari.net)
スクリプト名：toshinariスクリプト
どんな風に改造するか：
としなり掲示板にリモートホスト、IPを取得できるように改造してください。
/BBSID/log/00000.cgiという感じにlogディレクトリにcgiファイルで保存するようにしてほしいです。
報酬はWM1000Pです。
これからは希望ですが
ＩＰ規制と透明あぼーんもつけてもらえれば幸いです。

376:nobodyさん
08/09/27 07:49:04
>>375
で、どこまでやったのさ？
自分で全然やる気ないなら丸投げスレへ行け

377:368
08/09/27 16:52:29 DmLoG2K4
>>376
どこまでやったというと？
がんばってもできないから改造依頼したんですが・・・
あと、dat落ちしていない丸投げスレのURL教えてください。

378:nobodyさん
08/09/27 16:53:18
これはひどい

379:368
08/09/27 19:14:47 DmLoG2K4
なんとか自分でできそうです

380:368
08/09/27 19:25:04 DmLoG2K4
なんとかできました

381:nobodyさん
08/09/29 07:51:32
>>380
自分で出来んならくんなよ

382:nobodyさん
08/09/29 08:50:14
関連スレ
【スクリプト改造依頼スレ】(丸投げ) part7再々
ｽﾚﾘﾝｸ(php板)

383:nobodyさん
08/09/29 09:02:12
丸投げスレがまた即死したので立てときました。
こっち（工房）にまとめようという意見もあるようですが、一種の隔離スレみたいな
意味合いもあると思うので、やっぱあった方がいいかと……

384:YwSCdaoYJixVIpCijR
08/10/03 04:13:35
hi, you have super site.,

385:nobodyさん
08/10/04 02:06:40
【.　 CGI名　.】　ショッピングカート WebCart 2.3x
【配布先URL】　URLﾘﾝｸ(www.cgis.biz)
【ヘルプ内容】　
サンプルを見ていただくとわかると思いますが、商品の並び順が新しい番号が
上にくるようになっています。
これをＮＯ．１から表示するようにしたいのですが、どこを改造すればよいか
ご教授ください。

私が見た中で、ここかな？と思ったのは、view.phpの153～154行目と思ってい
ますが、どうでしょうか。

386:nobodyさん
08/10/04 02:07:50
じゃやれよ

387:nobodyさん
08/10/04 02:16:49
>>386
じゃやれよって言われても…どう変えればいいのかわからないから聞いているの
ですが？
自分でできそうだったらすでにやってますが、場所が見当ついても、何を変えれ
ばいいのかわからず、作者さんもお忙しいとお聞きしましたので、ここで聞いて
みたのですが…。

388:nobodyさん
08/10/04 02:24:39
分からないなりに当たりつけてやってみなよ
まさか100%何も見当付かないってことはあるめえ？

389:nobodyさん
08/10/04 04:39:31
言語がわからんってことなら丸投げいけば？

390:385
08/10/05 11:16:52
丸投げスレにて教えてもらいました。
誘導ありがとうございましたm(_ _)m

391:nobodyさん
08/10/05 18:39:28
回答もらってからこっちを終わらせるとかほんと悪質だなｗ

392:nobodyさん
08/10/07 23:59:17 Zxtb1+eC
>>899
ありがとうございます

393:nobodyさん
08/10/27 20:40:50 vjLKC+JQ
【CGI名】スレ天
【場所】URLﾘﾝｸ(cgipon.specters.net)
【ヘルプ】トリップつけれるようにしたい
ググったらそれらしいのはなんぼかみつかったけど
入れる場所とかわかりません。
ご教授よろしくおねがいします。

★ ワンポイント
2chのトリップ生成方法は以下のようになっています。
($name, $tripkey) = split(/\#(.+)/, $form{'name'});
if($tripkey){
$salt = substr($tripkey.'H.', 1, 2);
$salt =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./;
$salt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = '◆'. substr(crypt($tripkey, $salt), -10);
}
print "$name$trip";

394:nobodyさん
08/10/27 20:42:05 vjLKC+JQ
書き込み処理直前、クッキー発行後
＜ここから＞
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
＜／ここまで＞

#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);

395:nobodyさん
08/11/29 15:46:24 kT4OjumG
【.　 CGI名　.】　RNA pre2.0b2 (build 051225)
【配布先URL】　URLﾘﾝｸ(web.archive.org)　（少し重いですが、DLできます。783kbです。）

【ドキュメント】URLﾘﾝｸ(web.archive.org)(nightly%c8%c7)

【ヘルプ内容】
# スクリプト紹介
・RNA は、Webサーバ上で動作する、RSSアグリゲータの一種です。
　Perl/CGI で実装されています。
　Web上のいろいろなサイトの更新情報を収集するアンテナとしての機能が主です。
・URLﾘﾝｸ(www.semblog.org)で配布されてるスクリプトの開発版です。
・開発はストップしてます
・URLﾘﾝｸ(isnot.jp) にも、スクリプトの処理の流れが書いてあります。
　（Perlがわかるかたにはスクリプトを見たほうが早いかもしれませんが）

# したいこと
・楽天ブログのRSS等、RSS内に入ってる広告を除去したいです
　具体的には、"PR:"で始まってるitemを除去したいです

396:395
08/11/29 15:48:00
# やってみたこと、考えたこと
・lib/RNA.pmの800行目付近、cacheしたサイトのデータをStoreして、sortする前あたりで
　除去したらいいのかなと思ってます

$self->__cache_sites($new_cache_data);
$self->{SiteList}->{RSSArray} = \@rss_array;
unless($config->{DateControl}->{AllowFutureEntries}) {
$self->remove_future_entries;
}

$self->remove_ads; # この辺り？

397:395
08/11/29 15:48:35
・lib/RNA/RSS.pmの remove_future_itemsを参考に見よう見まねで書いてみたりもしましたが、
　「titleが "PR:" で始まってるitemを除去する」という書き方がわかりませんでした

sub remove_ads
{
my $self = shift;
my %arg = @_;

my @new_items = ();
foreach my $item (@{$self->{items}}) {
if (index($item->{title}, "PR:") < 0) {
push(@new_items, $item);
}
}
$self->{items} = \@new_items;
}

・処理するタイミングも間違ってるかもしれません
・できれば今後のために、除去するitemの指定方法に汎用性を持たせていただけるとなお嬉しいです

以上よろしくお願いします

398:nobodyさん
08/12/12 23:58:00 A0lF4mOo
【スクリプト改造依頼スレ】(丸投げ)のほうで投稿したのですが、
投稿した後にこちらのスレで質問したほうがいいという書き込みを見つけたので
同じ内容のものを投稿します。

【 CGI&PHP名】 CSS Yomi-Search（Yomi-Search改造版）
【配布先URL 】 URLﾘﾝｸ(www.w-art.org)
【依頼内容】　マーク順設定で検索したとき、ログの並び順を更新日の新しい順にしたい

現在ログをマーク順で表示させています。
デフォルトではＩＤの新しい順で並ぶようになっていますが、
↓の方法で更新日の新しい順に並ぶようにしました。
URLﾘﾝｸ(web.archive.org)
しかし、検索した時にログの表示が変になってしまいます。
上記のアドレス先にも検索した時の表示の対処法が書いてあるのですが、
その通りにやってみると並び順はきちんとなるのですが、同じログが２つ表示されてしまいます。

よろしくお願いします。

399:nobodyさん
08/12/13 00:13:50
で、向こうは書きっぱなしで放置逃亡ですか
ならマルチは死ねとしか

400:nobodyさん
08/12/13 00:28:02 fT/e8zoW
398です。
すいません。
何度か書き込みをしたことはあるのですが、
削除はしたことがなかったのでその辺を何も考えてませんでした。
えと、削除依頼を出せばいいのかな・・ガイドライン読んできます。

401:nobodyさん
08/12/13 04:59:44
>>400
削除依頼じゃなくてさ、このｽﾚに移動しますって書けばおｋ

402:nobodyさん
08/12/13 09:48:56 fT/e8zoW
>>401
教えて下さってありがとうございます。
向こうのスレに書き込んできました。
以後気をつけます。

403:nobodyさん
08/12/13 20:10:29
>>402
で、このｽﾚは丸投げじゃないんだから自分で出来るところまでやるってのが第一歩。

404:nobodyさん
09/01/30 15:25:22 Mp+dTJwq
【.　 CGI名　.】　phpexit ver.1.1.4
【配布先URL】　URLﾘﾝｸ(chibinowa.net)
【. 置き場所 .】　URLﾘﾝｸ(chibinowa.net)
【ヘルプ内容】

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

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

　lib/cmd/edit.php、item.php　などを弄ってあります。
色々修正してみたり、記述を変えてみましたが、増やした項目部分を登録すると増やしたコメント欄とテキストエリアが同じ内容になってしまったりします。

　1度自己解決したのですが、上記問題が出てしまいましたので、どうかご助言お願い致します。

405:nobodyさん
09/01/30 23:11:27
コメント欄とテキストエリアで出力している変数を別にすればいいのでわ？

406:nobodyさん
09/02/04 05:16:41
【.　 CGI名　.】　0chスクリプト
【配布先URL】　URLﾘﾝｸ(0ch.mine.nu)　0chのtest060227.zip
【ヘルプ内容】
0chのtest060227.zipを使用して掲示板を運営しています。
スレッド一覧（ ./subback.html ）にもmeta.txtの内容を書き込もうと思い
いろいろ弄ってなんとか形になりました。※meta.txtは掲示板を作って自分で書き込めます。
しかし、これでよいのかどうか自信がもてないため質問します。

varda.plの191
sub CreateSubback{　} 内に

require('./module/legolas.pl');
$Caption = new LEGOLAS;
META($this,$Index,$Caption);

151# HTMLヘッダの出力
$Caption->Print($Page,undef);

他に
sub META{
　my ($this,$Page,$Caption) = @_;
　my ($title,$link,$image,$code);
　$Caption->Load($this->{'SYS'},'META');
}

ミスはないでしょうか？

407:nobodyさん
09/02/04 19:33:07
レンタル鯖にてメール送信CGIを設置したくPerlで継ぎはぎしてやってみたんですが、
メールは送信されるのですが、件名とメアドまで本文の方に来てしまって、
件名が（無題）で送信者がanonymousになってしまいます。
どうやったら件名とメアドを認識してくれるのでしょうか？
HTMLの入力フォームは、名前、メアド、件名、本文の４つだけです。

408:404
09/02/04 19:36:06 KFPddoVr
>>405
解答ありがとうございました。頑張ってみます！

409:nobodyさん
09/02/04 19:36:17
ソースをさらせばいい
↓そのソースじゃねーＹＯ！

410:nobodyさん
09/02/04 20:04:10
>>409
ｿｰｽさらします。Perl知らないんでこれが限界っす･･･。
#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail';
require 'jcode.pl';
#Get the input
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

#Split the name-value pairs
@pairs = split (/&/,$buffer);

foreach $pair(@pairs) {
($name, $value) = split(/=/, $pair);
#Un-Webify plus signs and %-encoding
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

$FORM{$name} = $value;
if ( $name ne "to" ) {
push (@fields, $name) unless (grep(/^$name$/, @fields));
}
}
# set recipient address if form is blank
$to = $FORM{'to'};

411:nobodyさん
09/02/04 20:04:56
続きです。

### 送信フォーマット
$mail_msg = "";
foreach $field (@fields) {
$mail_msg = "$mail_msg-----------------------------------------------\n";
$mail_msg = "$mail_msg($field) $FORM{$field}\n";
}
### ShiftJis to Jis
&jcode'convert(*mail_msg, 'jis');
open(MAIL,"| $mailprog $FORM{'to'}")|| die "Can't open $mailprog!\n";
print MAIL $mail_msg;
close(MAIL);

412:nobodyさん
09/02/04 20:12:33
メールヘッダがないではないか？

413:nobodyさん
09/02/04 23:10:20
>>410
まず、スクリプトの先頭に use strict; use warnings; と書いて。

414:nobodyさん
09/02/05 15:06:41 0clwaODI
【. CGI名 .】美しい画像掲示板
【配布先URL】URLﾘﾝｸ(w1.nirai.ne.jp)
【ヘルプ内容】
・ファイルサイズを800000にしたい
if($filesize <= 100000){
ここを変更するだけでは下記の行がエラーで上手く表示されません

$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);

・画像がない場合の表示
行に画像が1枠しかない場合、残り4枠に'image.jpg' の画像が
表示されるはずが1枠にしか表示されません

どうか力を貸して下さい

415:nobodyさん
09/02/05 15:17:02
エラーでメッセージが出ずに行がそのまま出るの？

416:414
09/02/05 16:05:49
>>415
ファイル名　oo.jpg アップロード成功！
Warning: Division by zero in bbs.php on line 197

と出て、その行（表示させるテーブル）が凝縮されて画像は表示されません。

417:nobodyさん
09/02/06 02:28:34
じゃもう問題分かったようなもんじゃん

418:414
09/02/06 22:45:19
>>417
if($filesize <= 100000)をif($filesize <= 800000)に変えるとなぜ
$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);
がエラーを起こすのか理解できていないので解決できません

419:nobodyさん
09/02/06 22:45:51
いや検証して理解すれよ

420:nobodyさん
09/02/06 23:33:26
糞スクリプト過ぎるな。
とりあえずその行の直前ででも関係する変数を適当に出力してみれ。
ゼロ除算なのだから、割る数のうちいずれかが0になっている。
値がおかしい変数が見つかったら、その変数に値を設定している部分を全部洗い出して、どういう風に値が変わっていくか調べろ。

421:420
09/02/07 01:08:19
配布CGIが糞なのは今に始まった事じゃないから諦めて整理しつつ読んだ。
問題はその変更じゃないな。変な画像が混ざってるんじゃねぇか？
データはそのままで改造前のスクリプトを設置したらちゃんと動くのか？

422:414
09/02/07 13:19:00
>>421
アップして表示するのに関しては正常に動きます

画像がない場合の表示はダメです

理想　　　　　　現実
■□□□□　　　■××××

■アップした画像
□画像がない場合に表示する画像
×イメージがない

423:nobodyさん
09/02/07 13:42:18
表示してみなよ
$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);
の直前に
print "Content-type: text/plain\n\n$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);\n";
exit;
みたいに書いてさ・・

424:414
09/02/07 14:58:22
>>423
ありがとう。テーブルの幅を変えているからダメなんでしょうか？

何かやればやるほど色んな不具合が見つかり心が折れそうです
これは止めておいた方がいいスクリプトですかね（＾ω＾）

425:nobodyさん
09/02/07 17:41:10
いや言われたことやれよ・・・

426:nobodyさん
09/02/07 18:01:23
まあ、問題の切り分けをしようとも考えない>414にはお似合いのレベルだけどな。
image.jpgがスクリプトと同じディレクトリに無いだけ、に一票。
どう見えるかなんざ枝葉末節の問題に過ぎないんだから、HTMLソースどうなってるのか確認しろよ。

427:nobodyさん
09/02/07 18:40:53
設置することが最終目標の人たちに対して、
デバッグの仕方教えても仕方ないような気がしてきた。

428:nobodyさん
09/02/07 18:44:15
じゃ改造スレじゃなくて丸投げスレ行けと

429:414
09/02/07 19:01:15
>>425
テーブル幅・ファイルサイズを変えて色々試しました

ファイルサイズが関係無い事はわかったのですが
何がいけないかわからなかったです

>>426
422の現実は下記の間違いでした
■□×××

430:nobodyさん
09/02/07 19:47:38
>423
>表示してみなよ
>表示してみなよ
>表示してみなよ

>426
>HTMLソースどうなってるのか確認しろよ。
>HTMLソースどうなってるのか確認しろよ。
>HTMLソースどうなってるのか確認しろよ。

（日本語が分からないようなので3回言いました）

431:nobodyさん
09/02/07 20:07:27
>>428
丸投げスレとかあるのかｗ

432:414
09/02/07 21:09:57
>>430
表示された式をレスすれば解決してくれるの？

ソースを確認と言われても414のサイトにあるソースの
ファイルサイズとテーブル幅以外は変更してないので
確認して貰えれば助かるのですが？

433:nobodyさん
09/02/07 21:11:49
>>432
こちらのスレでどうぞ
ｽﾚﾘﾝｸ(php板)

434:nobodyさん
09/02/08 07:11:28
$bosyu の値が1ならば、登録フォームを表示させる。
0ならば、登録フォームを表示させない。
1か0かは、管理人用ページから設定することができる。　という感じでPerlを組みたいのですが、
まだまだ初心者でよく分かりません。
一応、
<input type=radio name=bosyu value=1>表示する
<input type=radio name=bosyu value=0>表示しない
というフォームを作り、登録フォームの表示部分に、
if ( $bosyu == 1 ){
　#登録フォーム
}
else {}
というようにしました。
しかし、管理人画面から1にしようが0にしようが、登録フォームはどのみち消えてしまいました。
この場合、どうしたらよいのでしょう？

もしよろしければ、
URLﾘﾝｸ(www.77c.org)
に本体をアップロードしましたので、修正箇所など教えていただけますと助かります。
私自身が追加しましたのは、行381,行382,行678,行683,行684　になります。

435:nobodyさん
09/02/08 07:13:19
ごめんなさい、忘れていました。

【.　 CGI名　.】　Annevote　Ver0.791
【配布先URL】　URLﾘﾝｸ(tackysroom.com)
【. 置き場所 .】　URLﾘﾝｸ(tackysroom.com)
【ヘルプ内容】
>>434

436:nobodyさん
09/02/08 09:39:47
>>434
ｽｸﾘﾌﾟﾄを全部見る気はないんで間違っているかもしれんが

684行
　　　　else {}
→不要

678行
　　　　if ( bosyu == 1 ){
→if ( $FORM{'bosyu'} == 1 ){

437:436
09/02/08 10:47:01
あはｗ
>>436は間違ってるわｗ
設定を別ファイルとかに記録しておかないとダメ!! ゛o(≧◇≦*)oo(*≧◇≦)o″ダメ!!じゃんｗ

考え方としては
&decode ;の後に
$FORM{'bosyu'}の値が「表示しない」なら別ファイルとかに表示しないという記録をして
$FORM{'bosyu'}の値が｢表示する｣なら別ファイルとかに表示するという記録をする

678行目のif文では、別ファイルとかに表示するという記録があるかないかで分岐させればいい

438:nobodyさん
09/02/08 11:47:45
>>437　さん
ありがとうございます。
大体構造は理解できました。
if文で変数に値を入力する為には、「記録する」という別の処理が必要なのですね。
まことにお恥ずかしい話ですが、記録させるソースの書き方が分かりません・・・
例として、記録させるためのソースを教えていただけませんか？
（プログラム内容に沿っていなくても構いません。全体的に「どんな感じ」で書けばいいのか掴めれば幸いです。）

439:nobodyさん
09/02/08 15:15:31
>>438
考え方は排他制御を参考にすればいい
$FORM{'bosyu'}の値が「表示しない」ならロックファイルみたいなものを作成し、
$FORM{'bosyu'}の値が｢表示する｣ならロックファイルみたいなものを削除する
if文はロックファイルみたいなものが存在していなかったらブロックを実行すればよい

annevote.cgiにもロックファイルが使われているからソースをよく読んで自分考えれ

440:nobodyさん
09/02/12 16:19:46 KnJ40Ap9
【.　 CGI名　.】　favicon.cgi
【配布先URL】　URLﾘﾝｸ(blog.dtpwiki.jp)
【ヘルプ内容】　O_SHLOCKとO_EXLOCKが使えないサーバでロック処理をしたい

上記スクリプトをcoreserverに設置し、
URLﾘﾝｸ(MYDOMAIN.com) などとして呼び出した結果、

Software error:
Your vendor has not defined Fcntl macro O_SHLOCK, used at /virtual/MYDOMAIN/public_html/test/favicon.cgi line 97.

とエラーが出ます。
O_SHLOCKを削除してテストを続行すると、次はO_EXLOCKが使えないとのエラー。
coreserverのOSがLinuxなので使えないようです。
URLﾘﾝｸ(www.coreserver.jp)

エラーが出る部分を、Linuxで使えるロック処理にするにはどうすればいいのか、
どうぞご教示ください。

次ページ