#!/tools/perl/current/bin/perl -I/share/daisy/www-data/lib/SGD
#####################################################################
#         Program : goCuration                                      #
#         Author  : Shuai Weng                                      #
#         Date    : August 2000                                     #
#    Description : This script is used for sgd curators to update,  #
#                  insert or delete go related stuff in oracle      #
#                  database.                                        # 
#####################################################################

use strict; 
use CGI qw/:all :html3/;
use Go;

my $type = param('type');
my $feat = param('feat');
my $user = param('user'); 
uc $user;

my $help = "usingGO.html";
my $title = "GO Curation Page";
my $database = "sgd";

$| = 1;

####################################################################

my $go = Go->new(type=>$type,
		 feat=>$feat,
		 help=>$help,
		 title=>$title,
		 database=>$database,
		 user=>$user);

$go->start;
####################################################################

exit;