トップページ⇒php
1001コメント413KB

【 スクリプト改造工房 PART 5 】

レス数が900を超えています。1000を超えると表示できなくなるよ。
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化済み)
083682803/02/11 20:24ID:???
>>833
ありがとう、がんがります！
083782803/02/11 20:36ID:???
>>833
ちゃんと走りました、感謝の極み。
0838本７ ◆HON7/awDa. 03/02/11 20:57ID:???
>>835
すみません。
700、744、705、755、を試しましたがＣＧＩから書きこみができません。
サーバ規定的な問題みたいなんでレンタル板で手っ取り早く借りれる
無料ＣＧＩ鯖探してきます。それでまだだめならまた寄せてもらいますわ。
どうもありがとうございました。ペコリ
0839nobodyさん03/02/11 21:19ID:???
>>838
阿呆だなあ。
それログファイルのパーミッションか？
あと、infoseekはCGIがnobodyで動くの知ってる？
基本を理解してなきゃ、鯖変えても同じだよ。
0840nobodyさん03/02/11 21:41ID:???
http://www.maido3.com/はアダルトでやるのはよくないって聞いたけどなんでですか？
0841nobodyさん03/02/11 23:21ID:???
>>840
スレ違いどころか板違い。失せろ！
レン鯖板いけ！
0842初心者03/02/12 14:44ID:pNFQ2drR
①改造したいスクリプト
ttp:/www.abi-station.com/の会社型掲示板
②どう改造して欲しいか
toripodに対応させて欲しい。
色々なサイトで勉強しつつやってはいるのですが、何度やってもエラーが出てしまいます。
過去ログを使わない場合は消せば良いらしいのですが、よろしくお願いします。
0843nobodyさん03/02/12 19:47ID:???
php(Aki-web ttp://aki.adam.ne.jp/)の「info board(ttp://aki.adam.ne.jp/php/samples/infoboard/infoboard.php)」というスクリプトを改造してるのですが、
別ウィンドウで取得した画像URLデータを表示させたいのですが、JavaScripを使うと
クロスサイトスクリプリングの問題で引っ掛かってしまいます。

取得したデータをジャバスクリプトに読み込むのには問題があるのですが、
データを取得する際に、
初めの文字７文字でhtmlかどうか判別（絶対URLでないと受け付けない）、終りの４文字で画像データかどうか判別、違った場合は受け付けないでエラーを返す。

表示する際にhtmlspecialcharsで特殊文字をHTMLエンティティ化、その後str_replace（文字列変換）で切り取り。
としているのですが、まだ問題があるでしょうか。

084484303/02/12 19:49ID:???
ソースの一部は
======================ジャバスクリプト=====================
ヘッダー部分に
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
HTML表示部分
<form name=form1><input type=button name=hyousi2 value=見本を見る onClick=MM_openBrWindow(\"$mihon\",'hyousi','width=260,height=350')></form>
==========================================================
084584303/02/12 19:50ID:???
===================================php====================
表示の時に
$mihon = htmlspecialchars($record_data[9], ENT_QUOTES);
$mihon = str_replace("&", "", $mihon);
$mihon = str_replace(" ", "", $mihon);
$mihon = str_replace("<", "", $mihon);
$mihon = str_replace(">", "", $mihon);
$mihon = str_replace(""", "", $mihon);
$mihon = str_replace("？", "", $mihon);
$mihon =str_replace(",", "", $url);
取得の時に（エラー表示時）
if($mihon!=""){if (substr($mihon, 0, 7) == "http://" || substr($mihon, 0, 8) == "https://") {
} else {
$string .="見本URLが間違っています<br>";
}
if (substr($mihon, -4) == ".jpg" || substr($mihon, -4) == "jpeg" || substr($mihon, -4) == ".png"|| substr($mihon, -4) == ".gif") {
} else {
$string .="見本URLが間違っています<br>";
}}
==========================================================
target=_blankにするしかないでしょうか？
新しくサイズ指定でウィンドウを開く方法他にありますでしょうか？
良い案がありましたらご意見お願い致します。
0846nobody03/02/12 21:29ID:???
新語誕生ッ
0847nobodyさん03/02/13 14:12ID:???
http://mypage.naver.co.jp/momoco/readme_momoco4b.html
の掲示板にHP宣伝できるように投稿フォームにURLを登録できるように
改造してログにURLを書きこむのには成功したんですが
http://members.tripod.co.jp/bbscgi/log.txt
掲示板を開きトピック一覧は表示されるんですがトピックの内容が表示されないんです。
ログに書きこまれてるURLを消すと正常に表示されます。
何かいいアドバイスがありましたらお願いします。
スクリプト　http://members.tripod.co.jp/bbscgi/momoco.txt
　　　　　　　http://members.tripod.co.jp/bbscgi/topic.html
0848nobodyさん03/02/13 15:12ID:???
☆★☆★第３回２ちゃんねる全板合同迷惑メール業者訪問祭り！★☆★☆

　シャットアウトしても送って来る未承諾メールにブチキレてるあなた！
　何度も何度もしつこく送って来る非常識なメールにイライラしませんか！？
　
　私達は今夜、そんな出会いサイトに「訪問｣(※注）する祭りを盛大に開催します！
　２ちゃんねる全板合同です！是非とも皆様お誘い合わせの上、ご来場ください！
　老若男女問いません！初心者大歓迎！一緒に彼氏・彼女をつくりましょう！！！
　　　　　　　　　　　　　　　　　　　　　　　　　　　　（↑本音とﾀﾃﾏｴ）
　訪問開始予定時間　　午後９時００分決行予定！
　総本部ＵＲＬ　　http://jbbs.shitaraba.com/news/938/

　(※注）あくまで「訪問」です。（笑）
　　　　物騒な事を書くと削除されちゃいますから。（←この意味わかります？）　　
　それから「訪問」の主旨と無関係ですが、各種「訪問道具」も取り揃えております。（笑）
　スレ汚し失礼しました。
084984303/02/13 20:35ID:???
エンティティ…（悶）
他にも間違いが…どうもすみません。
やっぱりJavaScriptは使わない事にしました。
お騒がせ致しました～とほほ
0850nobodyさん03/02/17 22:52ID:???
なんかむちゃくちゃだな・・・。
0851nobodyさん03/02/19 01:59ID:???
#タグの使用禁止
$value =~ s/</</g;
$value =~ s/>/>/g;

タグを禁止にして、特定のタグだけを使用可能にするにはどうすればいいんでしょうか？
0852nobodyさん03/02/19 12:03ID:???
>851

$value =~ s/<//g;　#タグを一度無効化
$value =~ s/font(.*)>(.*)\/font>/<font$1>$2<\/font>/ig;　#FONTタグを復活
$value =~ s/([biu])>(.*)\/[biu]>/<$1>$2<\/$1>/ig;　#B、U、Iタグを復活

漏れはこうしてるが？
一度<を全部消して、閉じタグ付きでちゃんと書かれてたら復活させる方法。（B、U、I、FONTのみ有効）
閉じ忘れで壊れるのも同時に防げます。
増やすならfontのとこの行をコピペで増やしてfontを別のに変えればいいと思うよ。
$value =~ s/a(.*)>(.*)\/a>/<a$1>$2<\/a>/ig;
こんな感じ、これはAタグを復活、後は自分で考えて。
0853nobodyさん03/02/19 17:41ID:???
http://ame.x0.com/upload.html
http://ame.x0.com/upload_script.txt

ファイル表示のないアップローダなのですけれど、最大登録件数と最大ファイルサイズを変更したいのですが、
どこを変更すればよいのかわかりません。
どなたか教えていただけませんか？
0854nobodyさん03/02/19 19:37ID:???
>>853
最大登録件数なんかねえじゃねえか。脳内仕様もいい加減にしろ。
最大ファイルサイズ変えたけりゃ、スクリプトの最初に出てくる数字をいじれ。
085585103/02/19 19:39ID:???
>>852

大変参考になりました。ありがとうございました。
後は自分で考えて改造に励みます。
085685103/02/21 08:01ID:???
すみません、考えてもどうしてもわからなくて、また質問します。

#タグの無効化
$value =~ s/</&lt;/g;
$value =~ s/>/&gt;/g;
#<del>の許可
$value =~ s/&lt;del&gt;(.*)&lt;\/del&gt;/<del>$1<\/del>/g; #<del>を許可

このように記述してみたんですが、この記述だと文章中のタグ一つしか変換しないみたいです。
何回も変換するようにするには、どうすればいいんでしょうか？
0857 03/02/21 12:55ID:???
>851

#<del>の許可
$value =~ s/<del>([\w\d\s\t\+\*\.\,\(\)\!\"\#\$\%\'\=\~\`\@\{\[\^\]\}\:\;\/\\\_\>\<]*)<\/del>/<del>$1<\/del>/ig; #<del>を許可
これで一応は動くけど文中に&は使えなくなる。
何か一個全角に･･･「文中に&（半角）があったら＆（全角）にする。」っていう対策で一応はクリアできる臭い。
$value =~ s/\&/＆/g; #コレ

ゴメン漏れの力じゃ<を除外してマッチングさせるのは解らなかった･･･道場かどっかで聞いて･･･。
085885703/02/21 12:58ID:???
ゴメン、&消すのが一番早いわ･･･。
つかなんか犠牲にしれ、もしくはエロイ人来るまでまってれ。
0859nobodyさん03/02/21 13:06ID:???
すごい正規表現やね。。
単に>>854は最長マッチになってるだけなんぢゃ･･････
0860nobodyさん03/02/21 13:08ID:???
あら、、>>856だったYO
0861nobodyさん03/02/21 14:39ID:???
>>856
お兄さん最長マッチしてやすぜ。
$value =~ s/<del>(.*?)<\/del>/<del>$1<\/del>/g;
0862nobodyさん03/02/21 14:39ID:???
かぶったな・・・
0863nobodyさん03/02/21 14:44ID:???
被ったままじゃいかんと思ったのでついでに、
複数のタグを許可するときは

$regexp = "(del|b|small|em|strong)";

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/<$regexp>(.*?)<\/$regexp>/<$1>$2<\/$3>/g;
0864nobodyさん03/02/21 15:42ID:???
>>854 ｽﾏｿ。ありがとう御座いました。
0865nobodyさん03/02/21 15:43ID:???
ついでにisoも追加汁
0866nobodyさん03/02/21 15:46ID:???
括弧と全角＆もw
086785103/02/21 19:19ID:???
>>861 さん
ありがとうございます。この方法で解決しました。
レスを下さった皆様、本当にありがとうございました。
0868nobodyさん03/02/21 21:01ID:/aoYgsJG
http://buyou.bbzone.net/comchat.dataこのスクリプトに
現在の状態というものを付けたいのですが。どうすればできるでしょうか？
例:健太@ROM
など、ﾖﾛｼｸお願いします。
0869nobodyさん03/02/22 12:22ID:???
>>868
どこに表示したいの?
たとえばフレームとか別な窓とか
0870nobodyさん03/02/22 16:58ID:I8wQ3PSP
下のフレームです。
参加者(1）： 健太@ROM

0871nobodyさん03/02/22 23:46ID:???
>>870
いつ状態をCGIに引き渡すかにもよるな。
それを教えれ
0872nobodyさん03/02/23 00:17ID:???
>>870
ttp://40ch.no-ip.org/comchatg.cgi
こんな感じで良ければスクリプトうｐします。
087387203/02/23 09:13ID:???
>>872は脳内あぼ～んしてくださいｗ

長いので少しずつ。
#まず、43行目から。状態の種類をここに入力。増やすことも可能
43: @status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');

#次に、状態を入力するプルダウンボックスを作る。
#240行目付近に「<b>名前</b>:」とあるので、その行のすぐ下から
237: HTML
238: print "<b>状態</b>：<select name=\"status_form\">\n";
239: print "<option value=\"\">(なし)</option>\n"
240:
241: foreach(@status){print "<option value=\"$_\">$_</option>\n";} #状態を選択するメニューを出力
242: print<<"HTML";
243: </select>
087487203/02/23 09:23ID:???
#最後にCGIに送られてきたデータを受け取る。
450行目付近に、「$name = $FORM{'name'};」
とある。これを、状態の情報を受け取るために

450: $nametemp = $FORM{'name'};
451: $status = $FORM{'status_form'};
452: $name = $nametemp.$status;

に入れ替える。
0875nobodyさん03/02/23 11:23ID:9SQ36OP6
>>873-874ありがとうございます、やってみます！
0876改造列車03/02/23 17:27ID:???
２ちゃんねるの記事を定期的にDLしてヘッドライン化して読めるようにするシステムみたいなものを作っています。
http://2ch.eucaly.net/monazilla/bbs/のread.cgiを読み専用に改造したのはいいのですが、
記事のアンカータグ(>>2など)が記事をDLした時点で既にリンクされてしまっているので、それを分解して<a href=#$st>>>番号</a>
のような感じに表示させたいのですが、何度やっても出来ません。
ちなみに、$stは記事番号です。説明が下手でｽﾏｿ・・。
どなたか教えて下さい。よろしくお願いします。
0877nobodyさん03/02/23 20:22ID:OjosXiHY
>>873-874と同様この改造をichatにするにはどうすればよいのでしょうか？
ソースはhttp://csx.jp/~lgyec/ichat.dataです
教えてくださると幸いです。
087887203/02/23 21:31ID:???
>>876
上から順番で。
#まず19行目に↓を挿入。同じく増やすことが可能です
19: @status = ('@使用中','@すぐ戻ります');

#次にデータ受け取りの部分。
262: $name = $text if $key eq 'name';
上を

262: $namet = $text if $key eq 'name';
263: $status = $text if $key eq 'status';
264: $name = $namet.$status;
に書き換える。
#いちいち連結するのは改造箇所を減らすためと思ってくらさい
087987203/02/23 21:38ID:???
#最後に発言用フォームを改造。569行目付近の
569: <td nowrap bgcolor=$table_color_1 align=center>お名前</td>
のすぐ下、570行目付近から

570: <td bgcolor=$table_color_2 colspan=3>$name
571: <select name=status><option value="">(なし)</option>
572: EOD
573:
574: foreach (@status){ print "<option value=$_>$_</option>\n"; }
575: print "</select>";
576:
577: print<<"EOD";
578: </td></tr>
と記述。
#状態の言葉を長くしすぎると画面が激しく崩れます。
#まだまだ良い方法があるとは思いますが、とりあえず同じ処理をば。
088087203/02/23 21:43ID:???
>>879 訂正。

570: 「<td bgcolor=$table_color_2 colspan=3>$name」
のすぐ下（571行目くらい）から
571: <select name=status><option value="">(なし)</option>
::::::(略)
579: </td></tr>
と記述してくださいな。
088187203/02/23 22:36ID:???
>>877自身の手による改造のために簡単に説明を。
@status = ・・・で状態を配列に代入しているが、これを使って後で
foreach ・・・でプルダウンメニューを作る。
メニューで選ばれた「状態」はCGIに送信されてくる。
それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。

メリット：改造箇所が少ない。ログの形式が変わらない。
デメリット：フォームが増える。入力内容はメニューの内容に限られる。
0882nobodyさん03/02/24 17:17ID:EnulMF3R
>>881
@status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');
これはichatにいれる時は↑らたへんに貼っとけばいいんですよね？
foreach ・・・でプルダウンメニューを作る。
とは、foreach (@status){ print "<option value=$_>$_</option>でいいんですか？
□それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
comchatgと同様に同じようなやつといったら
$status = $text if $key eq 'status';
$name = $namet.$status;
そのやつをichatにいれるには#データ読みこみというところのどこにいれればいいんでしょうか？
□で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。
これは、どういう意味なんでしょうか？
質問ばかりですいませんが、宜しくお願いします。
088387203/02/24 18:32ID:???
>>882
878のレス番間違えてました、ｽﾏｿｶｯﾀ
>>878は>>877へのレスです。。
088487203/02/24 18:47ID:???
＞で、もとの名前を表示する変数Aの代わりに
ってのは、受け取った名前の変数($namet)の値と状態の値($status)をくっつけて、
名前の変数($name)にまとめて入れる、ってこと。
こうすると改造箇所が無駄に増えるのを防げるなと思った。それだけ。
連ｶｷｽﾏｿ。鬱
0885nobodyさん03/02/24 19:59ID:80HVp5Lh
ん、とてつもなく難しいぃ
困ったなぁこんな難しいとはおもってなかったぁ・・。
第一どこにどういれるかとかまったくわからないぃ。
0886nobodyさん03/02/24 20:00ID:RRWzLh+f
そうは思わない！
http://hkwr.com/
088787203/02/24 21:18ID:???
>>885
行数表示するエディタ使ってないの?
0888nobodyさん03/02/25 07:04ID:???
行数表示できるエディタ見つけたよ

テキストエディタQX評価版021130
http://www2k.biglobe.ne.jp/~araken/beta.htm
そのまま使える
0889nobodyさん03/02/25 17:07ID:9GtyGnjs
変数とかってなんなんですか？
0890nobodyさん03/02/25 17:32ID:???
889の存在意義とかってなんですか？
0891nobodyさん03/02/25 21:49ID:???
>>889
わからなければ調べよう。
0892nobodyさん03/02/26 08:33ID:???
http://www.google.com/search?q=889%E3%81%AE%E5%AD%98%E5%9C%A8%E6%84%8F%E7%BE%A9&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
0893nobodyさん03/02/28 18:50ID:???
>>892
http://web2000.kakiko.com/naruhodo/Obj.swf?InputStr=%81E%81E%81E%81E%81E%81B%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%83O%83O%83%8B%82%C8%82%E6w
0894nobodyさん03/03/01 22:34ID:???
http://www2s.biglobe.ne.jp/~cru/library/cgi/bbs.html
ここの投稿コード付き掲示板ですが、
桁数を増やすにはどうしたらいいでしょうか？
ヒントを頂けたら幸いです(;´Д`)
0895nobodyさん03/03/02 04:44ID:???
>>894
何の桁数よ。

質問者が手抜きをするのはいただけないな。
0896nobodyさん03/03/02 10:22ID:???
3桁の投稿コードを6桁位に増やしたいんです。
見た目的に荒らし防止になると思いまして・・・
0897nobodyさん03/03/02 16:29ID:???
スクリプトをちらっと見たけど、一応、
なんか意味があって3桁にしてるみたいだね。

下手にいじる必要はないんじゃない？
0898nobodyさん03/03/03 12:59ID:VIdRJxPn
すいませんお力貸してください
http://www.web-purpose.com/PMC/
のwebmail_i.cgi
を改造しています。本文に送り主のメールアドレスが表示されてるのを消したいのですが
どのようにすればよいのでしょうか？
少し改造済み（改造とはいわないな(^ ^；）のソースです
http://210.143.102.80/upload/source/d/0945.txt
http://210.143.102.80/upload/source/d/0946.txt
945がスクリプトで946がフォーム用のＨＴＭＬです
0899nobodyさん03/03/03 22:54ID:???
すんません、どうも行き詰まってます。
BBS Note 7.xにトリップ機能を付け加えようとしてるんすけど、いい塩梅にいかねっす。

テキストはこれなんすけど、
http://mage.free-city.net/bbsnote.txt

この中の　書き込み処理全般　のとこにトリップ処理の記述を追加したところ、
トリップ変換そのものは上手くいくようになったものの今度は名前の表示が
マトモに出んようになりますた。

よろしくご指南おながいします。
090089903/03/03 22:54ID:7VkorLNn
ちなみに追加した部分はこれっす。

#トリップ処理
{
$name =~s/◆/◇/g;

my ($key,$salt);
if($name=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-11);
}

$in{'name'} =~ s/#.*//g;

if($trip){
$name=" "if($name);
$name=$trip;
}

$name =~ s/$trip/◆<\/b>$trip<b>/g;

}
090189903/03/03 22:56ID:???
訂正

誤　　$trip = substr(crypt($key, $salt),-11);
正　　$trip = substr(crypt($key, $salt),-10);
0902tantei03/03/03 23:53ID:???
★あなたのお悩み解決致します！！
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
　直通　　０９０－８５０５－３０８６
ＵＲＬ　　http://www.h5.dion.ne.jp/~grobal/
メール　　hentaimtt@k9.dion.ne.jp
　　　グローバル探偵事務局　

0903nobodyさん03/03/04 00:00ID:???
>>898
本文ってどこー？
0904nobodyさん03/03/04 01:44ID:???
>>900
$name =~ s/◆/◇/g;

my ($k,$s,$t,$n); # key salt trip name

$_ = $name;
if (/#(\S+)/){
$k = substr($name,index($name,'#')+1);
$n = substr($name,0,index($name,'#'));
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -10);
if ($n ne ""){
$name = "$n </b>◆$t <b>";
}else{
$name = "</b>◆$t <b>";
}
}

スキン
# 名前に項目を付けて表示する。
$LOG_name = ($LOG_name ne "") ? "<b>$LOG_name<\/b>" : '';
# 名前に項目を付けて表示する。
$RES_name = ($RES_name ne "") ? "<b>$RES_name<\/b>" : '';
090589803/03/04 02:37ID:???
>>903
メールの本文のところです
print SMAIL "Content-Transfer-Encoding: 7bit\n";
print SMAIL "Content-Type: text/plain; charset=iso-2022-jp\n\n";
print SMAIL "";
for (0..$formco) {
print SMAIL "$VADATE[$_]\n";
}
#print SMAIL "\n";
#print SMAIL "==============\n";
#print SMAIL "Time : $TIME\n";
#print SMAIL "Browser : $agen\n";
#print SMAIL "Host : $host\n";
#print SMAIL "---------------\n";
この辺があやしいと思ってるんですが(^ ^；
今のままだと$VADATEにメアドが文章として含まれちゃうんですよ
よろしくお願いします
0906poor03/03/04 05:15ID:pSR3aMdf
2箇所機能的に動かなくて困っています。
誰かPerlに詳しい方はおられますでしょうか？
直されましたら5000円お支払います。
ご連絡おまちしております。
0907nobodyさん03/03/04 05:51ID:???
>>906
詳しいやつなどいくらでもいる。
内容もわからずにどうしろっていうんだ？
5000円で見合うかどうかもわからないのに。

そもそも、ここは改造スレ。
>>1をよく読め。
0908poor03/03/04 11:30ID:pSR3aMdf
では　正しく動くように改造してください。
メールアドレスを下さい。
添付でファイルを送ります
0909nobodyさん03/03/04 12:11ID:???
>908
失礼な香具師だな。
金出せば動くと思ってるﾎﾞﾝﾎﾞﾝか？


正しく動くってなんだよ！
エラー出してるとこ一戸ずつ削ってｹや！
それで動いたら正しく動いてる。
0910nobodyさん03/03/04 12:15ID:???
>899

sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -10) ;
}

呼び出し方
$name =~ s/#(.*)$/trip($1)/eg;


これでトリップが入った$nameが出来上がるが、これじゃ駄目？
0911poor03/03/04 12:28ID:pSR3aMdf
でわスクリプトを見てください
0912nobodyさん03/03/04 12:34ID:???
しかもマルチか。
0913nobodyさん03/03/04 17:29ID:jIWPHT84
YYCHATで、
発言毎に日時の右側にIPを表示するようにしたいのですが、
どうすれば良いのでしょうか？
091489903/03/04 20:33ID:???
>>904
>>910
ご指南いただいた通りに直したら、ちゃんと名前とトリップ出せたっす。
どうもありがとうございますた。
0915nobodyさん03/03/05 16:20ID:???
>>897
そうなんですよね・・・
なのでどうしたらいいか分からなくて(;´Д`)

5,6桁のﾔﾂを使っているｻｲﾄもありましたが
別の方法でコードを作成しているみたいでしたし、
0916nobodyさん03/03/06 01:26ID:???
>>897
だから変える必要はないし、桁数が多いのがいいのなら、そっちを使えばいい。
馬鹿？
0917nobodyさん03/03/06 13:39ID:???
>>873-874
すいませんこの改造の仕方教えてください。
http://cgi.2chan.net/up/src/f2522.txt
これなんですけど、改造拒んでるように見えるのは私だけですか？
091891703/03/06 13:45ID:???
すいません解決しました。
091987703/03/06 17:44ID:qrKweJNz
前書き込みさせていただいたものですが。
ichatはアイコンサイズ指定になってるんですが、このサイズ機能をとりたいのですが、
どのようにすればいいんでしょうか？教えてください。
ソース⇒http://csx.jp/~lgyec/ichat.data
092087203/03/06 20:18ID:???
>>919
いろんな大きさのアイコン使いたいんだと仮定。
226行目付近、
「@icon_size=(20,20);」
とある行をコメントアウト。

#あまり巨大な画像はやめれ
0921nobodyさん03/03/06 20:32ID:z1LbRXdZ
コメントアウトというのはそれをけせってことですよね？
0922nobodyさん03/03/06 20:33ID:z1LbRXdZ
その@icon_size=(20,20);をけしたらアイコンなどつかえなくなりましたよ。
0923nobodyさん03/03/06 21:29ID:???
>>919
965行目の
print "<td><img src=\"$icon_list[$y1[2]]\" width=$icon_size[0] height=$icon_size[1]></td>";

これのwidth属性とheight属性を消してみたら？

print "<td><img src=\"$icon_list[$y1[2]]\"></td>";
092487203/03/07 13:12ID:???
>>922
すまぬ、動作テスト忘れとった･･･鬱
0925nobodyさん03/03/07 18:01ID:s5GMjGcA
>>923のとうりにしたらアイコンが消えました。ありがとうございます。
もう一つ改造したいことがあります。
そのichatに”自分の発言を消去”というボタンがあるんですけど、KENTWEBにあるような
発言を消したらメッセージを自動で書かれる奴にしたいのですが、どうすればよいでしょうか？
例えばその自動メッセージに”クリアメッセージ・・・。”こんなかんじのやつをつけたいのです。
説明不足ですが宜しくお願いします。
0926nobodyさん03/03/07 18:20ID:???
>>925
説明不足どころか意味不明。
0927nobodyさん03/03/07 18:30ID:s5GMjGcA
>>926説明不足ですいませんでした。
KENTWEBにあるCOMCHATはclearとかけば文字がけせますよね？
その時に消したことを通知するメッセージを書きたいのです。comchatのように。
宜しくお願いします。
0928nobodyさん03/03/07 20:31ID:???
>>916
別のスクリプトは簡単に解析できるので。
>>894のが私が見つけた中で一番いいかなと思ったので、依頼してみたワケです。
後は自分でやってみます。
0929nobodyさん03/03/08 11:00ID:MqKsAecY
>>927をよろしくおねがいします。
0930nobodyさん03/03/08 14:17ID:???
「comchatのように」っつったって、こっちはcomchatがどんなのか知らん。
Perlに精通＝CGIに精通、ってわけじゃないのよ。
0931nobodyさん03/03/08 17:15ID:Ee7k58Ji
すいませんでした、一応comchatのソースですみてください
comchatソース⇒http://csx.jp/~lgyec/comchat.data
0932nobodyさん03/03/08 21:21ID:b2yfloXL
お願いします。お知恵をお貸し下さい。

目的のスクリプトは、
２ｃｈ風の画像張付（返信にも画像投稿可能）掲示板なのですが、
記事の部分をＳＱＬを使ってデータベースに記録しています。

これをＳＱＬが使えないところで、使いたいので、
なんとか、テキストなりのファイルに記録するようにしたいのですが…

（ちなみに、ＸＲＥＡで設置してみましたが、
　すこし、なおして動くようになりましたが、最初の１ページしか
　表示されず、生成されたＨＴＭＬにアクセスできないという、
　よくわからない状態になってしまいました。）

よろしくお願いします。

http://moe.homelinux.net/soft/rev708.zip
093393203/03/09 01:56ID:jq/gPxKU
どうもすみませんでした。
自分でいろいろやってみたんですが、
あれから、全然進展しなくて。

それで、これの参考元をさがしたら…
ちょうど、自分の思ってたものがありました！
どうも、お騒がせしました。

ちなみに、「鏡のくに」ってとこのスクリプトです。（ｐｈｐ）
0934nobodyさん03/03/09 12:22ID:57f77bEe
>>931よろしくおねがいします
0935nobodyさん03/03/09 12:53ID:hIa+sLU+
すいません、相談させてください。
今、
　「日記を増やせるタイプ」
　「左フレームに作者の日記タイトル、右に日記の内容」
　「各日記ごとに感想をゲストが投稿できる」
　「（できれば、一番最近に更新されたものがわかるようなものがいいです）」
上のような感じのものを探しているんですけど、見つかりません。（T^T)

http://www.t-okada.com/cgi/cgi_scripts/10_20_log.html
　（サンプルは→　http://www.t-okada.com/sh1_diarys/

今の所、↑が一番イメージに近いので、これにレスがつけられたら最高なんですが、
そういう風にはできないでしょうか？

今、20人位の日記のホームページに私も参加しているんですけど、みんなで１つの
日記を使っているので、ゴチャゴチャしていて、とっても使いづらくて…。（T^T)
（1個の普通の掲示板を日記代わりにみんなで使っています　＾＾；）

あと上のは、最後に更新された日付が最初の左フレームに表示されてとても見やすいと思うので、これにレスをつけられたら最高だなぁ～って思うんですけど、どなたかお力をお貸しくださいませんでしょうか。

依頼で、すいません。
どうか、よろしくお願い致します。　m(__)m
0936nobodyさん03/03/09 13:18ID:???
>>935
ttp://www.t-okada.com/cgi-bin/sn_diary/sn_diary.cgi
じゃダメな理由はなんなんだYO(;´Д｀)
レス数が900を超えています。1000を超えると表示できなくなるよ。