[Bio] / FigWebServices / link.cgi Repository:
ViewVC logotype

View of /FigWebServices/link.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (download) (annotate)
Wed Feb 27 02:05:39 2008 UTC (11 years, 8 months ago) by parrello
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, myrast_rel40, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
Changes since 1.5: +16 -33 lines
Updated to direct users to the seed viewer.

#!/usr/bin/perl -w

=head1 Protein Page Link

This is a simple redirection script that takes a string as input and opens
the appropriate page.

This script supports the following CGI query parameters.

=over 4

=item id

ID of the desired feature. This can be a FIG ID or an alias. If it is preceded
by C<nmpdr|>, then we will try to force the Sprout protein page.

=item sop

ID of a procedure in the SEED wiki.

=back

=cut

use strict;
use Tracer;
use CGI;
use URI::Escape;

my $url;

my $cgi = CGI->new();
ETracing($cgi);
eval {
    # Get the possible IDs.
    my $sopID = $cgi->param('sop');
    my $genomeID = $cgi->param('genome');
    my $pegID = $cgi->param('id');
    if ($sopID) {
        # This is for the annotation SOP.
        if ($sopID =~ /SOP010/i) {
            $url = "http://www.theseed.org/w/images/2/23/Annotation_sop.pdf";
        } else {
            Confess("Invalid SOP number");
        }
    } elsif ($genomeID) {
        # Here we have an organism ID.
        my $escapedID = uri_escape($genomeID);
        $url = "$FIG_Config::nmpdr_site_url/FIG/seedviewer.cgi?page=BrowseGenome&organism=$escapedID";
    } elsif ($pegID) {
        # Here we have a PEG ID.
        my $escapedID = uri_escape($1);
        $url = "$FIG_Config::nmpdr_site_url/FIG/seedviewer.cgi?page=Annotation&feature=$escapedID"
    } else {
        Confess("Unrecognized identifier.");
    }
    print $cgi->redirect(-uri => $url);
};
if ($@) {
    # Get the error message.
    my $errorMessage = $@;
    Trace("Script Error: $errorMessage") if T(0);
    # Display the error message. Note that unlike most situations,
    # we have to write a content header. This is because we have a
    # redirection script rather than a standard CGI script.
    print "CONTENT-TYPE: text/html\n\n";
    print "<html><body>\n";
    print $cgi->h3("Error in redirection: $errorMessage") . "\n";
    print "</body></html>\n\n";
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3