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

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

■ このスレッドは過去ログ倉庫に格納されています
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化済み)
0512α ◆HCOpYnZA7c 02/12/31 14:56ID:KGoFfbhM
このcgiはテキスト形式でやると汚くなるんですよ>>511
0513α ◆HCOpYnZA7c 02/12/31 15:03ID:KGoFfbhM
http://dream.s17.xrea.com/s/ichat.txt>>511
0514nobodyさん02/12/31 15:13ID:???
>>513
939行目
$a3 = "ROM：$rom_num人 ";
↓
$a3 = "ROM：$rom_num人 $rom_member ";


1179行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";

1187行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($y2[1]) ";

1205行
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";

こんなんでいいの？
0515α ◆HCOpYnZA7c 02/12/31 18:27ID:NfjjwQzQ
１分以内ロムってる場合IP表示これが発動してないような
0516nobodyさん02/12/31 18:43ID:???
>１分以内ロムってる場合IP表示これが発動してないような
意味が分からないのですが
0517nobodyさん02/12/31 18:43ID:???
そういう機能つけるのむりっぽいのでいいですぅ。
後そのチャットに発言ランキングをつけたいのですが、どのようにすればいいんでしょうか？
0518nobodyさん03/01/01 13:22ID:SdsD4VAk
age
0519nobodyさん03/01/01 14:54ID:???
＞つけたいのですが
付いてるスクリプト探せば？
0520α03/01/01 14:58ID:SdsD4VAk
そこで配布されてるCGIがどうしてもつかいたいのです
0521nobodyさん03/01/01 15:28ID:???
「１分以内」じゃなくて「１分以上」でしょ。。。
0522nobodyさん03/01/01 20:12ID:???
＞αさん
教わる場合はもっと礼儀をしっかりしましょうよ・・・。
ここに人たちは純粋に善意で教えてるんだからさ・・・。
0523nobodyさん03/01/01 21:34ID:???
女子は画像添付だよ
守れよ〜
0524名無しさん＠お腹いっぱい。03/01/02 01:56ID:???
KENTさんのとこのプチ☆ボードにスレッドごと及びレス記事に番号つけてようは
ここの掲示板みたいなやつ。んでレスカット機能つけて全レス読むでread.cgiを
使って表示するという改造を（read.cgiは探してきます。）したいのですが・・・。
当方やっと本、片手にシンプルな掲示板が組めるようになった程度でスキルが
ありません。ご協力お願いします。
0525nobodyさん03/01/02 04:52ID:???
>>524
鬼レスボードじゃだめ？
あれはPetitベースだけど・・・
って、見てきたら配布終了してたわ
代わりにeMzStyle Boardに同等の機能が在るとの事
ttp://mic.sites.cc/
0526α03/01/02 12:32ID:DP7C43xk
>>522スイマセン、今度からきおつけます。
0527α03/01/02 16:01ID:BNSxPHvc
そのチャットに発言ランキングをつけたいのですがどのように改造すればいいんでしょうか？
0528nobodyさん03/01/02 17:23ID:???
perl覚えてください




とミもフタもないことを言ってみるﾃｽﾄ
0529名無しさん＠お腹いっぱい。03/01/02 18:58ID:???
>>525
ありがとうございます。でもなんつ〜か自力で（ここで聞いてる時点でそうでは
ないけど）改造したいんですよね。ただ設置するだけでは意味がないような気が
するんですよね。

自分で頑張ってみて自力で無理なとこ（ほぼ全部だけど・・・）はソース張るので
ご協力していただけたらと思います。
0530名無しさん＠お腹いっぱい。03/01/02 21:06ID:???
すみませんが協力してください。お願いします。

現在、PETIT BOARDを改造しています。というより機能削り？以下、詳細です。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit1.txt

それで投稿フォームを別画面に表示する改造をしているんですがスクリプト自体は
動いていて投稿フォームのみエラーになるという現象が起きています。アドバイスお願いします。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit.txt
053152903/01/02 21:09ID:fb82aWK0
>>530
ちなみに529です。名前変更するの忘れました。
053251503/01/03 14:01ID:sga5e0Hj
自分なりにichatに発言ランキングいれようとしたけど、無理でした。
発言ランキング使けかたおしえてください
0533nobodyさん03/01/03 17:04ID:???
>>530
投稿フォームへのリンクを消せばいいだけだと思うが。
すっきりさせたいならsub newk{} とそれを呼び出している部分も消せばいい。
具体的には193行目と237行目とsub newk{}全体。
まあ機能削りなんかするくらいなら一から自分で作ったほうが良いとは思うがな。
053453303/01/03 17:11ID:???
ちなみに #!/usr/local/bin/perl の下あたりに
use CGI::Carp qw(fatalsToBrowser);
と書いておくとブラウザにエラーが表示されるのでおすすめ。
0535nobodyさん03/01/03 18:01ID:Dyvox6wr
http://mtbbs.tr-w.net/
で配布してる掲示板なのですが、一番下の記事には
全部読む 最新50 1-100 板のトップ リロード
って表示されません。
http://mtbbs.tr-w.net/yy2ch.html
のサンプルにも表示されていません。
どうすれば表示されるようになりますか？
0536nobodyさん03/01/03 18:14ID:yYHPzW2l
初めまして、質問させていただきます。

.htaccessが設置できない鯖で、perlでホストによるアクセス制限をしたいと思っています。

例えば、"jp"と"hoge.com"をアクセス禁止にしたい場合は下記のようになると思うのですが

----

$host[0] = ".jp";
$host[1] = ".hoge.com";

local($match) = 0;
foreach (@host) {
if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }
}
if ($match) {
print "Content-type: text/html\n\n";
print "<html><body>アクセスできません</body></html>";
exit;
}

----

この逆で"jp"と"hoge.com"のみ許可したい場合の記述の方法が今ひとつ良く分かりません。
ご教授お願い致します。
053751503/01/03 18:15ID:d+mRDn0L
教えてください
0538nobodyさん03/01/03 18:51ID:???
>>536
if ($match) を if (!$match) にするだけ。
それと余計なお世話かもしれないが、本当にやりたいことは
@host = ('\.jp$', '\.hoge\.com$');
なんだと思う。
0539nobodyさん03/01/03 18:51ID:???
>>536
単純に
if(!$match){
じゃダメなの？
0540冬厨 ◆j0Oon93KwY 03/01/03 18:53ID:???
>>536
if($match)
を
if(!$match)
にするだけで、$matchじゃなかったら「書き込めません」と出るようになります。
054153603/01/03 18:54ID:???
>>538-539
ご回答ありがとうございます！早速やってみます。
0542冬厨 ◆j0Oon93KwY 03/01/03 18:54ID:???
レスが遅くて被りまくり・・・。
054353603/01/03 18:57ID:???
>>冬厨様
ありがとうございます。
054453603/01/03 21:01ID:???
先ほど質問させて頂いた536です。

教えて頂いた通りに記述してみたところ、ホスト名をIPアドレスで指定した場合は正常に動作しましたが、"jp"などドメイン名で指定すると上手くいきませんでした。
恐らくIPアドレスからホスト名の逆引きが上手く出来てないと思い、

if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }

を

if ($ENV{'REMOTE_HOST'} =~ /$_/) { $match=1; last; }

としたけどだめでした。

また、538さんが指摘して頂いた

@host = ('\.jp$', '\.hoge\.com$');

↑を使って記述したいいと思い色々弄ってみたのですが、私がやるとスクリプトエラーになってしまいます。

初歩的な質問で大変恐縮なのですが、改善策をご指導願えますか？
054553803/01/03 22:09ID:???
>>544
まず本当にホストの逆引きができていないか $ENV{REMOTE_HOST} の内容を
表示して確認する。(printデバッグ)
IPアドレスが表示されるなら
$ENV{REMOTE_HOST} = gethostbyaddr(pack("C4", split /\./, $ENV{REMOTE_ADDR}), 2);
たぶんこれでいける。
スクリプトエラー云々は単なる記述ミスだと思うが…。
perl -cw なり >>534 の方法で確認。
0546名無しさん＠お腹いっぱい。03/01/04 00:16ID:3GL3mxm0
>>534
とりあえず軽量化するための苦肉の策として投稿フォームをhtmlで
吐き出すことにしました。名無し投稿が可能なので匿名投稿可というのをクッキーの
言い訳に・・・（ｗ　返信フォームではクッキーが有効なので大して問題もないですので

ご協力ありがとうございました。
054751503/01/04 09:35ID:KfYBPbca
AGE
発言ランキングどうやったらつけれるんですか？
0548nobodyさん03/01/04 14:59ID:???
>>547
入れようとして無理だったなら途中までのソース見せれ
054953603/01/04 19:17ID:???
>>538さん
教えて頂いた通りにしたら今度は上手くいきました！ご丁寧にご教授頂き本当に助かりました。有難うございました。
055051503/01/05 13:38ID:ApfC6Obw
age
0551nobodyさん03/01/05 18:18ID:???
newbbをi-mode用に改造しなさい
0552503/01/06 07:38ID:Fttc1nxV
age
0553nobodyさん03/01/06 11:40ID:JetMYh6a
ttp://dream.lib.net/room/cgi/e_linebbs.html
の改造なんですが、
新しい投稿が上にくるようにしたいのですがどうすればいいでしょうか？
投稿が増えると最新の投稿を見るためにいちいち一番下までスクロールさせないといけないのです。
アドバイスお願いします。
0554nobodyさん03/01/06 12:24ID:???
ソース見るの面倒だからどっかにうｐくらいｼﾚ！








まぁ、これくらいなら大体分かるか…
ログを記録するところがunshiftになってると思うから
pushにしれば完了
055555303/01/06 12:40ID:???
うわ！ほんとにできました！！！
天才かと思いました。俺、素人ですが。
ソースのアップすみませんでした。めんどくさいの忘れてました。
あああ。マジうれしい。ありがとうございました！！
0556nobodyさん03/01/06 17:12ID:mytKFvww
このスクリプトをhttp://asia.cnn.comの右下のQUICK VOTEにNOで答えるように
改造できないでしょうか？

<HTML><HEAD><TITLE lang="ja">ﾀｼｰﾛ砲</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
</HEAD><BODY>Interval<input type="text" name="ival" value="1">
<input type="button" value="攻撃開始" onClick="c();">
<script type="text/JavaScript">
var tid;var ta=
"ここに攻撃目標を入力"
;w=window.open(ta,'san','WIDTH=100,height=50');
function c(){
w.location=ta;
tid=setTimeout("c()",ival.value);
}
</script></BODY></HTML>
0557nobodyさん03/01/06 18:30ID:???
誰か発言ランキングのつけかたおしえてくださいよぉ
0558おしえてください03/01/07 00:56ID:9J/jFVqF
「劇空間ぱわふるリーグ２（改）」という野球のCGIゲームなんですが、ご教授ねがえないでしょうか？
このゲーム、投手２人制なんですが、増員したくて４人にする事には成功したんです。
が、試合後に投手全員の「調子」を変更してローテーションを回す部分が解らないんです。

http://ari-sin3.hp.infoseek.co.jp/cgi-bin/source3/No_0024.txt

↑実際に試合を行うスクリプトです。
この中の「投手データ更新」の項目の部分らしいんですが、
これだと、打順９（先発投手）が打順１２（控え）になって、打順１２の控え投手が次回先発の打順９になるだけで、他の控え１０と１１の投手は全く移動が無くて４人で上手くローテーションが回りません。
どうかお知恵をお貸しくださいませんでしょうか？
0559nobodyさん03/01/07 04:43ID:zIfwbm71
>>558
そんなクソソース読む気がせん。が、

koushin_pitchの中の

}else{
$jun[$i][$k] = 9;
$kk = 8;
}

↓

#$jun[$i][$k] に打順が入っていると仮定
#$kkはその沿え字と仮定

↓

}else{
$jun[$i][$k] = $jun[$i][$k] - 1;
$kk = $kk-1;
}

で動く、かも。間違ってたらスマンということで。
0560vvv03/01/07 05:43ID:LnDaxIug
◆◇◆◇◆最新情報◆◇◆◇◆
http://yahooo.s2.x-beat.com/linkvp/linkvp.html
0561nobodyさん03/01/07 10:09ID:???
発言ランキングのつけかたおしえてください
0562nobodyさん03/01/07 17:12ID:???
>>561
どういったものを希望しているのかわからんが…。
名前ごとの発言回数を記録したいならこれでいけると思う。
sub rank($) {
    my($name) = @_;
    my $found = 0;
    my @log;

    open RNK, "+<", $rankfile or error("Can't open file:$rankfile");
    eval "flock RNK, 2;";
    while (<RNK>) {
        chomp;
        my($log_name, $log_count) = split /\t/;
        if ($name eq $log_name) {
            push @log, join("\t", $name, ++$log_count) . "\n";
            $found = 1;
        } else {
            push @log, join("\t", $log_name, $log_count) . "\n";
        }
    }
    if (!$found) {
        push @log, join("\t", $name, 1) . "\n";
    }
    truncate RNK, 0;
    seek RNK, 0, 0;
    print RNK @log;
    close RNK;
}
0563nobodyさん03/01/07 17:13ID:???
(続き)
sub viewrank {
    open RNK, "<", $rankfile or error("Can't open file:$rankfile");
    eval "flock RNK, 1;";
    my @rank = <RNK>;
    close RNK;
    # by perlメモ
    @rank = map {$_->[0]}
           sort {$b->[2] <=> $a->[2]}
               map {[$_, split /\t/]} @rank;

    hphead();
    print qq[<h1>発言ランキング</h1>\n].
          qq[<table border="1">\n].
          qq[<tr><td>名前</td><td>発言回数</td></tr>\n];
    foreach (@rank) {
        chomp;
        my($name, $count) = split /\t/;
        print qq[<tr><td>$name</td><td>$count</td></tr>\n];
    }
    print qq [</table>\n];
    hpfoot();
}
056455803/01/07 17:17ID:sAGCj5os
>>559さん

見事にローテーション回りました♪
ありがとうございますm(_ _)m
>そんなクソソース読む気がせん。
やっぱり酷いスクリプトなんっすか？
もともとFFAの改造らしいですが。
「劇ぱわ」を改造したはる人の間ではわかりにくいと評判のようです(w
0565名無しさん＠お腹いっぱい。03/01/07 20:08ID:???
>>564
スクリプトいじれもしねぇ〜くせにガタガタ抜かしてんじゃねぇ〜。この真性包茎が！
0566nobodyさん03/01/07 20:21ID:2QX2iHj7
初めまして。
ご指導を仰ぎたく書き込ませていただきます。
>>34でも挙げられているエースさんの履歴風掲示板、
http://www.ace-cgi.jp/cgi/sch/005/index.html
（サンプル：ttp://www.ace-cgi.jp/cgi/sch/005/sample/sch005.cgi）を
サッカーチームの日程紹介に利用したいと思っていますが、
1月が一番上、12月が一番下と、これから来る月が
下方に表示されるようにしたいのですが、
どのようにアレンジすればよろしいでしょうか。
また、上のフレーム上部にタイトル画像を表示させたい場合はどの位置に
$titleを記入すればよいのでしょうか。

お手数をおかけして申し訳ございませんが、
ご回答いただければ幸いです。なにとぞよろしくお願いいたします。
056755803/01/07 21:25ID:sAGCj5os
>>565

なっ、なぜわかった！？
0568名無しさん＠お腹いっぱい。03/01/07 21:56ID:0U86HUrj
>>567
最もらしい顔して書き込んでればみんな職人さん！ってわけではないのだよ。
ソース以前にこんなスクリプト使う奴の気がしれん。ネパワでよくみかけるが。
0569名無しさん＠お腹いっぱい。03/01/07 22:00ID:???
>>566
なぜソースをあげないのかと小一時間・・・。34のファイルはすでに消えているし
あったとしても圧縮ファイルじゃほとんどの人は読まないよ。君がtxtで
うｐしなよ。
057055803/01/07 22:05ID:sAGCj5os
>>568

いや、真性包茎のほうでつが．．．＜なぜわかった！？

冗談はさておき、連勝中のチームでのローテが上手く回らない事が判明しました。(ToT)
症状をまとめるため、もう少し試合重ねてみます。
（今のところ、数連勝していると投手の打順が８や７になって、野手として試合参加してしまいます）
0571nobodyさん03/01/08 18:22ID:???
>>562-563それはどこにかけばいいんですか？
0572nobodyさん03/01/08 18:52ID:???
>>571
取り敢えず最終行で良いんじゃねぇの？
てか、これ位も判らないんじゃ話にらん
少しはPerl勉強して出直してこい
0573nobodyさん03/01/08 19:58ID:/YJAwlvJ
発言ランキングを表示するところをつくれば表示されますよね？
0574nobodyさん03/01/08 22:24ID:???
お邪魔します。

http://kano.feena.jp/erial/ealis2/
こちらで配布されている掲示板、ealisv2.59なんですが
一定のレス数を超えると古いレスから隠れるよう改造したいのです。
自分なりにいろいろやってみたとか言うつもりはありません
まったく知識はなくコピペしかできません。
>>1の注意事項(3)少しは自分で考えること。に違反してしまいますがどうか宜しくお願いします。

掲示板サンプル
http://kano.feena.jp/cgi/sample/e25/ealis.cgi
ソースはこちらに
http://henachoko.homeip.net/uploader/updata/20030108220620.txt
0575名無しさん＠お腹いっぱい。03/01/09 00:34ID:???
>>570
ずっとそのままなら手術だな（藁
0576nobodyさん03/01/09 00:37ID:???
>>574
# ealis_cfg.cgi
以下の行を追加
$INI{'res_view'} = 5; # レスの表示数

# ealis_let-std.pl
sub lettering 内にあるif文を書き換える
if ($oyaflag) {
    #この中はそのまま
} else {
    if($flag != 2) { print "<br><hr width=\"95%\" size=1 class=r noshade>\n"; $flag = 2;}
    $resflag = 1;
    if (@res >= $INI{'res_view'}) {
        shift @res;
    }
    push @res, join("\t", $name, $color, $ipaddr, $font, $comment, $date);
}

以下を追加
sub printres {
    foreach (@res) {
        my($name, $color, $ipaddr, $font, $comment, $date) = split /\t/;
        print qq[\t<table border=0 cellspacing=0 cellpadding=0><tr><td nowrap valign=top>\n].
              qq[\t<font color="$color"><b>$name</b><!-- $ipaddr --> ></font></td>\n].
              qq[\t\t<td$font><font color="$color">$comment</font>\n].
              qq[\t\t<span class="stamp">($date)</span></td></tr></table>\n];
    }
    $resflag = 0;
    @res = ();
}
0577nobodyさん03/01/09 00:38ID:???
(続き)
# ealis.cgi
106行目あたりにある if($flag){ &reswindow($_[0]);} の上に
if($resflag) { printres(); }
を追加。119行目あたりにもあるので同様に。
057857403/01/09 02:37ID:???
>>576-577
すいませんファイルが足りなかったようで、ありがとうございます。

そのように書き換え・追加したのですが
記事が表示されなくなりました。

ealis_let-std.plのソース
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
ealis.cgiのソース（追加した所以外省略）
http://henachoko.homeip.net/uploader/updata/20030109021527.txt

ealis_cfg.cgiに関してはこのように追加しました。
## ■システム設定

$INI{'allowtag'} =0;# タグの許可(0or1)
$INI{'res_sort'} = 1;# 返信がつくと親記事をトップへ移動 (0or1)
$INI{'autolink'} = 1;# 自動リンク (0or1)
$INI{'ipview'} = 0;# 現在のＩＰ表示(0or1)
$INI{'refcheck'} = 0;# 他サイトから投稿排除する時に指定 (0or1)
$INI{'show'} = 8;# １ページ当たりの記事表示数 (親記事)
$INI{'res_view'} = 5; # レスの表示数
#$INI{'gzip'} = '/bin/gzip';

なにか間違えてますでしょうか？
ご迷惑をおかけしますがよろしくお願いします。
0579nobodyさん03/01/09 02:56ID:???
KENTさんのとこのpatioにトリップつける改造が紹介されてたんですが
ttp://rightstuff.cool.ne.jp/test_site/patio/patio.cgi?mode=view2&f=44&no=10-11
同じほうほうでyybbsに組み込むことってできますかね？
0580nobodyさん03/01/09 03:53ID:???
>>578
あー、スマン。書き方が悪かった。
sub printres はifの中じゃなくて、
ファイルの一番下にでも書いて欲しかった。ってことで
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
の48-54行目を消せばいける。あと25行目の else の閉じ括弧が無いので
それもつけること。
0581nobodyさん03/01/09 05:56ID:???
>>579
まずは自分でやってみる。上手くいかなかったら、はじめてここで質問する。

自分で出来ること（チャレンジ）を端折るな。じゃなきゃ、いつまでたっても
質問廚だぞ。
058257803/01/09 14:28ID:???
>>580
すいません理解力に乏しくて。
48-54を削除し閉じ括弧を付けましたところ
うまく行きました。
感謝します、ありがとうございました。
0583nobodyさん03/01/09 19:18ID:+NBXZYwN
>>562さんおしえて
0584nobodyさん03/01/10 00:40ID:???
>>583
そのトリップを付ける改造方法を紹介してるトコで聞いてみれば？
058548603/01/10 02:34ID:???
同じスレで何度も質問して申し訳ございません。
この掲示板はユーザーがここの書き込みを削除したり、
編集したり出来るようにパスワードをうち込めるのですが、
そのパスワードを管理人用のマスターパスでも削除や編集が出来るようにしたいんです。

http://www2.csc.ne.jp/~nga/light.txt
http://www2.csc.ne.jp/~nga/admin.txt
http://www2.csc.ne.jp/~nga/init.txt

上記の3つがソースなのですが、
改造するのは一番上のメインスクリプトだけだと思いますので他は必要ないと思います。
管理者用パスはadmin.txtにしか設定されていませんので
light.txtの最初の方に$pass = '0123';をいれて、
記事削除の467行目あたりと記事修正の532行目あたりを
改良して色々試してみたのですがどうしてもうまくいきません。
わからないながらも簡単な改良のように思えるので、
またこのスレのお世話になりにきてしまい恥ずかしいかぎりです。
教えて頂ければ幸いです。
058648603/01/10 02:34ID:???
>>507
レス遅くなりました。
複数修正チェック入れさせていただきました。
どんどん機能が増してきて凄く嬉しいです。ありがとうございました。

>>508
パス丸出しでしたw
念の為パスワード変えました。ご指摘ありがとうございました。
0587nobodyさん03/01/10 04:27ID:???
>>585
大まかには理解しているようなのでヒントだけ。
sub decrypt はパスワードが正しければ1、そうでなければ0を
返すようになっている。これをパスワードが正しい、もしくは
管理パスと同じ場合に1を返すようにすれば良い。
0588nobodyさん03/01/10 10:31ID:a9CYRt8t
ワードラップ表示のない掲示板を設置しています。
改行を入れずに記入されると、表示がびよぉ〜んと伸びて、ブラウザを右にスクロールしないと読めなくなります。

普通は、表示のほうでワードラップさせるのでしょうか。

そこで考えているのですが・・・。
掲示板書き込みの、内容チェックルーチンの後ろに、自動整形ルーチンを
持たすようにしたいんです。
昔のMS-DOSの時にあった fin という外部コマンドみたいな機能です。
付け加えたいのは、
.br といった、改行を入れる埋めこみコマンド（一つだけ）
禁則処理
引数で、桁を指定
引数で、インデント桁を指定（これで四角い文書になる）

引数のわたし方ですが、チェックボックスでも作るのがいいでしょうか？

こうした機能がすでに書かれたサブルーチンがどこかにあったら見てみたいのですが、
ご存じないでしょうか？
0589bloom03/01/10 10:51ID:KGaolIdm


http://www.agemasukudasai.com/bloom/
0590nobodyさん03/01/10 11:00ID:???
>>587
管理パスは平文でスクリプトに書いている。
sub decryptは通さないでそのまま比較すればいい。
if ($in{'pwd'} eq $pass)
059159003/01/10 11:28ID:???
>>486,585
sub decrypt {
local($inp, $log) = @_;
の下に
if ($inp eq $pass) {return(1);}
を追加したらどうやろ
059258603/01/10 15:18ID:???
>>587
大まかには理解していると言っていただけて嬉しいです。
最初はほんとにさっぱりわからなくてHTML部分の改造以外できなかったのですが、
毎日わからないながらも試行錯誤していたら少しだけですがわかってきました。
だんだん覚えていくので凄く楽しいです。

>>590
パスを書かないのがif ($in{'pwd'} eq "")だったのでそこにパスを入れれば
「もしもパスが入力されていたら」になるかなぁと思って
それと同じような文を書いたんですけど、結局出来なかったんです。
惜しかったんでしょうか。

>>591(590)
その一行を追加しただけで出来ました！
簡単とは思ってはいましたが一行で済むとは思いませんでした凄いです！
私が考えていた所と全く焦点が違っていた事に驚いてます。
何度も質問したのでもう一度ここのお世話になるか凄く迷ったのですが、
質問してよかったです。（皆様にはお手数かけましたが）
本当にありがとうございました。m(_ _)m
0593nobodyさん03/01/10 17:57ID:ViB4peHI
発言ランキングのつけかたおしえてください
0594nobodyさん03/01/10 18:02ID:???
>>593

>>1を読んでYO

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

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

※答えてくれないからといって逆ギレする厨はお断り
0595nobodyさん03/01/11 01:14ID:???
>>593は少々イジけているんだろ。
すんなり誰も教えて（改造して）くれなかったから。

自分でドコまでやったのか
それを示せばいい答えが返ってくるかも知れないぞ
0596nobodyさん03/01/11 03:55ID:???
>>593はPerl判らないから全部コピペで完全に動作する所まで説明しないと判らないんだろう
って、言うかどう言うのを希望なのかHTMLすら出さないから
HTMLもタグ打じゃ書けないﾖｶｰﾝ
0597nobodyさん03/01/11 12:28ID:???
発言ランキングの奴はcomchatの奴をつかいたいです。
0598nobodyさん03/01/11 13:10ID:???
>>597
KENT氏のCOMCHATについている発言ランキングを
自作のスクリプトに使用したいってことか?

・・・勝手に使えばいいぢゃないかYO
0599nobodyさん03/01/11 13:30ID:???
comchatなんて、元々ゆいちゃっとからのパクりが多いから、全然OKだろう。
0600nobodyさん03/01/11 22:44ID:???
ネットサーフしててあるところの掲示板で見かけたのですが

掲示板の書き込みで

”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ

ようなのを見かけたのですが

どうすればできるのでしょうか？
背景色は外部スタイルシートでしょうか？

よろしくおねがいします

テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）

よろしくおねがいします
0601背景中央っこ03/01/11 23:15ID:h7Wygp1p
perl掲示板の壁紙について質問があります。
現在、
　{
　　print "<body background=\"背景イメージ" bgproperties=\"fixed\"
　}
となっていて、壁紙はリピートになっているのですが、
この壁紙を「中央に１つだけ表示」するにはどうしたらよろしいのでしょうか？
CSSでいうと
.Wallpaper {
background-attachment: fixed;
background-image: url(背景イメージ);
background-repeat: no-repeat;
background-position: center center;
}
の様にしたいのです。
よろしくお願いします。
0602nobodyさん03/01/12 00:39ID:???
>>600
そのyybbs.txtはそのままでも動作しているの?
同じエラーが沢山でていたが・・・トクトクでは動くのかな。。まぁぃぃゃ。。。

背景色を変える方法はスタイルシートやTABLEタグを使ったりすると思います。

アップしたyybbs.txtの
611行目に
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;

577行目
$com =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;

543行目
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;

を追加するようなやり方でも可能です。
0603nobodyさん03/01/12 00:51ID:???
>>602
ぉ！ 間違えてる。。
sも抜けてるし・・・
s/(^|<br>)((>|(?:＞))(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
です。。
0604nobodyさん03/01/12 01:27ID:???
>>601
そのprint文にスタイルシートを追加では
なにか問題があるのでしょうか?

print '<body background="背景イメージ" bgproperties="fixed" style="background-repeat: no-repeat; background-position: center center;">';
0605nobodyさん03/01/12 12:06ID:eJ8Igs3E
今ホムペつくってるんですけど、a.htmというページがあるとしてそこに5人
きてるとします、それでその人数を、b.htmに表示したいんです。
それでhttp://shena.myako.net/strangelady/cgijs/imakoko/imakoko.html
っていうのをみつけたんですがこれはa.htmにきている人数をa.htmにしか表示できないみたい
なんです、このスクリプトを変更してb.htmにでも人数を表示するということはできませんか？
もしそういうことができるなら誰かアドバイスください★
0606nobodyさん03/01/12 12:47ID:???
>>605
以下のように書いてありますが、何か？日本語読めますか？
ＣＧＩファイルをサーバーにアップロードして、ページには１行書き加えるだけ
<script language="JavaScript" src="imakoko.cgi"></script>
0607nobodyさん03/01/12 12:52ID:???
>>605
a.htmlを見ていると思われる人数を
b.htmlに表示することは可能です
マルチポストなので私は改造しませんけれど
0608nobodyさん03/01/12 12:54ID:???
>>605
おまえね、誘導されてきたなら元スレにお礼言ってから
こっちでも誘導されてきましたって挨拶するべきでしょ？
060992703/01/12 13:02ID:???
タッキーズルームのpulinplinkに背景固定のスタイルシートを加えたいんだけど、
どのへんいじったらいいかわかりません。誰か教えてください。
0610nobodyさん03/01/12 13:05ID:???
>>609
>1読んでURL晒せ
0611nobodyさん03/01/12 13:17ID:???
>>609
420行目にbodyタグのCSSとかが在るからそこを書き換え
てか、次からはCGIのテキストをUPするか最低限配布場所のURLを明記しましょう。
■ このスレッドは過去ログ倉庫に格納されています