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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 02/23 15:56 / Filesize : 341 KB / Number-of Response : 991
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：sage mailto:sage [04/02/23 17:36 ID:???]: #================================
# スレッドの説明
#================================

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

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

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

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

前スレ　pc2.2ch.net/test/read.cgi/php/1063780103/
52 名前：47 mailto:sage [04/03/16 20:57 ID:???]: ＞48
ありがとうございます。
画像アップ数の件については、TRY&ERR繰り返して、現在仮設置でテストした段階ではうまく動作してますので、大丈夫だと思います。

自動縮小の件については、”Image::Magick”というものがわからないので、今夜にでも調べておきます。
一応、絵日記ですので、範囲内の画像はそのままで表示したいというのと、サーバ容量節約の意味もあり、
サムネイルを別に生成するということなら、避けたいかなと現段階では思っております。
53 名前：47 mailto:sage [04/03/16 20:58 ID:???]: ↑
４８さんじゃなくて、＞５０さんでした。
すんません。
54 名前：nobodyさん mailto:sage [04/03/16 21:14 ID:???]: ★三　【スクリプト改造工房 PART 8 】　★三
pc2.2ch.net/test/read.cgi/php/1077525387/l50

【スクリプト改造依頼スレ】(丸投げ)
pc2.2ch.net/test/read.cgi/php/1076831972/l50

上記２つの改造スレの棲み分けについて。

> 何行目にこのソースを組み込めとか、そういったアドバイスがいただければ
これを望んでいるのなら、丸投げスレです。
55 名前：47 mailto:sage [04/03/16 21:18 ID:???]: わかりました、4スレ目いってきます・・。(´･ω･`)
56 名前：nobodyさん [04/03/18 14:02 ID:PjZX6E/F]: すいません　おしえてください。
掲示板CGIで
print "$data->[4]/$data->[5]\n";
というラインで
ログデータから日付と時刻を取得し表示しているんですが、
この表示結果は
2004/03/18/09:11:57
という表示形式で表示されるのですが、
これを
3/18 09:11
にするにはどうしたら良いのでしょうか？
VBでいう所のFormatみたいな関数があるんでしょうか？
57 名前：nobodyさん mailto:sage [04/03/18 14:12 ID:???]: >>56

>>1
58 名前：nobodyさん mailto:sage [04/03/18 19:45 ID:???]: >>56
全体晒さにゃどうにもならん。
最低でもその前後十行は必要。
59 名前：nobodyさん mailto:sage [04/03/19 10:21 ID:???]: （1/2）こんにちは、質問いたします。
URL転送サービスを利用しようと思っているのですが、リファがうまくとれません。

URL転送サービス　→　フレーム式　ttp://www3.to/
アクセス解析　→　有限工房　アクセス解析
ttp://yugen.main.jp/about/fstat.html

解析を貼る場所に、このjsをはりつけるのですが
<SCRIPT language="JavaScript">

</SCRIPT>
60 名前：nobodyさん mailto:sage [04/03/19 10:23 ID:???]: (2/2) 私のｻｲﾄはトップページ自体がフレームということもあり、
お気楽極楽スクリプト→フレームを利用したページにアクセス解析を設置する
ttp://www.bayashi.net/st/pdmemo/frmaxs.html
を参考にして、

<SCRIPT Language="JavaScript">

</SCRIPT>

このようにいたしました。

ところが、いざ動かしてみると「アクセスが拒否されました」と
＞　document.write(buf = escape(parent.document.referrer));
ここで、エラーが出てしまいます。
※URL転送（フレーム式）を使わなければ、エラーが出ずに処理できるのですが。

きちんとリファをとる方法がわかりません。どうぞよろしくおねがいします。
61 名前：nobodyさん mailto:sage [04/03/19 11:57 ID:???]: >>59-60

>>1
62 名前：nobodyさん [04/03/19 15:54 ID:SrVWHGyk]: こちらの書き込みでいいのかわからないんですが、質問です。。
ページ内検索で、検索結果の表示を横１列に結果が3つ入るように
┏━┳━┳━┓
┃１┃２┃３┃
┣━╋━╋━┫
┃４┃５┃６┃
┗━┻━┻━┛
こんなかんじで表示させたいと思っています。
検索エンジンcgiや、カゴレジなどの検索結果表示を見ても
横１列に商品が一つなので参考に出来ませんでした。。
KENTにもあったのですが、いろんな機能が追加でなされているので
判断しにくくて・・・。。すいません。

どこか参考になるサイト、またはいい検索用語など
ありませんでしょうか？
どのように検索したらいいか悩んでおります。。
なにかいいアドバイスをお願い致します。
63 名前：nobodyさん mailto:sage [04/03/19 16:05 ID:???]: >>62
<table>って知ってる？
64 名前：62 [04/03/19 16:09 ID:SrVWHGyk]: >>63
知ってます。
でも、３件で折り返す、という方法が
どうすればいいのかわからないんですが・・
65 名前：nobodyさん mailto:sage [04/03/19 16:18 ID:???]: ここは改造スレなんだが。
自分でやる上でのアドバイスが欲しいなら>>1をよく読め。
66 名前：62 [04/03/19 16:48 ID:SrVWHGyk]: >>65さん
申し訳ないです。
www.geocities.jp/hoge2009/test.txt
にUPしてみましたが、（さらにソースで表示しないとダメみたいです・・）
上記に追加しようと思っています。

完成イメージは
www.geocities.jp/hoge2009/newpage1.html
見たいな感じです。。

適当で申し訳ないです。
67 名前：nobodyさん [04/03/20 04:22 ID:GW6tuM2Y]: スイマセン質問させてください。

ttp://tackysroom.com/sample/smp_annecho.cgi

このCGIのスケジュール帳の、開いた時に表示される月を、当月でなく
他の月（例えば今なら5月とか）にしたいのですが、どこをどう
いじればよろしいでしょうか。

諸先輩方、お教えくださいませ。
68 名前：nobodyさん mailto:sage [04/03/20 11:23 ID:???]: >>67

>>1
69 名前：nobodyさん mailto:sage [04/03/20 12:19 ID:???]: >>62 >>66
#!/usr/local/bin/perl

use strict;
require 'cgi-lib.pl';
my $cgi = "kensaku.cgi";
my $file = "db.csv";
my %in;
&ReadParse(\%in);
print &PrintHeader();
#print &HtmlTop("");

print <<"_HTML_";
<HTML>
<HEAD>
<STYLE type="text/css">

</STYLE>
</HEAD>
70 名前：nobodyさん mailto:sage [04/03/20 12:21 ID:???]: <BODY style="padding-top : 0px;padding-left : 0px;padding-right : 0px;padding-bottom : 0px;margin-top : 0px;margin-left : 0px;margin-right : 0px;margin-bottom : 0px;">
<form action="$cgi" method="post" style="padding-top : 0px;padding-left : 0px;padding-right : 0px;padding-bottom : 0px;margin-top : 0px;margin-left : 0px;margin-right : 0px;margin-bottom : 0px;">
<input type="text" size=15 name="name">
<input type="submit" value="商品検索">
</form>
_HTML_

if ($in{'name'} ne ""){
　my $flag=0;
　my $found=0;
　open (IN,"$file") || &CgiDie ("データファイルが開けません。");
　while (<IN>){
　　chomp;
　　my ($name,$teika,$hanbai,$image) = split(/,/,$_);
　　if ($in{'name'} eq $name){
　　　if ($found == 0){
　　　　print qq(
<BR>
<TABLE border="0" cellpadding="0" cellspacing="0">
<TBODY>
);
　　　}
　　　if ($found % 3 == 0){
　　　　print qq(
<TR>
);
　　　}
71 名前：nobodyさん mailto:sage [04/03/20 12:22 ID:???]: 　　　print qq(
<TD>
<TABLE border="0" cellpadding="3" cellspacing="0">
<TBODY>
<TR>
<TD align="center" class="a"><IMG src="image/$image.jpg" border="1"><BR>
<BR>
<B><FONT color="#666666">商品名<BR>
<BR>
</FONT></B>
<TABLE border="0">
<TBODY>
<TR>
<TD align="right">定価：</TD>
<TD>$teika</TD>
</TR>
<TR>
<TD align="right">販売価格：</TD>
<TD><FONT color="#666666">$hanbai</FONT></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
);
72 名前：nobodyさん mailto:sage [04/03/20 12:24 ID:???]: 　　　$found++;
　　　if ($found % 3 == 0){
　　　　print qq(
</TR>
);
　　　}
　　　$flag=1;
　　}
　}
　close (IN);
　if ($flag == 1){
　　if ($found % 3 == 1){
　　　print qq(
<TD>
</TD>
<TD>
</TD>
</TR>
);
　　}elsif ($found % 3 == 2){
　　　print qq(
<TD>
</TD>
</TR>
);
　　}
73 名前：nobodyさん mailto:sage [04/03/20 12:24 ID:???]: 　　}
print qq(
</TBODY>
</TABLE>
);
　}
　($flag) || print "$in{'name'}はデータファイルにありませんでした。<p>\n";
}
print &HtmlBot();
exit;
74 名前：nobodyさん mailto:sage [04/03/20 12:27 ID:???]: 説明よりやったほうが早いから全部書いたけど丸投げスレのほうが良かったかも。
75 名前：67 [04/03/20 16:17 ID:GW6tuM2Y]: すいません>>67です。
再度質問です。

スクリプトはこれです。

ttp://hy-t.hp.infoseek.co.jp/sc.txt

これだけでいいでしょうか？
よろしくご教授お願いいたします。
76 名前：67 [04/03/20 16:25 ID:GW6tuM2Y]: あ、これって丸投げ行きなんでしょうか…
ｽﾚ違いなら移動します、すいません。
77 名前：nobodyさん [04/03/21 11:32 ID:J3gw5AMh]: ６２＞
掲示板みたいに縦一列に吐き出す香具師でも、CSS使えば横に並べ、
指定数で折り返す事もできるよ。

#wrapper{
width: 630px;
}

#box{
float: left;
width: 200px;
margin: 10px 5px 10px 5px;
padding: 0px 0px 0px 0px;
}

<div id="wrapper">
　　<div id="box">
　　　　コンテンツ
　　</div>
</div>

みたいな感じでさ。
ブラウザ選ぶかもしんないけど、漏れの環境（Win IE5 IE 5.5 IE6）
だと思うように表示されたからいいべ。
78 名前：nobodyさん mailto:sage [04/03/22 07:21 ID:???]: 皆様初めまして。

mo-mo.vis.ne.jp/chatread/mo-chat.htm
こちらで配布されているチャットで参加者表示の部分を
名前（状態）:名前（状態）
というように状態（ROM等）を表示させたいと思っています。
$nameを参考に$conを作って試行錯誤してみたのですが
自分の入力した状態が他の方の状態にも適用されてしまいます。
名前A（状態A）:名前B（状態B）としたい所が
名前A（状態A）:名前B（状態A）になってしまうといった具合で。

www.lislis.info/ichat.txt
余計な部分まで触ってあるかもですが・・・。
何卒ご教授お願い致します。
79 名前：nobodyさん mailto:sage [04/03/29 16:03 ID:???]: スクリプトを改造しているけどうまくできない場合のヘルプはこちらで。

配布先でアドバイスが得られない場合、ここで聞けば
親切な人が助言してくれるかもしれません。

依頼テンプレ

【.　 CGI名　.】　複数のバージョンがある場合には正確に　　　　　　　（必須）
【配布先URL】　教えてくれる人が参照する場合があるので　　　　　　（必須）
【. 置き場所 .】　配布先が閉鎖の場合、すぐ見られるようtxtなどで
　　　　　　　　　　upした場合、デザインをhtmlで作成した場合など　　（任意）
【ヘルプ内容】　どのように改造したくてどのようにうまくできないか　　（必須）
　　　　　　　　　　機能・動作などを簡潔かつ詳細に
80 名前：nobodyさん mailto:sage [04/03/29 17:00 ID:???]: >>79
改造中のスクも提出した方がいいな。
81 名前：nobodyさん mailto:sage [04/03/31 19:21 ID:???]: 【.　CGI名　.】　apeboard plus.cgi　　　　　　
【配布先URL】　www.2apes.com/
【スキン名】　イメージダイアリー　Ver.2
【配布先URL】　www.s-chimp.com/mc/
【. 置き場所 .】　ea.uuhp.com/~bluerose/cgi-bin/apeboard_plus.txt　(CGI)
　　　　　　　　　　ea.uuhp.com/~bluerose/cgi-bin/apeskin.txt　(スキン)
【ヘルプ内容】　過去ログを読もうとすると「/back」というファイルに飛ばされてしまい、
　　　　　　　　　　読むことができません。過去ログを読むようにするには
どこを改造すればいいのでしょうか？
　　　　　　　　　　スキンのデザインには多少手を入れましたが、CGIはほとんどいじってません。
　　　　　　　　　　よろしくお願いします。
82 名前：８１ mailto:sage [04/04/01 22:05 ID:???]: すいません解決しました…。
83 名前：nobodyさん [04/04/07 23:29 ID:opKZAzOm]: こっちは寂れているのぅ
84 名前：未承諾広告※ ◆TWARamEjuA mailto:sage [04/04/08 10:16 ID:???]: ま、ぼちぼちと行けばよいでしょう(^o^) ﾏﾀｰﾘ
85 名前：nobodyさん [04/04/09 22:18 ID:47xZN9AW]: 【.　 CGI名　.】　SmallPICT
【配布先URL】　hdml.cside.com/DLcgi/spict/
【ヘルプ内容】　spictlog.cgiに書き込む情報を追加したいが、うまく出来ない

pc.plのsub dispForm内に<input type='text' name='kaizou'>を追加し、
smallpict.cgiのsub doWrite内に<>$kaizou<>を追加するなどして動かそうとしたんですが、
投稿画面で入力したkaizouのデータがspictlog.cgiに書き込まれません。

改造漏れがあるんだと思い探し回ってみましたが、見つけることができませんでした。
具体的にやりたいのはPC上でのアイコン表示で、手動でログに<>*.gif<>と書き込んで記事上で表示させる改造はできましたが、投稿画面のデータをうまく渡す改造ができませんでした。

よろしくお願いします。
86 名前：nobodyさん [04/04/09 22:40 ID:ria3nPCP]: >>85
ログは<>区切りで書き込むところがあちこちあるようだけど
漏れなく全部に<>$kaizou<>を追加した？
もちろん読み込み時に<>でsplitする部分もあちこちあるから
そこにも受け取る変数を増やさなければならないが。
そういう部分はsmallpict.cgiだけじゃなくいくつものファイル内にあるぞ。
87 名前：85 [04/04/09 23:28 ID:47xZN9AW]: >>86
レスありがとうございます。

split(/<>/)とid<>で検索を掛け、引っかかった所で書き込みに関係あるところは<>$kaizou<>を追加しました。
投稿画面から投稿してFTPでログを落として書き込まれてるかを確認という方法でいじってるんですが、
$kaizouに上手くデータが渡ってないため、<><>とだけ書き込まれています。
読み込み部分はあっさり改造できたんですけどね・・・orz
88 名前：nobodyさん mailto:sage [04/04/09 23:59 ID:???]: >>87
フォームデコード部で受けた値は$in{'kaizou'}に入るようだが、
それを$kaizouに代入してるのか？
89 名前：85 mailto:sage [04/04/10 00:35 ID:???]: sub doWrite内の
$newUpwd = $in{'upwd'};の下に
$newkaizou = $in{'kaizou'};
を書き足し、
# 親記事の場合
# レス記事の場合
の最後を
<>$UNIQUEID<>$newkaizou<>\n");
としてあります。
お手数掛けますですorm
90 名前：nobodyさん mailto:sage [04/04/24 08:05 ID:???]: kentの夢カウンタなんですが、
（www.kent-web.com/count/dream.html）
時計表示という機能も付いてるんですが、
年、月、日、時、分　というデフォルト表示から
年、月、日（曜日）、時、分　に変更したいのですが、
どのようにすればよいでしょうか？
曜日表示は画像でなくてhtml出力でも構いませんので。
91 名前：nobodyさん mailto:sage [04/04/25 18:20 ID:???]: kentのPetitBoardの携帯対応版ってありません？
92 名前：nobodyさん mailto:age [04/04/25 18:23 ID:???]: 　
93 名前：nobodyさん [04/04/26 00:12 ID:WNaDiJfM]: www.kent-web.com/bbs/joyful/joyful.cgi

joyful.cgiの投稿画面を別のページにしたいのですが
そこで↓ここで改造版をみつけたのですが、
www.handley2.fsnet.co.uk/graphic/cgi.html
名前欄だけを増やしたいのです。
投稿画面にも名前欄を増やし、ログにも$nameで追加したのですが
かきこまれません。
94 名前：nobodyさん mailto:sage [04/04/26 01:05 ID:???]: >>90
dream.cgiのsub get_timeでlocaltimeを[1..5]だけ受けているから曜日の分も
受け取って使えばいいだけ
95 名前：nobodyさん mailto:sage [04/04/26 01:10 ID:???]: >>93
投稿画面が別のページの改造版ってどれのことだ？
それに改造したコードも晒さずに言われても間違っているか足りないから
としか言いようがない
96 名前：93 mailto:sage [04/04/26 01:39 ID:???]: あ。
ここの
www.handley2.fsnet.co.uk/graphic/cgi.html
violet diaryってやつです。
97 名前：nobodyさん mailto:sage [04/04/26 02:00 ID:???]: で、ログに追加する$nameっていうのはどうやって得ているんだ？
sub decodeを見ればわかるがフォームに追加した項目に相当する
$in{'キー'}に入っている値を$nameへ代入しているのか？
98 名前：nobodyさん mailto:sage [04/04/26 02:39 ID:???]: スクリプト：PHPぁぷろだ（シンプル版）
ソース：php.s3.to/bbs/bbs5.php
　　　　　up.zip内のupload.php
配布元：ttp://php.s3.to/
ヘルプ内容：
元の仕様ではダメ文字（ソや表など）をファイル名に入れると
拡張子より前のファイル名が消えてしまいます。
例：ソース.jpg　→　.jpg

↓ここでは消えてしまいます
php.s1.xrea.com:8080/upup/

しかしながら、このスクリプトを使ってこの問題を回避している
サイトを見つけました。

↓ここでは消えません
ttp://cgi.f7.aaacafe.ne.jp/~ohfuji/phpup/upload.php

このように消えないようにするにはどのように改造をすれば良い
のでしょうか。
文字列をいじるのか、エンコード設定をいじるのか・・・イマイチ
良く解っておりません。

よろしくお願いします。
99 名前：nobodyさん mailto:sage [04/04/26 02:44 ID:???]: >>98
配布元に「ﾊﾞｸﾞ報告、要望、その他突っ込みは掲示板へどうぞ」と書いてあるが
100 名前：98 mailto:sage [04/04/26 02:45 ID:???]: 慌てて微妙にリファ切り抜けてました・・・ﾄﾎﾎ
101 名前：98 mailto:sage [04/04/26 02:50 ID:???]: >>99
深夜に即ﾚｽありがとうございます。

配布元で聞いてみます。
102 名前：nobodyさん mailto:sage [04/04/26 17:35 ID:???]: 【.　 CGI名　.】　One Line BBS

【配布先URL】　dream.lib.net/room/cgi/e_linebbs.html

【ヘルプ内容】

ここの一行掲示板、レスが古い順に並ぶようになっているのですが、
これを新しい順に並ぶように改造できませんでしょうか。
103 名前：nobodyさん mailto:sage [04/04/26 17:45 ID:???]: >>102
できますがそれがどうかしましたか？

（´-｀）.｡oO(ここは丸投げスレじゃないからなぁ…)
104 名前：103 mailto:sage [04/04/26 17:54 ID:???]: 過疎板だからお客さんは大事にしないといけないなと反省。

>>102
pc5.2ch.net/test/read.cgi/php/1063780103/110
ここで>>102と同じ依頼をしている香具師がいる。
pc5.2ch.net/test/read.cgi/php/1063780103/111-120
あたりを参考にすれ
105 名前：102 mailto:sage [04/04/26 18:25 ID:???]: >>103=104
どうもすみません、ありがとうございます。
参考にします。
106 名前：nobodyさん mailto:sage [04/04/27 01:41 ID:???]: (103はいいやつだなあ
107 名前：nobodyさん mailto:sage [04/04/27 23:57 ID:???]: なんか微笑ましいな。。。
108 名前：ken ◆fmJRnC5rvE [04/05/02 11:01 ID:DCaidvkb]: 配布先:dream.lib.net/room/に配布されているICHAT
ソース:com.s66.xrea.com/ichat.txt
改造してほしい内容:
参加者表示の部分を
名前（状態）:名前（状態）
というように状態（ROM等）を表示させたいと思っています。
109 名前：nobodyさん mailto:sage [04/05/02 11:08 ID:???]: >>108
ここは自分で改造する人がアドバイスを受けるスレ。

■ 自分で改造できない場合には
【スクリプト改造依頼スレ】(丸投げ)
pc5.2ch.net/test/read.cgi/php/1076831972/324（テンプレ）
110 名前：nobodyさん [04/05/08 15:03 ID:jodQmWfe]: WebProg初心者から流れてきました。お願いします。
プロフィール登録CGIを探しています。がらくたBOOK(tinkle.cside.com/book/)さんの「すぽっとりんく」に画像アップロード機能が無かったので、
とほほさんのところで配布している「wwwupl2」を組み込んでみようとしたのですがうまく出来ません。

本来ならバナー登録部分に「<INPUT type=\"file\" name=\"AAA\" size=\"40\">」として直接アップさせたかったのですが、うまく動作しませんでした。
そこで、ちょっと方法を変えいくつかの実験をしてみました。
まず、「wwwupl2」を丸々コピーして「spotlink.cgi」内に「sub up{ }」として記入。（もちろん#!/usr/local/bin/perl等は削除）
元々の登録サブルーチン「sub new_entry { }」を「sub new_entry_of_main { }」として退避。
新しく登録サブルーチン「sub new_entry { }」を作り、
print "<FORM method=\"$method\" enctype=\"multipart/form-data\" action=\"$script\"><BR>\n";
print "<input type=hidden name=mode value=\"up\">\n";
print "<INPUT type=\"file\" name=\"AAA\" size=\"40\"><BR>\n";
print "<INPUT type=\"submit\" value=\"送信\"></FORM>\n";
（一部抜粋）を作成。
メインプログラムに「　elsif ($mode eq "up"){&up;}　」を追加。
でも、こうすると、送信を押してもトップ画面（一覧を表示する通常表示画面）に行ってしまいます。
で、何が悪いのかが良くわからなかったため、
<FORM method=\"$method\" enctype=\"multipart/form-data\" action=\"$script\">
これを
<FORM method=\"$method\" action=\"$script\">
こうすると、ファイルはアップされないのですが、「sub up { }」に移動します。（「下記のファイルを受け取りました」だけ表示。）
一体どうしたら良いのでしょうか？
中途半端ですが、ファイルをアップします。
www.geocities.co.jp/SiliconValley/9193/spotlink.txt
出来るなら、バナー登録部分を「<INPUT type=\"file\" name=\"AAA\" size=\"40\">」として直接アップする方法を教えていただきたいです。
お願いします。
111 名前：nobodyさん mailto:sage [04/05/08 17:50 ID:???]: >>110
multipart/form-data をデコードしていないから。
CGI.pm でも入れてみれば？

(´-`).｡ｏＯ(相変わらずグタグタやねぇ。。。> と)
112 名前：>>110 mailto: [04/05/09 01:15 ID:???]: >>111
返答ありがとうございます。
>CGI.pm でも入れてみれば？
って事なんですけど、とりあえず、CGI.pmは同じフォルダに入れました。
で、
require './CGI.pm';
として見ましたが状況に変化無しです。
何がいけないのでしょう。
お願いします。
113 名前：nobodyさん mailto:sage [04/05/09 01:47 ID:???]: もじゅーるロードは use を使う。
use CGI;

perldoc -m CGI
114 名前：nobodyさん mailto:sage [04/05/09 04:37 ID:???]: Yomi-Search
モバイル型
115 名前：nobodyさん mailto:sage [04/05/09 04:41 ID:???]: >>114
それがどうかしましたか？
116 名前：nobodyさん mailto:sage [04/05/09 04:58 ID:???]: >>115
丸投げスレじゃないのに丸投げしちゃいました
丸投げスレでもこれじゃあ叩かれますが・・・すいませんでした
117 名前：>>110 mailto: [04/05/09 11:37 ID:???]: >>113
またまた返答ありがとうございます。
やはり状況に変化無しです。
何か根本的に間違っているのでしょうか…
ファイルアップして置きます。

tool-ya.ddo.jp/2ch/trash-box/file/20040509113059336.txt

CGI.pmのパーミッションは644でいいですよね?
118 名前：nobodyさん mailto:sage [04/05/09 11:59 ID:???]: >>117
perldoc -m CGI ;

おいおいおーい
119 名前：>>110 mailto: [04/05/09 12:17 ID:???]: >>118

??
ごめんなさい。まったく意味がわからないのですが、不必要って事なんですか?
120 名前：nobodyさん mailto:sage [04/05/09 12:31 ID:???]: >>119
うむ、
コマンドで打ち込んでごらん、説明が出るから
121 名前：nobodyさん mailto:sage [04/05/09 12:34 ID:???]: perlがインストールされてるマシンで
perldoc -m CGI
で、CGI.pmについての解説が読める。

つまり、それを読んでdecode部とかをmultipart/form-dataを処理するように自分で書き換えましょう、と。
sub decodeで何をやってるか理解できる程度の知識は必要だな。
あ、一応言っておくが、数行追加した程度では無理だぞ。数十行の書き換えが必要。
122 名前：nobodyさん mailto:sage [04/05/09 12:36 ID:???]: それにCGI.pmは標準モジュールぢゃ。
わざわざ>>119がUPする必要も無かろう。
123 名前：nobodyさん mailto:sage [04/05/09 12:42 ID:???]: ついでに
use CGI;
の下に
use CGI::Carp qw(fatalsToBrowser);
と書いておくがよい。
素人には役に立つおまじないぢゃ。
124 名前：>>110 mailto: [04/05/09 13:04 ID:???]: >>121
何度も回答ありがとうございます。

>sub decodeで何をやってるか理解できる程度の知識は必要だな。
えーと、理解出来てるわけではないので無理だと思います。(T.T)

何度かのやり取りでわかっていただけるかと思いますが、私に出来る事と言えばせいぜい他のCGIから
コピペして帳尻を合わせる程度です。

方法を丸々教えていただくわけには行かないでしょうか?
宜しくお願いします。
125 名前：nobodyさん mailto:sage [04/05/09 13:36 ID:???]: >>124
だから CGI.pm を読みましょうと云っているわけです。
ここはそういう主旨のスレッドですから。
126 名前：>>110 mailto: [04/05/09 13:55 ID:???]: >>125
では、もう少し努力して見ます('◇';ゞ

>perlがインストールされてるマシンで
>perldoc -m CGI
>で、CGI.pmについての解説が読める。

これは自分のPCでと言う事ですか?それともレンタルサーバでって事でしょうか?
・・・
えーと、バカな事やってるなぁって笑わないでくださいね（;´Д｀）
コマンドプロンプト(XP)からCGI.pmがある場所に移動して「perldoc -m CGI」ってやって見ましたが
だめでした。

借りてるサーバはロリポップです。どこでどうしたら良いのでしょう?
お願いします。
127 名前：nobodyさん mailto:sage [04/05/09 14:10 ID:???]: CGI.pm multipart でググれ
128 名前：nobodyさん mailto:sage [04/05/09 17:04 ID:???]: >>126
おまいはローカルに開発環境が無いのか？
まさか、
ローカルでスクリプトを編集→FTPでUP→500エラー→(◎_◎)　→最初に戻る
してるんじゃないのか？

行き詰ったらこちらへどうぞ。
【スクリプト改造依頼スレ】(丸投げ)
pc5.2ch.net/test/read.cgi/php/1076831972/l50
優しい神様が居られるといいですね♥
129 名前：>>110 mailto: [04/05/09 22:38 ID:???]: >>128
>ローカルでスクリプトを編集→FTPでUP→500エラー→(◎_◎)　→最初に戻る
その通りです(T^T)

【スクリプト改造依頼スレ】(丸投げ) に逝ってきます。
130 名前：ぷーた [04/05/09 23:44 ID:zdsKN9LG]: カウントアップするときに数値を1～9の間でランダムにカウントアップ
させたいのですが、どうすればよいのかわからないのですがだれか教えてくれませんか？

if ($voteflag){
open (IO,"+<$datadir/$id.dat");
eval{flock(IO,2)};
@temp1 = split(/<>/,<IO>);
@temp1 = split(/<>/,&backupload($id)) if $temp1[0] eq "";
if ($temp1[0] ne "datamissing"){
#$temp1[0] = time();
$temp1[11]++;
$temp1[13]++;
$temp1[15]++;
truncate(IO,0);
seek(IO,0,0);
foreach(@temp1){print IO $_."<>";}
close(IO);
}else{
close(IO);
&syslog("AUTO","<font color=purple>データ消失(ID:$id)</font>");
&dataerase($id);
}
}
131 名前：nobodyさん mailto:age [04/05/09 23:59 ID:???]: $count+= substr('123456789', int(rand(9)), 1);
132 名前：ぷーた [04/05/10 00:20 ID:J17kBtwc]: どうもです。　早速やってみます。
133 名前：ぷーた [04/05/10 00:29 ID:J17kBtwc]: う～ん上記のスクリプトにどう埋め込んだらよいかわかりません。。
だれか助けて。。
134 名前：nobodyさん mailto:sage [04/05/10 00:42 ID:???]: datのうち、どの部分が「カウント」なのか分からんとどうしようもない。
っつうか、勉強する気がない奴は丸投げスレへ。
135 名前：お願いします [04/05/10 22:25 ID:VaFCZTZV]: ttp://www.booboo.ne.jp/contents/cgi/program/analyz/index.html
にある、BooGetData ver1.00というスクリプトについてアドバイスをお願いします。

このスクリプトは、フォームから受け取ったデータを
CSVファイルに追記保存していくというものです。

このスクリプトに、
・書込むCSVファイルの内容が消えないようなファイルロック機能と、
・管理者へフォームから受け取ったデータをメールで送信する機能を
つけたいと思っています。
flock関数やsendmailの使い方がよくわからないので出来ませんでした。
perlを初めてからまもなく知識には乏しいですが、
頑張って理解していこうと思いますのでお願いします。

ファイルアップしておきます。
ttp://tool-ya.ddo.jp/2ch/trash-box/file/20040510222032501.txt
136 名前：お願いします mailto:sage [04/05/10 23:20 ID:???]: 自分でファイルロック処理だけ書いてみたのですが、
112行目からを

sub outputdata{
# 現在の時間を取得
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year += 1900;
$stmp = sprintf("%04d/%02d/%02d-%02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);

open (DAT,">>$output");
&body;
flock(DAT,2);
print DAT "$body,$stmp\r\n";
flock(DAT,8);
close (DAT);
}

こうしてみました。これだけでいいのでしょうか？
137 名前：お願いします mailto:sage [04/05/10 23:20 ID:???]: すみません、間違えました…
112行目からじゃなくて102行目からでした。
逝ってきます。
138 名前：nobodyさん mailto:sage [04/05/10 23:31 ID:???]: >>136
＞flock(DAT,8);
これはいらない。

sendmailのサンプルはすぐ見つかるからがんばれ。
139 名前：nobodyさん mailto:sage [04/05/10 23:46 ID:???]: 追加書き込み（>>）ならファイルロックしなくても普通は飛ばないけどね。
&bodyはopenの前にしておいた方がいいと思う。
みんなが使うファイルを手に持ったまま関係ない仕事をするのはマナーが悪い。
140 名前：お願いします mailto:sage [04/05/11 00:12 ID:???]: >>138-139
ありがとうございます。flock(DAT,8)を消すのと、
&bodyの位置を変えます。

正直なところ、&bodyがなんなのかすらわかってません(T-T)
141 名前：お願いします mailto:sage [04/05/11 01:44 ID:???]: 色々調べつつ下記の様に書いて見たんですが、全然メール来る気配なしです。
何が間違ってるのか全然わかりません。

sub outputdata{
# 現在の時間を取得
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year += 1900;
$stmp = sprintf("%04d/%02d/%02d-%02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);

&body;
open (DAT,">>$output");
flock(DAT,2);
print DAT "$body,$stmp\r\n";
close (DAT);

#メール送信
$myaddress = 'xxx@xxxx.com';
open(MAIL,"|$sendmail $myaddress");
print MAIL "Subject: title\n";
print MAIL "$body,$stmp\n";
close(MAIL);
}
これではダメなのでしょうか？
142 名前：nobodyさん mailto:sage [04/05/11 02:44 ID:???]: >>141
sendmail へのパスが設定されていないから？> $sendmail の中身は？
あと、 man sendmail して使用上の注意をよく読んでお使い下さい。
143 名前：nobodyさん mailto:sage [04/05/11 09:29 ID:???]: >140
サブルーチン。調べてみるとひとつレベルが上がると思う。
とりあえずsub bodyでファイル内を検索してみな。

sendmailについては使えない鯖も多い。
どのみちsendmailのパスが分からないと使えないので、ページ置いてる鯖のFAQとかを嫁。
144 名前：お願いします mailto:sage [04/05/11 13:56 ID:???]: $sendmailのパスは上の方に書いてあります…。
今はWIN機で書いているので、
$sendmail
145 名前：nobodyさん mailto:sage [04/05/11 19:44 ID:???]: print MAIL "Subject: title\n";
を
print MAIL "From: $myaddress\n";
print MAIL "To: $myaddress\n";
print MAIL "Subject: title\n\n";
に書き換え、でどうよ。
146 名前：nobodyさん mailto:sage [04/05/11 19:53 ID:???]: いや、
open(MAIL,"|$sendmail $myaddress");
ここが間違ってないか？

とあるスクリプトの該当部分を貼っておく
参考しる

open(MAIL,"| $sendmail -t") or &error("sendmailの起動ミス");

print MAIL "To: $mailto\n";
print MAIL "From: $mailfrom\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain; charset=iso-2022-jp\n";
print MAIL "\n\n";
print MAIL "$body\n";

close(MAIL) or &error("メールの送信ミス");
147 名前：nobodyさん mailto:sage [04/05/11 19:58 ID:???]: >146
sendmail -t
To: hogehoge@hoge.com
（略
と、
sendmail hogehoge@hoge.com
To: hogehoge@hoge.com
（略
は全く同じ。sendmail -tの"-t"の意味、分かってないだろ。
ま、鯖側で-tオプションをつけて起動する事を義務付けてる可能性も無くはないけどな。
148 名前：146 mailto:sage [04/05/11 20:08 ID:???]: >147
意味わかってなかった。ありが㌧
149 名前：お願いします mailto:sage [04/05/14 01:20 ID:???]: 色々な助言ありがとうございます。
自分なりにも色々いじってみたんですが、
どうしても出来ませんでした。

今やってたのは「フォームから受け取った
データをCSVに保存するCGIにメール機能をつける」
だったんですが、考え直しまして、
「普通のフォームメールにCSV保存機能をつける」
に方向転換しようかと思います。
こっちの方が簡単なんじゃないかと…
150 名前：nobodyさん mailto:sage [04/05/14 01:31 ID:???]: まあそうしたいならそれでもいいけど。
できなかったでやめていたらいつまでたってもできないぞ。
それに何がどうできなかったか書かなければアドバイスだってしようがない。
151 名前：nobodyさん mailto:age [04/05/16 08:38 ID:???]: 質問させていただきます。
KENTWEBで配布しているYYCHATなんですが、
発言の文中にURLが表記されたときに自動にリンク貼れるように改造したいのですが、

if ($com) { $com ="＜a href=\"$com\" target=\"_blank\">$com＜/a>\n";}　（397行目あたり）

というスクリプトにすると普通の文章までリンクしようとしてしまいます。
URLだけリンク貼れるようにするにはどの辺りを直せばいいのでしょうか？
よろしくお願いします。
152 名前：nobodyさん mailto:sage [04/05/16 09:09 ID:???]: お前面白いな
ネタにマジレス
URLだけならURLを抜き出せ
当たり前だろ

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef