#!/usr/bin/perl -w

use CGI qw(:standard);

$PID = $$;
$DATE = `date +%Y%m%d`;
chop( $DATE );
$NKF = "/usr/bin/nkf";

#
# counter
#
$COUNTERFILE = "membernum.txt";
$MEMBERNUM=`cat $COUNTERFILE`;
# counter up
$MEMBERNUM=$MEMBERNUM+1;
# write it back
open( TMP, "> $COUNTERFILE" );
print TMP $MEMBERNUM;
close( TMP );

# content-type
print header, "\n";

# output filename
$OUTFILE = "/home/httpd/data-tnoma/$MEMBERNUM.$DATE.$PID";

# debug
#print $OUTFILE;

# output file
open( TMP, "| $NKF -s > $OUTFILE" );
print TMP "no      : $MEMBERNUM\n";
print TMP "name    : ", param( "name" ), "\n";
print TMP "e-mail  : ", param( "email" ), "\n";
print TMP "answer  : ", param( "radiobutton" ), "\n";
print TMP "comment :-------------------------------------\n";
print TMP param( "message" ), "\n";
print TMP "----------------------------------------------\n";
close( TMP );

print "Thank you. <br><a href=\"/tnoma/\">back</a>";