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

Diff of /FigKernelPackages/FIGGenDB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3, Thu Oct 28 16:35:54 2004 UTC revision 1.4, Thu Nov 11 04:22:48 2004 UTC
# Line 4  Line 4 
4  use strict;  use strict;
5    
6  use Fcntl qw/:flock/;  # import LOCK_* constants  use Fcntl qw/:flock/;  # import LOCK_* constants
7    use CGI;
8  use POSIX;  use POSIX;
9  use IPC::Open2;  use IPC::Open2;
10    
11  use DBrtns;  use DBrtns;
12  use FIG_Config;  use FIG_Config;
13    
14  use constant GENDB_CGI => "http://localhost/GENDB/cgi-bin/";  
15  use constant SEED_USER => "seed";  use constant GENDB_CGI => "/GENDB/cgi-bin/";
 use constant SEED_PASS => 'seed';  
 use constant GENDB_PROJECT => "GenDB_SEED";  
16    
17    
18  sub linkPEGGenDB {  sub linkPEGGenDB {
# Line 25  Line 23 
23      my $cgi = &FIG::plug_url(GENDB_CGI);      my $cgi = &FIG::plug_url(GENDB_CGI);
24    
25      return q(<a target="_blank" href=") . $cgi .      return q(<a target="_blank" href=") . $cgi .
26          "seed_interface.cgi?action=view&login=" . SEED_USER .          "seed_interface.cgi?action=view".
         "&pass=" . SEED_PASS . "&project=" . GENDB_PROJECT .  
27          "&region=$peg&taxon_id=$taxon\">To View in GenDB</a>\n";          "&region=$peg&taxon_id=$taxon\">To View in GenDB</a>\n";
28  }  }
29    
30    sub importOrganismGenDB {
31        my ($peg) = @_;
32        $peg =~ /fig\|(.+)\.peg/;
33        my $taxon = $1;
34    
35        my $cgi = &FIG::plug_url(GENDB_CGI);
36    
37        return q(<a target="_blank" href=") . $cgi .
38            "seed_interface.cgi?action=import".
39            "&taxon_id=$taxon\">Import Organism into GenDB</a>\n";
40    
41    }
42    
43  sub linkClusterGenDB {  sub linkClusterGenDB {
44      my ($peg, $taxon) = @_;      my ($peg, $taxon) = @_;
45      my $cgi = &FIG::plug_url(GENDB_CGI);      my $cgi = &FIG::plug_url(GENDB_CGI);
46      my $html = "<form action=\"${cgi}seed_interface.cgi\">\n      my $html = "<form target=\"_blank\" action=\"${cgi}seed_interface.cgi\">\n
47                  Action:<input type=\"text\" name=\"action\"/>\n                  Bound1<input type=\"text\" id=\"bound1\" name=\"bound1\"/>\n
48                  Organism (taxon ID):<input type=\"text\" name=\"taxon_id\"/>\n                  Bound2<input type=\"text\" id=\"bound2\" name=\"bound2\"/>\n
49                  [Start]:<input type=\"text\" name=\"start\"/>\n                  Candidate(s):<input type=\"text\" id=\"candidates\" name=\"candidates\"/>\n
50                  [Stop]:<input type=\"text\" name=\"stop\"/>\n                  Threshold<input type=\"text\" name=\"fmgth\" value=\"1e-20\"/>\n
51                  <input type=\"hidden\" name=\"login\"/ value=\"".SEED_USER."\">\n                  <input type=\"hidden\" name=\"action\" value=\"predict\"/>\n
52                  <input type=\"hidden\" name=\"pass\"/ value=\"".SEED_PASS."\">\n                  <input type=\"hidden\" name=\"peg_id\" value=\"$peg\"/>\n
53                  <input type=\"submit\" name=\"GenDB\" value=\"GenDB\">\n                  <input type=\"submit\" name=\"GenDB\" value=\"Find uncalled Gene\"/>\n
54                  </form>";                  </form>";
55      return $html;      return $html;
56  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3