#!/usr/local/bin/perl
use CGI qw(:standard);

print header();

$id = param('ID');
$cname = param('C_NAME');
$ename = param('E_NAME');
$bbc  = param('BBCALL');
$cell = param('HANDPHONE');
$o_tel = param('O_TEL');
$o_address = param('O_ADDRESS');
$c_tel  = param('C_TEL');
$c_address = param('C_ADDRESS');
$h_tel = param('H_TEL');
$h_address = param('H_ADDRESS');
$email = param('EMAIL');
$homepage = param('HOMEPAGE');

$path = "/raid/web/catmate/" . $id;
open (fh, ">$path");
print fh "C_NAME:$cname\n";
print fh "E_NAME:$ename\n";
print fh "BBCALL:$bbc\n";
print fh "HANDPHONE:$cell\n";
print fh "O_TEL:$o_tel\n";
print fh "O_ADDRESS:$o_address\n";
print fh "C_TEL:$c_tel\n";
print fh "C_ADDRESS:$c_address\n";
print fh "H_TEL:$h_tel\n";
print fh "H_ADDRESS:$h_address\n";
print fh "EMAIL:$email\n";
print fh "HOMEPAGE:$homepage\n";
close fh;

print "<html>";
print "<center>";
print "<H2>加入完成</H2>\n";
print "</center>";
print "</html>";