以下、名無しに変わりましてゴミがお送りします<><>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取得ってどうすればいいかな?<>