#!/usr/bin/perl
print "Content-type: text/html\n\n";

require 'jcode.pl';

if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read (STDIN,$str, $ENV{'CONTENT_LENGTH'});
 } else {
     $str = $ENV{'QUERY_STRING'};
} 

@part = split('&', $str);
foreach $i (@part) {
    ($variable, $value) = split('=', $i);
    $value =~ tr/+/ /;
    $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/eg;
    &jcode'convert(*value,'euc');
    $value =~ s/</&lt;/g;
    $value =~ s/>/&gt;/g;
    $value =~ s/\015\012/\012/g;
    $value =~ s/\015/\012/g;
    $cgi{$variable} = $value;
}

$nkf= "/bin/nkf -j";

$db_1=$cgi{'names'};
$db_2=$cgi{'title'};
$db_3=$cgi{'keyw'};
$db_4=$cgi{'abstl'};
$db_5=$cgi{'location'};

$output_file="paper_db";

@outdata= ("Author:$db_1,","KeyWord:$db_3,",
             "Abstruct:<a href=\"$db_4\">$db_2</a>,",
             "Location:<a href=\"$db_5\">$db_2</a>");

open(FILE, ">>$output_file") || die "can't open paper_db\n";
print FILE "@outdata\n";
close(FILE);

# network likes JIS
open(BROWSE, "| $nkf");  
print BROWSE <<EOF;
<title>search result</title>
<h2>データベースに書き込みました<h2>
以下の通りに書き込みました
<hr>
@outdata<p>
<hr> 
EOF

exit;