#!/usr/local/bin/perl #上記は、サ−バ−のパスにあわせる。 ##################################################################### # MK_GIF CGI # # Copyright (c) 2001 CGIサービス # # by http://www2a.biglobe.ne.jp/~yama/ # # yama1356@leo.bekkoame.ne.jp # # CGIの販売、転載、配布厳禁。 # ##################################################################### BEGIN { require "./mkset.cgi"; require "./jcode.pl"; } &dec; &lock; &host_ip_agent; &jikan; &kanriset_data; if ($hoji eq "") {$messe = 'kanri.txtファイル内データが消滅しています';&keikoku;} ##unlinkを2ヶ所 利用 $looka = $FORM{'looks'}; if($cookie eq "1"){&cookieBoard;} if ($FORM{'kaki'} == 1) { $cook{'MKBOARD4_NAME'} = $FORM{'name'}; $cook{'MKBOARD4_MAIL'} = $FORM{'mail'}; $cook{'MKBOARD4_URL'} = $FORM{'url'}; $cook{'MKBOARD4_P'} = $FORM{'p'}; $cook{'MKBOARD4_KENME'} = $FORM{'kenme'}; $cook{'MKBOARD4_TOSHI'} = $FORM{'toshi'}; $cook{'MKBOARD4_SEI'} = $FORM{'sei'}; $cook{'MKBOARD4_PWDPS'} = $FORM{'pwdps'}; } ######################カウンター、表示用データー部分 ####### &pwdop; &spl; if($proxyset2 eq "on" && $pwdset2 ne 'on'){ if($ENV{'HTTP_USER_AGENT'} eq ""){$messe = "ブラウザ情報がありません
HTTP_USER_AGENTが利用できないかも知れません。";&keikoku;} if($ENV{'HTTP_USER_AGENT'} =~ /(via|proxy)/i){ $messe = "アクセス出来ませんでした。";&keikoku; } } ###### if($pwdset2 eq 'onb' && $pwduser eq 'on' && $pdon_select_set == 1 && $FORM{'kak'} != 1 && $FORM{'pwd_ok'} ne $pwd_ok){ print "Content-type: text/html\n\n"; print <PWD




Pass:

HTML if(-e "${lockfile}$FORM{'id'}") { unlink("${lockfile}$FORM{'id'}"); } exit; } if ($pwdset2 eq 'onb' && $pwduser eq 'on' && $pdon_select_set == 1 && $FORM{'pwd_ok'} ne $pwd_ok) { &angou2; if($pwdps ne $pwdps2){ $messe = 'パスワードが違います、バックして再入力してください'; &keikoku;} } ######## if(($FORM{'name'} eq "" && $FORM{'comment'} eq "" && $FORM{'kak'} != 1) || $FORM{'pwddat'} == 1) { if($data > 900000 ){$data = '1';}else{$data = $data +1;} &pwdop2; } if($gifset2 != 2){ @count = split(//,$data); if(@count == 1){@count = (0,0,0,0,0,@count);} elsif(@count == 2){@count = (0,0,0,0,@count);} elsif(@count == 3){@count = (0,0,0,@count);} elsif(@count == 4){@count = (0,0,@count);} elsif(@count == 5){@count = (0,@count);} elsif(@count > 5){@count = (@count);} $img = "\"$count[0]\"\"$count[1]\"\"$count[2]\"\"$count[3]\"\"$count[4]\"\"$count[5]\""; }else{$img = "";} #################### if ($FORM{'kak'} != 1 || $FORM{'pwddat'} == 1) { if ($locks eq "1") { $lika = symlink(".", "$lockfile3"); } if ($locks eq "2") { if (-e "$lockfile3") {$lika = 0;}else{ open(LOCK,">$lockfile3");close(LOCK);$lika = 1; } } if (!$lika) { if (-e "$lockfile3") { unlink("$lockfile3"); } } if ($lika == 1 || $locks == 0) { if (!open(IN,"$dats2")) {$messe = 'ファイルをオープン出来ません';&keikoku;} $lines1 = ; close(IN); chop($lines1); ($counta,$countb,$day9) = split(/\,/,$lines1); if($day9 != $day){$count = 0;$count2 = $counta;}else{$count = $counta;$count2 = $countb;} if($count eq ''){$count = 0;}if($count2 eq ''){$count2 = 0;} $count++; if(!open(TMP,">${lockfile}tmp$$")){$messe = 'ファイルtmpをオープン出来ません';&keikoku;} chmod 0666, "${lockfile}tmp$$"; print TMP "$count\,$count2\,$day\n"; close(TMP); if ($nt == 1) { unlink("$dats2"); } rename("${lockfile}tmp$$","$dats2"); chmod 0644, "$dats2"; if (-e "$lockfile3") { unlink("$lockfile3"); } } } ############################################# if($FORM{'name'} ne "" && $FORM{'comment'} ne "" && $FORM{'r'} ne '1') { if($pwduser eq 'on' && $pwdset2 eq 'on') { &pwdpskaku; } if ($keyset2 eq 'on' && $keydat2 ne '') { &keysei; } &kakidec; if($FORM{'p'} ne ''){ &angou; } if(!open(OU,"$mkbo/as$FORM{id}.txt")){$messe = 'ファイルasをオープン出来ません';&keikoku;} $lis = ; close (OU); chop($lis); &panel_dataspl; unless ($name9 eq $FORM{'name'} && $comment12 eq $FORM{'comment'}){ if ($kakijikanset2 eq 'on') { &kisei; } $nameno = substr($time, -3, 3); #$reno = 1; if(!open(OUT,"$mkbo/as$FORM{id}.txt")){$messe = 'ファイルをオープン出来ません';&keikoku;} if(!open(TMP,">${lockfile}tmp$$")){$messe = 'ファイルtmpをオープン出来ません';&keikoku;} chmod 0666, "${lockfile}tmp$$"; print TMP "$year\,$mon\,$day\,$hour\,$min\,$sec\,$wday\,$FORM{'mail'}\,$FORM{'name'}\,$FORM{'daimei_color'}\,$FORM{'daimei'}\,\,$FORM{'comment'}$s$set\,$ENV{'HTTP_USER_AGENT'}\,$FORM{'url'}\,$p\,$FORM{'kaokaki'}\,$nameno\,$year$mon$day$hour$min$sec\,$time\,$FORM{'kenme'}\,$FORM{'toshi'}\,$FORM{'sei'}\,$host\n"; $lineno = 0; while ($lis = ){ $lineno++; &panel_dataspl; print TMP $lis; if (($lineno >= $hoji) && ($commentt eq 'end' || $commentt eq '')) {last;} } close (TMP); close (OUT); if ($nt == 1) { unlink("$mkbo/as$FORM{id}.txt"); } rename("${lockfile}tmp$$","$mkbo/as$FORM{id}.txt"); chmod 0644, "$mkbo/as$FORM{id}.txt"; } } ######### Res コメント表示部分 (1) ###### if ($FORM{'re'} eq '1' && $FORM{'kaki'} ne "1") { if(!open(OUT,"$mkbo/as$FORM{id}.txt")){$messe = 'ファイルasをオープン出来ません';&keikoku;} while ($lis = ){ &panel_dataspl; if ("$time_re18" eq $FORM{'retime'}) { push(@resin, $lis); } if (("$time_re18" eq $FORM{'retime'} && $commentt eq 'end') || ("$time_re18" eq $FORM{'retime'} && $commentt eq '')) { last; } } close(OUT); } ########################################## if ($FORM{'name'} ne "" && $FORM{'comment'} ne "" && $FORM{'r'} eq "1" && $FORM{'kaki'} eq "1") { if($pwduser eq 'on' && $pwdset2 eq 'on') { &pwdpskaku; } if ($keyset2 eq 'on' && $keydat2 ne '') { &keysei; } &kakidec; if ($FORM{'p'} ne '') { &angou; } $FORM{'comment'} =~ s/(
)+$//; ############## 掲示板上部表示処理 if(!open(IN,"$mkbo/as$FORM{id}.txt")){$messe = 'ファイルasをオープン出来ません';&keikoku;} @lines = ; close(IN); if ($sureds2 == 1) { $lineno = 0; $b = 0; foreach $lis (@lines){ &panel_dataspl; $lineno++; if($time_re18 eq $FORM{'retime'} && $lineno == 1) { $a = 1; last; } if($time_re18 eq $FORM{'retime'}) { unshift(@linea, $lis); $lis = ""; $b = 1; next; } if ($b == 1 && $time_re18 ne $FORM{'retime'}) { last; } } if ($a != 1) { foreach (@linea){ unshift(@lines, $_); } } } ############### #if (!open(OUTD,"$mkbo/as$FORM{id}.txt")) { $messe = 'ファイルasをオープン出来ません'; &keikoku; } $lineno = 0; #while ($lis = ) { foreach $lis (@lines){ $lineno++; #chop($lis); &panel_dataspl; if($sured2 == 1) { if ($lineno == $lineo2) { last; } if ("$year1$mon2$day3$hour4$min5$sec6" eq $FORM{'retime'}) { $lineo2 = $lineno + 1; } } if($sured2 == 2) { if ("$year1$mon2$day3$hour4$min5$sec6" eq $FORM{'retime'}) { $end_check = 1; } if ($end_check == 1 && $commentt eq 'end') { last; } } } #close(OUTD); unless ($name9 eq $FORM{'name'} && $comment12 eq $FORM{'comment'}){ if ($kakijikanset2 eq 'on') { &kisei; } $nameno18 = substr($time, -3, 3); #if(!open(OU,"$mkbo/as$FORM{id}.txt")){$messe = 'ファイルasをオープン出来ません';&keikoku;} if(!open(TMP,">${lockfile}tmp$$")){$messe = 'ファイルtmpをオープン出来ません';&keikoku;} chmod 0666, "${lockfile}tmp$$"; $lineno = 0; #while ($lis = ){ foreach $lis (@lines){ $lineno++; &panel_dataspl; if("$year1$mon2$day3$hour4$min5$sec6" eq $FORM{'retime'} && $sured2 == 1) { if ($commentt eq "") { $coo = 1; $coo1 = 'end'; } if ($commentt == 1) { $coo = 1; $coo1 = 'a'; } &res_w; }elsif(($time_re18 eq $FORM{'retime'} && $sured2 == 2) && ($commentt eq "" || $commentt eq 'end')){ if ($commentt eq "") { $coo = 1; $coo1 = 'end'; } if ($commentt eq 'end') { $coo = 'a'; $coo1 = 'end'; } &res_w; }else{ print TMP $lis; } if (($lineno >= $hoji) && ($commentt eq 'end' || $commentt eq '')) { last; } } close (TMP); #close (OU); if ($nt == 1) { unlink("$mkbo/as$FORM{id}.txt"); } rename("${lockfile}tmp$$","$mkbo/as$FORM{id}.txt"); chmod 0644, "$mkbo/as$FORM{id}.txt"; } } #################### if($comtext2 ne '' && $comsize2 ne '' && $comcolor2 ne ''){$comup = "$comtext2
";} if($gif2 ne ''){$gifup = "";} if($background2 =~ /http:\/\//){$m = "background=\"$background2\"";}else{$m = "";} if ($cook{'MKBOARD4_KENME'} ne '地域名' && $cook{'MKBOARD4_KENME'} ne ''){ $select{$cook{'MKBOARD4_KENME'}} = 'selected'; }else{$select{'0'} = 'selected';} if ($cook{'MKBOARD4_TOSHI'} ne '年齢' || $cook{'MKBOARD4_TOSHI'} ne ''){ $select2{$cook{'MKBOARD4_TOSHI'}} = 'selected'; }else{$select2{'0'} = 'selected';} if ($cook{'MKBOARD4_SEI'} ne '性別' || $cook{'MKBOARD4_SEI'} ne ''){ $select3{$cook{'MKBOARD4_SEI'}} = 'selected'; }else{$select3{'0'} = 'selected';} $cook{'MKBOARD4_URL'} =~ s/http:\/\///; if($adres2 eq "1"){ $ken = <