ようこそ、$ID{'name'}さん

ウェブ | 画像 | 地図 | ニュース

ウェブ | 登録サイト | 画像 | 音楽 | 動画 | ニュース | ブログ | 辞書 | 知恵袋 | 地図 | 商品

ウェブ | 画像 | ニュース | 地図 | 百科事典 | 辞書

ウェブ | カテゴリ | 画像 | ニュース | 買い物 | 翻訳 | 英和 | 和英 | 国語

ウェブ | 辞書 | 画像 | 登録サイト | ブログ | 教えて! | タウンページ | 地図 | 路線

ウェブ | 画像 | ブログ | ニュース | 辞書 | 株価 | 乗り換え案内 | お買い物 | オークション

ウェブ | 画像 | 動画 | ニュース | 相談 | 辞書 | 電話帳 | 株価 | ショッピング | BIGLOBE内

記事表示 | 記事検索

Google Yahoo! MSN excite goo Infoseek楽天 BIGLOBE Wikipedia

END my $iart; if(exists $FORM{'page'}){ $iart = $FORM{'page'}; } else{ $iart = 0; } my ($date, $title, $author, $email, $text, $link) = split (/\t/, $DATA[$iart]); if ($title ne ""){ print "

$title

\n"; print "

$text

\n"; chomp $link; if ($link ne ""){ print "→ 添付ファイル"; } print "

$author"; print " [ $date ]

"; print "

\n"; } else { print "

このページは存在しません

\n"; } print "

過去のお知らせ
END if($PAGEVIEW > @DATA) { $PAGEVIEW = @DATA; } for ($i = 0 ; $i < $PAGEVIEW ; $i++) { my ($date, $title, $author, $email, $text) = split (/\t/, $DATA[$i]); print "

$title

\n"; $text =~ s/
//g; $text = substr($text,0,50); print "

$text...（続きを見る）

\n"; print "

\n"; } print <

相互リンク

END } # ------------------------------------------------クッキーの暗号が一致したらID、なければ0を返す sub checkCode { my($name, $pass, %CODEN, $load); open(FILE, "<$SESSIONFILE") or printPage("openError"); eval{ flock(FILE, 1) }; while($ln = ) { chomp $ln; ($name, $pass) = split(/:/, $ln); $CODEN{$pass} = $name; } $load = $SESSION{'id'}; close(FILE); if (exists $CODEN{$load}) { return $CODEN{$load}; } else { return 0; } } # ------------------------------------------------ユーザーファイル読み込み($memberを基に個人の%IDを作成。IDが一致しなければIDエラーページ出力) sub loadUserfile { my ($ln, $name, $pass, $id, $sex, $birth, $blood, $email, %USERS); open(FILE, "<$USERFILE") or printPage("openError"); eval{ flock(FILE, 1) }; while($ln = ) { chomp $ln; ($name, $pass, $id, $sex, $birth, $blood, $email) = split(/\t/, $ln); if($id eq $member) { %ID = ('name' => $name, 'pass' => $pass, 'id' => $id, 'sex' => $sex, 'birth' => $birth, 'blood' => $blood, 'email' => $email); close(FILE); return 0; } } close(FILE); printPage("IDerror"); exit; } #========================== 記事を書き込む ==== sub writeArticle { my @wdy_str = ('日', '月', '火', '水', '木', '金', '土'); my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time); my $date = sprintf("%4d年%02d月%02d日(%s) %02d:%02d", $year + 1900, ++$mon, $mday, $wdy_str[$wday], $hour, $min); # my $query = new CGI; # 初期設定 ------------------------------------- # 最大許容サイズ（KByte） my $maxsize = 300; # 保存先ディレクトリ my $uploadfiles = "./info/file/"; # アップロードを許可するファイルの種類（MIMEと拡張子） %hash_mime = ( 'text/html' => 'html', # HTMLファイル 'image/jpeg' => 'jpg', # JPEGファイル 'image/gif' => 'gif', # GIFファイル 'image/pjpeg' => 'jpg', # プログレッシブJPEGファイル 'text/plain' => 'txt', # textファイル 'image/x-png' => 'png', # PNGファイル 'image/png' => 'png', # PNGファイル 'application/msword' => 'doc', # wordファイル 'application/pdf' => 'pdf', # PDFファイル 'application/msexcel' => 'xls', # EXCELファイル 'image/bmp' => 'bmp' # ビットマップファイル ); # 送られてきたデータを処理する ----------------- # ファイル取得 my $fH = $loadcgi->upload('filename'); my $set; # エラーチェック if ($loadcgi->cgi_error) { my $err = $loadcgi->cgi_error; &error("$err") if ($err); } if (defined($fH)) { # MIMEタイプ取得 my $mimetype = $loadcgi->uploadInfo($fH)->{'Content-Type'}; $testmime = $mimetype; # 保存するファイル名を取得 $set = &set_name($mimetype); # ファイルサイズ取得 my $size = (stat($fH))[7]; # サイズ制限 &error("The filesize is too large. Max $maxsize KB") if ($size > $maxsize * 1024); # ファイル保存 --------------------------------- $uploadfilesname = $uploadfiles; my ($buffer); open (OUT, ">$uploadfilesname$set") || &error("Can't open $set"); binmode (OUT); while(read($fH, $buffer, 1024)){ print OUT $buffer; } close (OUT); close ($fH) if ($CGI::OS ne 'UNIX'); # Windowsプラットフォーム用 chmod (0666, "$uploadfilesname$set"); } unshift @DATA, "$date\t$FORM{'title'}\t$ID{'name'}\t$ID{'id'}\t$FORM{'text'}\t$uploadfilesname$set\n"; while(@DATA > $MAXLINE) { pop @DATA; } } # ファイル名を設定 ----------------------------- sub set_name { my ($mime) = @_; # 拡張子をセット my $ext = $hash_mime{$mime} ? $hash_mime{$mime} : &error("この種類のファイルはアップロードできません。
MIMETYPE:$testmime"); # ファイル名のフォーマット my $set = time . "_" . $$ . "." . $ext; return $set; } # エラー出力 ----------------------------------- sub error { print < エラー

エラー

$_[0]

戻る END exit; } #========================== 記事を削除する ==== sub deleteArticle { my $key; #if($FORM{'pass'} ne $PASSWORD) { # printErrorPage("管理パスワードが違います。"); #} $key = $FORM{'del'}; splice @DATA, $key, 1; } #======================== HTTPヘッダー出力 ==== sub printHttpHeader { # グリニッジ標準時の文字列 my @mon_str = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); my @wdy_str = ( 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime(time + ($COOKIE_LIFE * 24 * 60 * 60)); my $date = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $wdy_str[$wday], $mday, $mon_str[$mon], $year + 1900, $hour, $min, $sec); # ヘッダーの出力 my ($name, $value); print "Content-type: text/html; charset=$CHARSET\n"; foreach $name (keys %COOKIE) { $value = $COOKIE{$name}; $name = "${COOKIE_PREFIX}_$name"; $value =~ s/(\W)/sprintf("%%%02X", ord($1))/eg; print "Set-Cookie: $name=$value; expires=$date\n"; } print "\n"; } #======================== エラーページ出力 ==== sub printErrorPage { print < けいじばん

エラー

$_[0]

END exit; } #================== クッキーデータ取り込み ==== sub loadCookie { my $pair; foreach $pair (split(/;\s*/, $ENV{'HTTP_COOKIE'})) { my ($name, $value) = split(/=/, $pair); if(not $name =~ /${COOKIE_PREFIX}_(.+)/) { next; } $name = $1; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $COOKIE{$name} = $value; } } # ------------------------------------------------クッキー読み込み sub loadSession { my $pair; foreach $pair (split(/;\s*/, $ENV{'HTTP_COOKIE'})) { my ($name, $value) = split(/=/, $pair); $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $SESSION{$name} = $value; } } #================== フォームデータ取り込み ==== sub loadFormdata { my ($query, $pair); # if($ENV{'REQUEST_METHOD'} eq 'POST') { # read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); # } # else { $query = $ENV{'QUERY_STRING'}; # } # foreach $pair (split(/&/, $query)) { my ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value = jcode::euc($value); $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/\x0D\x0A/
/g; $value =~ tr/\t/ /; $FORM{$key} = $value; } $loadcgi = new CGI; $FORM{'mode'} = $loadcgi->param('mode'); $FORM{'title'} = $loadcgi->param('title'); $FORM{'text'} = $loadcgi->param('text'); $FORM{'pass'} = $loadcgi->param('pass'); $FORM{'del'} = $loadcgi->param('del'); foreach $pairform (keys %FORM) { my $value = $FORM{$pairform}; $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value = jcode::euc($value); $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/\x0D\x0A/
/g; $value =~ tr/\t/ /; $FORM{$pairform} = $value; } }

題名：
内容：
添付：	300KBまで

$title

このページは存在しません

新しくお知らせを投稿する

エラー

エラー