#!/usr/bin/perl
# Copyright (C) 2001-2003 All right reserved by Shinya Kondo ( CGI KON )
require "cgi-lib.pl";
# エラーページの表示
sub Print_Error
{
my($errno) = @_;
print "Content-type: text/html\n\n";
print qq!
エラーが発生しました
エラーが発生しました
登録できませんでした。（エラー番号：$errno）
サイト運営者にお問い合せ下さい。
!;
exit;
}
# 初期化
my($line,@title,$key,$value,@result);
my($file) = "form_data.tsv";
&Print_Error(1) unless(-e $file);
&ReadParse;
# タイトル行の取得
&Print_Error(2) unless(open(IFILE,$file));
$line = ;
chomp($line);
@title = split("\t",$line);
close(OFILE);
# 値の取得
foreach $key (@title) {
$value = $in{$key};
$value =~ s/\x0D\x0A|\x0D|\x0A//g;
push(@result,$value);
}
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;
my($date) = sprintf("%04d/%02d/%02d %02d:%02d:%02d",$year,$mon,$mday,$hour,$min,$sec);
push(@result,$date);
# ＴＳＶファイルへの書込み
&Print_Error(3) unless(open(OFILE,">>$file"));
print OFILE join("\t",@result)."\n";
close(OFILE);
# 完了ページの表示
print "Content-type: text/html\n\n";
print qq!
ご利用ありがとうございます。
ご利用ありがとうございます。
Copyright (C) 2001-2003 All right reserved by CGI KON
!;
# Copyright (C) 2001-2003 All right reserved by Shinya Kondo ( CGI KON )