$title

好きな言葉で

運勢を大胆予\測!
_TCOM_ # ↑ これは削除不可 $access= 0; # アクセス対象は? # (0=とくに無し 1=J-SKYのみ 2=i-modeのみ 3=ドットiのみ 4=対応携帯端末すべて 5=ezweb(簡易対応)) #-- ここまで -------------------* $j_=0; $i_=0; $a_=0; $e_=0; $Imode=$ENV{'HTTP_USER_AGENT'}; $Jskyw=$ENV{'HTTP_X_JPHONE_MSNAME'}; if($Jskyw ne ""){$j_=1;} if($Imode=~ /DoCoMo/){$i_=1;} elsif($Imode=~ /J-PHONE\/2/){$j_=1;} elsif($Imode=~ /J-PHONE\/[3-9]/){$j_=2;} elsif($Imode=~ /ASTEL/){$a_=1;} elsif(index($Imode,"UP.Browser")==0){$e_=1;} elsif(index($Imode,"UP.Browser") > 0){$e_=2;} if($j_ || $i_ || $a_ || $e_){$PC=0;}else{$PC=1;} if($j_==1){$met="GET";} if($j){$MAX=" maxlength=50";}else{$MAX="";} $html=""; &d_code_; if($mode eq "wri"){&wri_;} if($mode eq "new"){&new_;} if($mode eq "ent"){&ent_;} if($mode eq "log"){&log_;} if($mode eq "cas"){&cas_;} if($mode eq "edit"){&ed_;} if($mode eq "del"){&del_;} if($access){ if($access==1 && $j_==0){&er_("J-Sky端末でｱｸｾｽして下さい!");} elsif($access==2 && $i_==0){&er_("i-mode端末でｱｸｾｽして下さい!");} elsif($access==3 && $a_==0){&er_("ﾄﾞｯﾄi端末でｱｸｾｽして下さい!");} elsif($access==5 && $e_==0){&er_("ezweb端末でｱｸｾｽして下さい!");} elsif($access==4 && $a_==0 && $i_==0 && $j_==0 && $e_==0){ &er_("i-mode/J-Sky/ﾄﾞｯﾄi/ezweb端末でｱｸｾｽして下さい!"); } } &html_; # # [トップページ] # sub html_ { &hed_; $html.= "\n"; $html.= "$title\n"; $html.= <<"_TOP_";

$topcom

[戻]

_TOP_ &foot_; } # # [コメント追加削除] # sub ent_ { if($pass ne "$pas"){ &er_("パスワードが違います!"); } &hed_; $html.= <<"_OTHER_"; 戻
-ｺﾒﾝﾄ追加削除-

_OTHER_ &foot_; } # # [追加フォーム] # sub cas_ { if($pass ne "$pas"){ &er_("パスワードが違います!"); } &hed_; $html.= <<"_FORM_"; TOP/項目選択
-ｺﾒﾝﾄ追加-

_FORM_ open(LOG,"$logs") || &er_("Can't open $logs"); $UP[0] = ; close(LOG); if($logs eq $log[0]){$html.="-ﾗｯｷｰｱｲﾃﾑ-
(物質名)

\n";} elsif($logs eq $log[1]){$html.="-ﾗｯｷｰｶﾗｰ-
(色名)

\n"; $ccc="色";} elsif($logs eq $log[2]){$html.="-ﾗｯｷｰﾋｭｰﾏﾝ-
(人)

\n";} elsif($logs eq $log[3]){$html.="-運勢-
(運勢)

\n";} $html.= <<"_FORM_"; 例：$UP[0]
_FORM_ &foot_; } # # [コメントをログに] # sub log_ { if($pass ne "$pas"){ &er_("パスワードが違います!"); } if($com eq ""){ &er_("コメントが未入力！"); } if(length($com) > 16){ &er_("コメントがながすぎ！"); } open(DB,"$logs") || &er_("Can't open $logs"); @LOGS = ; close(DB); foreach $LOGS (@LOGS) { $LOGS =~ s/\n//g; if ($com eq "$LOGS"){ &er_("同じのがもうある！"); } } open(LOG,">>$logs") || &er_("Can't write $logs"); print LOG "$com\n"; close(LOG); &hed_; $html.= <<"_OK_"; TOP/項目選択
-ｺﾒﾝﾄ追加-

$com を追加しました。 _OK_ &foot_; } # # [管理用] # sub ed_ { if($pass ne "$pas"){ &er_("パスワードが違います!"); } $com_size=(-s $log[0]) + (-s $log[1]) + (-s $log[2]) + (-s $log[3]); &hed_; $html.= <<"_EDIT_"; -管理用-

ﾛｸﾞｻｲｽﾞ/$com_sizeﾊﾞｲﾄ

TOP/ｺﾒﾝﾄ追加削除 _EDIT_ &foot_; } # # [フォームデコード] # sub d_code_ { if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $value =~ s//\>\;/g; $value =~ s/\"/\"\;/g; $FORM{$name} = $value; if($name eq 'del'){push(@d_,$value);} } $name = $FORM{'name'}; $mode = $FORM{'mode'}; $logs = $FORM{'logs'}; if($logs){ $OK=0; foreach(0..$#log){if($logs eq $log[$_]){$OK=1; last;}} if($OK==0){&er_("そのログはありません!");} } $pass = $FORM{'pass'}; $com = $FORM{'com'}; } # # [出来事記入] # sub wri_ { if (length($name) > $max_n) { &er_("名前がながすぎ！"); } if ($name eq "") { &er_("名前をいれて！"); } open(LOG,"$log[0]") || &er_("Can't open $log[0]"); @LINE = ; close(LOG); srand; $a=int(rand($#LINE)); $aa=$LINE[$a]; open(LOG,"$log[1]") || &er_("Can't open $log[1]"); @LINE1 = ; close(LOG); $b=int(rand($#LINE1)); $bb=$LINE1[$b]; open(LOG,"$log[2]") || &er_("Can't open $log[2]"); @LINE2 = ; close(LOG); $c=int(rand($#LINE2)); $cc=$LINE2[$c]; open(LOG,"$log[3]") || &er_("Can't open $log[3]"); @LINE3 = ; close(LOG); $d=int(rand($#LINE3)); $dd=$LINE3[$d]; $aa =~ s/\n//g;$bb =~ s/\n//g;$cc =~ s/\n//g;$dd =~ s/\n//g; $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year=$year+1900; $mon++; if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $date = "$year\/$mon\/$mday$$week$"; &new_; exit; } # # [出来事表示] # sub new_ { &hed_; $html.= <<"_NEWS_"; $name
さんの運勢
$date

ﾗｯｷｰｱｲﾃﾑ
$aa

ﾗｯｷｰｶﾗｰ
$bb色

そんなあなたの
ｵｽｽﾒﾊﾟｰﾄﾅｰは
$ccで

結局運勢は
$dd
といった感じです
[戻] _NEWS_ &foot_; } # # [ヘッダ表示] # sub hed_ { $html.= <<"_HTML_"; $title $body _HTML_ } # # [フッタ表示] # sub foot_ { $html.= <<"_HTML_";

UNSEI-i _HTML_ &htmlp; } sub er_ { #エラー処理 &hed_; $html.= "[戻]ERROR!
$_[0]

\n"; &foot_; } # # [コメント削除] # sub del_ { if($pass ne "$pas"){ &er_("パスワードが違います!"); } open(DB,"$logs") || &er_("Can't open $logs"); @LOGS = ; close(DB); if(@d_){ $F=0; @NEW=(); foreach(0..$#LOGS){ foreach $d_ (@d_){if($d_==$_){$F=1; last;}} if($F){$F=0; next;} push (@NEW,"$LOGS[$_]"); } open (DB,">$logs"); print DB @NEW; close(DB); @LOGS=@NEW; } &hed_; $html.=<<"_HTML_"; TOP/項目選択
-ｺﾒﾝﾄ削除-

_HTML_ &foot_; } # # [書き出し] # sub htmlp { $len = length($html); print "Content-type: text/html\n"; if($i_){print "Content-length: $len\n";} print "\n"; print "$html"; exit; }