#!/usr/local/bin/perl -- -*- C -*-
# add-name - add your name to my visited person list
# by eto kouichirou <t91069ke@sfc.keio.ac.jp>

$list = "/seed/WWW/eto/person-list";
#$list = "./list";
open(LIST, ">>$list") || die "Can't open list.";

$goback = "<A HREF=\"http://andro.sfc.keio.ac.jp/eto/add-name.html\">
Go back to the list.</A>\n";
$myaddress = "<HR><A HREF=\"http://andro.sfc.keio.ac.jp/eto\">
<ADDRESS>ETO Kouichirou &lt;t91069ke@sfc.keio.ac.jp&gt;</ADDRESS></A>\n";

&cgi'header;

print "<TITLE>Add your name to my Visited person list! (submit)</TITLE>\n";

&cgi'decode;

foreach $tag (keys(%cgi'tags)) {
	$cont = $cgi'tags{$tag};
	$cont =~ s/&/&amp;/g;
	$cont =~ s/</&lt;/g;
	$cont =~ s/>/&gt;/g;
    if ($tag eq "name") { $name = $cont; }
    if ($tag eq "address") { $address = $cont; }
    if ($tag eq "url") { $url = $cont; }
}

if ((!defined($name)) || ($name eq "")) {
	print "<H1>Your addition is failed.</H1>\n";
	print "Because name is missing.<P>\n";
	print $goback . $myaddress;
	exit 0;
} elsif ((!defined($address)) || ($address eq "")) {
	print "<H1>Your addition is failed.</H1>\n";
	print "Because address is missing.<P>\n";
	print $goback . $myaddress;
	exit 0;
} elsif ((!defined($url)) || ($url eq "")) {
	$output = "<LI>" . $name . " &lt;" . $address . "&gt;\n";
} else {
	$output = "<LI><A HREF=\"" . $url . "\">" . $name . " &lt;" . $address . "&gt;</A>\n";
}

print "<H1>Thank you for your adding your name to my list!</H1>\n";
print "This is the your addition.<P>\n";

print "<UL>";
print $output;
print LIST $output;
print "</UL><P>\n";

print $goback . $myaddress;

exit 0;


# cgi.pl - decode CGI input.
# by ETO Kouichirou <t91069ke@sfc.keio.ac.jp>
# date 1994/05/11
#
# Usage:
#
#      require 'cgi.pl';
#      &cgi'decode;
#      ...
#      $name = $cgi'tags{'name'};

package cgi;

sub header {print "Content-type: text/html\n\n";}

sub decode {
        local($args, $n_read, *terms, $tag, $value);

        if ($ENV{'REQUEST_METHOD'} eq "POST"){
                $n_read = sysread(STDIN, $args, $ENV{'CONTENT_LENGTH'});
        } else {
                $args = $ENV{'QUERY_STRING'};
        }

        @terms = split('&', $args);

        foreach (@terms) {
                ($tag, $value) = split(/=/, $_, 2);
                $value =~ s/\+/ /g;
                $value =~ s/%(..)/pack("c", hex($1))/ge;
                $tags{$tag} = $value;           # tags is global
        }
}
1;