[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.51, Fri Mar 26 13:01:46 2004 UTC revision 1.52, Fri Mar 26 21:38:38 2004 UTC
# Line 112  Line 112 
112  }  }
113    
114  sub get_local_hostname {  sub get_local_hostname {
115    
116        #
117        # See if there is a FIGdisk/config/hostname file. If there
118        # is, force the hostname to be that.
119        #
120    
121        my $hostfile = "$FIG_Config::fig_disk/config/hostname";
122        if (-f $hostfile)
123        {
124            my $fh;
125            if (open($fh, $hostfile))
126            {
127                my $hostname = <$fh>;
128                chomp($hostname);
129                return $hostname;
130            }
131        }
132    
133      #      #
134      # First check to see if we our hostname is correct.      # First check to see if we our hostname is correct.
135      #      #

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3