[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.5, Fri Dec 5 14:31:23 2003 UTC revision 1.6, Fri Dec 19 20:09:34 2003 UTC
# Line 78  Line 78 
78      close(TMP);      close(TMP);
79  }  }
80    
 sub set_urls {  
   
     my $name = defined($FIG_Config::hostname) ? $FIG_Config::hostname : `hostname`;  
     if ($name)  
     {  
         chop $name;  
         my @tmp = `cat $FIG_Config::fig/Packages/FIG_Config.pm`;  
         open(TMP,">$FIG_Config::fig/Packages/FIG_Config.pm") || die "could not open $FIG_Config::fig/Packages/FIG_Config.pm";  
         my $line;  
         foreach $line (@tmp)  
         {  
             $line =~ s/((cgi|temp)_url.*\/\/)[^\/]+\/FIG/$1$name\/FIG/;  
             print TMP $line;  
         }  
         close(TMP);  
     }  
 }  
   
81  sub cgi_url {  sub cgi_url {
82      return &plug_url($FIG_Config::cgi_url);      return &plug_url($FIG_Config::cgi_url);
83  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3