他の閲覧方法【
専用ブラウザ
ガラケー版リーダー
スマホ版リーダー
BBS2ch
DAT
】
↓
VIP Service
ゴミ箱
更新
検索
全部
最新50
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>";
}
}
確立計算を考えないならこれでおk
>>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取得ってどうすればいいかな?
7.33 KB
Speed:0
[ Aramaki★
クオリティの高いサービスを貴方に
VIPService!]
↑
VIP Service
ゴミ箱
更新
専用ブラウザ
検索
全部
前100
次100
最新50
新着レスを表示
名前:
E-mail
(省略可)
:
書き込み後にスレをトップに移動しません
特殊変換を無効
本文を赤くします
本文を蒼くします
本文をピンクにします
本文を緑にします
本文を紫にします
256ビットSSL暗号化送信っぽいです
最大4096バイト 最大20行
画像アップロードに対応中!
(http://fsmから始まる
ひらめアップローダ
からの画像URLがサムネイルで表示されるようになります)
スポンサードリンク
Check
Tweet
荒巻@中の人 ★
VIP(Powered By VIP Service)
read.cgi ver 2013/10/12 prev 2011/01/08 (Base By
http://www.toshinari.net/
@Thanks!)
respop.js ver 01.0.4.0 2010/02/10 (by fla@Thanks!)