#!/usr/bin/perl # ↑はサーバーに合わせて変更して下さい。 #---------------------------------------------------------------------# # ☆　STARDUST-BBS 3 星屑掲示板-3　☆ # # # #　　・複数の返信が可能な多機能掲示板です。 # #　　・最近の投稿状況を知ることが容易です。 # #　　・今後、さまざまな端末からのアクセスが可能になります（予定） # # # # # # by T-2 # # HP: http://stardust.t-ring.com/ # #---------------------------------------------------------------------# $ver = 'STD-BBS3 v3.8'; use CGI; $query = new CGI; #---------------------------------------------------------------------# # 使用に関して # # # # ・自分で利用するための改造はもちろん可能です。 # # ・非商用なら設置は自由です。 # # ・商用ページに設置の場合は連絡ください。（事後でも可） # # # # ・無断での配布・再配布（改造含む）・雑誌等への掲載は禁止します。# # 必ず、私の許可を得てください。基本的にメールをいただければ # # 許可しますので。（確認したいだけなので） # # # # ・著作権表示、配布元サイトへのリンクの削除は禁止です。 # # # # 上記の事柄に反しない限りご自由にお使いください。 # # ただし、本CGI利用に関する不具合、損害に関して、私は # # 一切責任をとれせん。ご自身の責任範囲にて使用ください。 # #---------------------------------------------------------------------# #-------このファイルへの改造は知識のある方のみお願いします。-------# # # 通常の使用の場合はこのファイルの改造は不要です。 # $ver_html =0; $ver_value=0; require("./value.cgi"); require("./html.cgi"); $ver_html_min = 4.0; $ver_value_min = 20.0; #-----------------------# # メイン # #-----------------------# $modo = 0; $modo = $query ->param('SUBMIT') ; $modo = jcode::euc($modo); if($stdmodeY==1){ $visits = $query ->param('VISITS') ; $visits = jcode::euc($visits); } #カウンター-------------------------------------------------- # #　　表示例　総数$coall 今日$cotod 昨日$coyes # #IPアドレスまたはホスト名を取得 $ipA = $query->remote_host(); #使用ブラウザを取得 $osA = $query->user_agent(); fileReadSysLogco(); #　時間を取得 $ENV{'TZ'} = "JST-9"; $times = time; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times); if($day != $mday){ $coyes = $cotod ; $cotod = 0 ; $day = $mday; } if($ipdouble == 0){ if($ipA ne $ipA_co || $osA ne $osA_co){ $coall = $coall + 1 ; $cotod = $cotod + 1 ; fileWriterSysLogco(); } }else{ $coall = $coall + 1 ; $cotod = $cotod + 1 ; fileWriterSysLogco(); } #カウンタここまで--------------------------------------------- #送信フォームで入力された値を内包する----------- $mailA_on_off = $query ->param('MAILA_ON_OFF') ; $mailA_on_off = jcode::euc($mailA_on_off); chomp($mailA_on_off); $agesage = $query ->param('AGESAGE') ; $agesage = jcode::euc($agesage); chomp($agesage); $tiA = $query ->param('SUBJECT') ; $tiA = jcode::euc($tiA); chomp($tiA); $naA = $query ->param('NAME') ; $naA = jcode::euc($naA); $naA_sub = $naA ; chomp($naA_sub); $emA = $query ->param('MAIL') ; $emA = jcode::euc($emA); chomp($emA); $hpA = $query ->param('URL') ; $hpA = jcode::euc($hpA); chomp($hpA); $txtA = $query ->param('TEXT') ; $txtA = jcode::euc($txtA); chomp($txtA); $iro1A = $query ->param('IRO1') ; $iro1A = jcode::euc($iro1A); chomp($to1A); $iro2A = $query ->param('IRO2') ; $iro2A = jcode::euc($iro2A); chomp($iro2A); $delA = $query ->param('DEL') ; $delA = jcode::euc($delA); chomp($delA); $cgA = $query ->param('CG') ; $cgA = jcode::euc($cgA); chomp($cgA); $pass = $query ->param('PASS') ; chomp($pass); #PASSの暗号化 $pass = crypt($pass, $salt); $mypass = crypt($mypass, $salt); #IPアドレスまたはホスト名を取得 $ipA = $query->remote_host(); #ホスト名を取得 $hostaddr = host_name(); #使用ブラウザを取得 $osA = $query->user_agent(); #現在の時間を取得 get_time(); #　訪問前のアドレス $ref_url = $ENV{'HTTP_REFERER'}; $ref_url =~ s/\?(.|\n)*//ig; $ref_url =~ s/\%7E/\~/ig; if($ref_url eq ''){ $ref_url = "直リンク／携帯電話"; } $upfile = $query ->param('FILENAME') ; $upfile = jcode::euc($upfile); kisyusentaku(); #ここまで---------------------------------------- #クッキー読み込み get_cookie(); #クッキー書き込み---------------------------------------# if($useCookieAcc == 1){ #自動名前機能を無効にする $useCookieAutoName = 0; } if($modo eq '送信'||$modo eq 'クッキー書き込み'||$modo eq '編集確定'||$modo eq '管理人に送信'){ #総アクセス数 $kaisuu1A = $kaisuu1_c; #書き込み回数 $kaisuu2A = $kaisuu2_c+1; $accstimeA = $timeA; $name_c = $naA; $delAc = $delA; set_cookie(); }else{ if($name_c ne ""){ if($useCookieAcc == 1){ #既定の名前を含む場合、強制的に決められた文字を含む名前を削除する。 $deleteNameValueMode = 0; if($name_c =~ /$deleteNameValue/){ $deleteNameNow = $name_c; $deleteNameValueMode = 1; $name_c = ""; } } #文字列制限 if(length($name_c) > $minimumNameL){ $minimumNameLMode = 0; }else{ $minimumNameLNow = $name_c; $minimumNameLValue = length($name_c); $minimumNameLMode = 1; $name_c = ""; if($deleteNameValueMode == 1){ $minimumNameLMode = 0; } } if($name_c ne ""){ $naA = $name_c; } }else{ #PCブラウザでの動作のみ if($printmode == 0){ if($useCookieAutoName == 1){ $useCookieAutoNameNo=int(rand(1000)); $name_c = "名無し(NO.$mday-$useCookieAutoNameNo-$min$sec-$mon)"; $naA = $name_c; } } } if($mail_c ne ""){ $emA = $mail_c; } if($hp_c ne "" || $hp_c ne "http://"){ $hpA = $hp_c; } if($del_c ne ""){ $delAc = $del_c; } if($cg_c ne ""){ $cgA = $cg_c; } if($iro1_c ne ""){ $iro1A = $iro1_c; } if($iro2_c ne ""){ $iro2A = $iro2_c; } $kaisuu1A = $kaisuu1_c+1; $kaisuu2A = $kaisuu2_c; $accstimeA = $timeA; if($modo ne 'クッキー削除'){ set_cookie(); } } #--------------------------------------------------------# if($modo eq 'クッキー削除'){ del_cookie(); } #お約束＆キャッシュ無効表現 print "Content-type: text/html\n"; print "Pragma: no-cache\n"; print "Cache-Control: no-cache\n"; print "Expires: Thu, 01 Dec 1994 16:00:00 GMT\n\n"; ################ #$printmode= 1; ################ tempHeader(); debug($modo); #アクセスログ-------------------------------------------------# if($modo =~ /アクセス解析/ || $modo =~ /管理人/ ){ }else{ fileReadSysAnaco(); # fileWriterSysAnaco("$timeA $name_c $hostaddr
$ref_url$ipA$osA$modo$kaisuu1_c / $kaisuu2_c"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}$modo\{\}$kaisuu1_c\{\}$kaisuu2_c"); } #-------------------------------------------------------------# if($modo ne ""){ #アクセス制限機能---------------------------------------------# if($acc_st_host[0] ne ""){ for($i=0 ; $i < @acc_st_host ; $i++){ if($hostaddr =~ /$acc_st_host[0]/){ sjis("
アクセス制限中です。"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}アクセス制限\{\}$kaisuu1_c\{\}$kaisuu2_c"); PrintYourD_acc(); tempFooter(); exit(); } } } if($acc_st_ip[0] ne ""){ for($i=0 ; $i < @acc_st_ip ; $i++){ if($ipA eq $acc_st_ip[0]){ sjis("
アクセス制限中です。"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}アクセス制限\{\}$kaisuu1_c\{\}$kaisuu2_c"); PrintYourD_acc(); tempFooter(); exit(); } } } if($acc_st_os[0] ne ""){ for($i=0 ; $i < @acc_st_os ; $i++){ if($osA =~ /$acc_st_os[0]/){ sjis("
アクセス制限中です。"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}アクセス制限\{\}$kaisuu1_c\{\}$kaisuu2_c"); PrintYourD_acc(); tempFooter(); exit(); } } } if($acc_st_cname[0] ne ""){ for($i=0 ; $i < @acc_st_cname ; $i++){ # if($name_c eq $acc_st_cname[0]){ if($name_c =~ /$acc_st_cname[$i]/){ #龍爺修正、名前の一部一致でアクセス制限 sjis("
アクセス制限中です。"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}アクセス制限\{\}$kaisuu1_c\{\}$kaisuu2_c"); PrintYourD_acc(); tempFooter(); exit(); } } } #-------------------------------------------------------------# } #メッセ機能のチェック if($usemailA == 1){ if($YourEmail eq "???\@???.jp"){ sjis("警告：メールアドレスの設定がされていません。メール機能はOFFで動作します。
"); $usemailA = 0; } } #デバッグ機能用、全情報表示 if($debug ==1){ foreach ( sort keys ( %ENV ) ){ print "$_ = $ENV{$_}
\n"; } } #--------------------------# # システムチェック # #--------------------------# if($ver_html < $ver_html_min){sjis("HTML設定ファイル(html.cgi)のバージョンが古いようです。新しいhtml.cgiを使ってください。
");} if($ver_value < $ver_value_min){sjis("動作設定ファイル(value.cgi)のバージョンが古いようです。新しいvalue.cgiを使ってください。
");} title(); #文字列制限のエラーメッセージ if($minimumNameLMode == 1){ $minimumNameL2Byte = $minimumNameL / 2.0; $minimumNameL2Byte = int($minimumNameL2Byte + 1.0); $minimumNameL ++ ; sjis("
クッキーに保存されている名前”$minimumNameLNow”は半角換算で$minimumNameLValue文字なので自動的に削除されました。
半角$minimumNameL文字以上の名前を入れて下さい。（全角の場合は$minimumNameL2Byte文字以上）
"); } #名前制限でひっかかった場合 if($deleteNameValueMode == 1){ sjis("
現在設定されている名前”$deleteNameNow”の使用は許可されていません。
（”$deleteNameValue”を含むことはできません。）
"); } if($modo eq 'クッキー削除'){ sjis("
ユーザー$name_cの処理によりクッキーは削除されました。

"); sjis("→こちらから入ってください。

"); tempFooter(); exit(); } if($modo eq '管理人宛' || $modo eq '管理人に送信'){ }else{ #PCブラウザでの動作のみ if($printmode == 0){ #クッキー制限-----------------------------------------------------# if($name_c eq ""){ if($useCookieAcc == 1){ #sjis("$modo
"); if($modo eq 'クッキー書き込み'){ sjis("$useCookieAccTXT
"); sjis("→こちらから入ってください。

"); }else{ CookieAcc(); fileReadSysAnaco(); #fileWriterSysAnaco("$timeA $name_c $hostaddr
$ref_url$ipA$osAクッキー入力画面$kaisuu1_c / $kaisuu2_c"); fileWriterSysAnaco("$timeA\{\}$name_c\{\}$hostaddr\{\}$ref_url\{\}$ipA\{\}$osA\{\}クッキー入力待ち\{\}$kaisuu1_c\{\}$kaisuu2_c"); } tempFooter(); exit(); } } #-----------------------------------------------------------------# StatusBarCookie(); } } #入力された値のチェック checkIn(); #--------------------- # 動作準備及び初期動作処理はここまで if($modo eq '送信'){ $bangou2 = 0 ; $oya = $query ->param('OYA') ; $oya = jcode::euc($oya); chomp($oya); $type = $query ->param('TYPE') ; $type = jcode::euc($type); chomp($type); $rebangou = $query ->param('BANGOU') ; $rebangou = jcode::euc($rebangou); chomp($rebangou); fileRead(); debug($bangou); debug($rebangou); bangouchk(); $sysmon=$mon+1; # ファイル添付処理 $upfiles = $query ->param('FILENAME') ; $upfiles = jcode::euc($upfiles); $fileupMode = $query ->param('FILENAME_MODE') ; $fileupMode = jcode::euc($fileupMode); if ($upfiles ne "" ){ sjis("
添付ファイルのアップロード処理
ファイル名：$upfiles
"); FileUp(); $cgA_sub = "\{\}$timeNo$tail\{\}$fileupMode"; $cgA=$cgA.$cgA_sub; } if($type == 1){ fileWriterR(); if($mailA_on_off == 0){ syslog("→$naA_subさんがNo.$oyaに対し返信しました。＜$sysmon月$mday日$hour時
"); }else{ syslog("→$naA_subさんがNo.$oyaに対しメール機能ONで返信しました。＜$sysmon月$mday日$hour時
"); } sjis("
⇒⇒⇒返信投稿が完了しました。
"); }else{ fileWriter(); if($mailA_on_off == 0){ syslog("→$naA_subさんが新規投稿（No.$bangous）しました。＜$sysmon月$mday日$hour時
"); }else{ syslog("⇒$naA_subさんがメール機能ONで新規投稿（No.$bangous）しました。＜$sysmon月$mday日$hour時
"); } sjis("
⇒⇒⇒新規投稿が完了しました。
"); } #メーリングリスト機能使用時 if($usemailA == 1){ if($mailA_on_off == 0){ sjis("
▼　お知らせメール機能 ▼
メール送信はしませんでした。
"); }else{ fileReadSysLogKAZUmail(); fileReadSysLogmail(); $mailto = $syslogMail[0]; if($mailto eq ""){ sjis("お知らせメール機能：
リストに誰も登録されて居ないため送信しませんでした。
"); rewrite(); next; } for($its=1 ; $its < $adressK ;$its++){ $mailto=sprintf("%s,%s",$mailto,$syslogMail[$its]); chomp($mailto); } $MailtxtA = $query ->param('TEXT'); $MaiitxtA = jcode::euc($MailtxtA); $MailnaA = $query ->param('NAME') ; $MailnaA = jcode::euc($MailnaA); $TitleA = $query ->param('SUBJECT') ; $TitleA = jcode::euc($TitleA); $mess="STD-BBS3 \n http://stardust.t-ring.com/"; $mess=jcode::jis($mess); $MailTitle="▼ $Htitleに投稿がありました"; $MailTitle= base64($MailTitle); $MailText ="-=-題名-=-\n$TitleA\n-=-投稿者-=-\n$MailnaAさん\n-=-投稿内容-=-\n$MaiitxtA \n$timeA\nこのメールは$Htitleメーリングリストに登録されている人に送られています。\n"; $MailText= jcode::jis($MailText); FUSEItxt($MailText); FUSEItxtA($moji); $MailText=$moji; $MailText= jcode::jis($MailText); $MailTextA="解除→$homepageStd\n"; $MailTextA= jcode::jis($MailTextA); #sjis("
$mailto
"); open(MAIL,"| $sendmail -t") || &sjis("送信失敗。"); print MAIL "X-Mailer: STD Mailer\n"; print MAIL "To: $YourEmail\n"; print MAIL "Bcc: $mailto\n"; print MAIL "From:$YourEmail\n"; print MAIL "Return-Path:$YourEmail\n"; print MAIL "Subject: $MailTitle\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n"; print MAIL "$MailText\n\n"; print MAIL "$MailTextA\n"; print MAIL "--------------------------------------------------\n $mess"; close(MAIL); } } rewrite(); }elsif($modo eq '返信'){ $oya = $query ->param('OYA') ; $oya = jcode::euc($oya); chomp($oya); $type=1; fileRead(); debug($bangou); chkhenshin(); sjis("　■　返信用の送信フォームは一番下にあります　■　
"); readoya(); sjis("
"); $restitle1 = "Re:"; $restitle2 = $restitle1.$restitle; sendF(); }elsif($modo eq '検索'){ $kensakucode = $query ->param('KENSAKU') ; $kensakucode= jcode::euc($kensakucode); sjis("検索対象文字：$kensakucode
"); fileRead(); kensaku(); cont(); }elsif($modo eq '使い方'){ how_to_use(); if($USE_JYOUKYOU == 1){ sjis("
！警告！
状況の確認が管理モードになっています。パスワードが必要です。
"); $new_adress = $query ->param('PASS'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。
正しいパスワードを入力してください。"); tempFooter(); exit(); } } sjis("
"); CHECK_KANRI(); sjis("
"); }elsif($modo eq 'アクセス解析'){ $new_adress = $query ->param('PASS'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。
正しいパスワードを入力してください。"); tempFooter(); exit(); } sjis("アクセス解析
"); fileReadSysAnaco(); fileReadSysAnacoPrint(); sjis("

　　戻る
"); }elsif($modo eq '編集'){ $no1 = $query ->param('NO1') ; chomp($no1); $no2 = $query ->param('NO2') ; chomp($no1); FUSEIkazu($no1); FUSEIkazu($no2); fileRead(); hensyu(); }elsif($modo eq '編集確定'){ $rebangou = $query ->param('BANGOU') ; $rebangou = jcode::euc($rebangou); chomp($rebangou); $no1 = $query ->param('NO1') ; chomp($no1); $no2 = $query ->param('NO2') ; chomp($no2); FUSEIkazu($no1); FUSEIkazu($no2); debug($no1); debug($no2); $retime = $query ->param('TIME') ; $retime = jcode::euc($retime); chomp($retime); fileRead(); $oya = $query ->param('OYA') ; $oya = jcode::euc($oya); chomp($oya); $type = $query ->param('TYPE') ; $type = jcode::euc($type); chomp($type); bangouchk(); chkhensyu(); #sjis("チェック終わり"); fileSaveHensyu(); sjis("編集完了しました。

戻る"); $sysmon=$mon+1; # if($name_c eq ''){ # syslog("？　編集（No.$no1-$no2）されました。＜$sysmon月$mday日$hour時
"); # }else{ syslog("？　$naA_subさんが編集（No.$no1-$no2）しました。＜$sysmon月$mday日$hour時
"); # } }elsif($modo eq '削除'){ sjis("削除・・・"); fileRead(); $no1 = $query ->param('NO1') ; chomp($no1); $no2 = $query ->param('NO2') ; chomp($no2); fileSaveSakujyo(); $sysmon=$mon+1; if($name_c eq ''){ syslog("×　削除（No.$no1-$no2）されました。＜$sysmon月$mday日$hour時
"); }else{ syslog("×　$name_cさんが削除（No.$no1-$no2）しました。＜$sysmon月$mday日$hour時
"); } sjis("削除完了しました。

戻る"); }elsif($modo eq '新規投稿'){ fileRead(); sendF(); }elsif($modo eq '近況'){ if($printlog == 1){sjis("
＊近況＊
");fileReadSysLogRGB();sjis("
戻る
ここを保存しておけばパケット代の無駄を省けます。");} }elsif($modo eq '画像'){ for($gazoui=0 ; $gazoui < @cg_in ; $gazoui++){ sjis("$cg_out[$gazoui] "); } out(<

END }elsif($modo eq '登録'){ $new_adress = $query ->param('MAIL'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; if($new_adress !~ "\@"){ sjis("アドレスが不正です。"); tempFooter(); exit(); } fileReadSysLogKAZUmail(); fileReadSysLogmail(); fileWriterSysLogmail(); $mailto = $new_adress; $mess="STD-BBS3 \n http://stardust.t-ring.com/"; $mess= jcode::jis($mess); $MailTitle="▼ $Htitleより"; $MailTitle= base64($MailTitle); $MailText ="確認メールです。\n\nメールアドレス $mailto が $Htitle メーリングリストに登録されました。\n解除希望の際は登録と同様にして解除ボタンを押してください。\n\n\n取得ホスト名：$hostaddr\n取得IPアドレス：$ipA\n取得OS情報：$osA\n登録名：$name_c\n\n"; $MailText= jcode::jis($MailText); $MailTextA="解除→$homepageStd\n"; $MailTextA= jcode::jis($MailTextA); open(MAIL,"| $sendmail $mailto") || &sjis("送信失敗。"); print MAIL "X-Mailer: STD Mailer\n"; print MAIL "To: $mailto\n"; print MAIL "From:$YourEmail\n"; print MAIL "Return-Path:$YourEmail\n"; print MAIL "Subject: $MailTitle\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n"; print MAIL "$MailText\n\n"; print MAIL "$MailTextA\n"; print MAIL "--------------------------------------------------\n $mess"; close(MAIL); #管理者にも登録を知らせるメールを送るかどうか if($usemailAnewuser==1){ $MailText ="新規登録者がありました。\n\nメールアドレス $mailto が $Htitle メーリングリストに登録されました。\n\n\n取得ホスト名：$hostaddr\n取得IPアドレス：$ipA\n取得OS情報：$osA\n登録名：$name_c\n\n"; $MailText= jcode::jis($MailText); open(MAIL,"| $sendmail $YourEmail") || &sjis("送信失敗。"); print MAIL "X-Mailer: STD Mailer\n"; print MAIL "To: $YourEmail\n"; print MAIL "From:$YourEmail\n"; print MAIL "Return-Path:$YourEmail\n"; print MAIL "Subject: $MailTitle\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n"; print MAIL "$MailText\n\n"; print MAIL "$MailTextA\n"; print MAIL "--------------------------------------------------\n $mess"; close(MAIL); } sjis("
戻る"); }elsif($modo eq '解除'){ $new_adress = $query ->param('MAIL'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; if($new_adress !~ "\@"){ sjis("アドレスが不正です。"); tempFooter(); exit(); } sjis("解除対象は$new_adressです"); fileReadSysLogKAZUmail(); fileReadSysLogmail(); delete_admail(); fileWriterSysLogdelmail(); sjis("
戻る"); }elsif($modo eq '一覧'){ $new_adress = $query ->param('MAIL'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。

正しいパスワードをメールアドレス入力フォームの中に入力してください。"); tempFooter(); exit(); } sjis(""); fileReadSysLogIchiranmail(); sjis(""); }elsif($modo eq 'メール'){ #この選択欄は携帯端末からアクセスされることを想定してます。# #メーリングリスト登録・削除フォーム if($usemailA == 1){ out(<
$stdmailmgMesi

メールアドレス：

※一覧は管理用です。 END } }elsif($modo eq '全表示'){ fileRead(); $maxread = $bangou; sjis("ログ内容を全部表示します。（現在保存数 $readVALUE / 最大保存数 $maxwrite）
このページを保存すれば過去ログになります。
"); read10(); }elsif($modo eq '日記'){ sjis("
Password：
"); }elsif($modo eq '日記を書く'){ $new_adress = $query ->param('PASS'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。
正しいパスワードを入力してください。"); tempFooter(); exit(); } fileRead(); if(($maxwrite - $readVALUE) < int($maxwrite * 0.1)){ sjis("残り書き込み許容量（$readVALUE / ＭＡＸ $maxwrite）が１割を切りました。
過去ログ作成をお勧めします。"); } if($printmode == 0){ sjis("
"); sendF(); sjis(""); if($sureTitlePrint == 1){ sjis("
"); sjis("■　スレッド一覧（更新順）　■

"); sureTitlePrint(); sjis("
"); } sjis("
"); }else{ sendF(); } }elsif($modo eq '管理人宛'){ #送信モードの設定 $type = 2; sendF(); }elsif($modo eq '管理人に送信'){ fileWriterSysAdmin("　▼　$naA_subさんからメッセージが届いています。　＜　$timeA　▼　

■　内容　■

$txtA

■　追記情報　■

・Email : $emA 　・Homepage :$hpA
$hostaddr　$ipA
$osA
"); syslog("→$naA_subさんが$AdminName宛にメッセージを送信しました。＜$mday日$hour時
"); if($usemailA == 1){ $mess="STD-BBS3 \n http://stardust.t-ring.com/"; $MailTitle="▼ $Htitle管理人宛メッセ機能"; $MailTitle= jcode::jis($MailTitle); $MailText ="$naAさんから貴方宛にメッセージが有りました。\n確認してください。\n※削除時にはメール配信はありません。\n\n■内容■\n\n $txtA"; $MailText= jcode::jis($MailText); open(MAIL,"| $sendmail $YourEmail") || &sjis("送信失敗。"); print MAIL "X-Mailer: STD Mailer\n"; print MAIL "To: $YourEmail\n"; print MAIL "From:$YourEmail\n"; print MAIL "Return-Path:$YourEmail\n"; print MAIL "Subject: $MailTitle\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n"; print MAIL "$MailText\n\n"; print MAIL "$homepageStd\n"; print MAIL "--------------------------------------------------\n $mess"; close(MAIL); # sjis("処理→メールでの配信も成功しました。
"); } sjis("$txtA
"); sjis("$naA_subさんから$AdminName宛に、上記の文を送信しました。

戻る
"); }elsif($modo eq '管理人室'){ sjis("
　Password：
"); }elsif($modo eq '管理人室に入る'){ $new_adress = $query ->param('PASS'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。
正しいパスワードを入力してください。"); tempFooter(); exit(); } sjis("
"); fileReaderSysAdmin(); sjis("
"); sjis("

上記メッセージを削除しますか？　＞＞　はい／いいえ

"); }elsif($modo eq '管理人室削除'){ sjis("
　Password：
"); }elsif($modo eq '管理人宛メッセ削除'){ $new_adress = $query ->param('PASS'); $new_adress = jcode::euc($new_adress); $new_adress =~ s/\s//g; $new_adress = crypt($new_adress, $salt); if($new_adress ne $mypass){ sjis("管理パスワードが違います。
正しいパスワードを入力してください。"); tempFooter(); exit(); } sjis("
"); fileReaderSysAdmin(); sjis("
"); fileWriterSysAdminDEL(); sjis("

上記は削除直前のデータです。

削除完了しました。

戻る

"); }else{ $istart = $query ->param('START') ; if($istart eq ""){ $istart = 0; $istart_back =0; } if($modo eq '前へ'){ $istart = $query ->param('START_BACK') ; }elsif($modo eq '続き'){ $istart_back = $query ->param('START_NOW') ; if($istart_back eq ""){ $istart_back = 0; } $istart_now = $istart; }else{ $istart_back = $istart; } #sjis("
$istart_back : $istart ■$istart_now
"); $istart_no_start = $query ->param('START_NO_START') ; $istart_no = $query ->param('START_NO') ; if($modo eq '最新より表示'){ $istart = 0; $istart_back =0; } fileRead(); if($MODE_RUN == 0){ if($printmode == 0){ sjis("
"); sendF(); sjis(""); if($sureTitlePrint == 1){ sjis("
"); sjis("■　スレッド一覧（更新順）　■

"); sureTitlePrint(); sjis("
"); } sjis("
"); } }elsif($MODE_RUN == 1){ sjis("
"); sjis("□　日記を書く　　"); if($printmode == 0){ sjis("■　ホームページに戻る　　総数 $coall 今日 $cotod 昨日 $coyes　　"); } sjis("
"); } if($printmode == 0){ sjis("
"); if($printlog == 1){sjis("
　■　近況　■
");fileReadSysLogRGB();sjis("　■　近況のみ表示する。");} sjis("		"); #メーリングリスト登録・削除フォーム if($usemailA == 1){ out(<
　▼　メールでお知らせ機能　▼
$stdmailmgMes
　　メールアドレス： END } sjis("
"); } if($MODE_PRINT == 0){ read10(); }elsif($MODE_PRINT == 1 ){ read10t(); } if($istart < $bangou){ nextpage(); } if($printmode == 1){ sjis("
"); cont(); } sjis("　　　■　クッキー削除　■"); #cont(); } tempFooter(); #閉め #-----------------------# # ツール # #-----------------------# sub out { print STDOUT jcode::sjis($_[0]); } #---------------------------------------------# # ヘッダ（ＰＣ用） # #- - - - - - - - - - - - - - - - - - - - - - -# # スタイルの設定等の変更はここで # #---------------------------------------------# sub tempHeaderpc { out(< END if($dame_robots == 1){ sjis(''); } out(< $Htitle END out(< END } #----------------------------------------------------------------# # フッタ (！著作権表示！）削除・改変は色は不許可。 # # 意味が同じであれば改造はＯＫです # #----------------------------------------------------------------# sub tempFooter { out(<
END if($MODE_RUN == 1){ sjis("〜日記モード〜
"); } out(< -=-STD-BBS 3-=-
END } #-------------------------------------------------------------------# # 送信フォーム（PC用の表示です。 # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(<"); if($type == 1){ print(""); print(""); } out(< [NAME] END #名前の処理（自動ネームは表示しない） if($useCookieAutoName == 1){ if($name_c =~ /^名無し\(NO\.\d.*\d\)$/){ sjis(''); }else{ if($name_c eq ""){ sjis(''); }else{ sjis(""); } } }else{ if($name_c eq ""){ sjis(''); }else{ sjis(""); } } out(< [E-MAIL] [SUBJECT] END if($type == 2){ sjis(''); }else{ sjis(''); } out(< 　　[COMMENT]
END #メール機能ON-OFFによる表示 if($type == 1){ if($usemailA == 1){ sjis("　　[OPTION]　"); if($MODE_RUN != 1){ sjis(""); }else{ sjis(""); } }else{ if($MODE_RUN != 1){ sjis("　　[OPTION]"); }else{ sjis("　　[OPTION]"); } } }else{ if($type != 2){ if($usemailA == 1){ sjis("　　[OPTION]"); } } } if($useFileUp==1){ sjis("　　[File] "); } out(< 　　[URL] END if($use_iconCG ==1){ sjis("　　[IMAGE] "); out(< END sjis(""); } out(<　　[DEL-KEY] [TITLE-COLOR] END for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $iro1_c){ sjis("■"); }else{ sjis("■"); } } out(< [FONT-COLOR] END for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $iro2_c){ sjis("■"); }else{ sjis("■"); } } out(< $mesP

■　ホームページ　　　総数 $coall 今日 $cotod 昨日 $coyes END } #------------------------------------------------------------------# # ファイル処理＝＝＝読み込み # # 変更した場合動作保証できません。 # #------------------------------------------------------------------# sub fileRead{ $bangou = 0; open(F,"$logfile") || die cannot(); $bangou =; chomp($bangou); $readVALUE=0; for($i=0; $i <= $bangou+1 ; $i++ ){ $logbg[$i]=; chomp($logbg[$i]); if($logbg[$i] eq ''){ #sjis("ファイル空っぽ　$i番目
"); last; } $logbg2[$i]=; chomp($logbg2[$i]); if($logbg2[$i] == 0){ $readVALUE++; } $logti[$i]=; chomp($logti[$i]); $lognam[$i]=; chomp($lognam[$i]); ($logna[$i],$lognakai[$i]) = split( /{}/ , $lognam[$i] , 2); $logem[$i]=; chomp($logem[$i]); $loghp[$i]=; chomp($loghp[$i]); $logtxt[$i]=; chomp($logtxt[$i]); $logiro1[$i]=; chomp($logiro1[$i]); $logiro2[$i]=; chomp($logiro2[$i]); $logip[$i]=; chomp($logip[$i]); $logos[$i]=; chomp($logos[$i]); $logtime[$i]=; chomp($logtime[$i]); $logdel[$i]=; chomp($logdel[$i]); $logcgm[$i]=; chomp($logcgm[$i]); ($logcg[$i],$logfileup[$i],$logfileupMode[$i]) = split( /{}/ , $logcgm[$i] , 3); # sjis("
$logcg[$i],$logfileup[$i],$logfileupMode[$i]
"); } close(F); } #-------------------------------------------------------------------# # 内容を表示する(PC用） # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(<
"); #cont(); sjis("
"); $js = 0; if($istart != 0){ sjis("
　　　　$istart個目の書き込みから表示します。"); } if($istart_no ne ''){ #sjis("前ページの最初の番号：No.$istart_no_start　前ページの最後の番号：No.$istart_no"); #仕様変更のため未使用 }else{ $istart_no = $bangou; } $istart_no_co = 0; #カウンター $istart_no_co_back = 0; #戻しカウンター for($j=$istart ; $js < $maxread ;$j++){ if($logbg[$j] eq""){ #ログが空だったらココで終了 sjis(""); sjis("
　　　　これ以上ログはありません。"); cont(); sjis("
"); tempFooter(); exit(); }else{ if($logbg2[$j] == 0){ #親スレだったら・・・ if($istart_no_co == 0){ $istart_no_start = $logbg[$j]; } if($istart_no ne $logbg[$j]){ $istart_no_co++; $istart_no = $logbg[$j]; } if($j != $istart){ sjis(""); } sjis("
"); sjis("



"); if($use_iconCG == 1){sjis("");} sjis("		"); # sjis("投稿番号：$logbg[$j]　"); # sjis("付属番号：$logbg2[$j]　"); print("
"); if($logti[$j] ne ""){ sjis("$logti[$j]　　No.$logbg[$j]-$logbg2[$j]
"); }else{ sjis("No Title　　No.$logbg[$j]-$logbg2[$j]
"); } if($MODE_RUN != 1){ sjis("投稿者　$logna[$j]　"); if($stdmodeY == 1){ sjis("階級　$lognakai[$j]　"); } sjis("$logtime[$j]　"); if($printip == 1){ sjis("IP : $logip[$j]　"); } if($logem[$j] ne ""){ sjis("E-mail　"); } if($loghp[$j] ne "http://" && $loghp[$j] ne "" ){ sjis("HomePage"); } if($print_systemA == 1){ sjis("
　$logos[$j]"); } }else{ #日記の時の親記事の表示 sjis("　　$logtime[$j]　"); } print("

"); sjis("$logtxt[$j]"); print("

"); if($logfileup[$j] ne ""){ #sjis("動作モード$logfileupMode[$j]
"); if($logfileupMode[$j] eq "0"){ #sjis("表示は自動を選択
"); FileUpFlag($logfileup[$j]); if($flag == 2){ sjis("
"); }else{ sjis("
"); } }else{ sjis("
"); } } #sjis($logdel[$j]); sjis("
"); }else{ if($istart_no_co == 0){ $istart--; $js--; #sjis("やり直し"); next; } print("
"); sjis("



"); if($use_iconCG == 1){ sjis("");} sjis("		"); # sjis("投稿番号：$logbg[$j]　"); # sjis("付属番号：$logbg2[$j]　"); print("
"); if($logti[$j] ne ""){ sjis("$logti[$j]　　No.$logbg[$j]-$logbg2[$j]
"); }else{ sjis("No Title　　No.$logbg[$j]-$logbg2[$j]
"); } sjis("投稿者　$logna[$j]　"); if($stdmodeY == 1){ sjis("階級　$lognakai[$j]　"); } sjis("$logtime[$j]　"); if($printip == 1){ sjis("IP : $logip[$j]　"); } if($logem[$j] ne ""){ sjis("E-mail　"); } if($loghp[$j] ne "http://" && $loghp[$j] ne "" ){ sjis("HomePage"); } if($print_systemA == 1){ sjis("
　$logos[$j]"); } print("

"); sjis("$logtxt[$j]"); print("

"); if($logfileup[$j] ne ""){ FileUpFlag($logfileup[$j]); if($logfileupMode[$j] eq "0"){ if($flag == 2){ sjis("
"); }else{ sjis("
"); } }else{ sjis("
"); } } sjis("
"); } if($logbg[$j] != $logbg[$j+1]){ $js=$js+1; } } } sjis("

"); cont(); sjis (" 　　　$j個の書き込みを表示しましたが、まだ続きがあります。"); } #-------------------------------------------------------------------# # 返信元の内容を表示する(PC用) # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(< 0){ sjis("★返信★"); } sjis("
"); sjis("



"); if($use_iconCG == 1 ){ sjis("");} sjis("		"); print("
"); sjis("$logti[$j]　　No.$logbg[$j]-$logbg2[$j]
"); sjis("投稿者　$logna[$j]　$logtime[$j]　"); if($printip == 1){ sjis("IP : $logip[$j]"); } if($logem[$j] ne ""){ sjis("E-mail　"); } if($loghp[$j] ne "http://" && $loghp[$j] ne "" ){ sjis("URL"); } if($print_systemA == 1){ sjis("
　$logos[$j]"); } print("

"); sjis("$logtxt[$j]"); print("

"); sjis("
"); } } } } #-------------------------------------------------------------------# # 検索内容を表示する（PC） # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(<検索　全$logbg[$j]件中（対象：投稿者名、題名、本文）


"); for($j=$istart ; $js < $maxread ;$j++){ if($logbg[$j] eq""){ sjis("
"); #tempFooter(); #exit(); last; }else{ #本文orタイトルで検索 #sjis("名前：$logna[$j]

タイトル：$logti[$j]
本文：$logtxt[$j]
"); if($logtxt[$j] =~ /$kensakucode/ || $logti[$j] =~ /$kensakucode/ || $logna[$j] =~ /$kensakucode/){ if($logbg2[$j] > 0){ sjis("↓返信部分です↓"); } sjis("
"); sjis("
"); sjis("



"); print("
"); sjis("$logti[$j]　　No.$logbg[$j]-$logbg2[$j]
"); sjis("投稿者　$logna[$j]　$logtime[$j]　"); if($logem[$j] ne ""){ sjis("E-mail　"); } if($loghp[$j] ne "http://" && $loghp[$j] ne "" ){ sjis("URL"); } if($print_systemA == 1){ sjis("
　$logos[$j]"); } print("

"); sjis("$logtxt[$j]"); print("

"); sjis("

"); $js=$js+1; sjis("
"); } } } sjis("

"); } #-------------------------------------------------------------------# # 検索内容を表示する（携帯） # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # ＰＣ用の簡易表示です # #-------------------------------------------------------------------# sub kensakui{ $js = 0; sjis("検索　全$logbg[$j]件中（対象：投稿者名、題名、本文）

"); for($j=$istart ; $js < $maxread ;$j++){ if($logbg[$j] eq""){ last; }else{ #本文orタイトルで検索 #sjis("名前：$logna[$j]

タイトル：$logti[$j]
本文：$logtxt[$j]
"); if($logtxt[$j] =~ /$kensakucode/ || $logti[$j] =~ /$kensakucode/ || $logna[$j] =~ /$kensakucode/){ if($logbg2[$j] > 0){ sjis("↓返信部分です↓"); } print("
"); sjis("$logti[$j]　　No.$logbg[$j]-$logbg2[$j]
"); sjis("投稿者　$logna[$j]　
$logtime[$j]"); print("

"); sjis("$logtxt[$j]"); print("
"); sjis("
"); $js=$js+1; sjis(""); } } } sjis("

"); } #-------------------------# # 編集する # # # #-------------------------# sub hensyupc{ for($j=0;;$j++){ if($logbg[$j] eq""){ tempFooter(); break(); }else{ if($no1 == $logbg[$j] && $no2 == $logbg2[$j]){ if($pass ne $mypass){ if($pass ne $logdel[$j] ){ sjis("パスワードが一致しませんでした。
ブラウザの戻るを利用し、入力し直してください。"); tempFooter(); break(); } } FUSEItxtA($logtxt[$j]); $logtxt[$j]=$moji; unAUTOlink($logtxt[$j]); $logtxt[$j]=$moji; hensyupcS(); } } } } #-------------------------------------------------------------------# # 編集時の送信フォーム（PC） # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(< END if($useFileUp==1){ if($logfileup[$j] ne ""){ sjis(""); } } out(<　　[URL] END if($use_iconCG ==1){ sjis(""); } out(<
[NAME] END #名前の処理（自動ネームは表示しない） if($useCookieAutoName == 1){ if($name_c =~ /^名無し\(NO\.\d.*\d\)$/){ sjis(""); }else{ sjis(""); } }else{ sjis(""); } out(<
[E-MAIL]
[SUBJECT]
　　[COMMENT]
　　[File]
　　[IMAGE] "); out(< END sjis("
　　[DEL-KEY]
[TITLE-COLOR] END for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $logiro1[$j]){ sjis("★"); }else{ sjis("★"); } } out(<
[FONT-COLOR] END for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $logiro2[$j]){ sjis("★"); }else{ sjis("★"); } } out(<
END } #---------------------------------------------------------------# # 返信が最大値以内かをチェック！ # # わかる人以外変更しないで！ # #---------------------------------------------------------------# sub chkhenshin{ for($j=0;$j<$bangou;$j++){ if($oya == $logbg[$j]){ while($oya == $logbg[$j]){ if($logbg2[$j] >= $maxreply){ sjis("
これ以上、この記事に対しての返信はできません。"); rewrite(); tempFooter(); exit(); } $j=$j+1; } return(); } } } #---------------------------------------------------------------# # 編集前に削除されていないかを確認し、新しいデータを代入 # # わかる人以外変更しないで！ # #---------------------------------------------------------------# sub chkhensyu{ debug($bangou); debug($no1); debug($no2); for($j=0;$j<$bangou;$j++){ if($logbg[$j] eq""){ #ループだけ抜ける命令ないんかな }else{ #sjis("$no1 == $logbg[$j] && $no2 == $logbg2[$j]
"); if($no1 == $logbg[$j] && $no2 == $logbg2[$j]){ if($logtime[$j] ne $retime){ debug($logtime[$j]); debug($retime); sjis("その投稿は削除されています。
内容の変化を防ぐため、この状態での投稿は禁止されています。
投稿しなおしてください。
!注意！ブラウザの戻るを使用は無意味です。"); exit(); } #↓管理人宛メッセ機能 if($useAdminMes == 1){ fileWriterSysAdmin("　▼　$naAさんが編集しました。編集前のデータ。　＜　$timeA　▼　

■　内容　■

$logtxt[$j]

■　追記情報　■

$hostaddr　$ipA
$osA
"); } #編集する項目の代入 $logti[$j]=$tiA; $logna[$j]=$naA; $logem[$j]=$emA; $loghp[$j]=$hpA; $logtxt[$j]=$txtA; $logdel[$j]=$delA; $logiro1[$j]=$iro1A; $logiro2[$j]=$iro2A; $logcg[$j]=$cgA; #添付ファイルを削除するとき $fileupHMode = $query ->param('FILENAME_H_MODE') ; $fileupMode = $query ->param('FILENAME_MODE') ; if($fileupHMode eq "1"){ if((unlink "\.\/$UpDir\/$logfileup[$j]") != 1){ sjis("UPファイルの削除に失敗しました。
$!
$UpDir\/$logfileup[$j]
"); exit; } sjis("
× アップロードされていたファイル $logfileup[$j]の削除を行いました。

"); $logfileup[$j]=""; $logfileupMode[$j]=""; }else{ $logfileupMode[$j]="$fileupMode"; } $temptime1 = "
→　編集時刻：　"; $temptime2 = $logtime[$j]; $logtime[$j] = $temptime2.$temptime1; $temptime2 = $logtime[$j]; $logtime[$j] = $temptime2.$timeA; # sjis("題名　$logti[$j]
"); # sjis("名前　$logna[$j]
"); # sjis("メール　$logem[$j]
"); # sjis("ＨＰ　$loghp[$j]
"); # sjis("内容　$logtxt[$j]
"); # sjis("削除　$logdel[$j]
"); # sjis("色１　$logiro1[$j]
"); # sjis("色２　$logiro2[$j]
"); # sjis("ＣＧ　$logcg[$j]
"); } } } } #-----------------------------------------# # ロックファイル（symlink関数） # # ファイルをロックするためのプログラム # #-----------------------------------------# sub lock{ if($lockf == 1){ local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error("LOCK is BUSY"); } sleep(1); } }else{ local($flag) = 0; foreach (1 .. 5) { unless (-e $lockfile) { open(LOCK,">$lockfile"); close(LOCK); $flag = 1; last; } else { sleep(1); } } if ($flag == 0) { &error("LOCK is BUSY"); } } } #----------------------------------------# # アンロック # #----------------------------------------# sub unlock{ # ロック解除 unlink($lockfile) if (-e $lockfile); } #-------------------------------------------------------------# # ファイル操作＝＝上書き # # 変更したらどうなるか知らんよ（＾＾； # #-------------------------------------------------------------# sub fileWriter{ if($printmode == 0 ){ if($stdmodeY == 1){ $visitsR_plus_print = $visitsR + $visits; sjis("

新規書き込みによって書き込みポイントが$visits上昇しました。
現在 $visitsR_plus_printポイント
"); } } chomp($bangou); $bangous = $bangou +1; chomp($bangous); $maxVALUEw = 0; lock(); open(W,">$logfile") || die cannot(); #----------- print W "$bangous\n"; print W "$bangous\n"; print W "$bangou2\n"; print W "$tiA\n"; print W "$naA\n"; print W "$emA\n"; print W "$hpA\n"; print W "$txtA\n"; print W "$iro1A\n"; print W "$iro2A\n"; print W "$ipA\n"; print W "$osA\n"; print W "$timeA\n"; print W "$delA\n"; print W "$cgA\n"; #------ for($i = 0 ; $i < $bangou ; $i++){ if($logbg2[$i] == 0){ $maxVALUEw++; #sjis("$maxVALUEw $logbg[$i] $logbg2[$i]
"); } if($maxVALUEw == $maxwrite + 1 ){ #sjis("
システムメッセージ：古い記事を自動削除しました。
"); close(W); unlock(); rewrite(); tempFooter(); exit(); } print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; } close(W); unlock(); } #--------------------------------------------------------------------# # ファイル操作＝返信用 # #--------------------------------------------------------------------# sub fileWriterR{ if($printmode == 0 ){ if($stdmodeY==1){ $visitsR_plus_print = $visitsR + $visits; sjis("返信書き込みによって書き込みポイント$visits上昇しました。
現在　$visitsR_plus_printポイント"); } } chomp($bangou); $bangous = $bangou +1 ; $bangou2 = 0; chomp($bangous); lock(); open(W,">$logfile") || die cannot(); print W "$bangous\n"; if($agesage == 1){ #上げの設定 for($i = 0 ; $i <= $bangous ; $i++){ #print($logbg[$i]); #print("
"); if($logbg[$i] == $oya){ print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; $bangou2 =$bangou2+1; } } #----------- $bangou1 = $oya; print W "$bangou1\n"; print W "$bangou2\n"; print W "$tiA\n"; print W "$naA\n"; print W "$emA\n"; print W "$hpA\n"; print W "$txtA\n"; print W "$iro1A\n"; print W "$iro2A\n"; print W "$ipA\n"; print W "$osA\n"; print W "$timeA\n"; print W "$delA\n"; print W "$cgA\n"; #------ for($i = 0 ; $i < $bangous ; $i++){ if($logbg[$i] != $oya){ print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; } } sjis("

お知らせ→　書き込みモード：”age”
"); }else{ #下げの設定 for($i = 0 ; $i < $bangous ; $i++){ if($logbg[$i] == $oya){ last; } print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; } # sjis("$i-1番目まで書き込み完了 目標　$bangousまで
"); for($j = 0 ; $j <= $bangous ; $j++){ #print($logbg[$j]); #print("
"); if($logbg[$j] == $oya){ print W "$logbg[$j]\n"; print W "$logbg2[$j]\n"; print W "$logti[$j]\n"; print W "$logna[$j]\{\}$lognakai[$i]\n"; print W "$logem[$j]\n"; print W "$loghp[$j]\n"; print W "$logtxt[$j]\n"; print W "$logiro1[$j]\n"; print W "$logiro2[$j]\n"; print W "$logip[$j]\n"; print W "$logos[$j]\n"; print W "$logtime[$j]\n"; print W "$logdel[$j]\n"; print W "$logcg[$j]\{\}$logfileup[$j]\{\}$logfileupMode[$j]\n"; $bangou2 =$bangou2+1; } } # sjis("$i-1のうち子$bangou2番目まで書き込み完了 目標　$bangousまで
"); #自分 $bangou1 = $oya; print W "$bangou1\n"; print W "$bangou2\n"; print W "$tiA\n"; print W "$naA\n"; print W "$emA\n"; print W "$hpA\n"; print W "$txtA\n"; print W "$iro1A\n"; print W "$iro2A\n"; print W "$ipA\n"; print W "$osA\n"; print W "$timeA\n"; print W "$delA\n"; print W "$cgA\n"; #------ for($i = $i + $bangou2 ; $i <= $bangous ; $i++){ print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; } # sjis("$i-1番目まで書き込み完了 目標　$bangousまで
"); sjis("

お知らせ→　書き込みモード：”sage”
"); } close(W); unlock(); } #-------------------------------------------------------# # 編集用ファイル保存 # #-------------------------------------------------------# sub fileSaveHensyu{ lock(); open(W,">$logfile") || die cannot(); print W "$bangou\n"; for($i = 0 ; $i <= $bangou ; $i++){ print W "$logbg[$i]\n"; print W "$logbg2[$i]\n"; print W "$logti[$i]\n"; print W "$logna[$i]\{\}$lognakai[$i]\n"; print W "$logem[$i]\n"; print W "$loghp[$i]\n"; print W "$logtxt[$i]\n"; print W "$logiro1[$i]\n"; print W "$logiro2[$i]\n"; print W "$logip[$i]\n"; print W "$logos[$i]\n"; print W "$logtime[$i]\n"; print W "$logdel[$i]\n"; print W "$logcg[$i]\{\}$logfileup[$i]\{\}$logfileupMode[$i]\n"; } close(W); unlock(); } #---------------------------------------------------# # 削除＆ファイル保存 # #---------------------------------------------------# sub fileSaveSakujyo{ for($j=0;$j<$bangou;$j++){ if($logbg[$j] eq""){ #ループだけ抜ける命令ないんかな }else{ if($no1 == $logbg[$j] && $no2 == $logbg2[$j]){ if($no1 == $logbg[$j] && $no2 == $logbg2[$j]){ if($mypass ne $pass){ if($pass ne $logdel[$j]){ sjis("パスワードが一致しませんでした。
ブラウザの戻るを利用し、入力し直してください。"); tempFooter(); exit(); } } } } } } lock(); debug($bangou); debug($no1); debug($no2); open(W,">$logfile") || die cannot(); print W "$bangou\n"; for($j=0;$j<$bangou;$j++){ if($logbg[$j] eq""){ #ループだけ抜ける命令ないんかな }else{ if($no2 == 0){ #親の場合は子もすべて削除 if($no1 == $logbg[$j]){ #削除なので一致する部分はスルーパス。 $sakujyoAdminTxt = $logtxt[$j]; if($logfileup[$j] ne ""){ if((unlink "\.\/$UpDir\/$logfileup[$j]") != 1){ sjis("UPファイルの削除に失敗しました。
$!
$UpDir\/$logfileup[$j]
"); } sjis("アップロードされていたファイル $logfileup[$j]の削除を行いました。

"); $logfileup[$j]=""; $logfileupMode[$j]=""; } sjis("No.$no1の記事を削除しました。
"); }else{ print W "$logbg[$j]\n"; print W "$logbg2[$j]\n"; print W "$logti[$j]\n"; print W "$logna[$j]\{\}$lognakai[$i]\n"; print W "$logem[$j]\n"; print W "$loghp[$j]\n"; print W "$logtxt[$j]\n"; print W "$logiro1[$j]\n"; print W "$logiro2[$j]\n"; print W "$logip[$j]\n"; print W "$logos[$j]\n"; print W "$logtime[$j]\n"; print W "$logdel[$j]\n"; print W "$logcg[$j]\{\}$logfileup[$j]\{\}$logfileupMode[$j]\n"; } }else{ if($no1 == $logbg[$j] && $no2 == $logbg2[$j]){ #削除なので一致する部分はスルーパス。 $sakujyoAdminTxt = $logtxt[$j]; if($logfileup[$j] ne ""){ if((unlink "\.\/$UpDir\/$logfileup[$j]") != 1){ sjis("UPファイルの削除に失敗しました。
$!
$UpDir\/$logfileup[$j]
"); } sjis("アップロードされていたファイル $logfileup[$j]の削除を行いました。

"); $logfileup[$j]=""; $logfileupMode[$j]=""; } sjis("No.$no1-$no2の記事を削除しました。
"); }else{ print W "$logbg[$j]\n"; print W "$logbg2[$j]\n"; print W "$logti[$j]\n"; print W "$logna[$j]\{\}$lognakai[$i]\n"; print W "$logem[$j]\n"; print W "$loghp[$j]\n"; print W "$logtxt[$j]\n"; print W "$logiro1[$j]\n"; print W "$logiro2[$j]\n"; print W "$logip[$j]\n"; print W "$logos[$j]\n"; print W "$logtime[$j]\n"; print W "$logdel[$j]\n"; print W "$logcg[$j]\{\}$logfileup[$j]\{\}$logfileupMode[$j]\n"; } } } } close(W); unlock(); #↓管理人宛メッセ機能 if($useAdminMes == 1){ fileWriterSysAdmin("　▼　$name_cさんが削除しました。　＜　$timeA　▼　

■　内容　■

$sakujyoAdminTxt

■　追記情報　■

$hostaddr　$ipA
$osA
"); sjis("
メッセ機能、正常動作しました。
"); } } #------------------------------------------------------------------# #アクセス解析 ファイル処理＝＝＝読み込み # #------------------------------------------------------------------# sub fileReadSysAnaco{ open(F,"$todayfile") || die cannot(); for($i=0 ; $i < $AcMax-1 ; $i++ ){ $Anaco[$i]=; chomp($Anaco[$i]); if($Anaco[$i] eq ""){ # sjis("$i個目の処理で空白発見
"); last; } ($AnacoTIME[$i],$AnacoNAME[$i],$AnacoHOST[$i],$AnacoACCS[$i],$AnacoIP[$i],$AnacoOS[$i],$AnacoMODE[$i],$AnacoCO_ALL[$i],$AnacoCO_WR[$i]) = split( /{}/ , $Anaco[$i], 9); } $AcMaxSe = $i; # sjis("$AcMaxSe個のログが在ります。
"); close(F); } #------------------------------------------------------------------# #アクセス解析 PC表示 # #------------------------------------------------------------------# sub fileReadSysAnacoPrintPC{ sjis("
戻る
"); sjis(""); for($i=0 ; $i < $AcMax-1 ; $i++ ){ if($AnacoTIME[$i] eq ""){ # sjis("$i個目の処理で空白発見
"); last; } sjis(""); } $AcMaxSe = $i; sjis("
アクセス日時名前ホスト名／アクセス元ＩＰアドレス閲覧環境モード総/書
$AnacoTIME[$i] $AnacoNAME[$i] $AnacoHOST[$i]
$AnacoACCS[$i]		$AnacoIP[$i]$AnacoOS[$i]$AnacoMODE[$i]$AnacoCO_ALL[$i]
$AnacoCO_WR[$i]
"); sjis("
$AcMaxSe個のログがあります。
"); } #------------------------------------------------------------------# #アクセス解析 携帯表示 # #------------------------------------------------------------------# sub fileReadSysAnacoPrinti{ sjis("
戻る
"); # sjis(""); for($i=0 ; $i < $max_accs_kaiseki_i ; $i++ ){ if($AnacoTIME[$i] eq ""){ # sjis("$i個目の処理で空白発見
"); last; } sjis("$AnacoTIME[$i]
$AnacoNAME[$i]
$AnacoHOST[$i]
$AnacoIP[$i]
$AnacoOS[$i]
$AnacoMODE[$i]
$AnacoCO_ALL[$i]/$AnacoCO_WR[$i]
"); } $AcMaxSe = $i; #sjis("
アクセス日時名前ホスト名／アクセス元ＩＰアドレス閲覧環境モード総/書
"); sjis("
携帯モードなので最新$max_accs_kaiseki_i個のみ表示しました。
"); } #------------------------------------------# #アクセス解析　ファイル操作＝＝書き込み# #------------------------------------------# sub fileWriterSysAnaco{ if($use_accs_kaiseki != 2){ lock(); open(W,">$todayfile") || die tempCannot(); @_ = jcode::sjis(@_); print W "@_\n"; for( $i = 0 ; $i < $AcMaxSe ; $i++ ){ if($Anaco[$i] ne ""){ print W "$Anaco[$i]\n"; } } close(W); unlock(); } } #------------------------------------------# #管理人宛　ファイル操作＝＝追記書き込み # #------------------------------------------# sub fileWriterSysAdmin{ if($useAdminMes != 1){ sjis("管理人宛メッセ機能は使用されていません。"); exit; } lock(); open(W,">>$adminfile") || die tempCannot(); @_ = jcode::sjis(@_); print W "@_\n"; close(W); unlock(); } #------------------------------------------# #管理人宛　ファイル操作＝＝中身削除 # #------------------------------------------# sub fileWriterSysAdminDEL{ lock(); open(W,">$adminfile") || die tempCannot(); close(W); unlock(); } #------------------------------------------# #管理人宛　ファイル操作＝＝読み込み表示 # #------------------------------------------# sub fileReaderSysAdmin{ open(F,"$adminfile") || die tempCannot(); for($i=0;;$i++){ $SysAdmin=; chomp($SysAdmin); sjis("$SysAdmin"); if($SysAdmin eq ""){ if($i == 0){ sjis("新着メッセージは有りません。
");} sjis("
$i件表示しました。

"); last; } } close(W); } #------------------------------------------# #管理人宛　ファイル操作＝＝読み込み表示 # #------------------------------------------# sub fileChkSysAdmin{ my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($adminfile); if($size > 0){ sjis("＜メッセージ有($sizeバイト)＞"); }else{ sjis("＜メッセージ無し＞"); } } #------------------------------------------# #カウンター　ファイル操作＝＝　上書き # #------------------------------------------# sub fileWriterSysLogco{ lock(); open(W,">$cofile") || die tempCannot(); print W "$coall\n"; print W "$cotod\n"; print W "$coyes\n"; print W "$day\n"; print W "$ipA\n"; print W "$osA\n"; close(W); unlock(); } #------------------------------------------# #カウンター　ファイル処理＝＝＝　読み込み # #------------------------------------------# sub fileReadSysLogco{ open(F,"$cofile") || die tempCannot(); $coall =; chomp($coall); $cotod =; chomp($cotod); $coyes =; chomp($coyes); $day =; chomp($day); $ipA_co = ; chomp($ipA_co); $osA_co = ; chomp($osA_co); close(F); } #-----------------# #できないとき # #-----------------# sub cannot{ unlock(); out(<

隊長！！　作戦失敗です！


理由は$!
END } #----------------------------------------# # sjis形式でプリント表示する # #----------------------------------------# sub sjis{ @_ = jcode::sjis(@_); print(@_); } #---------------------------------------# # 書き込み完了時の表示 # # デザイン変更可 # #---------------------------------------# sub rewrite{ out(<
END } #----------------------------# # 次のページを表示 # #----------------------------# sub nextpage{ #PC表示用 if($printmode == 0){ out(<
END if($modo eq "続き"){ out(< / END }elsif($istart_back eq ""){ #sjis("/"); sjis("/"); }else{ sjis(""); } out(< END }elsif($printmode == 1){ #携帯表示用 out(<
END if($modo eq "続き"){ out(< END }elsif($istart_back eq ""){ #sjis("/"); sjis("/"); }else{ sjis(""); } out(< END }else{ sjis("次ページ表示エラー
"); } } #-----------------------------# # 入力された値の検査 # #-----------------------------# sub checkIn{ FUSEItagu($tiA); FUSEIkaigyou($tiA); #改行 FUSEItagu($naA); FUSEItxt($naA); FUSEIkaigyou($naA); #改行 $moji = $naA; FUSEIkakko($naA_sub); # sjis("
$naA_sub
"); # sjis("$naA
"); FUSEItxt($naA_sub); FUSEIkaigyou($naA_sub); #改行 $moji = $naA_sub; #名前の処理（自動ネームは禁止） if($useCookieAutoName == 1){ if($naA_sub =~ /^名無し\(NO\.\d.*\d\)$/){ sjis("
ERROR ：名無し(NO.〜)を名前に使用することは禁止されています。
※これは自動名前登録機能による制限です。どうしてもこの名前を使いたい場合は掲示板の管理人にご相談ください。
"); exit; } } FUSEItagu($emA); FUSEIkaigyou($emA); #改行 FUSEItagu($hpA); FUSEIkaigyou($hpA); #改行 FUSEItagu($osA); FUSEIkaigyou($osA); #改行 if($USE_TAGU == 0){ FUSEItagu($txtA); } FUSEItxt($txtA); $txtA = $moji; unAUTOlink($txtA); $txtA = $moji; AUTOlink($txtA); $txtA = $moji; FUSEIall($delA); FUSEIkaigyou($delA); #改行 #DEL-KEYの暗号化 $delAc = $delA; $delA = crypt($delA, $salt); FUSEIkakko($upfile); FUSEIkaigyou($upfile); #改行 } #-----------------------------# # 投稿番号が最新かどうか # #-----------------------------# sub bangouchk{ if($bangou != $rebangou){ sjis("
誰かが先に投稿してしまったようです。
内容の変化を防ぐため、この状態での投稿は禁止されています。
投稿しなおしてください。

!注意！

ブラウザの戻るを使用は無意味です。"); rewrite(); tempFooter(); exit(); } } #------------------# # クッキーの発行 # #------------------# sub set_cookie { $naAB=url_enc($naA); $emAB=url_enc($emA); $hpAB=url_enc($hpA); $delAB=url_enc($delAc); $cgAB=url_enc($cgA); $iro1AB=url_enc($iro1A); $iro2AB=url_enc($iro2A); $kaisuu1AB =url_enc($kaisuu1A); $kaisuu2AB =url_enc($kaisuu2A); $accstimeAB = url_enc($accstimeA); # クッキーは120日間有効 local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+120*24*60*60); @month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",$week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec); $std_cookie="$naAB<>$emAB<>$hpAB<>$delAB<>$cgAB<>$iro1AB<>$iro2AB<>$kaisuu1AB<>$kaisuu2AB<>$accstimeAB"; if($path eq ""){ print"Set-Cookie: STD_BBS=$std_cookie; expires=$gmt \n"; }else{ print"Set-Cookie: STD_BBS=$std_cookie; expires=$gmt; path=$path \n"; } if($modo ne '編集確定'){ #ゲームモード if($stdmodeY==1){ $visitsR=$visits+$visitsR; classBBS() ; $class_sub = "{}$class"; if($naA ne ""){ $naA=$naA.$class_sub; } set_cookieG(); } } } #------------------# # クッキーの削除 # #------------------# sub del_cookie { if($path eq ""){ print"Set-Cookie: STD_BBS=del; expires=Fri, 31-Dec-1999 23:59:59 GMT \n"; }else{ print"Set-Cookie: STD_BBS=del; expires=Fri, 31-Dec-1999 23:59:59 GMT ; path=$path \n"; } if($path eq ""){ print"Set-Cookie: STDCLASS=del; expires=Fri, 31-Dec-1999 23:59:59 GMT \n"; }else{ print"Set-Cookie: STDCLASS=del; expires=Fri, 31-Dec-1999 23:59:59 GMT ; path=$path \n"; } } #------------------# # クッキーを取得 # #------------------# sub get_cookie { local($key, $val, *ck); $ck = $ENV{'HTTP_COOKIE'}; foreach (split(/;/, $ck)) { ($key, $val) = split(/=/); $key =~ s/\s//g; $ck{$key} = $val; } @ck = split(/<>/, $ck{'STD_BBS'}); # foreach(@ck){ # printf"$_
"; # } ($name_c,$mail_c,$hp_c,$del_c,$cg_c,$iro1_c,$iro2_c,$kaisuu1_c,$kaisuu2_c,$accstime_c)= @ck; $name_c=url_dc($name_c); $mail_c=url_dc($mail_c); $hp_c=url_dc($hp_c); $del_c=url_dc($del_c); $cg_c=url_dc($cg_c); $iro1_c=url_dc($iro1_c); $iro2_c=url_dc($iro2_c); $kaisuu1_c=url_dc($kaisuu1_c); $kaisuu2_c=url_dc($kaisuu2_c); $accstime_c=url_dc($accstime_c); if($stdmodeY==1){ get_cookieG(); } # print "Content-type: text/html\n\n"; } #------------------------------# # ゲームモードクッキーの発行 # #------------------------------# sub set_cookieG{ $visitsR = url_enc($visitsR); $class = url_enc($class); # クッキーは120日間有効 local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+120*24*60*60); @month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",$week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec); $std_cookie="name<>$naAB,exp<>$visitsR,class<>$class"; if($path eq ""){ print"Set-Cookie: STDCLASS=$std_cookie ; expires=$gmt \n"; }else{ print"Set-Cookie: STDCLASS=$std_cookie ; expires=$gmt ; path=$path \n"; } } #------------------------------# # ゲームモードクッキーを取得 # #------------------------------# sub get_cookieG{ local($key, $no_a, @cookie); @cookie = split(/;/, $ENV{'HTTP_COOKIE'}); foreach (@cookie) { ($key,$no_a) = split(/=/); $key =~ s/\s//g; $GET{$key} = $no_a; } @cookie = split(/,/, $GET{'STDCLASS'}); foreach (@cookie) { ($key,$no_a) = split(/<>/); $std_cookie{$key} = $no_a; } $name_class = $std_cookie{'name'}; $visitsR = $std_cookie{'exp'}; $class = $std_cookie{'class'}; $name_class = url_dc($name_class); $visitsR = url_dc($visitsR); $class = url_dc($class); } #-----------------# # URLエンコード # #-----------------# sub url_enc { local($_) = @_; s/(\W)/'%' . unpack('H2', $1)/eg; s/\s/+/g; $_; } #-----------------# # URLデコード # #-----------------# sub url_dc { local($_) = @_; $_ =~ s/\+/ /g; $_ =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; return($_); } #--------------# # 時間を取得 # #--------------# sub get_time { $ENV{'TZ'} = "JST-9"; $times = time; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times); @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); # 日時のフォーマット $timeA =sprintf("%04d/%02d/%02d(%s) %02d:%02d.%02d",$year+1900,$mon+1,$mday,$week[$wday],$hour,$min,$sec); $timeNo =sprintf("%04d-%02d-%02d-%s-%02d-%02d-%02d",$year+1900,$mon+1,$mday,$week[$wday],$hour,$min,$sec); } #----------------------------------------------# # システムの近況処理 # #----------------------------------------------# sub syslog{ fileReadSysLog(); $syslogkazu = @syslog; $syslogkazu = $syslogkazu -1; for($i = $syslogkazu ; $i >= 0; $i--){ $syslog[$i]=$syslog[$i-1]; } $MeseageLog ="@_"; $syslog[0]=$MeseageLog; fileWriterSysLog(); } #----------------------------------------------# # ファイル操作＝＝sys-log　上書き #----------------------------------------------# sub fileWriterSysLog{ lock(); open(W,">$sysfile") || die tempCannot2(); for($i = 0 ; $i < @syslog; $i++){ print W "$syslog[$i]\n"; } close(W); unlock(); } #----------------------------------------------# #ファイル処理＝＝＝sys-log　読み込み #----------------------------------------------# sub fileReadSysLog{ @syslog=(" "," "," "," "); open(F,"$sysfile") || die tempCannot(); for($i = 0 ; $i < @syslog; $i++){ $syslog[$i] =; chomp($syslog[$i]); } close(F); } #----------------------------------------------# #ファイル処理＝＝＝sys-log　読み込み表示 #----------------------------------------------# sub fileReadSysLogRGB{ @syslog=(" "," "," "," "); open(F,"$sysfile") || die tempCannot(); for($i = 0 ; $i < @syslog; $i++){ $syslog[$i] =; chomp($syslog[$i]); sjis($syslog[$i] ); } close(F); } #----------------------------------------------# # スレッドタイトルの表示 # #----------------------------------------------# sub sureTitlePrint{ for(my($it)=0 ; $it < $itmax ;$it++){ if($logbg2[$it] == 0){ if($logti[$it] ne ""){ sjis("▽　$logti[$it] by $logna[$it]
"); } }else{ $itmax++; } } } #---------------------------------------------------------------------# # 不正な入力の検出 # #---------------------------------------------------------------------# #数値及び半角英数字にしたい場合(パスワード） sub FUSEIall{ my($moji)="@_"; if($moji =~ /\W/){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
パスワードは半角英数字のみ有効です。
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。"); exit(); } } #タグの使用を不許可 sub FUSEItagu{ my($moji)="@_"; if($moji =~ /[<>]/){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：タグの使用は認められていません。
!注意!
半角の<>はタグとみなされます。"); exit(); } } #{}の使用を不許可 sub FUSEIkakko{ my($moji)="@_"; if($moji =~ /{}/){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：{}の使用は認められていません。
"); exit(); } } #改行の使用を許可しない sub FUSEIkaigyou{ my($moji)="@_"; if($moji =~ /\r\n/ || $moji =~ /\r|\n/ || $moji =~ /
/){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：コメント以外で改行の使用は認められていません。
"); exit(); } } #数値以外を不許可 sub FUSEIkazu{ my($moji)="@_"; if($moji =~ /\D/){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：削除時のナンバー入力は半角数値で入力してください。"); exit(); } } #コメント欄での不正処理+改行処理 sub FUSEItxt{ $moji="@_"; if($moji eq ""){ if($modo eq '送信'||$modo eq '編集確定'){ sjis("エラー
名前または本文が空白です。
"); exit(); } } if(length($moji) > $lengthtxt){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：投稿された文字列が長すぎます！$lengthtxt以下になるようにしてください。"); exit(); } if($kaigyou == 0){ $moji =~ s/\r\n/
/g; $moji =~ s/\r|\n/
/g; }else{ $moji =~ s/\r\n//g; $moji =~ s/\r|\n//g; } } #URLがあれば自動でリンクする sub AUTOlink{ $moji="@_"; if($useAUTOlink == 1){ if (($moji =~ /報告→imgタグが存在するので自動リンク機能は使用しませんでした。
"); }else{ $moji =~ s/(http:\/\/[a-zA-Z0-9\.\/\-+#_?~&%=^\@:;]+)/$1<\/A>/ig; } } } #URLのリンクを解除する。 sub unAUTOlink{ $moji="@_"; $moji =~ s/()(http:\/\/[a-zA-Z0-9\.\/\-+#_?~&%=^\@:;]+)(<\/A>)/$2/ig; } #コメント欄での不正処理+改行処理の反対処理 sub FUSEItxtA{ $moji="@_"; if(length($moji) > $lengthtxt){ sjis("エラー
不正な値が入力されました。
"); sjis("原因：$moji
"); sjis("
ブラウザの「戻る」を利用して入力しなおしてください。
ヒント：投稿された文字列が長すぎます！$lengthtxt以下になるようにしてください。"); exit(); } $moji =~ s/
/\n/g; # sjis("改行コードの変換終了 $moji"); } sub contpc{ out(<

　｜　 No. -　 DEL-KEY：
　　 END if($use_accs_kaiseki == 0){ sjis(""); } out(<

END } #デバッグモード sub debug{ if($debug == 1){ sjis("
デバッグモード→@_
"); } } #-----------------------------------------------------------------------# #メーリングリスト関係 # #-----------------------------------------------------------------------# #-----------------------------------# #ファイル処理＝＝＝アドレス一覧 #-----------------------------------# sub fileReadSysLogIchiranmail{ open(F,"$logfilemail") || die sjis("読み込みエラー"); $adressK = 0; #sjis("読み込み中"); for(;;){ $templog =; sjis("$templog
"); if($templog !~ /\@/ ){ sjis("
▼　お知らせメール機能 ▼
　$adressK 個のアドレスがあります。

"); return(); } $adressK = $adressK +1; #sjis("."); } close(F); } #-----------------------------------# #ファイル処理＝＝＝アドレスの数 #-----------------------------------# sub fileReadSysLogKAZUmail{ open(F,"$logfilemail") || die sjis("読み込みエラー"); $adressK = 0; #sjis("読み込み中"); for(;;){ $templog =; chomp($templog); if($modo ne '解除'){ if($templog ne ''){ #sjis("登録済データ：$templog
"); if($templog eq $new_adress){sjis("$new_adressはすでに登録されています。

発見された登録済データ：$templog
");exit();} } } if($templog !~ /\@/ ){ sjis("
▼　お知らせメール機能 ▼
　現在、 $adressK アドレスに配信されています。

"); return(); } $adressK = $adressK +1; #sjis("."); } close(F); } #------------------------------------# #ファイル操作＝＝sys-log　上書き #------------------------------------# sub fileWriterSysLogmail{ lock(); open(W,">$logfilemail") || die sjis("書き込みエラー"); for(my($it)=0 ; $it < $adressK ;$it++){ chomp($syslogMail[$it]); print W "$syslogMail[$it]"; if($syslogMail[$it] =~ /\@/){ print W "\n"; } } print W "$new_adress\n"; sjis("貴方のアドレス「$new_adress」は正しく登録されました。
"); close(W); unlock(); } #------------------------------------# #ファイル操作＝＝sys-log　上書き(削除) #------------------------------------# sub fileWriterSysLogdelmail{ lock(); open(W,">$logfilemail") || die sjis("書き込みエラー"); for(my($it)=0 ; $it < $adressK ;$it++){ chomp($syslogMail[$it]); print W "$syslogMail[$it]"; if($syslogMail[$it] =~ /\@/){ print W "\n"; } } close(W); unlock(); } #-----------------------------------# #ファイル処理＝＝＝sys-log　読み込み #-----------------------------------# sub fileReadSysLogmail{ open(F,"$logfilemail") || die sjis("読み込みエラー"); for(my($it)=0 ; $it < $adressK ;$it++){ $syslogMail[$it] =; chomp($syslogMail[$it]); } close(F); #sjis("ファイルの読み込み完了
"); } #-----------------------------------# # 指定したアドレスを削除する #-----------------------------------# sub delete_admail{ for(my($it)=0 ; $it < $adressK ;$it++){ if($syslogMail[$it] eq $new_adress){ sjis("
$new_adressは削除されました。
"); $syslogMail[$it] = ''; } } } #-----------------------------------------------------------------------# #モードにより変更 # #-----------------------------------------------------------------------# #記事の表示 sub read10{ if ($printmode == 0){ read10pc(); }elsif($printmode == 1){ read10i(); } } #記事の表示 sub read10t{ if ($printmode == 0){ sjis("作成中。ツリー表示はまだ実装されていません。"); read10tpc(); }elsif($printmode == 1){ sjis("作成中。ツリー表示はまだ実装されていません。"); read10ti(); } } #返信元記事の表示 sub readoya{ if ($printmode == 0){ readoyapc(); } #携帯電話では表示しない。 } #送信フォーム sub sendF{ if ($printmode == 0){ sendFpc(); }elsif($printmode == 1){ sendFi(); } } #コントロール sub cont{ if ($printmode == 0){ contpc(); }elsif($printmode == 1){ conti(); } } #検索実行表示 sub kensaku{ if ($printmode == 0){ kensakupc(); }elsif($printmode == 1){ kensakui(); } } #編集実行表示 sub hensyu{ if ($printmode == 0){ hensyupc(); } #携帯電話では表示しない。 } #アクセス解析表示 sub fileReadSysAnacoPrint{ if ($printmode == 0){ fileReadSysAnacoPrintPC(); }elsif($printmode == 1){ fileReadSysAnacoPrinti(); } } #ヘッダー表示 sub tempHeader{ if ($printmode == 0){ tempHeaderpc(); }elsif($printmode == 1){ tempHeaderi(); } } #タイトルの表示 sub title{ if ($printmode == 0){ sjis("$Htitle　Powered by $ver
"); if($modo eq ''||$modo eq '更新'){ #管理人宛メッセ機能を使う場合 if($useAdminMes == 1){ sjis("
■　$AdminName宛にメッセージを送信"); sjis("　　□　郵便箱"); fileChkSysAdmin(); sjis("　
"); #↓日記モードじゃなかったら if($MODE_RUN != 1){ sjis("
"); } } } }elsif($printmode == 1){ sjis("$Htitle
"); }elsif($printmode == 3){ sjis("$Htitle
"); } } sub kisyusentaku{ #回覧している機種の判別--------------------------- @user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'}); $printmode_sub =0; if ($user_agent[0] =~ /DoCoMo/) { #i-mode系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /J-PHONE/) { #J-SKY系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /L-mode/) { #L-mode系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /UP.Browser/) { #EZweb系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /ASTEL/) { #アステル系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[1] =~ /DDIPOCKET/) { #H"系 $printmode= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /sharp pda browser/i) { #H"系 $printmode= 1; $printmode_sub= 1; $maxread = $maxreadi; } elsif ($user_agent[0] =~ /DDIPOCKET/i) { #H"系 $printmode= 1; $printmode_sub= 1; $maxread = $maxreadi; } else { #PC系ブラウザ $printmode= 0; } } #----------------------------------------------------- #----------------------------------------------------------------------------------------# # i-mode 用 / J-Phone用の表示 # #----------------------------------------------------------------------------------------# # ヘッダ sub tempHeaderi { out(< $Htitle END } #----------------------------------------# #内容を表示する #----------------------------------------# sub read10i{ if($MODE_RUN != 1){ sjis("
"); }else{ #日記用動作 } sjis("近況のみ表示する。"); if($usemailA == 1){ sjis("
"); sjis("お知らせメール機能"); } $js = 0; if($istart != 0){ sjis("$istart個目の書き込みから表示します"); } for($j=$istart ; $js < $maxread ;$j++){ if($logbg[$j] eq""){ cont(); tempFooter(); exit(); }else{ if($logbg2[$j] == 0){ if($j != $istart){ } print("
"); sjis("$logti[$j]　No.$logbg[$j]-$logbg2[$j]
"); if($MODE_RUN != 1){ sjis("投稿者　$logna[$j]
$logtime[$j]

"); }else{ sjis("$logtime[$j]

"); } sjis("$logtxt[$j]"); print("
"); if($logfileup[$j] ne ""){ sjis("
DL→添付ファイル有り
"); } sjis("
"); }else{ sjis("No.$logbg[$j]に対する返信
"); sjis("$logti[$j]　No.$logbg[$j]-$logbg2[$j]
"); sjis("投稿者　$logna[$j]
$logtime[$j]

"); sjis("$logtxt[$j]
"); if($logfileup[$j] ne ""){ sjis("
DL→添付ファイル有り
"); } sjis("
"); } if($logbg[$j] != $logbg[$j+1]){ $js=$js+1; } } } sjis ("　$j個の書き込みを表示しましたが、まだ続きがあります。"); #cont(); } #-------------------------------------------------------------------# # 送信フォーム(携帯用） # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # out(<"); if($type == 1){ print(""); print(""); } out(<

[SUBJECT]


[COMMENT]

END if($printmode_sub == 0 ){ sjis("
"); }elsif($printmode_sub == 1 ){ sjis("
"); } out(<
END #メール機能ON-OFFによる表示 if($type == 1){ if($usemailA == 1){ sjis("
[OPTION]

"); if($MODE_RUN != 1){ sjis("
"); }else{ sjis("
"); } }else{ if($MODE_RUN != 1){ sjis("
"); }else{ sjis("
"); } } }else{ if($usemailA == 1){ sjis("[OPTION]

"); } } #追加 sjis("
[TITLE-COLOR]
"); for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $iro1_c){ sjis("■"); }else{ sjis("■"); } } sjis("
[FONT-COLOR]
"); for($i=0 ; $i < @iro_s ; $i++){ if($iro_s[$i] eq $iro2_c){ sjis("■"); }else{ sjis("■"); } } sjis("
色設定はPCでの表示時に有効です。

"); out(<
掲示板に戻る END } #----------------------------# # 検索、削除、更新表示 # #----------------------------# sub conti{ out(<
No. -
DEL-KEY：

END if($use_accs_kaiseki == 0){ sjis(""); } sjis(""); } #----------------------------# # 管理モード　動作チェック # #----------------------------# sub CHECK_KANRI{ sjis("
"); sjis("動作モード："); if($MODE_RUN == 0){sjis("ノーマル
"); }elsif($MODE_RUN == 1){sjis("日記
");} sjis("表示モード："); if($MODE_PRINT == 0){sjis("ノーマル
"); }elsif($MODE_PRINT == 1){sjis("ツリー
");} sjis("改行："); if($kaigyou == 0){sjis("そのまま"); }else{sjis("削除");} sjis("
IPの表示："); if($printip == 0){sjis("しない"); }else{sjis("する");} sjis("
タグの使用："); if($USE_TAGU == 1){sjis("許可する"); }else{sjis("許可しない");} sjis("
投稿ログ："); if($printlog == 1){sjis("表示する"); }else{sjis("表示しない");} sjis("
スレッド一覧："); if($sureTitlePrint == 1){sjis("表示する"); }else{sjis("表示しない");} sjis("
アイコン画像："); if($use_iconCG == 1){sjis("表示する"); }else{sjis("表示しない");} sjis("
遊びモード："); if($stdmodeY == 1){sjis("ON"); }else{sjis("OFF");} sjis("
メーリングリスト機能："); if($usemailA == 1){sjis("ON"); }else{sjis("OFF");} sjis("
状況表示の管理："); if($USE_JYOUKYOU == 1){sjis("する"); }else{sjis("しない");} sjis("
管理人宛メッセージ機能："); if($useAdminMes == 1){sjis("使う"); }else{sjis("無効");} sjis("
返信時のRe:がつく対象："); if($restitleRe == 1){sjis("親"); }else{sjis("直前");} sjis("
ファイルアップロードの許可："); if($useFileUp == 1){sjis("許可（$upfilesize バイト）"); }else{sjis("不許可");} } #----------------------------# # 使い方説明書 # #----------------------------# sub how_to_use{ out(<STD-BBS3について


　特徴

・複数の返信ができる掲示板です。（動作選択可能）

　　記事に対する返信可能数はあらかじめ決められていますので携帯端末からも安心です。
　　記事の上げ下げも自分の思うままです。
　　また、ゲーム機能による付加的な楽しみも備えています

・画像等のファイルのアップロードに対応

　設定されたサイズまでのファイルのアップロードに対応しています。
画像であればそのまま表示させることも可能です。

・携帯電話等に対応

　携帯電話（i-mode 1.0以降　J-sky 3.0以降　EZ-WEB html対応機以降）に対応しています。

・動作モードにより日記としての利用が可能です。（動作選択可能）

　　日記として使用することが簡単です。掲示板・日記と同デザインで統一できます。

・メールでお知らせ機能（動作選択可能）

　　あらかじめメールアドレスを登録している人にメールで書き込みをお知らせします。
　　書き込み時に”メール配信OFF”を選択すればメールの配信はされないので気軽に書き込むこともできます。
　　小規模なサークル・団体であればメーリングリスト兼WEBログとしても利用できます。

・スレッド一覧、書き込み順ログ（近況）表示機能（動作選択可能）

　　スレッド名の一覧、書き込み順にログが作成される２つの機能により新しい書き込みが簡単に見つかります。
　　表示させる/させないは設置者の自由です。

・アクセス解析

　掲示板へのアクセスを記録します。一度書き込んだことのある人であれば名前も記録することができます。
またクッキー制限が有効であれば名前を登録しないと掲示板を読むことはできません。


・管理人宛メッセージ機能

　管理人にのみメッセージを送ることができる機能です。みんなに見られるのは嫌だけど、メールするほどでは無いとか、メールはアドレスがばれるから嫌・・なんていう時に便利です。また、オマケとして削除・編集前を記録して報告してくれます。


　説明

・新規投稿

　名前、コメント、DEL-KEYの記入は必項です。後は好きなように入力してください。
　タグが許可されている場合はタグも利用可能です。
ファイルのアップロードが許可されていればアップロードも可能です。

・返信

　そのボタンのある親記事に対して返信することができます。
　返信数は最大値制限があります。（設置者の設定数値）

・メール配信のＯＮ／ＯＦＦ

　メールでお知らせ機能が有効になっている時に表示されます。
　自分の投稿がメールで配信されても良いのかまずいのか、自分で判断して選択してください。

・スレを上げる／上げない

　続に言う「age」と「sage」です。
　自分の返信でその親記事が上に上がった方が良いのか、そのままで良いのか選択してください。

・全表示

　保存されている記事をすべて表示します。
　日記等で過去ログを作成したい時等にご利用ください。

・編集・削除

　自分で設定した記事のパスワード又は管理パスワードを入力することで、対象の番号の記事を編集又は削除できます。

END } #----------------------------# # ホストアドレス取得 # #----------------------------# sub host_name { local($addr) = $ENV{'REMOTE_ADDR'}; local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2); if ($_ eq '') { $_ = $addr; } $_; } #----------------------------# # エラー表示 # #----------------------------# sub tempCannot{ sjis("
エラー

ファイルの読み込みに失敗しました。"); unlock(); } #----------------------------# # クッキー制限機能 # #----------------------------# sub CookieAcc{ out(<


＞＞　あなたの名前（ハンドルネーム）を入力し、「クッキー書き込み」を押してください。

　名前： 　　
※エンターキーを押すだけでは動作しません。ボタンを押してください。
※クッキーは有効にしてください。

・名前を入れたのに何度もこのページが表示されてしまう場合は、一度、お使いのブラウザのクッキーを削除してください。
　ＩＥの場合はツールの中のインターネットオプションから削除可能です。
END if($useAdminMes == 1){ sjis("・使い方がわからない、中に入れない等の場合は右上の「$AdminName宛にメッセージを送信」でお知らせください。
"); } out(<



■　これって何？　■

・本機能は、名前等の入力項目を保存し、書き込み時の手間を省くための機能です。
・初回訪問時に、貴方の名前をクッキーに保存します。

※クッキーはパソコン内に保存されるため、異なるパソコンでは新しく保存する必要があります。
・クッキーはこのパソコン自身に保存されますので簡単に削除することができます。


▼　注意事項　▼

・この機能は設定ファイルによりＯＦＦにすることができます。
・クッキーを有効にできない設置状況ではこの機能は使わないでください。


END } #----------------------------# # ステータスバーに表示 # #----------------------------# sub StatusBarCookie{ if($printmode == 0 ){ if($useJavaStatusBar ==1){ out(< END } } } #-----------------------------# # 階級を決定 # #-----------------------------# sub classBBS(){ if($visitsR < 100){ $class='雑用' }elsif($visitsR < 200){ $class='皿洗い' }elsif($visitsR < 500){ $class='2等兵' }elsif($visitsR < 700){ $class='1等兵' }elsif($visitsR < 1000){ $class='兵長' }elsif($visitsR < 1800){ $class='伍長' }elsif($visitsR < 2000){ $class='軍曹' }elsif($visitsR < 2500){ $class='少尉' }elsif($visitsR < 3100){ $class='中尉' }elsif($visitsR < 3800){ $class='大尉' }elsif($visitsR < 4600){ $class='少佐' }elsif($visitsR < 5500){ $class='中佐' }elsif($visitsR < 6700){ $class='大佐' }elsif($visitsR < 7800){ $class='准将' }elsif($visitsR < 9000){ $class='少将' }elsif($visitsR < 10000){ $class='中将' }elsif($visitsR < 12000){ $class='大将' }elsif($visitsR < 15000){ $class='将軍' }elsif($visitsR < 18000){ $class='元帥' }elsif($visitsR < 22000){ $class='長官' }elsif($visitsR < 26000){ $class='帝王' }else{ $class='大王様' } } #--------------------# # 画像アップロード # #--------------------# sub FileUp { local($upfile); # ファイル形式を見る $flag=0; if ($upfiles =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=2; } if ($upfiles =~ /\.jpe?g$/i && $jpeg) { $tail=".jpg"; $flag=2; } if ($upfiles =~ /\.png$/i && $png) { $tail=".png"; $flag=2; } if ($upfiles =~ /\.lzh$/i && $lha) { $tail=".lzh"; $flag=1; } if ($upfiles =~ /\.zip$/i && $zip) { $tail=".zip"; $flag=1; } if ($upfiles =~ /\.pdf$/i && $pdf) { $tail=".pdf"; $flag=1; } if ($upfiles =~ /\.mid$/i && $midi) { $tail=".mid"; $flag=1; } if ($upfiles =~ /\.doc$/i && $word) { $tail=".doc"; $flag=1; } if ($upfiles =~ /\.xls$/i && $excel) { $tail=".xls"; $flag=1; } if ($upfiles =~ /\.ppt$/i && $ppt) { $tail=".ppt"; $flag=1; } if ($upfiles =~ /\.ram$/i && $ram) { $tail=".ram"; $flag=1; } if ($upfiles =~ /\.rm$/i && $rm) { $tail=".rm"; $flag=1; } if ($upfiles =~ /\.mpe?g$/i && $mpeg) { $tail=".mpg"; $flag=1; } if ($upfiles =~ /\.mp3$/i && $mp3) { $tail=".mp3"; $flag=1; } if ($upfiles =~ /\.swf$/i && $swf) { $tail=".swf"; $flag=1; } if ($upfiles =~ /\.txt$/i && $txt) { $tail=".txt"; $flag=1; } # アップロード失敗処理 if (!$flag ) { sjis("
警告：アップロード許可されていないファイル形式です。
"); #ここにストップ処理 tempFooter(); exit(); } $upfile = $query ->param('FILENAME') ; #sjis("
ファイル内容
"); # while(<$upfile>){ # print; # } #sjis("
"); # 添付データを書き込み # $no1z = $bangou+1; $ImgFile = "$UpDir\/$timeNo$tail"; sjis("拡張子　$tail
"); sjis("書き込むファイル名は$ImgFileです
"); my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($upfile); sjis("ファイルサイズ：$sizeバイト
"); if($size > $upfilesize){ sjis("サイズが大きいのでUPできません。
許可された容量は$upfilesizeバイトです。
"); tempFooter(); exit(); } open(OUT,">$ImgFile") ||sjis("
アップロード中・・・書き込みに失敗しました
"); #バイナリモード binmode OUT; while(<$upfile>){ print OUT; } close(OUT); # chmod (0666,$ImgFile); sjis("
アップロード完了
"); } #-------------------------------- # # ファイルの種類を決定 # #-------------------------------- sub FileUpFlag{ $moji = "@_"; # ファイル形式を見る $flag=0; if ( $moji =~ /\.gif$/i) { $flag=2; } if ( $moji =~ /\.jpg$/i) { $flag=2; } if ( $moji =~ /\.png$/i) { $flag=2; } if ( $moji =~ /\.lzh$/i) { $flag=1; } if ( $moji =~ /\.zip$/i) { $flag=1; } if ( $moji =~ /\.pdf$/i) { $flag=1; } if ( $moji =~ /\.mid$/i) { $flag=1; } if ( $moji =~ /\.doc$/i) { $flag=1; } if ( $moji =~ /\.xls$/i) { $flag=1; } if ( $moji =~ /\.ppt$/i) { $flag=1; } if ( $moji =~ /\.ram$/i) { $flag=1; } if ( $moji =~ /\.rm$/i ) { $flag=1; } if ( $moji =~ /\.mpe?g$/i) { $flag=1; } if ( $moji =~ /\.mp3$/i ) { $flag=1; } if ( $moji =~ /\.swf$/i ) { $flag=1; } if ( $moji =~ /\.txt$/i ) { $flag=1; } # sjis("旗の値：$flag
$moji
@_
"); } #-------------------------------- # # 個人情報を表示 # #-------------------------------- sub PrintYourD_acc{ sjis("

取得ホスト名　：$hostaddr
"); sjis("取得IPアドレス：$ipA
"); sjis("取得OS情報　：$osA
"); sjis("登録名　　　　：$name_c

"); } #----------------------------------------# # BASE６４変換 # #----------------------------------------# sub base64{ local($base_txt) = @_; &jcode'convert(*base_txt, 'jis'); $base_txt =~ s/\x1b\x28\x42/\x1b\x28\x4a/g; $base_txt = "=?iso-2022-jp?B?" . &base64coa($base_txt) . "?="; $base_txt; } #----------------------------------------# # BASE６４変換ルーチン # #----------------------------------------# sub base64coa{ local($ch)="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; local($x, $y, $z, $i); $x = unpack("B*", $_[0]); for ($i=0; $y=substr($x,$i,6); $i+=6) { $z .= substr($ch, ord(pack("B*", "00" . $y)), 1); if (length($y) == 2) { $z .= "=="; } elsif (length($y) == 4) { $z .= "="; } } $z; }