#!/usr/bin/perl

# use strict for better code writing
use strict;

# use CGI.pm for web interaction
use CGI;

# avoid buffering problems
$|=1;

my $query = new CGI;

my $text = $query->param('text');
$text =~ s/ /+/g;
my $tool = $query->param('tool');
my $url = "";

if ($tool eq "amigo") {
# AmiGO
# old URL:    $url = "http://godatabase.org/cgi-bin/go.cgi?view=query&query=";
    $url = "http://www.godatabase.org/cgi-bin/amigo/go.cgi?action=query&view=query&search_constraint=terms&query=";
} elsif ($tool eq "jax") {
# Jax Labs GO Browser
    $url = "http://www.informatics.jax.org/searches/GO.cgi?ontologies=Molecular+Function&ontologies=Biological+Process&ontologies=Cellular+Component&query=";
} elsif ($tool eq "quickgo") {
# QuickGO
    $url = "http://www2.ebi.ac.uk/ego/QuickGO?mode=search&entry=&querytype=simpleregex&query=";
} elsif ($tool eq "epgo") {
# EP:GO
    $url = "http://ep.ebi.ac.uk/EP/GO/index.cgi?Q=";
}

# Now Redirect to Browser
print "Location: " . $url . $text . "\n";
print "Content-type: text/html\n\n";

exit;