;
close(IN);
$lines[0] =~ s/\n//g;
($classname, $teacher, $day, $period, $starttime, $endtime) = split(/,/, $lines[0]);
$lines[1] =~ s/\n//g;
@classes = split(/,/, $lines[1]);
$classcount = @classes;
print "Content-type: text/html\n\n";
print "\n";
print "$title\n";
print "\n";
print "\n";
print "$body\n";
print "$title
\n";
print "$classname $day $period
\n";
print "担当：$teacher
\n";
print "
\n";
print "\n";
print "
\n";
print "
\n";
print "※学籍番号と電子メールのパスワードを入力して、ボタンを押してください。ボタンは一回だけ押して、画面の反応があるまで待ってください。
\n";
print "※授業日以外、授業時間帯以外に送信しても出席は認められません。また、教室外からの登録も認められません。
\n";
print "※出席状況の確認はいつでも可能\です。
\n";
print "
\n";
print "[ 戻る ]\n";
print "\n";
print "\n";
}
sub viewline {
open (IN, "$data_dir\/$in{'file'}") || &error('エラー', "データファイル $in{'file'} が開けません。");
@lines = ;
close(IN);
$lines[0] =~ s/\n//g;
($classname, $teacher, $day, $period, $starttime, $endtime) = split(/,/, $lines[0]);
($hr, $mn, $sc) = split(/:/, $starttime);
$endtime2 = $delaylimit * 60 + $hr * 3600 + $mn * 60 + $sc;
$lines[1] =~ s/\n//g;
@classes = split(/,/, $lines[1]);
$classcount = @classes;
$flag = 0;
for ($i=3; $i<=$#lines; $i++){
$lines[$i] =~ s/\n//g;
($studentID, $name, $grade) = split(/,/, $lines[$i]);
if ($in{'studentID'} =~ /^$studentID$/i) {
$studentFile = "$studentID.csv";
if (!-e "$data_dir\/$studentDir\/$studentFile") {
open (OUT, ">$data_dir\/$studentDir\/$studentFile") || &error('エラー', "学生データファイル $studentFile を作成できません。");
print OUT "$studentID,$name,$grade\n";
close (OUT);
chmod 0666, "$data_dir\/$studentDir\/$studentFile";
}
my $ftp = Net::FTP->new($servername);
if (!$ftp) { &error('システムエラー','サーバへの接続に失敗しました。'); }
$result = $ftp->login($in{'studentID'}, $in{'password'});
$ftp->quit;
if ($result) {
#パスワードあたり
$flag = 2;
} else {
#パスワード違い
$flag = 1;
}
last;
} else {
#ユーザ名不一致
}
}
if ($flag == 0) {
&error('エラー', '一致する学籍番号がありません。半角文字と全角文字は区別されますので注意してください。');
} elsif ($flag == 1) {
&error('エラー', 'パスワードが一致しません。小文字と大文字、半角文字と全角文字は区別されますので注意してください。キーボードの CapsLock も確認してください。');
}
if ($flag != 2) {
&error('エラー', 'エラーです。戻って再度実行してください。');
}
open (IN, "$data_dir\/$studentDir\/$studentFile") || &error('エラー', "学生データファイル $studentFile が開けません。");
$line = ;
close(IN);
@data = ();
$line =~ s/\n//g;
@data = split(/,/, $line);
$#data = 2 + $classcount;
#ユーザ名(学籍番号)を小文字で表示
$data[0] =~ tr/A-Z/a-z/;
print "Content-type: text/html\n\n";
print "\n";
print "$title\n";
print "\n";
print "\n";
print "$body\n";
print "$title
\n";
print "$classname $day $period
\n";
print "担当：$teacher
\n";
print "
\n";
print "$data[1] さん（学籍番号：$data[0]）の出席状況
\n";
print "
\n";
print "\n";
print "| 学籍番号 | 氏名 | 学年 | ";
foreach (@classes){
print "$_ | ";
}
print "
|---|
\n";
print "\n";
print "| $data[0] | $data[1] | $data[2] | ";
for ($j=3 ; $j<=$#data; $j++){
if ($data[$j] eq '') {
print "− | ";
} elsif ($data[$j] =~ /[0-9]+:[0-9]+:[0-9]+/) {
($hr, $mn, $sc) = split(/:/, $data[$j]);
$timetemp3 = $hr * 3600 + $mn * 60 + $sc;
if ($timetemp3>$endtime2) {
print "△ | ";
} else {
print "○ | ";
}
} else {
print "$data[$j] | ";
}
}
print "
\n";
print "
\n";
print "
\n";
print "
\n";
print "
\n";
print "[ 戻る ]
\n";
print "\n";
}
sub viewall {
&checkadmin;
open (IN, "$data_dir\/$in{'file'}") || &error('エラー', "データファイル $in{'file'} が開けません。");
@lines = ;
close(IN);
$lines[0] =~ s/\n//g;
($classname, $teacher, $day, $period, $starttime, $endtime) = split(/,/, $lines[0]);
($hr, $mn, $sc) = split(/:/, $starttime);
$endtime2 = $delaylimit * 60 + $hr * 3600 + $mn * 60 + $sc;
$lines[1] =~ s/\n//g;
@classes = split(/,/, $lines[1]);
$classcount = @classes;
print "Content-type: text/html\n\n";
print "\n";
print "$title\n";
print "\n";
print "\n";
print "$body\n";
print "$title
\n";
print "$classname $day $period
\n";
print "担当：$teacher
\n";
print "
\n";
print "
\n";
print "\n";
print "| | 学籍番号 | 氏名 | 学年 | ";
foreach (@classes){
print "$_ | ";
}
print "
|---|
\n";
for ($i=3; $i<=$#lines; $i++){
$border++;
if (($border % 2) != 0) { $bgcolor = $linebgcolor; } else { $bgcolor = ""; }
$lines[$i] =~ s/\n//g;
($studentID, $name, $grade) = split(/,/, $lines[$i]);
$studentFile = "$studentID.csv";
if (!-e "$data_dir\/$studentDir\/$studentFile") {
open (OUT, ">$data_dir\/$studentDir\/$studentFile") || &error('エラー', "学生データファイル $studentFile を作成できません。");
print OUT "$studentID,$name,$grade\n";
close (OUT);
chmod 0666, "$data_dir\/$studentDir\/$studentFile";
}
open (IN, "$data_dir\/$studentDir\/$studentFile") || &error('エラー', "学生データファイル $studentFile が開けません。");
$line = ;
close(IN);
@data = ();
$line =~ s/\n//g;
@data = split(/,/, $line);
$#data = 2 + $classcount;
#ユーザ名(学籍番号)を小文字で表示
$data[0] =~ tr/A-Z/a-z/;
print "";
print "| [ 修正 ] | $data[0] | $data[1] | $data[2] | ";
for ($j=3 ; $j<=$#data; $j++){
if ($data[$j] eq '') {
print "− | ";
} elsif ($data[$j] =~ /[0-9]+:[0-9]+:[0-9]+/) {
($hr, $mn, $sc) = split(/:/, $data[$j]);
$timetemp3 = $hr * 3600 + $mn * 60 + $sc;
if ($timetemp3>$endtime2) {
print "△ | ";
} else {
print "○ | ";
}
$counts[$j-3]++;
} else {
print "$data[$j] | ";
$counts[$j-3]++;
}
}
print "
\n";
}
print "| | 出席人数 | ";
for ($j=3 ; $j<=$#data; $j++){
if ($counts[$j-3]==0) {
$countbyday = " ";
} else {
$countbyday = $counts[$j-3];
}
print "$countbyday | ";
}
print "
|---|
";
print "
\n";
print "
\n";
print "
\n";
print "
\n";
print "[ 更新 ] \n";
print "[ csv 形式で表\示 ]
\n";
print "[ 管理パスワード変更 ]
\n";
print "[ 戻る ]
\n";
print "