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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.2, Wed Dec 3 19:39:29 2003 UTC revision 1.3, Wed Dec 3 21:24:31 2003 UTC
# Line 53  Line 53 
53                  my @tmp = `cut -f1 $FIG_Config::organisms/$genome/Features/peg/tbl`;                  my @tmp = `cut -f1 $FIG_Config::organisms/$genome/Features/peg/tbl`;
54                  chop @tmp;                  chop @tmp;
55  #               &run("cat $FIG_Config::organisms/$genome/Features/peg/fasta >> $FIG_Config::data/Global/nr");  #               &run("cat $FIG_Config::organisms/$genome/Features/peg/fasta >> $FIG_Config::data/Global/nr");
56                  &make_similarities(\@tmp);  #               &make_similarities(\@tmp);
57              }              }
58              if ((-s "$FIG_Config::organisms/$genome/assigned_functions") ||              if ((-s "$FIG_Config::organisms/$genome/assigned_functions") ||
59                  (-d "$FIG_Config::organisms/$genome/UserModels"))                  (-d "$FIG_Config::organisms/$genome/UserModels"))
# Line 79  Line 79 
79  }  }
80    
81  sub set_urls {  sub set_urls {
82      my $name = `hostname`;  
83        my $name = defined($FIG_Config::hostname) ? $FIG_Config::hostname : `hostname`;
84      if ($name)      if ($name)
85      {      {
86          chop $name;          chop $name;
# Line 106  Line 107 
107  sub plug_url {  sub plug_url {
108      my($url) = @_;      my($url) = @_;
109    
110      my $name = `hostname`;      my $name = defined($FIG_Config::hostname) ? $FIG_Config::hostname : `hostname`;
111      if ($name && ($url =~ /^http:\/\/[^\/]+(.*)/))      if ($name && ($url =~ /^http:\/\/[^\/]+(.*)/))
112      {      {
113          $url = "http://$name$1";          $url = "http://$name$1";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3