#!/usr/bin/perl # ------------------------------------------------設定変数 $USERFILE = '../dat/users.dat'; # ユーザーファイル $SESSION = '../dat/session.dat'; # セッション管理ファイル $CHARSET = 'EUC-JP'; # 文字コード $DATAFOLDER = '../article/'; # 記事フォルダ $COOKIE_PREFIX = 'login'; # クッキープリフィクス $COOKIE_LIFE = 30; # クッキー期限(日) $DATAFILE = '../community/album/default.dat'; # 記事ファイル $LOGFILE = '../community/album/album.dat'; # アルバム管理ファイル $PAGEVIEW = 15; # ページ記事数 # ------------------------------------------------メインプログラム $agent = $ENV{'HTTP_USER_AGENT'}; if($agent =~ /DoCoMo/){ printMobile(); }elsif($agent =~ /UP.Browser/){ printMobile(); }elsif($agent =~ /J-PHONE|Vodafone|SoftBank/){ printMobile(); } else{ loadFormdata(); loadCookie(); $member = checkCode(); if(exists $FORM{'logout'}){ $CODE{$member}=0; printPage("IDvoid"); # ログインページ出力("ID,PASSを入力してください") } else { loadLogfile(); # アルバム管理ファイル if($FORM{'book'} ne ""){ $DATAFILE = "../community/album/$FORM{'book'}.dat"; } else { my ($name, $file, $exhibition) = split (/\t/, $LOG[0]); $DATAFILE = "../community/album/$file.dat"; } open(FILE, "<$DATAFILE") or printErrorPage("openError"); eval{ flock(FILE, 1) }; @DATA = ; close(FILE); if($FORM{'mode'} eq "opencheck") { deleteArticle(); # 削除モード # 記事データの書き込み open(FILE, ">$DATAFILE") or printErrorPage("openError"); eval{ flock(FILE, 2) }; print FILE @DATA; close(FILE); } if($member) { # クッキーに暗号が一致 loadUserfile(); # ユーザーファイルの読み込み$memberを基に個人の%IDの作成 loadArticle(); # 記事読み込み printPage("IDpassed"); } else { if($FORM{'id'} and $FORM{'pass'}){ # フォームにID,PASSがあるかどうかの確認 $member = $FORM{'id'}; loadUserfile(); # ユーザーファイルの読み込み$memberを基に個人の%IDの作成 if($FORM{'pass'} eq $ID{'pass'}){ # フォームのID,PASSがユーザーファイルのIDと一致 calculatCode(); # CODEの計算及びユーザーファイルに保存 loadArticle(); # 記事読み込み printPage("IDpassed"); } else { printPage("IDerror"); # エラーページ出力("ID,PASSが異なります") } } else { printPage("IDvoid"); # ログインページ出力("ID,PASSを入力してください") } } } } exit; # ------------------------------------------------モバイルのメインプログラム sub printMobile { loadFormdata(); loadCookie(); $member = checkCode(); $mobile = checkMobile(); if(exists $FORM{'logout'}){ $CODE{$member}=0; printMobilePage("IDvoid"); # ログインページ出力("ID,PASSを入力してください") } else { if($member) { # クッキーに暗号が一致 loadUserfile(); # ユーザーファイルの読み込み$memberを基に個人の%IDの作成 loadArticle(); # 記事読み込み printMobilePage("IDpassed"); } elsif($mobile){ $member = $mobile; loadUserfile(); # ユーザーファイルの読み込み$memberを基に個人の%IDの作成 loadArticle(); # 記事読み込み printMobilePage("IDpassed"); } else { if($FORM{'id'} and $FORM{'pass'}){ # フォームにID,PASSがあるかどうかの確認 $member = $FORM{'id'}; loadUserfile(); # ユーザーファイルの読み込み$memberを基に個人の%IDの作成 if($FORM{'pass'} eq $ID{'pass'}){ # フォームのID,PASSがユーザーファイルのIDと一致 calculatCode(); # CODEの計算及びユーザーファイルに保存 loadArticle(); # 記事読み込み printMobilePage("IDpassed"); } else { printMobilePage("IDerror"); # エラーページ出力("ID,PASSが異なります") } } else { printMobilePage("IDvoid"); # ログインページ出力("ID,PASSを入力してください") } } } } # ------------------------------------------------モバイルページの出力 sub printMobilePage { printHttpHeader(); print < 軟式庭球同好会 軟式庭球同好会
END #振り分け if ($_[0] eq "IDpassed") { print < END }elsif($_[0] eq "IDerror") { #ID,PASSが異なります print < ID:

PASS:

保存する
携帯電話からのアカウント作成はできません END }elsif($_[0] eq "IDvoid") { #ID,PASSを入力してください print < ID:

PASS:

保存する
携帯電話からのアカウント作成はできません
END } #振り分け終わり print <HOME
┣お知らせ
┣イベント
掲示板
メンバー一覧
┗ML

サイトの使い方
アカウント編集
ログアウト
END } # ------------------------------------------------クッキーの暗号が一致したらID、なければ0を返す sub checkMobile { my($name, $pass, %CODEN, $load); open(FILE, "<$SESSION") or printPage("openError"); eval{ flock(FILE, 1) }; while($ln = ) { chomp $ln; ($name, $pass) = split(/:/, $ln); $CODEN{$pass} = $name; } $load = $FORM{'session'}; close(FILE); if (exists $CODEN{$load}) { return $CODEN{$load}; } else { return 0; } } # ------------------------------------------------クッキーの暗号が一致したらID、なければ0を返す sub checkCode { my($name, $pass, %CODEN, $load); open(FILE, "<$SESSION") or printPage("openError"); eval{ flock(FILE, 1) }; while($ln = ) { chomp $ln; ($name, $pass) = split(/:/, $ln); $CODEN{$pass} = $name; } $load = $COOKIE{'id'}; close(FILE); if (exists $CODEN{$load}) { return $CODEN{$load}; } else { return 0; } } # ------------------------------------------------セッションCODEの乱数発生及びユーザーファイルに保存 sub calculatCode { my ($passwd, @c, $ln, $name, $pass, $fp); @c = (0..9,'A'..'Z','a'..'z'); srand; $passwd = ''; $passwd .= $c[int(rand(@c))] while length($passwd) < 8; # 書き直しユーザーファイル読み書き open(FILE, "+<$SESSION") or printPage("openError"); eval{ flock(FILE, 2) }; while($ln = ) { chomp $ln; ($name, $pass) = split(/:/, $ln); $CODE{$name} = $pass; } $CODE{$member} = $passwd; seek( FILE, 0, 0); foreach $CODEKEY (keys %CODE) { print FILE "$CODEKEY:$CODE{$CODEKEY}\n"; } $fp = tell( FILE ); truncate( FILE, $fp); close(FILE); } # ------------------------------------------------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"; if (exists $CODE{$member}) { $value = $CODE{$member}; $name = 'id'; if ($FORM{'login'} eq "true") { print "Set-Cookie: $name=$value; expires=$date\n"; } else { print "Set-Cookie: $name=$value\n"; } } print "\n"; } # ------------------------------------------------クッキー読み込み sub loadCookie { 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; $COOKIE{$name} = $value; } } # ------------------------------------------------アルバム管理ファイル読み込み sub loadLogfile { my ($ln, $name, $file, $text, %USERS); open(FILE, "<$LOGFILE") or printPage("openError"); eval{ flock(FILE, 1) }; @LOG = ; close(FILE); if($FORM{'new'} eq ""){ if(@LOG == 0){ printPage("filevoid"); exit; } } open(FILE, "<$LOGFILE") or printPage("openError"); eval{ flock(FILE, 1) }; while($ln = ) { chomp $ln; ($name, $file, $text) = split(/\t/, $ln); $LOG{$file} = $name; $ALBUMTEXT{$file} = $text; } close(FILE); } # ------------------------------------------------記事情報読み込み sub loadArticle { 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 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; $FORM{$key} = $value; } } #======================== エラーページ出力 ==== sub printErrorPage { print < けいじばん

エラー

$_[0]

END exit; } #========================== 記事を削除する ==== sub deleteArticle { my $key; #if($FORM{'pass'} ne $PASSWORD) { # printErrorPage("管理パスワードが違います。"); #} for($i = 0 ; $i < @DATA ; ++$i) { my ($date, $author, $email, $comment, $filepass, $opencheck) = split(/\t/, $DATA[$i]); chomp $opencheck; chomp $filepass; $DATA[$i] = "$date\t$author\t$email\t$comment\t$filepass\n"; } foreach $key (sort {$b cmp $a} keys %FORM) { my $i; if($key =~ /del_([0-9]+)/ and not $DATA[$1]=~ /\ton/) { chomp $DATA[$1]; $DATA[$1] .= "\ton\n"; } } } # ------------------------------------------------メインhtml出力(メインhtmlのひな型) sub printPage { my $begin = $FORM{'page'} * $PAGEVIEW; my $end = $begin + $PAGEVIEW; if($end > @DATA) { $end = @DATA; } printHttpHeader(); print < ギャラリー|埼玉大学軟式庭球同好会
END #振り分け if ($_[0] eq "IDpassed") { print <
ようこそ、$ID{'name'}さん
END }elsif($_[0] eq "IDerror") { #ID,PASSが異なります print <
自動的にログイン
END }elsif($_[0] eq "IDvoid") { #ID,PASSを入力してください print <
自動的にログイン
END } #振り分け終わり print <
埼玉大学軟式庭球同好会トップページ軟式庭球同好会についてスケジュール試合結果フォトアルバムコミュニティ
埼玉大学軟式庭球同好会写真
ギャラリー
END if($FORM{'book'} eq ""){ my ($name, $file, $text) = split (/\t/, $LOG[0]); print "

$nameのアルバム

\n
$text
"; } else { my $titlenum = $FORM{'book'}; print "

$LOG{$titlenum}のアルバム

\n
$ALBUMTEXT{$titlenum}
"; } if($_[0] eq "IDpassed") { print <
END # 記事の出力 my ($i, $j, $nextpage, $nextlink); if ($DATA[0] ne ""){ for($i = $begin ; $i < $end ; ++$i) { my ($date, $author, $email, $comment, $filepass, $opencheck) = split(/\t/, $DATA[$i]); $j=$i+1; chomp $opencheck; $filesumb = $filepass; $filesumb =~ s/.jpg/s.jpg/; print "
\n
"; print "$j: $author"; if($opencheck eq "on"){ printf "", $i; } else { printf "", $i; } print "
$comment
"; print "
\n"; } } else { print "
写真がありません。
\n"; } print "
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; # 前ページへのリンク if($end-$PAGEVIEW > 0) { $nextpage = $FORM{'page'} - 1; $nextlink = "$ENV{'SCRIPT_NAME'}?page=$nextpage&book=$FORM{'book'}"; print "<<前のページ\n"; } print "\n"; # 次ページへのリンク if($end < @DATA) { $nextpage = $FORM{'page'} + 1; $nextlink = "$ENV{'SCRIPT_NAME'}?page=$nextpage&book=$FORM{'book'}"; print "次のページ>>\n"; } print "
\n"; } else{ print < END # 記事の出力 my ($i, $j, $nextpage, $nextlink); if ($DATA[0] ne ""){ $j=1; for($i = $begin ; $i < $end ; ++$i) { my ($date, $author, $email, $comment, $filepass, $opencheck) = split(/\t/, $DATA[$i]); chomp $opencheck; chomp $filepass; $filesumb = $filepass; $filesumb =~ s/.jpg/s.jpg/; if($opencheck ne "on"){ print "
\n
"; #print "$j: $author"; #printf "", $i; print "
$comment
"; print "
\n"; $j++; }else{ #printf "", $i; } } } else { print "
写真がありません。
\n"; } if($j==1){ print "
公開されている写真はありません。
\n"; } print "
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; # 前ページへのリンク if($end-$PAGEVIEW > 0) { $nextpage = $FORM{'page'} - 1; $nextlink = "$ENV{'SCRIPT_NAME'}?page=$nextpage&book=$FORM{'book'}"; print "<<前のページ\n"; } print "\n"; # 次ページへのリンク if($end < @DATA) { $nextpage = $FORM{'page'} + 1; $nextlink = "$ENV{'SCRIPT_NAME'}?page=$nextpage&book=$FORM{'book'}"; print "次のページ>>\n"; } print "
\n"; } if($_[0] eq "IDpassed") { print < ここでチェックの入れられている写真は公開されていません。
チェックをはずして公開停止のボタンをクリックすると再び公開されます。
END }else { print "
公開されたくない写真がある場合は、お問い合わせよりご連絡ください。\n"; } print <
Menu
アルバム一覧
END if ($_[0] eq "filevoid"){ print "アルバムがありません
"; } for($i = 0 ; $i < @LOG ; ++$i) { my ($name, $file, $text) = split (/\t/, $LOG[$i]); print "\n"; } print <
 
END } # ------------------------------------------------認証時ページ出力("トップページ") sub IDpassed { return 0; } # ------------------------------------------------エラーページ出力("ID,PASSが異なります") sub IDerror { return 0; } # ------------------------------------------------ログインページ出力("ID,PASSを入力してください") sub IDvoid { return 0; }