トップページ⇒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化済み)
0822nobodyさん03/02/11 08:22ID:R89Bia6B
>821
スクリプトじゃなくてhtmlの段階だと思うんだけど、
文字サイズじゃなくてテーブルの幅を固定したいってことで良いのかな？
print "<th>Comment　　[[[この↓部分です]]</th>\n" if($commente);
ってところの<th>を<th width=\"300\">とかにしたら良いんじゃない。
300の部分は勝手に変えるよろし。
0823nobodyさん03/02/11 09:50ID:???
>>822
説明の仕方が悪くてすみせまん、テーブルの幅ではなく　文字サイズです
具体的に言うと
[[[この下の部分です]]]の下にある場所の
CNN　スペースシャトル　と表示されている場所の文字の大きさ(サイズ)を固定したいのです

えーとわかりやすくhtmlであぷしてみました
http://mint363.ddo.jp/test.html
これだとブラウザの表示サイズが「大きい」だとずれてしまうので
表示サイズ中で見て下さい
何がしたいのかというと
観覧者のブラウザに関係無く
どのブラウザで見ても上にupしたhtmlのように見せたいのです

長くなってすみせまんでした、助言頂けると幸いです




0824nobodyさん03/02/11 12:45ID:???
>>823
print "<td><b><MOMO><font size=2>$comment</font></td>\n" if($commente);
↓
print "<td class=\"comment\">$comment</td>\n" if($commente);

こうでもしといて147行目からの CSS の設定に
td.comment { font-size:13px ; font-weight:bold ;}
とか適当に追加

これでご要望どおりになると思う。ネスケだと変るけどね。これはブラウザの仕様。

どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。
082582103/02/11 15:06ID:???
>>824
できました!
どうもありがとうございます!!
自分ではcgi作成(1から)の経験が無いので本当に助かりました

>どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
>固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。

やっぱりそうですよね
html勉強時代何処かで固定は良くないとかありました
けれどやっぱり自分のこだわった大きさで見てみたいなーと思ったり
何はともあれ教えてくれてありがとうございました
0826nobodyさん03/02/11 18:05ID:???
なんかさ、最近勉強する気がない覚える気が無いお願い厨が多い気がするんだが･･･。
0827nobodyさん03/02/11 18:11ID:???
ていうかWebProgじゃないよな…
0828nobodyさん03/02/11 19:57ID:DLCyWGmC
&get_date;
if(!$name){$name = "名無し";}
if(!$subject){$subject = "無題";}
if(!$pass){&error("削除パスが記入されていません");}
if(!$comment){&error("コメントが記入されていません");}

このようなエラーサブルーチンに投稿バイト制限を付けるにはどうやったらいいんでしょうか？
082982803/02/11 20:02ID:DLCyWGmC
厳密には1KB以上の投稿を受け付けないようにしたいのですが。
0830本７ ◆HON7/awDa. 03/02/11 20:05ID:???
たびたびすんません。
ｃｇｉの生ログの閲覧禁止とパーミッションに関してはどこで質問したらいいですか？
0831nobodyさん03/02/11 20:11ID:???
>>830
DocumentRoot以下には置かないようにするとか、suEXECが有効になっているのならば所有者以外の権限を全て奪うとか。
0832本７ ◆HON7/awDa. 03/02/11 20:14ID:???
infoseekなんでかどうかわからないんですがパーミッションをｆｆｆｔｐでオーナーだけ実行できてグループとその他は
呼び出しだけにすると４０３なんですよ
0833nobodyさん03/02/11 20:16ID:???
>>828
if (length($comment) > 1024) { &error("コメントが長すぎます"); }
0834nobodyさん03/02/11 20:20ID:???
>>832
セキュリティを気にするならinfoseek(isweb)はやめましょう。
0835nobodyさん03/02/11 20:23ID:???
>>832
パーミッションは実際に設定した数字で書くこと。
その文章だと744になるが。
つーか、質問の意味が全然わからん。
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
コメントアウトというのはそれをけせってことですよね？
レス数が900を超えています。1000を超えると表示できなくなるよ。