以下、名無しに変わりましてゴミがお送りします<><>2007/02/03(土) 04:59:19.07 ID:bvdDK7co<>toshinari.net
http://www.toshinari.net/

本家改造板
http://cgi.toshinari.net/support/custom/<>toshinari.netCGI改造スレ in ゴミ箱<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/03(土) 05:14:01.99 ID:bvdDK7co<>145 名前:荒巻@中の人 ★[] 投稿日:2007/02/02(金) 00:20:57.91 ID:???
>>141

#おみくじ
if($in{'FROM'} =~ /\!omikuji/) {
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
if ($mday == 1){
@omikuji = ("大凶","凶","小吉","末吉","吉","中吉","大吉","だん吉","ピョン吉","豚");
$i1 = int(rand($#omikuji));
$in{'FROM'} = "</b> 【$omikuji[$i1]】 <b>";
}else{
$in{'FROM'} = "</b> 【毎月1日限定ですよ。。】 <b>";
}
}

確立計算を考えないならこれでおk

>>144
><;<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/03(土) 14:45:04.90 ID:WB53oaY0<>sub get_time{
my($wtime,$now,$msec,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$date);
($wtime,$now,$msec,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
#小数点以下の時間を取得
use Time::HiRes;
$now = Time::HiRes::time;
($wtime, $msec) = split(/\./, $now);
$msec = substr($msec, 0, 2);
$date = sprintf("%02d\/%02d\/%02d\(%s) %02d\:%02d:%02d.%02d",$year-100,$mon+1,$mday,$week[$wday],$hour,$min,$sec,$msec);
if($getid) {
$date = $date." ID:".id();
}
return $date;
}

こんな感じにやってみたが、いざ書き込むと
-97/02/03(土) 105:14:01.99
とかになってしまう。
誰かHELP<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/04(日) 01:14:34.50 ID:ccg0BFs0<>運用情報に立てて荒巻くんに教えてもらうってのが
手っ取り早かった気がするさ。

スレッドムーバーか運用情報に立て直すかしたらどーだろう、<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/04(日) 02:02:26.57 ID:ccg0BFs0<>    #IP規制
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /123\.456\.789\.123/){
error("規制されています");
}

こんな感じに書き込み規制ってできないもんかね。<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/05(月) 01:55:40.90 ID:NxNpIzk0<>$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /IP1|IP2|IP3|/){
error("規制されています");
}

こんな感じじゃ駄目?
<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/05(月) 17:34:56.45 ID:5LWetZIo<>その方法だと不便な希ガス<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/05(月) 23:49:23.41 ID:8IR4Wxs0<>
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /123.456.789/){
error("規制されています");
}

これを適当なとこにポンとおけばいいの?
でも普通に書き込めたんだけど・・・。<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/05(月) 23:49:56.63 ID:8IR4Wxs0<>htaccessからだと簡単だけど、
読むことすらできないってのも不便な感じだしね。<> なすーん<>なすーん<>なすーん<>                     __        、]l./⌒ヽ、 `ヽ、     ,r'7'"´Z__
                      `ヽ `ヽ、-v‐'`ヾミ| |/三ミヽ   `iーr=<    ─フ
                     <   /´  r'´   `   ` \  `| ノ     ∠_
                     `ヽ、__//  /   |/| ヽ __\ \ヽ  |く   ___彡'′
                      ``ー//   |_i,|-‐| l ゙、ヽ `ヽ-、|!  | `ヽ=='´
                        l/| | '| |!|,==| ヽヽr'⌒ヽ|ヽ|   |   |
  ┏┓  ┏━━━┓              | || `Y ,r‐、  ヽl,_)ヽ ゙、_ |   |   |.         ┏━┓
┏┛┗┓┗━━┓┃              ...ヽリ゙! | l::ー':|   |:::::::} |. | / l|`! |i |.        ┃  ┃
┗┓┏┛     ┃┃┏━━━━━━━.j | l|.! l::::::ノ ,  ヽ-' '´ i/|  !|/ | |リ ━━━━┓┃  ┃
  ┃┃    ┏━┛┃┃       ┌┐   | l| { //` iー‐‐ 'i    〃/ j|| ||. |ノ        ┃┃  ┃
  ┃┃   ┃┏┓┃┗━━━.んvヘvヘゝ | l| ヽ  ヽ   /   _,.ィ ノ/川l/.━━━━━┛┗━┛
  ┃┃  ┏┛┃┃┗┓     i     .i  ゙i\ゝ`` ‐゙='=''"´|二レ'l/″           ┏━┓
  ┗┛  ┗━┛┗━┛    ノ      ! --─‐''''"メ」_,、-‐''´ ̄ヽ、              ┗━┛
                   r|__     ト、,-<"´´          /ト、
                  |  {    r'´  `l l         /|| ヽ
                  ゙、   }   }    | _|___,,、-─‐'´ |   ゙、
                    `‐r'.,_,.ノヽ、__ノ/  |  |      |、__r'`゙′
                            |   |/     i |
                             |          | |<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/06(火) 23:42:06.51 ID:kAJ21yg0<>    $nokori == 14 - $mday
if(length($in{'FROM'}) == 0){$in{'FROM'} = "残り$nokori日です";
}

こんな感じで残り何日ってできないか<> 以下、名無しに変わりましてゴミがお送りします<>ブーン<>2007/02/07(水) 22:02:04.39 ID:⊂(^ω^)⊃<>スレタテ規制のソースは?<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/08(木) 01:30:12.71 ID:UEzvSSg0<>>>12
スレタテ規制ってどんなのなの?<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/08(木) 23:50:17.11 ID:SrdXfyQ0<>ああ、
立てすぎ規制のことだよ。<> 以下、名無しに変わりましてゴミがお送りします<>sage<>2007/02/10(土) 02:03:58.48 ID:Wv5Aj1ko<>名無しランダムを考えてみる
&name;
$in{'MESSAGE'} =~ s//$name/g;

sub name {
my(@random);
@random = ("発毛の途中ですがハゲです","発展の途中ですが先進国です","VIP皇帝","金ヅル","妄想の激しい事務員@奈良県","統合失調症ですが名無しです","仲間外れ","名無し所属タレント","単細胞","コンニャク","仕切り屋","番組の途中ですがおっさんです","無限の可能性を秘めた若者");
$name = $random[int(rand($#random+1))];
}

こらじゃ駄目だった<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/10(土) 16:34:25.73 ID:IBWRMJA0<>>>15
らめぇ板で実装されているアレですか?<> 以下、名無しに変わりましてゴミがお送りします<><>2007/02/10(土) 20:15:02.52 ID:R1zdbaw0<>ていうかこのスレはらめぇ板の管理人がここからソースを盗むためのスレだと予想<> 以下、名無しに変わりましてゴミがお送りします<>sage<>2007/02/10(土) 23:05:27.24 ID:Wv5Aj1ko<>>>16
うん<> 以下、名無しに変わりましてゴミがお送りします<>sage<>2007/02/11(日) 00:19:23.71 ID:lIHzERso<>荒巻生存確認出来たけど、案の定このスレは着てないな<> 以下、名無しに変わりましてゴミがお送りします<><>2008/09/27(土) 18:39:36.19 ID:7lhrH9s0<>IP取得ってどうすればいいかな?<>