[Bio] / FigKernelPackages / FIGGenDB.pm Repository:
ViewVC logotype

View of /FigKernelPackages/FIGGenDB.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Thu Oct 28 16:35:54 2004 UTC (15 years, 7 months ago) by olson
Branch: MAIN
Changes since 1.2: +2 -1 lines
Fix in linkClusterGenDB too.

package FIGGenDB;

use FIG;
use strict;

use Fcntl qw/:flock/;  # import LOCK_* constants

use POSIX;
use IPC::Open2;

use DBrtns;
use FIG_Config;

use constant GENDB_CGI => "http://localhost/GENDB/cgi-bin/";
use constant SEED_USER => "seed";
use constant SEED_PASS => 'seed';
use constant GENDB_PROJECT => "GenDB_SEED";


sub linkPEGGenDB {
    my ($peg) = @_;
    $peg =~ /fig\|(.+)\.peg/;
    my $taxon = $1;

    my $cgi = &FIG::plug_url(GENDB_CGI);
    
    return q(<a target="_blank" href=") . $cgi .
	"seed_interface.cgi?action=view&login=" . SEED_USER .
	"&pass=" . SEED_PASS . "&project=" . GENDB_PROJECT .
	"&region=$peg&taxon_id=$taxon\">To View in GenDB</a>\n";
}

sub linkClusterGenDB {
    my ($peg, $taxon) = @_;
    my $cgi = &FIG::plug_url(GENDB_CGI);
    my $html = "<form action=\"${cgi}seed_interface.cgi\">\n
                Action:<input type=\"text\" name=\"action\"/>\n
                Organism (taxon ID):<input type=\"text\" name=\"taxon_id\"/>\n
                [Start]:<input type=\"text\" name=\"start\"/>\n
                [Stop]:<input type=\"text\" name=\"stop\"/>\n
                <input type=\"hidden\" name=\"login\"/ value=\"".SEED_USER."\">\n
                <input type=\"hidden\" name=\"pass\"/ value=\"".SEED_PASS."\">\n
                <input type=\"submit\" name=\"GenDB\" value=\"GenDB\">\n 
                </form>";
    return $html;
}



1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3