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

View of /FigKernelPackages/FIGGenDB.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Oct 22 17:05:18 2004 UTC (15 years, 7 months ago) by heiko
Branch: MAIN
gendb params and methods

package FIGGenDB;

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/GENDB2.2/gendb-cgi/";
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;
    return "<a target=\"_blank\" href=\"".GENDB_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 $html = "<form action=\"".GENDB_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