[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.27, Tue Feb 3 16:45:57 2004 UTC revision 1.28, Tue Feb 10 22:35:57 2004 UTC
# Line 133  Line 133 
133              my @rev = gethostbyaddr($ip, AF_INET);              my @rev = gethostbyaddr($ip, AF_INET);
134              if (@rev > 0)              if (@rev > 0)
135              {              {
136                  return $rev[0];                  my $host = $rev[0];
137                    #
138                    # Check to see if we have a FQDN.
139                    #
140    
141                    if ($host =~ /\./)
142                    {
143                        #
144                        # Good.
145                        #
146                        return $host;
147                    }
148                    else
149                    {
150                        #
151                        # We didn't get a fqdn; bail and return the IP address.
152                        #
153                        return get_hostname_by_adapter()
154                    }
155              }              }
156              else              else
157              {              {

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3