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

★三　【スクリプト� ..

894:nobodyさん
06/02/16 11:02:10 eLE66xLL
# 管理用パスワード & 管理人名
$masterpass = '0123';
$mastername = '管理人';

# ID生成
if($in{'pwd'}) {
$id = substr(crypt($in{'name'}, '$1$' . $in{'pwd'}), -10);
if ($in{'pwd'} == $masterpass && $in{'name'} == $mastername) { $id = 'Master'; }
$date = "$date ID:$id";
}

っと書いてある物をaskabbsに書き込み使用しています。

ですがこれを.txtか何かにして他の人たちにも使ってもらいたいのですがどのようにしたら出来るのでしょうか？
よろしくお願いします。

895:nobodyさん
06/02/16 11:15:31
↑どこかのスレで見かけたぞ
マルチうぜえ。

>これを.txtか何かにして
アフォか。perlについてちっとは勉強してからこいっての。

896:nobodyさん
06/02/16 11:16:37
一部分を見せられても訳わからんし、第一何がしたいのかも良くわからん。
もう一回出直してきた方がいいかも。

897:nobodyさん
06/02/16 12:29:19 0NGzx21f
はじめまして。
URLﾘﾝｸ(tackysroom.com)
こちらのサイトで配布されている
『スキスキ２』というCGIについてですが、
途中の質問に画像をアップロードする機能を付けるよう改造したいと思っています。
色々調べてみて、フォームを付けてみたりしたのですが、
なにをしてもエラーが出てしまいます･･･
どのように改造したらアップロードできるようになるのでしょうか。
アドバイスよろしくお願いします。

898:nobodyさん
06/02/16 15:21:16
>894
ろくに知識もないのに何かを配布するとかやめろ。マジ迷惑。
やりたいなら、しっかり勉強して、配付するものの内容や配布の仕方・使い方等、
お前自身で使う人たちのサポートがきちんとできるレベルの知識をつけてからにしてくれ。

899:nobodyさん
06/02/16 15:37:32
お前らは黙って答えてればいいお(^ω^#)ﾋﾟｷﾋﾟｷ

900:nobodyさん
06/02/16 15:59:18
>>897
自分がどのような改造を施したのかスクリプトをうｐしなさい。
話はそれからだ。

901:改造依頼です
06/02/16 17:48:39 vUs8kAED
CJ-CLUBのChild Treeをトリップ実装したいのですが・・。
配布元はURLﾘﾝｸ(www.cj-c.com)です。

CJ-CLUBのサポート掲示板のログを見て参考にしたのですが、出来ませんでした。
URLﾘﾝｸ(www.cj-c.com)
これは同じ配布元のI-BOARDのスクリプトなので多少の違いがあるんだと思うんですが・・。

サポート掲示板にあったサブルーチンだと、500エラーが起こったので他の掲示板のサブルーチンから引用して↓のようにしました。
sub trip {
local( $data ) = @_;
$data =~ s/◆/◇/;
if ($data =~ /(#|＃)(.+)$/) {
$tripword = $2;
$salt = substr($tripword."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$c_tripword = substr(crypt($tripword, $salt),-8);
$data =~ s/(#|＃)(.+)$/◆$c_tripword/;
}
return $data;
}

すると、「名前◆トリップ」と表示されるのではなく、ただ「名前」しか表示されませんでした。
私はPerlの知識が全く無いので、これ以上何をやっていいのかがわかりません＾＾；
どなたか教えていただけないでしょうか？

902:nobodyさん
06/02/16 18:01:53
>>901
ｽｸﾘﾌﾟﾄを見ずにﾚｽ

print 名前;
の所を
print &trip(名前トリップキー付);

903:901
06/02/16 18:28:59
>>902
らしき部分は３つ見つけたんですが・・・。

print"/ $rname ($rd) $yobi#$rnam $re$Pr\n";

print"<a href=#$nam>$news $d_may</a>\n";

print"/$name ($date) $yobi#$nam $end$Pr</td></tr><tr><td nowrap>\n";

この３つどれをそう変えてもトリップは表示されませんでした。
あと、名前欄に◆と入力しても◇にならないんですが・・・。

904:nobodyさん
06/02/16 18:38:13
>>903
それをおまいはどのように書き換えたのか書いてみろ

905:901
06/02/16 18:42:59
$rname →　&trip($rname);
$nam →　&trip($nam);
$name →　&trip($name);

です。
一つ一つ試してみたんですが、全部ムリでした。

906:nobodyさん
06/02/16 18:55:08
>>905
あーごめんごめん、
ﾛｸﾞﾌｧｲﾙに書き出す前にﾄﾘｯﾌﾟｷｰをﾄﾘｯﾌﾟに変換してﾛｸﾞに書き出せばいいんじゃないかな。
表示部分でやってもﾀﾞﾒだ。
管理人にﾄﾘｯﾌﾟｷｰを抜かれる。

907:901
06/02/16 19:14:03
>>906
すいませんその方法がわからないです＾＾；
Perlプログラムの知識は全く無いんで。
基礎用語が少しだけわかる程度です。

908:nobodyさん
06/02/16 19:21:19
>>907
じゃ、なんでこのｽﾚに来たんだよ。
このｽﾚはｱﾄﾞﾊﾞｲｽをもらって自分で何とかするｽﾚ。
お前はこっちに逝け！
【スクリプト改造依頼スレ】(丸投げ) part4
ｽﾚﾘﾝｸ(php板)

909:901
06/02/16 19:28:29
了解。スレ違いでしたか＾＾；
すいませんでした、移動します。

910:nobodyさん
06/02/18 06:17:16
URLﾘﾝｸ(www.rescue.ne.jp)
を改造しようと思うんですが都道府県　男女別年齢層　の部分を削除するにはどうすればいいですか？
つまりニックネームだけの検索に改造しようと思ってます
ソースはこんな感じです↓

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error('エラー','使い方が間違っています.'); }

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

($name,$value) = split(/=/, $pair);
$name2 = $name;
$value2 = $value;
$FORM2{$name} = $value;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'euc');

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\t//g;
$value =~ s/\,//g;

#フォーム変数へ
$FORM{$name} = $value;

911:nobodyさん
06/02/18 06:18:30

if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
@BASE = <IN>;
close(IN);

if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }
$hit = 0;
$next_num = '';

foreach $num ($FF .. $#BASE) {

$data = $data2 = $BASE[$num];
&jcode'convert(*data,'euc');
($d,$DATE,$NAME,$EMAIL,$SEX,$AGE,$HANDLE,$PREF,$REM) = split(/\,/,$data);

# 都道府県(一致)
if ($AGE eq $FORM{'AGE'}) { ; } else { next; }
＜＜＜　中略　＞＞＞

# ニックネーム(マッチ)

if ($FORM{'HANDLE'} ne '') {

if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'HANDLE'}/i) { ; } else { next; }
}

# 検索終了処理
if ($hit == $page) { $next_num = $num; last; }
else { push(@NEW,$data2); $hit++; }
}

912:nobodyさん
06/02/18 22:59:32
>>910-911
index.htmlの該当部分selectタグを削除。
内部処理までも削除したいならレスして。

913:nobodyさん
06/02/19 14:52:19 U1Aplwrb
他スレで質問しましたら、こちらに誘導されましたので質問させていただきます。

【.　 CGI名　.】　T-Chat 2
【配布先URL】　URLﾘﾝｸ(www.mytools.net)
【. 依頼内容】　チャットの投稿した文字が発言画面に反映される文字数100文字以内、または5行程度に制限したい場合どの場所を変更すればいいのでしょうか？
テキストを　URLﾘﾝｸ(ytamago.hp.infoseek.co.jp)　にアップしましたので、どうかアドバイスお願いします。

914:nobodyさん
06/02/19 16:59:30
>>913
210行目のadd_newdataのサブルーチンの中で、
length ($chat) >= 200 # 単純に日本語一文字2バイトと計算
($chat =~ /\n/) >= 5 # 改行文字が何個あるか
とか使って好きなように制限して下さい。

915:913
06/02/19 21:07:39 sC6i+j2R
>>914
ありがとうございます。早速書き換えしてみたのですが、エラーが出ます。
私の書き方で不自然な箇所はありますか？

##### 新しいデータの追加
sub add_newdata{
length ($chat) >= 200 #
($chat =~ /\n/) >= 5 #
($chat && $cname) || return;

if($url && $url ne 'http://'){
$linkto="<a href=\"$url\">$linkcharacter</a>";
}
$newdata = "$cname : $linkto $chat [$date_now] \n";

while(@datas > $maxlines - 1){
pop(@datas);
}
unshift(@datas, $newdata);
$update_flag = 1;
}

916:nobodyさん
06/02/19 22:32:21
>>915
せめて、if () {} ぐらいの形にはしておこうよ。

917:nobodyさん
06/02/25 12:08:29
(1)有名ブラゲの俺のペナント２です。
配布元：バンプの部屋URLﾘﾝｸ(bannpu.com)
該当するスクリプトのみこちら↓にアップしました。
URLﾘﾝｸ(www.geocities.jp)

(2)名無しが40歳以上になったら勝手に引退するように。
プログラムで言うと$sakusyaが$no_playerで$nenreiが40以上の場合に、¶paraを実行できれば良いらしいのですが…。

if(($sakusya[$i] eq $no_player[$i]) && ($nenrei[$i >= 40])){
¶para;
}

をどこかに挿入すればいいことまでは分かったのですが、どこに入れればいいのか分からなくて。
どなたか分かる方、お願いします。

918:nobodyさん
06/02/25 12:12:45
↑文字化けすみません。
¶para;は＆ｐａｒａｐａｒａ；の半角で。

919:nobodyさん
06/02/26 12:46:22
誰かあぼーん機能付けてる人いる？
そういうのがググってもなかなか見つからないんだけどさorz

920:nobodyさん
06/02/26 20:31:09 qTrOQ0Y+
>>919
早く死ねば？

921:nobodyさん
06/02/26 20:48:08
おや？>>919-920があぼーんで見えないぞ

922:917
06/02/27 09:07:28
誰もレスないみたいですができました。
バックアップに書き込む部分の$ato[$i] <= 0があったからいけなかったようです。
もし考えてくれた人いましたら、ありがとうございました。

923:nobodyさん
06/02/28 03:19:28
サイト内検索を探しててこれURLﾘﾝｸ(www.yumemaboroshi.net)
イイなって思ったんですけど何故か500になるんですよね
どこがおかしいんでしょうか？

924:nobodyさん
06/03/01 01:11:13 8WY3+dzV
質問です、ageさせて頂きます。
掲示板に、自作自演防止のため2ちゃんと同様の強制ID表示をつけてるのですが

sub id {
my($id,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$month,$date,$identify);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$identify = substr($host,-2).substr(crypt($host,$year-$mon*100),2);
$id = crypt($identify,$mday."L");
$id = substr($id,-10);
return $id;
}

某所で拾ったこれを組み込んでますが、接続元ホストによって生成するんですけど
$hostが「softbank～.bbtec.net」に対して、すべて同じIDを生成してしまうのです。
間の「～」にはIPアドレスの12桁の数字が入るのですが…
書き込み人によってこの間の数字はそれぞれ違うのですが、IDはどれも
同じになってしまって。
で、自分なりにあれこれ、数字その他をいじったりまったく別のルーチンに差し替えたり
していたら、今度はdion.ne.jpのホストがみんな統一されてしまったりとか。
なぜそうなってしまうのか、自分には…
IDを問題なく区別して生成させる方法がわかる方、ぜひご指摘ご教授下さいませ

925:nobodyさん
06/03/01 04:11:48
>>924
substr(文字列, 開始位置, 長さ)

926:nobodyさん
06/03/01 07:12:12
>>924
$host使ってるからだろ

927:nobodyさん
06/03/01 22:01:36 p75SPwPu
【.　 CGI名　.】　White Board
【配布先URL】　URLﾘﾝｸ(powder-snow.milk.tc)
【依頼期限】　なるべく早めにお願いします
【. 依頼内容】　当サイトの掲示板でnemuの部屋の雑談板のように頻繁にアドレス乱立スレが立ちます。
今は雑談板を閉鎖しているのですが待っている方もみえます、以前は串制限やホスト名を制限していましたが無意味な結果が現状です
上記のcgiにBBQを組み込みたいのですがどこに組み込んで良いのかわかりません
if (gethostbyname(join(".",reverse(split(/＼./,$ip))).".niku.2ch.net") eq "＼x7f＼x00＼x00＼x02")
これをどこに組み込めば良いのかどうか宜しくお願いします

928:nobodyさん
06/03/01 22:19:28
>>927
マルチすんな

929:nobodyさん
06/03/01 22:23:39
>>928
スレ違いなのでこちらにレスしたまでなのですが・・・

930:nobodyさん
06/03/02 02:09:07
>>927

本来なら作者に聞くべきだ。その方が確実。
しかも、「なるべく早めにお願いします」でスルーしようと思ったがまあ今回だけ。

white.cgiの639行目（if($in{'pass'} eq ""){&error("削除Keyを入力してね");}）の下あたりに

$flag_acc = join('.',unpack('C4',gethostbyname(sprintf(qq|%s.niku.2ch.net.|,join('.',reverse(split(/\./,$ENV{'REMOTE_ADDR'})))))));
if($flag_acc =~ /^127/){&error("BBQに登録されています。本当にありがとうございました。");}

931:nobodyさん
06/03/02 14:57:47 k+t5Sn1v
質問です。
web-libertyのメール送信ＣＧＩを改造したいのですが。
URLﾘﾝｸ(www.web-liberty.net)
送信されるメールには、必ずメール本文に
「送信者」「件名」「送信アドレス」「本文」「ホスト」「日時」が表示されます。
メルアド、送信者名、アドレスが二つ表示され、鬱陶しいのでこれを「本文」「ホスト」「日時」のみの表示に変えたいのですが・・・。
267～271行目の辺りにある「$value」を「$in{'text_sys'}」に置き換えてみました。
すると送信されるメールの表示が「本文」×４「ホスト」「日時」のようになってしまいました。
本文の表示を一つに減らすにはどうしたらいいのでしょうか？
回答お願いしますm(_ _)m

932:nobodyさん
06/03/02 16:15:28
>>931

作者に訊け。
その方がここで訊くより早い。

933:nobodyさん
06/03/04 16:00:22 e/z2f5Uv
【.　 CGI名　.】　ぜろちゃんねる、携帯絵文字対応BBS「SmallPICT」（Ver2.161）
【配布先URL】　URLﾘﾝｸ(0ch.mine.nu)、URLﾘﾝｸ(hdml.cside.com)
【依頼期限】　なるべく早いとうれしいです。
【. 依頼内容】　２ちゃん形式の掲示板に携帯絵文字対応BBSを組み込んで欲しいです。
　　　　　　　　PCで書き込み・閲覧が出来ればいいです。
　　　　　　　　（携帯からの閲覧や、２ちゃんブラウザでの利用は出来れば嬉しいですが、
　　　　　　　　　出来なければ別に必要ありません。）
　　去年お願いした方が途中でいなくなってしまわれたので是非お願いします。

934:nobodyさん
06/03/04 16:33:14
>>933
ここは丸投げｽﾚではありません。

935:nobodyさん
06/03/05 09:11:21 TAl9VaKX
>>932
聞いたらサポート外といわれましたorz

936:nobodyさん
06/03/05 11:36:03 hlZ3Pay4
特定のフォルダの中身をすべて表示するというもの
これだとすべてを1ページに表示するので重いです
例えば10個づつ表示してページ後はページ分けを自動作成するってことできますか？

本来htaccessでindexなしでファイルの表示を可能にすれば簡単なのですが
レンタルサーバーにはhtaccesは使えないし匿名FTPもダメなので
よろしくお願いします

opendir(DIR, "$dir");
while ($_ = readdir(DIR)) {
if (substr($_,-4,4) ne "") { #ファイル出力
($size) = (stat("$dir/$_"))[7]; # ファイルサイズ所得
print "<TR>";
print "<TD><A HREF=\"$dir/$_\" TARGET=\"_blank\"><IMG SRC=\"$dir/$_\" $width_height>"; # 画像（リンクあり）
print "<TD><A HREF=\"$dir/$_\" TARGET=\"_blank\">$_</A>"; # ファイル名（リンクあり）
print "<TD ALIGN=RIGHT>$size\n"; # サイズ
}
}
closedir(DIR);

937:nobodyさん
06/03/05 23:28:03
こんなの仕込んで適当にループを抜ければ済むと思うが、
if ($count < $in{'page'}) {next;}
if ($count > $in{'page'} + 10) {last;}

おいらならIMG出力をやめて高速化だな。ページ分けは一覧性を損ねる。
画像専用にサムネイル機能をつけるかもしれないが。

938:一
06/03/05 23:38:57 dp/jbZKG
掲示板にさかんに広告が貼り付けられて困っています。
でもああいうのって自動で、スクリプトを使って貼り付けているみたいです。
そこで掲示板に「投稿キー」という窓を設け、横に「一という字を入力してください」と書き、
実際そこに一という字を入力しないと、投稿が却下されるようにしたいです。

【light.cgi】
URLﾘﾝｸ(www.kent-web.com)

【テキスト】
URLﾘﾝｸ(proxy.f2.ymdb.yahoofs.jp)

上記のように書いてみましたが、正しく「一」と記入しても
エラー表示が出て投稿できないようになってしまいました。

939:& ◆7UCJWvNKzw
06/03/05 23:40:23 dp/jbZKG
ちなみに書き換えた一行だけ抜き出すと、

　if ($toukou !~/一/) { &error("一という字を入れてください",'NOLOCK'); }

こんな感じです。

940:nobodyさん
06/03/05 23:57:22
掲示板スパム対策だったらKENTの一番下にある
「スパム投稿対策LIGHT BOARD」使ったほうがよくないか？

941:一
06/03/06 00:12:44 ORH5DdGR
>940
ありがとうございます。
ですが
URLﾘﾝｸ(www.kent-web.com)
ここ見てみましたが、今はないみたいです。
TOPページも見てみましたがなかったでした。

942:& ◆dQG0tg7OyU
06/03/06 00:22:25 ORH5DdGR
すみません。
kentさんのページからは見つかりませんでしたが、検索したら見つかりました。
しかしどうやら、誤動作でちゃんとした投稿がスパムと判定されることもあるようです。

できれば上記の改造部分に関して、ご指導いただけるとありがたいです。

943:nobodyさん
06/03/06 00:23:08
（あと、名前のところに「一」と入れているんですが、たまに文字化けするようでｽﾐﾏｾﾝ）

944:940
06/03/06 01:19:09
>>938の【テキスト】が見られない（DLできない）のでアドバイスのしようが
ないんですが、依頼文から推測するとこんな感じの事がやりたいのかな？

★ フォームの適当な位置に以下を挿入

<tr>
<td>投稿キー</td>
<td><input type=text size=2 name=spam value="$spam">(一という字を入力してください)</td>
</tr>

★投稿受付の入力チェック
★if (!$post_flag) { &error("不正なアクセスです"); } の下に以下を挿入

if ($in{'spam'} ne "一") { &error("投稿キーを入力してください"); }

こんな感じでどう？
想像だけで書いちゃったので合ってるのかわかんないけどｗ

945:nobodyさん
06/03/06 11:51:13
>>937
㌧ｸｽです

946:nobodyさん
06/03/06 16:48:54
誘導されて来ました。

webサーバーのソフトが欲しい。
perlで、データを編集するソフト。
URLﾘﾝｸ(cgiroom.nu)
これと同じだけど、
全データを配列に格納しない。データが大きいので
メモリがパンクする。

947:nobodyさん
06/03/06 17:53:47
>>946
スレ違い

948:一
06/03/06 18:31:37
>944
できました━(ﾟ∀ﾟ)━!
neっていうのを使うんですね。
ありがとうございます！！感涙。

テキスト文、見られなくてすみませんでした。m(..)m

949:nobodyさん
06/03/06 20:26:38 BE:789427788-
アッhan！BBSにhane&kage機能の実装アドバイスｷﾎﾞﾝ(｀・ω・´)

950:nobodyさん
06/03/06 20:32:57
>>949
>>1

951:nobodyさん
06/03/06 20:34:21 BE:690749287-
ｽﾏｿ
>>949は無かった事に。

952:nobodyさん
06/03/06 20:35:09 BE:246696454-
ｳﾊ、>>950を見てなかった。
>>950ｓｽﾏｿ

953:nobodyさん
06/03/06 20:48:12
ﾄﾞﾝﾏｲ愛Ch

954:nobodyさん
06/03/07 21:39:24
# 投稿用パスワード
$from_pass='7699';

if ($in{'pwd'} ne "0000"){
$err .= "パスワードが違うお＾＾";
}

日記にこういう投稿パスがあるんですがこれをもう一つパスを増やしたいのですがどうすればいいのでしょうか？
今のパスワードが0000なんでもう一つ1111というパスワードでも投稿できるようにしたいのですが・・・。

955:nobodyさん
06/03/07 22:19:51
【.　 CGI名　.】　RYUCHAT
【配布先URL】 URLﾘﾝｸ(oda.minidns.net)
【ヘルプ内容】

携帯対応にしたい……というのは、まる投げ向きだと思うので

・ログ行数の変更を可能にしたい
・「commandXXX」「cut」（ゆいちゃっと）の実装

ゆいちゃっとからの移植を試みたのですが、どうもうまく行かなかったので……。
どうかよろしくお願いします。

956:nobodyさん
06/03/07 22:24:15
>>954
それ
if ($in{'pwd'} ne $from_pass){
じゃないの？

957:nobodyさん
06/03/07 22:45:25
$in{'pwd'} ne '0000' && $in{'pwd'} ne '1111'

958:nobodyさん
06/03/08 12:58:32
>>957
ども

959:nobodyさん
06/03/09 03:33:54
>>955

何を試してどううまくいかなかったのか書くと回答してくれるかも。
それができないなら丸投げへGO。

960:955
06/03/14 16:59:14
>959
自己解決しました

961:nobodyさん
06/03/15 00:48:09 sysZJlCW
【.　 CGI名　.】　testcgi.txt
【配布先URL】 URLﾘﾝｸ(briefcase.yahoo.co.jp)のetcフォルダの中にあります。
【ヘルプ内容】
このCGIは検索キーワードを指定しないと作成されたjsファイルがHTML上で
表示されません。(jsファイルはちゃんと出来てるように見えます。)
これを検索キーワードなしで他のパラメーターで取得した物をHTML上で
表示されるようにしたいです。よろしくお願い致します。

962:961
06/03/21 09:10:57
自己解決しました。

963:nobodyさん
06/03/23 01:15:25 N3IYHv3H
【.　CGI名　.】　CLEVER BBS Ver 3.00 [Shift JIS Ver3.00]
【配布先URL】　URLﾘﾝｸ(solodesign.jp)
【. 置き場所 .】
イメージ：URLﾘﾝｸ(2shin.net)
cgi ：URLﾘﾝｸ(2shin.net)
スキン　：URLﾘﾝｸ(2shin.net)
【ヘルプ内容】　ダイアリーの日付の部分を、テキスト形式ではなく画像で表示したいのですが、そういうことはできるのでしょうか？
カウンタのように、0～9までの数字を別々に作っておいて、組み合わせる、というようなことができれば、教えてください。

964:nobodyさん
06/03/24 04:26:38
KENT WEB Shopping Cartの改造をしました。
メール送信処理でつまずきました。

利用しているプロバイダが
KENTさんのCGIをWin用に設定していましたので
それを参考にメール送信用のスクリプトを追加修正してみました。

参考にしたCGIファイルのもとファイルとWin用、
改造してみたファイル：init.cgi,order.cgi,cart.cgi

上記のファイルをこちらのURLにアップしました。
URLﾘﾝｸ(folifoli.web.fc2.com)

1.init.cgi：181行目あたりsendmailのパスの代替
　# メールソフトのパス
　require "D:\\ms-smtp\\smtpmail.cfg";
　require "D:\\ms-smtp\\smtpmail.pl";

2.order.cgi：
1.706行目あたり
　メール送信処理部分： sub sendmail {　以降
最後の
sendMail($to,$mailTo,$mail2,$mailFrom,$MailSub,$MailHeader,$MailBody,);
は、参考にしたものが全てこの書式でした。
この部分の$to,$mailTo,$mail2,$mailFromの設定がおかしいのはわかります。が、混乱してしまいました。

3.cart.cgiの最後の方の
チェックモード--# 送信方式--# sendmailチェック
このsendmailチェックの変更が必要かどうか迷っています。
長くなりましたが、よろしくお願いします。

965:nobodyさん
06/03/24 06:45:05
追加です。
smtpmail.cfgとsmtpmail.plは、プロバイダが設定しており、内容は公表されていません。簡単そうでしたが、しっかり躓いています。
ここがポイント！というところがありましたら、よろしくです。

966:965
06/03/25 02:40:21
自己解決しました。
参考もとのスペルミスでした。

967:nobodyさん
06/03/28 13:10:35
【.　 CGI名　.】　Web Patio v2.2
【配布先URL】　URLﾘﾝｸ(www.kent-web.com)
【. 依頼内容】
Web Patioのトリップ機能を、2ch互換にしたいと思ってます。

Patioのトリップは、saltが固定なので2ch互換になりません(´･ω･`)ｼｮﾎﾞｰﾝ
トリップキーの2～3文字目を抽出してsaltに放り込めばいいはずなんですが、
ややこしくて自分じゃむりぽです…orz

968:967
06/03/28 13:21:34
P.S.
改造を丸投げしてるわけではありません(´･ω･`)

969:nobodyさん
06/03/28 13:37:31
あっそ自分でやれ(´･ω･`)

970:967
06/03/28 14:16:09
(´･ω･`)ｼｮﾎﾞｰﾝ

971:nobodyさん
06/03/28 15:00:39
>>967
> ややこしくて自分じゃむりぽです

↑要するに丸投げｗ

972:967
06/03/28 16:42:45
では言い方を変えまつ。

トリップキーの変数から二、三文字目の文字列を抽出する際の
アドバイスをいただけませんか？('A`)

973:nobodyさん
06/03/28 16:46:54
>>972
すｂｓｔｒ

974:967
06/03/28 16:53:51
>>973
「substr」でぐぐったら、文字列関数で抽出する方法を発見できますた。
ありがとうございます。
　
今はPC以外からアクセスしてるんで、後で試してみます～

975:967
06/03/28 17:44:55
出来ました～ヾ(*´∀｀*)ﾉｷｬｯｷｬ

激しく感謝|ﾟUﾟヽ|

976:nobodyさん
06/03/28 21:48:50
>>975
おめでとう

977:恢
06/03/29 02:15:49 FRkVLrZQ
URLﾘﾝｸ(mst.on.arena.ne.jp)のPASS解析をお願いします。

978:nobodyさん
06/03/29 02:17:55
ｲﾀｲ、ｲﾀｲﾖ
頭痛が痛いよーｗ

979:nobodyさん
06/03/29 17:32:36
オレは足が痛い～ｗ
痛てぇ～ｗ

980:nobodyさん
06/03/31 01:36:52
お知恵を拝借したいです。

【.　 CGI名　.】　web拍手配布版
【配布先URL】　URLﾘﾝｸ(www.webclap.com)
【. 置き場所 .】　URLﾘﾝｸ(uppp.dip.jp)（一式詰め合わせました）
【ヘルプ内容】　１、返事をどうしたいか選択するラジオボタンを付けたい。
　　　　　　　　２、コメントを送ったら次の画面で送った内容が出るようにしたい。

弄った部分は「clap.cgi」の

#-----------------------------------ＨＴＭＬ表示

から下です。
ラジオボタンが付けられるﾊﾟﾁﾊﾟﾁは自分にとってとても使いづらい特徴を共に
備えているので、出来れば本家web拍手で何とかしたいと考えています。
ぐぐっても改造のやり方が載っているようなサイトを見付けることが出来ず
自分で考えて弄ってみたら見事に500エラーが出てしまいました。
どうかよろしくお願いします。

981:nobodyさん
06/03/31 04:28:20
>>980
ｽﾚﾘﾝｸ(php板:2番)より
エラーメッセージについて

500エラーやInternal Server Errorって言うのは、エラーメッセージじゃないから、そんなもん書いても問題解決に繋がらない。
ちゃんとしたエラーメッセージを書くように。

エラーメッセージはログに記録されている。
ログのありかがわかんないときは、サーバの管理人に問い合わせる。

もしくは、モジュールが入っている事が前提だが、
２行目に
use CGI::Carp qw(fatalsToBrowser);
の一文を挿入する。
したらエラーメッセージがブラウザに表示される。

あとは修正すればよい。
自分で修正できなかったら、エラーメッセージも書いて質問しる。

※ 共有サーバでいきなりテストせず、自宅のPCでテストできる環境を作れ

982:nobodyさん
06/03/31 08:24:41
>981さん
エラーログのありかが分からなかったので、あちこち探してみたのですが
見付かりませんでした。
問い合わせても返事がくるまでに１週間ほどかかってしまうらしいし、
自分の理解レベルが低くてお話にならないと分かったので、丸投げｽﾚへ
移動してそっちでお願いしてみようかと思います。

ありがとうございます。すみませんでした。

983:nobodyさん
06/03/31 23:53:51
【.　 CGI名　.】　DiceChat ver3.01sv（シンプルバージョン）
【配布先URL】 URLﾘﾝｸ(www.big.or.jp)
【. 置き場所 .】 URLﾘﾝｸ(members2.tsukaeru.net) （改造済みCGIソース）
【ヘルプ内容】　ダイスチャットの代わりにチャットロワイアルっぽい機能を搭載する予定。
　　１：１００PのステータスをHP、攻撃力、防御力に割り振る
　　２：チャットで発言する際に「発言しながら攻撃」ボタンを押すと乱数などでダメージを発生させる。
　　３：HPが０になったら強制退場。　再入室制限は今の所かけないでおく。

という風に改造しようとすると何もなさそうな場所で構文エラーが……。
助言をお願いします。
なお、KENTさんのところから直接改造を行わなかったのはページのデザインを流用したかった
からです。

984:nobodyさん
06/03/32 04:26:57
>>983
>>981

985:nobodyさん
06/03/32 04:50:31 WJnup8Dd
2006/03/32(土)

986:nobodyさん
06/03/32 22:13:41
次スレ

★三　【スクリプト改造工房 PART 9 】　★三
ｽﾚﾘﾝｸ(php板)

987:nobodyさん
06/04/02 19:54:40
すみません質問させてください
レッツPHPのPHP I-BOARDを改造して欲しいのですが
同スクリプトをIconをなしで動かしたいのですがskin（skin_main）のIconスクリプトを削除したら
htmltemplate.inc(22) : eval()'d code on line 225
と出ました、225行目がないのでどこを触ったらよいのかわかりません
どなたかお願いいたします

988:987
06/04/02 21:42:36 rIu0RmGr
言葉足らずですみません、テンプレ忘れていました
【.　 PHP名　.】　PHP-I-BOARD
【配布先URL】 URLﾘﾝｸ(php.s3.to)
【ヘルプ内容】　Iconの欄を削除して表示させたいです
試した事はskinファイルの中の(skin_main.html)の80行目のIconスクリプトを削除
してUPしたらhtmltemplate.inc(22) : eval()'d code on line 225というエラーが出ました
どうすればできるのかよろしくお願いします

989:nobodyさん
06/04/02 22:56:04
>>988
削除する場所間違ってるんじゃ?

Iconは

<option value="{$icon/file}"{$icon/sel}>{$icon/name}</option>

でのような気がする

まぁテストしてないからあれだけど・・・

エラーはを変換しようとしてるっぽいけど㍉だよと
いってる感じかな?

990:nobodyさん
06/04/05 04:28:29
うめとくか