約 420,448 件
https://w.atwiki.jp/win7life/pages/12.html
Home Basic Starter Home Premium Professional Enterprise Ultimate RC 32Bit ? ? ? ? ? ? ○ 64Bit ? ? ? ? ? ? ? 「スタート」ボタンを右クリックして、「プロパティ」を選択する。 「[スタート]メニュー」タブを選択する。 「カスタマイズ(C)」ボタンを選択する。 「[ファイル名を指定して実行]コマンド」項目のチェックボックスをチェックする。 「OK」ボタンを押して、「[スタート]メニューのカスタマイズ」ダイアログを閉じる。 「OK」ボタンを押して、「タスクバーと[スタート]メニューのプロパティ」ダイアログを閉じる。 名前 コメント
https://w.atwiki.jp/youyouhaku1928/pages/41.html
#!/usr/local/bin/perl # 掲示板２（フレームを利用したパターン）右画面 # id=bbs2.cgi # update. 01.9.16 # 使用上の注意・・・漢字コードの変換が不完全ですので文字化けするおそれがあります。 # そのつもりでお使い下さい。 # 日本語コード変換ライブラリ(v2.0)の指定 # ReadParse命令で、$in{ }の変数にフォーム入力データが格納される require cgi-lib.pl ; require jcode.pl ; ReadParse; # 設置するＵＲＬを設定 $reload = http //xxx/bbs2.cgi ; $file = "/cgi/bbs2.dat"; $sendmail = /usr/lib/sendmail ; # 掲示板へ記入したら管理者へメール通知するならＯＮ $send="off"; # メールの送り先 $myaddress = oooooo@xxx.co.jp ; # データ確認デバッグモード（通常は$test=""、各画面で変数状態を見たいときは"on"） $test=""; # 最大登録数 $max=200; # メッセージの文字数制限（この値の半分が漢字数） $mojisu = 200; # 表示期間の設定（設定した日数後のファイル更新時に消去します、消去しない場合は0） $syokyo=7; # １週間後 # １画面表示件数 $gyosu=10 ; #################################### # # # メインルーチン（処理の分岐） # # # #################################### # 消去日計算 ($byo,$fun,$ji,$dd,$mm,$yy,$yobi) = localtime(time); $mm++; # ２桁化 $mm = sprintf("%.2d",$mm); $dd = sprintf("%.2d",$dd); # 西暦４桁処理 if ($yy 70) { $yy = $yy + 2000;} else { $yy = $yy + 1900;} # 本日 $ymd=$yy.$mm.$dd; $page=$in{ page }; $syurui=$in{ syurui }; # 最初に渡された状態セーブ $syurui_sv=$syurui; # 該当データを調べる if ($syurui ne "all") { read4 } # 全体の流れを決定する if ($in{ action } eq main ) { main; } elsif ($in{ action } eq kinyu ) { kinyu; } elsif ($in{ action } eq check ) { check; main; } elsif ($in{ action } eq meisai ) { meisai; } elsif ($in{ action } eq next ) { next; } elsif ($in{ action } eq back ) { back; } elsif ($in{ action } eq narabi ) { narabi; } # メール送信画面 elsif ($in{ action } eq email ) { email; } # 詳細表示画面 elsif ($in{ action } eq teisei ) { teisei; main; } else { first; } # なくても良いが最終出口を示す exit; ############################################# # # # データを読む # # # ############################################# sub read { # データを読み各連想配列に加算する # 1 2 3 4 ５ ６ # 日付時刻、宛先、内容、差出人、消去日、訂正用パスワード $j=0; # 配列の初期化 @data=(); open(DB,"$file"); flock(DB,2); while ( DB ) { ($dt1,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$_); # とりあえずキーがないデータを表示しないため if ($dt1 ne "") { # 表示期限チェック if ($dt5 0 $dt5 = $ymd) { # ９は全部、他は指定分類のみ、指定なしも全件 if ($syurui eq "all") { $data[$j]=$_ ;$j++} elsif ($syurui eq $dt2) { $data[$j]=$_ ;$j++} } # end of if } # とりあえずここまで } # end of while flock(DB,8); close(DB); # データ数$cnt=@data; } # end of read ############################################# # # # 登録データを読む（訂正削除用配列） # # # ############################################# sub read2 { # データを読み各連想配列に加算する open(DB,"$file"); flock(DB,2); @data= DB ; flock(DB,8); close(DB); # データ数$cnt=@data; # 配列の初期化 %idxdt=(); # 各レコードを日時をキーにした連想配列にセットする foreach (@data) { ($idx,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$_); # キーを変数名に入れて１レコード全体をセットする $idxdt{$idx} = $_; } # end of foreach } # end of read2 ############################################# # # # データを読む（全件） # # # ############################################# sub read3 { open(DB,"$file"); flock(DB,2); @data= DB ; flock(DB,8); close(DB); } # end of read3 ############################################# # # アンカータグで渡されたキーデータから該当内容を調べる # ############################################# sub read4 { open(DB,"$file"); flock(DB,2); while ( DB ) { ($dt1,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$_); # 指定レコードキーがあったらそのレコードの宛先をセットする if ($syurui == $dt1) { $syurui=$dt2 ;last ; } } # end of while flock(DB,8); close(DB); } # end of read4 ######################## # # # 項目分解ルーチン # # # ######################## sub bunkai { ($dt1,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$bundt); # 日付時刻分解 $yy=substr($dt1,0,4); $mm=substr($dt1,4,2); $dd=substr($dt1,6,2); $ji=substr($dt1,8,2); $fun=substr($dt1,10,2); $byo=substr($dt1,12,2); $nichiji=$yy.$mm.$dd.$ji.$fun.$byo; $hizuke="$yy年$mm月$dd日$ji時$fun分"; $hizuke1="$yy年$mm月$dd日"; $hizuke2="$ji時$fun分"; # 番号 # 内容の改行を元に戻す $dt3 =~ s/ k/\n/g; # 表示用に変換する $naiyo2 = $dt3; $naiyo2 =~ s/\n/ BR /g; } # end of bunkai ############################################# # # # 最初に処理するルーチン # # # ############################################# sub first { print "Content-type text/html\n\n"; print EOM; HTML HEAD TITLE 掲示板２ /TITLE /HEAD BODY BGCOLOR="#ffffff" BACKGROUND="http //www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif" EOM print BR BR FONT size=5 color="blue" ; print CENTER 左側から表示させる内容を選択してください /CENTER /FONT ."\n"; print BR BR ."\n"; $page=1; print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="kinyu" . "\n"; print input type=submit value=" 記入画面へ " . "\n"; hidpara; print /FORM ; print /BODY /HTML . "\n"; } # end of first ############################################# # # # メイン処理画面を表示する # # # ############################################# sub main { # 表示用変数 $page = $in{ page }; $sortkb = $in{ sortkb } ; read; # 昇順にする if ($sortkb == 1) { @data=reverse(@data);} # ページ数計算 $page_max = (($cnt-1) / $gyosu) + 1; # 整数部をとりだす ($page_max,$dummy)=split(/\./,$page_max); # 表示出力処理 print "Content-type text/html\n\n"; print EOM; HTML HEAD TITLE 掲示板２ /TITLE /HEAD BODY BGCOLOR="#ffffff" BACKGROUND="http //www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif" EOM print TABLE BORDER="1" ; print TR TD ; print FONT SIZE=3 COLOR=#0000FF ."\n"; print 掲示板２ ."\n"; print /FONT /TD ; print TD 指定データ /TD ; print " TH 該当件数 /TH TH FONT COLOR=#0000FF 表示頁 /FONT /TH TH 最終頁 /TH /TR \n"; print TR VALIGN="MIDDLE" TD ALIGN="CENTER" ; print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="kinyu" . "\n"; print input type=submit value=" 記入画面へ " . "\n"; hidpara; print /FORM ; print /TD ; if ($syurui eq "all") { $sitei="全件" } else { $sitei=$syurui } print " TD ALIGN=\"CENTER\" FONT COLOR=#AA0000 $sitei /FONT /TD \n"; print " TD ALIGN=\"right\" FONT COLOR=#AA0000 $cnt /FONT /TD TD ALIGN=\"right\" FONT COLOR=#0000FF $page /FONT /TD \n"; print " TD ALIGN=\"right\" FONT COLOR=#AA0000 $page_max /FONT /TD \n"; print /TR /TABLE ."\n"; # 前頁表示 # ボタンを並べる # 上段 print TABLE BGCOLOR="#ffffCC" ; print TR VALIGN="BOTTOM" ; # 表示順序 print TD ; print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="narabi" . "\n"; hidpara; if ($sortkb == 0) { $sortkbn = "日付の古いものを先に"; } else { $sortkbn = "日付の新しいものを先に"; } print input type=submit value=" .$sortkbn. " . "\n"; print /FORM . "\n"; print /TD ; print TD /TD ; # 前頁表示 print TD ; if ($page == 1) { print ; } else { print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="back" . "\n"; hidpara; print input type=submit value="前頁" . "\n"; print /FORM ; } # end of if print /TD ; print TD /TD ; # 次頁表示 print TD ; if ($page == $page_max) { print ; } else { print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="next" . "\n"; hidpara; print input type=submit value="次頁" . "\n"; print /FORM . "\n"; } # end of if print /TD ; print TD /TD ; print /TR /TABLE ."\n"; print /FORM . "\n"; # 該当データが０件の場合 if ($cnt == 0) { print BR BR FONT size=5 color="blue" ; print CENTER 該当データは０件です、選択内容を変えてご覧ください /CENTER /FONT ."\n"; return } # end of if # 最初は詳細形式を表示する disp3; } # end of main ################################# # hiddenパラメータ共通項目 # ################################# sub hidpara { print input type=hidden name="page" value=" .$page. " ."\n"; print input type=hidden name="sortkb" value=" .$in{ sortkb }. " . "\n"; print input type=hidden name="syurui" value=" .$syurui_sv. " . "\n"; } # end of hidpara ########################## # # # 詳細表示ルーチン # # # ########################## sub disp3 { print " TABLE BORDER=\"1\" WIDTH=\"100%\" \n"; print " TR TH № /TH TH 宛先 /TH TH 日付 /TH TH 内 容 /TH TH 差出人 /TH /TR \n"; # 行数分だけ繰り返す for($i=1; $i =$gyosu; $i++) { #print TR ; # １列目はページカウンタ＊行数＋＄ｉ $lno=$gyosu * ($page - 1) + $i; $no=$lno-1; # 項目分解処理 $bundt=$data[$no]; bunkai; # 分類別色 $iro=$buncol[$bunrui]; print TR ; print TD ALIGN="right" FONT COLOR= .$iro. .$lno. /FONT ."\n"; if ($test eq "on") { print BR .$bundt. ."\n"; } # テスト表示 print /TD ."\n"; print TD ALIGN="left" NOWRAP FONT COLOR= .$iro. .$dt2. /FONT /TD ; print TD ALIGN="left" NOWRAP FONT COLOR= .$iro. .$hizuke1. BR .$hizuke2. /FONT /TD ; print TD ALIGN="left" FONT COLOR= .$iro. ; $act="meisai"; print A HREF = " .$reload. ?action= .$act. keyno= .$dt1. tbno= .$lno. page= .$page. sortkb= .$sortkb. " .$naiyo2. /A ; print /FONT BR ."\n"; print /TD ."\n"; print TD ALIGN="left" FONT COLOR= .$iro. .$dt4. /FONT /TD ."\n"; print /TD ."\n"; #print TD ALIGN="left" FONT COLOR= .$iro. .$dt5. /FONT /TD ."\n"; #print /TD ."\n"; #print TD ALIGN="left" FONT COLOR= .$iro. .$dt6. /FONT /TD ."\n"; print /TR ."\n"; # 最終データを表示したら抜ける if ($lno = $cnt) { last } } # end of for print /TABLE ; print " /BODY /HTML \n"; } # end of disp3 ############################################# # # # 掲示板新規記入処理 # # # ############################################# sub kinyu { # 消去日が設定してある場合 if ($syokyo 0) { # 消去日計算 $syokyobyo = $syokyo * 60 * 60 * 24; ($byo,$fun,$ji,$dd,$mm,$yy,$yobi) = localtime(time + $syokyobyo); $mm++; # ２桁化 $mm = sprintf("%.2d",$mm); $dd = sprintf("%.2d",$dd); $ji = sprintf("%.2d",$ji); $fun = sprintf("%.2d",$fun); $byo = sprintf("%.2d",$byo); # 西暦４桁処理 if ($yy 70) { $yy = $yy + 2000;} else { $yy = $yy + 1900;} # 消去日 $symd=$yy.$mm.$dd; } # end of if else { $symd=0 } # end of else print "Content-type text/html\n\n"; print EOM; HTML HEAD TITLE 掲示板への記入 /TITLE /HEAD BODY BGCOLOR="#ffffff" BACKGROUND="http //www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif" H2 掲示板への記入 /H2 EOM # 外側の飾り線（画面の設定によってはわくとして表示しないことがある） print TABLE BORDER="10" CELLPADDING="10" WIDTH="100%" ; print TR ; print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="check" . "\n"; # 左画面から指定された宛先があれば表示させる if ($syurui eq "all") { $atesaki = "" } else { $atesaki = $syurui } print 宛先 input type=text name="namae" size="40" MAXLENGTH="40" value=" .$atesaki. " br ."\n"; print BR ; print メッセージをどうぞ（漢字の場合１００文字以内） ; print BR ; print TEXTAREA NAME="naiyo" COLS=70 ROWS=5 /TEXTAREA . "\n"; print BR BR ; print 差出人 input type=text name="sasidasi" size="40" MAXLENGTH="40" . "\n"; print BR BR ; print FONT COLOR=#AA0000 ; print 登録後にあなたが訂正削除する場合に必要。未設定時は訂正削除不可 ; print /FONT ; print BR ; print 訂正削除パスワード input type=text name="pwd1" size="10" MAXLENGTH="10" . "\n"; print BR BR ; print FONT COLOR=#AA0000 ; print "表示期限は本日より $syokyo日間です、要変更の場合は訂正して下さい\n"; print BR ; print /FONT ; print 表示期限 input type=text name="symd" size="10" MAXLENGTH="10" value=" .$symd. " . "\n"; print BR ; print TABLE BGCOLOR="#ffffCC" ; print TR VALIGN="BOTTOM" ; # 表示順序 print TD ; print input type=submit value="登録" . "\n"; print /TD ; print TD /TD ; print TD ; print input type=reset value="入力内容取消" . "\n"; # 登録日時セット ($byo,$fun,$ji,$dd,$mm,$yy,$yobi) = localtime; $mm++; # ２桁化 $mm = sprintf("%.2d",$mm); $dd = sprintf("%.2d",$dd); $ji = sprintf("%.2d",$ji); $fun = sprintf("%.2d",$fun); $byo = sprintf("%.2d",$byo); # 西暦４桁処理 if ($yy 70) { $yy = $yy + 2000;} else { $yy = $yy + 1900;} # 登録日時 $nichiji=$yy.$mm.$dd.$ji.$fun.$byo; # ここで同時刻に登録しようとした場合を考えてキーをユニーク（唯一）にするため # 日時の後に４桁のランダム数字を足す（これでも同一になった場合は訂正時１つのデータ消滅する） srand; $a=rand; $no4=substr($a,index($a,".")+1,4); if ($no4 == 0) { $no4 = "0000"; } $nichiji.=$no4; print input type=hidden name="nichiji" value=" .$nichiji. " . "\n"; # 共通データ渡し $syurui_sv=$nichiji; hidpara; print /FORM . "\n"; print /TD ; print TD /TD ; print TD ; # 戻る print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="main" . "\n"; print input type=submit value="記入せずに戻る" . "\n"; # 最初の画面から来たときは何も指定データがないから if ($syurui eq "") { $syurui="all" } $syurui_sv=$syurui; hidpara; print /TD /TR /TABLE ."\n"; print /FORM . "\n"; # 外側の飾り線 print /TR /TABLE ; print /BODY /HTML . "\n"; } # end of kinyu ########################################## # # # 入力されたデータのチェックルーチン # # # ########################################## sub check { form_data; # 宛名がない場合 if ($namae eq "" ) { error(2); } # 差出人がない場合 if ($sasidasi eq "" ) { error(3); } # チェック通過、更新へ update; $syurui=$namae; # 管理者へメール送信 if ($send eq "on") { mymail } } # end of check ############################################# # # # 管理者へのメール送信ルーチン # # # ############################################# sub mymail { # 改行コードを戻す $naiyo =~ s/ k/\n/g; $message = EOM; Subject 掲示板記入連絡 Reply-To $myaddress 掲示板２への書き込みがありました。 宛先 ： $namae メッセージ $naiyo 差出人 ： $sasidasi 訂正削除パスワード ： $pwd1 登録日時 ： $nichiji EOM # メール送信はＪＩＳと決められている jcode convert(*message, jis ); open(MAIL,"|$sendmail $myaddress"); print MAIL $message; close(MAIL); } # end of mymail ############################################# # # # フォーム入力データセットルーチン # # # ############################################# sub form_data { $nichiji=$in{ nichiji }; $namae=$in{ namae }; $naiyo=$in{ naiyo }; # メッセージの改行のみをカットする @chk = split(/\n/,$naiyo); $msg=""; foreach (@chk) { if (length($_) 1) { $msg=$msg.$_."\n"; } # end of if } # end of foreach $naiyo=$msg; $naiyo=~ s/\015\012/\n/g; $naiyo=~ s/\015/\n/g; $naiyo =~ s/\n/ k/g; # 文字数チェック if (length($naiyo) $mojisu) { $naiyo = substr($naiyo,0,$mojisu); } $sasidasi=$in{ sasidasi }; $pwd1=$in{ pwd1 }; $symd=$in{ symd }; # タグの無効化 $ckdt=$namae ; tagck ; $namae=$ckdt; # 宛先をセットする $syurui=$namae; $ckdt=$naiyo ; tagck ; $naiyo=$ckdt; $ckdt=$sasidasi ; tagck ; $sasidasi=$ckdt; $ckdt=$pwd1 ; tagck ; $pwd1=$ckdt; $ckdt=$symd ; tagck ; $symd=$ckdt; } # end of form_data ############################### # タグの無効化サブルーチン ############################### sub tagck { $ckdt =~ s/ / lt;/ig; $ckdt =~ s/ / gt;/ig; $ckdt =~ s/ !--.*-- //ig; $ckdt =~ s/\,//g; } ########################################## # # # 次ページ表示処理 # # # ########################################## sub next { $in{ page }++; main; } # end of sub ########################################## # # # 前ページ表示処理 # # # ########################################## sub back { if ($page 1) { $in{ page }--; } main; } # end of sub ########################################## # # # 表示順序の変更指示 # # # ########################################## sub narabi { if ($in{ sortkb } == 0) { $in{ sortkb } = 1; } else { $in{ sortkb } = 0; } main; } # end of sub ##################### # ファイル登録 ##################### sub update { # 1 2 3 4 ５ ６ # 日付時刻、宛先、内容、差出人、消去日、訂正用パスワード $value = "$nichiji\t$namae\t$naiyo\t$sasidasi\t$symd\t$pwd1\n"; $pwd1=$in{ pwd1 }; # 登録済みデータを読み配列にセットする if ($pwd1 ne "subetekesu") { read3; unshift(@data,$value);} else {push(@data,$value);} # 表示期限を過ぎたデータを消す %new=(); foreach(@data) { ($dt1,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$_); # 消去日が本日を過ぎていたら除外する if ($dt5 == 0 || $dt5 = $ymd) { push(@new,$_);} } # end of foreach # 掲示板は先頭から古い順になっているのでそのまま１番目のデータをシフトする$a=@new; if ($a $max) { $herasu=$a - $max; for ($i=1; $i =$herasu; $i++) { pop(@new) } } # end of if # ファイル登録 if (!open(WRITE," $file")) { error(0); } flock(WRITE,2); print WRITE @new; flock(WRITE,8); close (WRITE); } # end of update ############################################# # # # チェックエラー表示画面ルーチン # # # ############################################# sub error { # error(xx); で呼び出されたルーチンは、()内の数字が $error に代入される。 $error = $_[0]; if ($error eq "0") { $error_msg = ファイルがない、またはＯＰＥＮできない。 ; } elsif ($error eq "2") { $error_msg = 宛名がありません ; } elsif ($error eq "3") { $error_msg = 差出人は必ず入力してください ; } elsif ($error eq "91") { $error_msg = 訂正パスワードが最初の登録時入力してありませんので、訂正／削除はできません。 ; } elsif ($error eq "92") { $error_msg = 訂正パスワードが最初の登録時のものと不一致のため、訂正／削除はできません。 ; } print "Content-type text/html\n\n"; print html head title 掲示板 /title /head . "\n"; print body bgcolor="#ff66ff" text="#000000" LINK="#0000ff" VLINK="#ff8888" ALINK="#FF0000" . "\n"; print h2 掲示板の入力で下記のエラーが発生しました /h2 . "\n"; print BR BR ; print " i $error_msg /i \n"; # リロードでもどると入力データが消えてしまうので print ブラウザ画面の戻るをクリックする ."\n";; print /body /html . "\n"; # サブルーチンからプログラムを抜けるので exit; } ############################################# # # # 明細データの訂正・削除ルーチン # # # ############################################# sub meisai { read2; # キー $keyno=$in{ keyno }; # 配列番号（次前データ移動用） $tbno=$in{ tbno }; # 実配列番号は－１ $tbno--; # 項目分解処理 $bundt=$idxdt{$keyno}; bunkai; meisai_display; } # end of meisai ############################################# # # # 明細データの訂正・削除ルーチン # # (次前データ処理用) # ############################################# sub meisai2 { read; # 項目分解処理 $bundt=$data[$tbno]; bunkai; # キー $keyno=$dt1; meisai_display; } # end of meisai2 ############################################# # # # 明細データの共通表示ルーチン # # # ############################################# sub meisai_display { # 明細表示データ№は配列№＋１ $mno=$tbno+1; print "Content-type text/html\n\n"; print EOM; HTML HEAD TITLE 掲示板の詳細 /TITLE /HEAD BODY BGCOLOR="#ffffff" BACKGROUND="http //www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif" H2 掲示板の詳細 /H2 EOM print form method="post" action=" . $reload . " . "\n"; # 外側の飾り線 print TABLE BORDER="10" CELLPADDING="10" WIDTH="100%" ; print TR ; print 宛先 input type=text name="namae" size="40" MAXLENGTH="40" value=" .$dt2. " br . "\n"; print BR ; print メッセージをどうぞ ; print BR ; print TEXTAREA NAME="naiyo" COLS=70 ROWS=5 .$dt3. /TEXTAREA . "\n"; print BR BR ; print 差出人 input type=text name="sasidasi" size="40" MAXLENGTH="40" value=" .$dt4. " br . "\n"; print BR ; print 表示期限 input type=text name="symd" size="10" MAXLENGTH="10" value=" .$dt5. " br . "\n"; print BR ; # パスワードが設定してあれば変更可能 # 最終項目なので改行コードがあるのでカットして比較する $dt6=~s/\n//g; if ($dt6 ne "") { print 訂正削除パスワード input type=text name="pwd1" size="10" MAXLENGTH="10" . "\n"; print BR ; print FONT COLOR=#AA0000 ; print ＊訂正又は削除する場合に必要です。未設定時は訂正削除不可 ; print /FONT ; print BR ; # 訂正か削除か選択する print TABLE BGCOLOR="#ffffCC" ; print TR TD ; print input type="radio" name="syori" value ="0" checked 訂正削除なし . "\n"; print /TD TD /TD TD ; print input type="radio" name="syori" value ="1" 訂正します . "\n"; print /TD TD /TD TD ; print input type="radio" name="syori" value ="2" 削除します . "\n"; print /TD TD /TD TD ; print input type=hidden name="action" value="teisei" ."\n"; print input type=hidden name="keyno" value=" .$keyno. " ."\n"; $syurui_sv=$dt1; hidpara; print input type=submit value="訂正削除の実行" . "\n"; print /TD /TR /TABLE ."\n"; print /FORM . "\n"; print BR ; # キーの確認表示 if ($test eq "on") { print " right i ($keyno) /i /right \n"; } } # end of if ############################ # 戻る print form method="post" action=" . $reload . " . "\n"; print input type=hidden name="action" value="main" . "\n"; $syurui_sv=$dt1; hidpara; print input type=submit value="戻る" . "\n"; print /FORM . "\n"; print BR ; # 外側の飾り線 print /TR /TABLE ; print /BODY /HTML . "\n"; } # end of meisai ##################### # データ訂正 ##################### sub teisei { # 訂正削除なしの場合 if (($in{ action } eq teisei ) ($in{ syori } == 0)) { return } # 入力項目チェック # フォーム入力データ form_data; # 宛名がない場合 if ($namae eq "" ) { error(2); } # 差出人がない場合 if ($sasidasi eq "" ) { error(3); } # チェック通過、更新へ $syurui=$namae; # 管理者へメール送信 if ($send eq "on") { mymail } read2; # キー $keyno=$in{ keyno }; # 管理者用強制パスワード if ($pwd1 ne "nopassword") { # 訂正パスワードチェック $bundt=$idxdt{$keyno}; ($dt1,$dt2,$dt3,$dt4,$dt5,$dt6) = split(/\t/,$bundt); #登録パスワードの改行コードをカットしたものと比較する (98.7.11) $pck=$dt6; $pck=~s/\n//g; if ($pck eq "") { error(91) } if ($pck ne $pwd1) { error(92) } } # end of if ######################## # 削除の場合 if (($in{ action } eq teisei ) ($in{ syori } == 2)) { sakujo; return } # ここからは訂正選択時処理 # データ訂正 # 1 2 3 4 ５ ６ # 日付時刻、宛先、内容、差出人、消去日、訂正用パスワード $value = "$keyno\t$namae\t$naiyo\t$sasidasi\t$symd\t$pwd1\n"; $idxdt{$keyno}=$value; file_write; } # end of teisei ##################### # データ削除 ##################### sub sakujo { # データ削除 delete $idxdt{$keyno}; file_write; } # end of sakujo ########################## # ファイル登録共通処理 # ########################## sub file_write { # 登録用配列にデータセット %new=(); # 配列データを降順にソートする（keysでは登録順に値が返されるとは限らないため） @data=sort by_date keys(%idxdt); foreach (@data){ # 通常では発生しないが開発途中での空のデータを除く(10は適当) if (length($idxdt{$_}) 10) { push(@new,$idxdt{$_});} } # end of foreach # ファイル登録 if (!open(WRITE," $file")) { error(0); } flock(WRITE,2); print WRITE @new; flock(WRITE,8); close (WRITE); } # end of write #################################### # # # キー（日付）を降順ソートする # # # #################################### sub by_date { $b cmp $a } ################ end of script ###################
https://w.atwiki.jp/yaruten/pages/61.html
【あぽかりぷす】やる夫転生Z（指定）【なう】 http //jbbs.livedoor.jp/bbs/read.cgi/otaku/12973/1285839586/
https://w.atwiki.jp/anchorlegendscenario/pages/416.html
陽明学者で元大坂東町奉行所与力の大塩平八郎が、1837年2月19日、天保の飢饉で苦しむ民衆の救済と 腐敗した幕政の改革を訴え、門弟の武士や農民ら約300人を率いて蜂起した。 大坂の町の約5分の1が焼けたとされるが、半日で鎮圧された。約40日後、隠れ家で見つかり自害した。 …これが、現代に伝わる「大塩平八郎の乱」の概要である。 しかし、ある日を境にその常識は崩れ去ってしまった。 君がぺらぺらと歴史の教科書を見ていると、「大塩平八郎の乱」の部分が「天保の乱」と名前も変わり、 その時代に大塩平八郎は病で亡くなっており、農民のみの一揆となっている。 他にも、明智光秀は本能寺にて返り討ちに遭い、戦死するなど、歴史が改ざんされてきている。 …何かがおかしい… 君は、その歴史を修正するために立ち上がる。 シナリオ名：遙かなる時空の中で 「もしも」の歴史があるとしたら、君はどんな歴史を望みますか？ システム：指定なし 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/koekihojin/pages/55.html
（注15）指定正味財産の部から一般正味財産の部への振替について 次に掲げる金額は、指定正味財産の部から一般正味財産の部に振り替え、当期の振替額を正味財産増減計算書における指定正味財産増減の部及び一般正味財産増減の部に記載しなければならない。 （１） 指定正味財産に区分される寄付によって受け入れた資産について、制約が解除された場合には、当該資産の帳簿価額 （２） 指定正味財産に区分される寄付によって受け入れた資産について、減価償却を行った場合には、当該減価償却費の額 （３） 指定正味財産に区分される寄付によって受け入れた資産が災害等により消滅した場合には、当該資産の帳簿価額 なお、一般正味財産増減の部において、指定正味財産からの振替額は、その性格に従って、経常収益又は経常外収益として記載するものとする。
https://w.atwiki.jp/siranai/pages/317.html
【スレ28】実家が重要文化財に指定されている人 このページのタグ：家・住まい 875 ：おさかなくわえた名無しさん：2007/09/30(日) 17 12 38 ID XSpOj70j 今はもう私は地元を離れましたが 実家が重要文化財に指定されています。 要は古ーい農家。あまりに古すぎて国にロックオンされたようです。 水場の修理ひとつも勝手にできず、断固現状維持。 友人宅がモダンに建替え、リフォームされていく中 子供心に我が家が悲しかったです。 祖父母は誇りを持って住んでいますが 多分相続が発生したら国に寄付することになると思います。 とにかく維持管理が大変だそうです。 なるべく修繕が発生しないように 家の中は「居住区」と「文化財区」に別れていました。 時折立ち寄るには良い家です。 876 ：おさかなくわえた名無しさん：2007/09/30(日) 17 32 26 ID QAs5n6Gy 875 修理するにもいちいち国の許可いるんだよね？京都とかのそういう家 もそうだしな。
https://w.atwiki.jp/vet-text/pages/55.html
生理学 予想よりバラけた感じです。 獣医生理学（高橋監訳、文永堂） 動物生理学（菅野・田谷編、朝倉書店） 生理学テキスト（大地、文光堂） 改訂・生理学実習マニュアル（獣医生理学・生理化学教育懇談会編、学窓社） 文永堂のはしっかりしてるんだけど、難しいので参考図書扱いにしてるってところも。あとは、文光堂のもそうだけど、人間用のテキストを利用しているところもいくらか。実習テキストはまあ妥当な線。
https://w.atwiki.jp/yaruten/pages/40.html
【安価式】やる夫転生Z（指定）【女神転生】 http //jbbs.livedoor.jp/bbs/read.cgi/otaku/12973/1280830045/ 【１１スレ目】 セクハラ +ネタバレ（秋葉原） 《秋葉原編》 レベル上げ＆仲魔集め。空き枠１。（やる夫＆イザベル Lv40→Lv43）天使ヴァーチャーと交渉。接触時交戦ムードだが、イザベルが背後から麻痺引っかきでPALYZE。 動けないのをいいことに野外露出調教。ヴァーチャーがそっちの道に目覚める。 仲魔：Lv42 天使 ヴァーチャー。 『何かしらの成人対象の何か』のチェック。→同人誌『水神クタアト』。萌えイラスト付きの魔導書。見た目イカ娘本。やる夫には読めなかった。 依頼：おっぱいのある悪魔を連れてきて。譲渡はリリムの魅惑噛みつきで有耶無耶。（報酬：3万マッカ＋エロゲ） ラジオ第３回。 一方その頃 神宿近郊。友（モヒカン、ジャックフロスト）の墓標。魔人 レッドライダーが単身で陰惨に挑む。 魔人 レッドライダーVV（ダブルヴィクトリー）のお披露目。パワーアップ＋陰惨の見くびり＋αで善戦。 秋葉原 ライダー帰還。流石に陰惨は倒し切れず。 仲魔と親睦：イザベる。やる夫を意識し出している（絆+10） 仲魔と親睦：真紅。セクハラ調教（絆+10） アイテム入手 某成人対象→『水神クタアト』、『コレナンテエロゲ』 やる夫の女性遍歴 ジャイ子→インデックス→サキュバスババア→シンシア→モー・ショボー →リリム→女僧侶→ヴァーチャー（調教のみ）→真紅 称号 魔人(D-C)：Lv43 SM調教師やる夫はサッカーで遊ぶようです 何でスレタイ変わったのん？ 【前スレ】 64 ： ◆fRBHCfnGJI：2010/08/01(日) 17 27 18 ID cnu0FZgA そういやこのスレって１８禁なんかね どうだろうそこのところ 65 ：名無しのやる夫だお：2010/08/01(日) 17 32 09 ID OCc8NGJA 血やグロ的には１８禁だろうね、性的描写はキンクリが多いんで問題ないかと 66 ：名無しのやる夫だお：2010/08/01(日) 19 14 34 ID DVMug5z2 G-18ってことか もしくはZ指定 69 ： ◆fRBHCfnGJI：2010/08/01(日) 20 01 19 ID cnu0FZgA じゃあ次スレからは 【安価式】 やる夫転生Z 【女神転生】 で あれ何か違う
https://w.atwiki.jp/jinsichi/pages/167.html
マスクを使った「オブジェクトクリッピング」です。 ■ダウンロード http //ux.getuploader.com/Jin7/download/143/objMask.zip http //youtu.be/Xf5Gofg8wdA 紹介画像の通り。 元画像の透明度に影響されないクリッピングをすることと、 クリッピング元の画像とクリップ対象の画像との間に別の画像があってもいい、 というもの。 クリップ元1 ↓ クリップ対象1 ↓ クリップ元2 ↓ クリップ対象2 の順番で適用してください。 クリップ対象2がクリップ対象1を見にいくようなことになるとおかしくなります。
https://w.atwiki.jp/anchorlegendscenario/pages/473.html
目が覚めるとあなたは見知らぬ部屋のベットで眠っていた。 一見するとどこかの病棟のように見えたがキッチンやトイレ、シャワーなど生活に必要なものは揃っており、 もしかすると、いやもしかしなくても以前から住んでいた一室よりよっぽど良い部屋だった。 だが外に出るドアには鍵がかかっており、窓には金属板が貼り付けられていてどう足掻いても出られない。 唯一外部と繋がっているのはパソコンから開くことのできるコメント掲示板だけだった。 その掲示板の住人たちもどうやら同じような状況らしく、なにも進展が無いまま数日が過ぎる。 普通に生活が出来る分、掲示板以外変わり映えせず、退屈な日々。 そんな数日を過ごす中で、掲示板にコメントする人が一人、また一人と減って行く。 最初は何人も居たはずなのに、気づけば数人だけになり… シナリオ名「どうせみんないなくなる」 システム：指定なし ： ： 121 どうせみんないなくなる 122 ↑どうしてそんなコメント書いた！Yeah！ 123 ↑喜んでるんじゃねぇよ！ 名前 コメント すべてのコメントを見る