#!/usr/local/bin/perl

use CGI;

# Where the pics are kept.
$pic_dir = "/home/superk/WWW/pics/people";

$query = new CGI;

print $query->header;
print $query->start_html("Questionnaire for Astronomers");
print "<H1 align=center>Questionnaire for Astronomers</H1><br><HR>\n";

&do_work($query);
&print_prompt($query);
&print_tail;
print $query->end_html;

sub print_prompt {
    my ($query) = @_;

#    print "<center>\n";
    print $query->start_multipart_form;
    print "Name:          ";
    print $query->textfield(-name=>'name');
    print "<P>";
    print "Affiliation:   ";
    print $query->textfield(-name=>'affil');
    print "<P>";
    print "Email address: ";
    print $query->textfield(-name=>'email');


#    print "<P><EM>Choose from list:</EM><BR>\n";
#    print $query->scrolling_list(
#				 -name=>'Picture',
#				 -values=>[&get_pic_list],
#				 -size=>10,
#				 -multiple=>'true');
    print "<P>";

    print $query->textarea(-name=>'question1',
                                   -rows=>10,
			           -columns=>60,
                                   -justification=>'RIGHT');



    print $query->submit('Action','Submit');
    print $query->endform;
    print "</center>\n";
    print "<HR>\n";
}

sub do_work {
    my ($query) = @_;

    @qp = $query->param;
    $qpn = $#qp;
    if($qpn == -1) { return }	# Only print if form is submitted

    $name = $query->param('name');
    $affil = $query->param('affil');
    $email = $query->param('email');

    $answer1 = $query->param('question1');

    system("cat /home/superk/WWW/sk-bin/temp.txt | mail kate");


#    print "<center>\n";
#    print <<END

    print $name;
    print "<P> ";
    print "from ",$affil,"\n";
    print "<P> ";
    print "answer1 ",$answer1;

#<P><HR>
#<ADDRESS>www\@mochi.icrr.u-tokyo.ac.jp</ADDRESS><BR>
#END
#;
# 	    print <<END
#     print "<a href="http://mochi.icrr.u-tokyo.ac.jp/~superk/">

#	 </a><br>";
# END

}

sub print_tail {
    print <<END
<P><HR>
<ADDRESS>www\@mochi.icrr.u-tokyo.ac.jp</ADDRESS><BR>
END
    ;
}

sub get_pic_list {
    @data_list = `ls $pic_dir`;
    return @data_list;
}