#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$query = new CGI;
if($query->param('mode') eq "add") {
&add;
} elsif($query->param('mode') eq "delete") {
&delete;
}
# HTMLƒwƒbƒ_[o—Í
print "Content-type: text/html; charset=x-sjis\n\n";
print "\n";
print "—\\–ñŽæ‘ -—‚ŒŽ-\n";
print "\n";
print "\n";
print "—\\–ñŽæ‘ -—‚ŒŽ-";
print "\n";
print "
\n";
$i = 0; # counter reset
open(FILE, "< ./request.txt");
while() {
if(!/~\n/){
$i++;
($month{$i},$day{$i},$code{$i}) = split(/\t/, $_);
print "\n";
}
}
$i++;
print "
\n";
print "\n";
print "\n";
print "—\\–ñŽæ‘ -“–ŒŽ-";
print "\n";
print "
\n";
print "\n";
print "\n";
exit;
### update
sub update {
$num = $query->param('num');
$month{$num} = $query->param('month');
$day{$num} = $query->param('day');
$code{$num} = $query->param('code');
}
### delete
sub delete {
$num = $query->param('num');
open(FILE,"< ./request.txt");
while() {
$i++;
if($i != $num) {
push(@line,$_);
# @line = @line, "$_";
}
}
open(FILE,"> ./request.txt");
print FILE @line;
close(FILE);
}
### add
sub add {
$month = $query->param('month');
$day = $query->param('day');
$code = $query->param('code');
open(FILE,">> ./request.txt");
print FILE "$month\t$day\t$code\n";
close FILE;
}
### output
sub output{
#open(FILE,"> ./request.txt");
#foreach $i ( %month ){
# if($ym{$i}){
# print FILE "$ym{$i}\t$yd{$i}\t$sw{$i}\n";
# }
}
## pdate form
sub form {
print "\n";
}