:$scheme\n";
print IFH "Scheme:$scheme\n";
while (($key, $value) = each %options) {
print FH "<$key>:$value\n";
print IFH "$key:$value\n";
}
close IFH;
close FH;
# connect to allwords server
socket (Server, PF_INET, SOCK_STREAM, getprotobyname ($proto));
my $internet_addr = inet_aton ($remote_host) or do {
print "Could not convert $remote_host to an IP address: $!
\n";
die;
};
my $paddr = sockaddr_in ($remote_port, $internet_addr);
unless (connect (Server, $paddr)) {
print "Cannot connect to server $remote_host:$remote_port ($!)
\n";
die;
}
select ((select (Server), $|=1)[0]);
print "
AllWords Disambiguation Results
";
die "can't fork: $!" unless defined($kidpid = fork());
# the if{} block runs only in the parent process
if ($kidpid)
{
open RFH, '>', $resultfilename or print "Cannot open $resultfilename for writing: $!";
# copy the socket to CGI output
$traceflag=0;
while (defined ($line = ))
{
if( $line =~ //)
{
$traceflag=1;
open TFH, '>', $tracefilename or print "Cannot open $tracefilename for writing: $!";
}
elsif( $line =~ // )
{
$traceflag=0;
close TFH;
}
elsif( $traceflag == 1)
{
print TFH "$line";
}
else
{
$line =~ s// >/g;
$line =~ s/\#o|\#NR|\#ND|\#IT|\#NT|\#CL|\#MW//g;
print RFH $line;
writetoCGI($line);
}
}
close RFH;
kill("TERM", $kidpid); # send SIGTERM to child
print "
";
if (defined $options{trace})
{
print $cgi->a({-href=>"/allwords/$usr_dir/trace.txt"},"See Trace output");
print "
";
}
print $cgi->a({-href=>"/allwords/$usr_dir.tar.gz"},"Download");
print " the complete tar ball of the result files.", $cgi->p;
print $cgi->a({-href=>"/allwords/$usr_dir"},"Browse");
print " your directory.", $cgi->p;
$status=system("rm -rf $filename");
if ($status)
{
writetoCGI("\nCould not delete $filename.\n");
}
$status=system("tar -cvf $usr_dir.tar $usr_dir >& user_data/tar_log");
if ($status)
{
writetoCGI("\nError while creating the tar file of results.\n");
}
$status=system("gzip $usr_dir.tar");
if ($status)
{
writetoCGI("\nError while zipping the tar file of results.\n");
}
$status=system("mv $usr_dir.tar.gz $doc_base/allwords/user_data/");
if ($status)
{
writetoCGI("\nError while copying the tar file.\n");
}
$status=system("mv $usr_dir $doc_base/allwords/user_data/");
if ($status)
{
writetoCGI("\nCan not create user directory in $doc_base\n");
}
}
# the else{} block runs only in the child process
else
{
#send context file to the allwords server
printf Server ":$usr_dir\n";
open CFH, '<', "$context" or die "can't open context file $context for reading : $!";
printf Server "\015\012";
while (defined ($line = ))
{
printf Server ":$line\015\012";
}
printf Server "\015\012";
close CFH;
#send other options to the allwords server
open FH, '<', $filename or die "Cannot open $filename for reading: $!";
#copy CGI input to the socket
while (defined ($line = ))
{
printf Server $line;
}
close FH;
if(defined $options{stoplist})
{
open SFH, '<', "$usr_dir/"."$options{stoplist}" or die "can't open stoplist file $stoplist for reading : $!";
printf Server "\015\012";
while (defined ($line = ))
{
printf Server ":$line\015\012";
}
printf Server "\015\012";
close SFH;
}
print Server "\0012\n";
print "Start Over
";
}
sub cleanLine
{
my $line = shift;
chomp($line);
my @words=split(/ +/,$line);
foreach my $word (@words){
next if($word eq "i.e." || $word eq "ie." || $word eq "et_al." || $word eq "al.");
$word =~ s/([A-Z])/\L$1/g;
if ($word =~ m/_/){
$word =~ s/[.|!|?|,|;]+$/ /;
}
else{
$word =~ s/[^$OK_CHARS]/ /g;
}
}
return join (' ', @words);
}
sub writetoCGI
{
my $output=shift;
print <Results
$output
EndHTML
}
sub getFileName
{
my $path=shift;
my $filename;
my $result = rindex($path, "\/");
if ($result eq -1) {
$result = rindex($path, "\\");
}
$filename= substr $path, $result+1;
return $filename;
}
=head1 NAME
allwords.cgi - [Web] CGI script implementing a portion of a web interface
for WordNet::SenseRelate::AllWords
=head1 DESCRIPTION
This script works in conjunction with allwords_server.pl to
provide a web interface for L. The html
file, htdocs/allwords/allwords.html posts the data entered by the user
to this script. The input data, in particular, the input context, stoplist
file and various disambiguation options are written in files
and sent to the server line by line. Then it waits for the server to send
results. After receiving results, they are displayed to the user. Moreover
the user_data along with the tarball of result files is moved to
htdocs/allwords/user_data directory, so that the user can refer to the results
later.
=head1 AUTHORS
Varada Kolhatkar, University of Minnesota, Duluth
kolha002 at d.umn.edu
Ted Pedersen, University of Minnesota, Duluth
tpederse at d.umn.edu
This document last modified by :
$Id: allwords.cgi,v 1.33 2009/05/27 19:56:24 kvarada Exp $
=head1 SEE ALSO
L L
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2008, Varada Kolhatkar, Ted Pedersen, Jason Michelizzi
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.2
or any later version published by the Free Software Foundation;
with no Invariant Sections, no Front-Cover Texts, and no Back-Cover
Texts.
Note: a copy of the GNU Free Documentation License is available on
the web at L and is included in
this distribution as FDL.txt.
=cut