#!/usr/local/bin/perl -w # This script mostly upload the required test and # training data along with other necessary files. use CGI; $q=new CGI; print "Content-type: text/html\n\n"; my $host = $ENV{'HTTP_HOST'}; $clustype=$q->param("clustype"); print " SenseClusters

SenseClusters Web Interface

Clusters text instances based on their contextual similarity ...

Step 1:

"; if($clustype eq "hclust" || $clustype eq "lsa-hclust") { print " "; print " "; print ""; print " "; print " "; print " "; } elsif($clustype eq "hlclust" || $clustype eq "lsa-hlclust") { print " "; print ""; print " "; } elsif($clustype eq "wclust") { print ""; } elsif($clustype eq "lsa-fclust") { print ""; } print " "; print " "; print ""; print "
TEST File (SENSEVAL-2 Format) Required Argument
TEST Scope Default scope=complete instance
Split TEST (Do not use if TRAIN file specified)
" . $q->a({-href=>"http://$host/SC-htdocs/help.html#feature_type"},"Features type"), "", $q->popup_menu(-name=>'feature', -values=>['bi','coc','tco','uni'], -default=>'bi', -labels=>{bi=>'bigram', coc=>'co-occurrence',tco=>'target co-occurrences', uni=>'unigram'}),"
TRAIN File (Plain Text Format) Default [TRAIN=TEST]
TRAIN Scope Default scope=complete instance
TARGET-Word File "; print "Default File
Split TEST (Do not use if TRAIN file specified)
" . $q->a({-href=>"http://$host/SC-htdocs/help.html#feature_type"},"Features type"), "", $q->popup_menu(-name=>'feature', -values=>['bi','coc','uni'], -default=>'bi', -labels=>{bi=>'bigram', coc=>'co-occurrence', uni=>'unigram'}),"
TRAIN File (Plain Text Format) Default [TRAIN=TEST]
" . $q->a({-href=>"http://$host/SC-htdocs/help.html#feature_type"},"Features type"), "", $q->popup_menu(-name=>'feature', -values=>['bi','coc'], -default=>'bi', -labels=>{bi=>'bigram', coc=>'co-occurrence'}),"
" . $q->a({-href=>"http://$host/SC-htdocs/help.html#feature_type"},"Features type"), "", $q->popup_menu(-name=>'feature', -values=>['bi','coc', 'uni'], -default=>'bi', -labels=>{bi=>'bigram', coc=>'co-occurrence', uni=>'unigram'}),"
Prefix Default=user
TOKEN File Default File
", $q->a({-href=>"http://$host/SC-htdocs/help.html#format_f16_xx"}, "Precision"), " ", $q->popup_menu(-name=>'precision', -values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15'], -default=>'06'), "


"; print $q->hidden(-name=>'clustype', -value=>$clustype); print "
Help
";