toshinari.netCGI改造スレ　in ゴミ箱

Check Tweet

1 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/03(土) 04:59:19.07 ID:bvdDK7co

toshinari.net
http://www.toshinari.net/

本家改造板
http://cgi.toshinari.net/support/custom/

2 ：以下、名無しに変わりましてゴミがお送りします ：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>";
}
}

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

>>144
＞＜；

3 ：以下、名無しに変わりましてゴミがお送りします ：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

4 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/04(日) 01:14:34.50 ID:ccg0BFs0

運用情報に立てて荒巻くんに教えてもらうってのが
手っ取り早かった気がするさ。

スレッドムーバーか運用情報に立て直すかしたらどーだろう、

5 ：以下、名無しに変わりましてゴミがお送りします ：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("規制されています");
}

こんな感じに書き込み規制ってできないもんかね。

6 ：以下、名無しに変わりましてゴミがお送りします ：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("規制されています");
}

こんな感じじゃ駄目？

7 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/05(月) 17:34:56.45 ID:5LWetZIo

その方法だと不便な希ガス

8 ：以下、名無しに変わりましてゴミがお送りします ：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("規制されています");
}

これを適当なとこにポンとおけばいいの？
でも普通に書き込めたんだけど･･･。

9 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/05(月) 23:49:56.63 ID:8IR4Wxs0

htaccessからだと簡単だけど、
読むことすらできないってのも不便な感じだしね。

10 ：なすーん [なすーん]：なすーん

　 　　　　　　　　　　　　　　　　　　　__　　　　　 　 ､]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　|
　 　　　　　　　　　　　　　　　　　　　　　　　 　 　|　　　　　　　　　 | |

11 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/06(火) 23:42:06.51 ID:kAJ21yg0

　　　　$nokori == 14 - $mday
if(length($in{'FROM'}) == 0){$in{'FROM'} = "残り$nokori日です";
}

こんな感じで残り何日ってできないか

12 ：以下、名無しに変わりましてゴミがお送りします [ブーン]：2007/02/07(水) 22:02:04.39 ID:⊂(^ω^)⊃

スレタテ規制のソースは？

13 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/08(木) 01:30:12.71 ID:UEzvSSg0

>>12
スレタテ規制ってどんなのなの？

14 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/08(木) 23:50:17.11 ID:SrdXfyQ0

ああ、
立てすぎ規制のことだよ。

15 ：以下、名無しに変わりましてゴミがお送りします [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))];
}

こらじゃ駄目だった

16 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/10(土) 16:34:25.73 ID:IBWRMJA0

>>15
らめぇ板で実装されているアレですか？

17 ：以下、名無しに変わりましてゴミがお送りします ：2007/02/10(土) 20:15:02.52 ID:R1zdbaw0

ていうかこのスレはらめぇ板の管理人がここからソースを盗むためのスレだと予想

18 ：以下、名無しに変わりましてゴミがお送りします [sage]：2007/02/10(土) 23:05:27.24 ID:Wv5Aj1ko

>>16
うん

19 ：以下、名無しに変わりましてゴミがお送りします [sage]：2007/02/11(日) 00:19:23.71 ID:lIHzERso

荒巻生存確認出来たけど、案の定このスレは着てないな

20 ：以下、名無しに変わりましてゴミがお送りします ：2008/09/27(土) 18:39:36.19 ID:7lhrH9s0

IP取得ってどうすればいいかな？