use lib qw(./lib);
require CDB_Perl::Read;

#-----変数--------------------------

$db='./lib/postal.cdb';

#-----------------------------------

sub Search{
my($rcdb,$result,$dum,$area,$address,$address2,$pref);

if($FORM{'code'} eq ""){
	&postal_error("郵便番号が入力されていません。");
}
if(!-e $db){
	&postal_error("postal.cdbがありません。");
}

$rcdb = CDB_Perl::Read->new($db);

$result = $rcdb->get_value($FORM{'code'});

if(!$result){
	&postal_error("入力された郵便番号は存在しません。");
}

($dum,$pref,$address,$address2)=split(/,/,$result);


print "Content-type: text/plain\n\n";
print "ok:$FORM{'act'}:$pref:$address$address2";
exit;

}

sub postal_error{

print "Content-type: text/plain\n\n";
print "er:$_[0]";
exit;

}
1;