← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:43 2013

Filename/usr/lib/perl/5.10/Sys/Hostname.pm
StatementsExecuted 20 statements in 977µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11134µs282µsSys::Hostname::::BEGIN@17Sys::Hostname::BEGIN@17
11122µs48µsSys::Hostname::::BEGIN@3Sys::Hostname::BEGIN@3
11113µs55µsSys::Hostname::::BEGIN@5Sys::Hostname::BEGIN@5
0000s0sSys::Hostname::::hostnameSys::Hostname::hostname
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Sys::Hostname;
2
3338µs274µs
# spent 48µs (22+26) within Sys::Hostname::BEGIN@3 which was called: # once (22µs+26µs) by Mail::Sendmail::BEGIN@56 at line 3
use strict;
# spent 48µs making 1 call to Sys::Hostname::BEGIN@3 # spent 26µs making 1 call to strict::import
4
53144µs297µs
# spent 55µs (13+42) within Sys::Hostname::BEGIN@5 which was called: # once (13µs+42µs) by Mail::Sendmail::BEGIN@56 at line 5
use Carp;
# spent 55µs making 1 call to Sys::Hostname::BEGIN@5 # spent 42µs making 1 call to Exporter::import
6
71700nsrequire Exporter;
81400nsrequire AutoLoader;
9
10114µsour @ISA = qw/ Exporter AutoLoader /;
111600nsour @EXPORT = qw/ hostname /;
12
131200nsour $VERSION;
14
151100nsour $host;
16
17
# spent 282µs (34+248) within Sys::Hostname::BEGIN@17 which was called: # once (34µs+248µs) by Mail::Sendmail::BEGIN@56 at line 27
BEGIN {
1812µs $VERSION = '1.11';
19 {
20211µs local $SIG{__DIE__};
211800ns eval {
221600ns require XSLoader;
231262µs1248µs XSLoader::load('Sys::Hostname', $VERSION);
# spent 248µs making 1 call to XSLoader::load
24 };
2513µs warn $@ if $@;
26 }
271495µs1282µs}
# spent 282µs making 1 call to Sys::Hostname::BEGIN@17
28
29
30sub hostname {
31
32 # method 1 - we already know it
33 return $host if defined $host;
34
35 # method 1' - try to ask the system
36 $host = ghname() if defined &ghname;
37 return $host if defined $host;
38
39 if ($^O eq 'VMS') {
40
41 # method 2 - no sockets ==> return DECnet node name
42 eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
43 if ($@) { return $host = $ENV{'SYS$NODE'}; }
44
45 # method 3 - has someone else done the job already? It's common for the
46 # TCP/IP stack to advertise the hostname via a logical name. (Are
47 # there any other logicals which TCP/IP stacks use for the host name?)
48 $host = $ENV{'ARPANET_HOST_NAME'} || $ENV{'INTERNET_HOST_NAME'} ||
49 $ENV{'MULTINET_HOST_NAME'} || $ENV{'UCX$INET_HOST'} ||
50 $ENV{'TCPWARE_DOMAINNAME'} || $ENV{'NEWS_ADDRESS'};
51 return $host if $host;
52
53 # method 4 - does hostname happen to work?
54 my($rslt) = `hostname`;
55 if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; }
56 return $host if $host;
57
58 # rats!
59 $host = '';
60 croak "Cannot get host name of local machine";
61
62 }
63 elsif ($^O eq 'MSWin32') {
64 ($host) = gethostbyname('localhost');
65 chomp($host = `hostname 2> NUL`) unless defined $host;
66 return $host;
67 }
68 elsif ($^O eq 'epoc') {
69 $host = 'localhost';
70 return $host;
71 }
72 else { # Unix
73 # is anyone going to make it here?
74
75 local $ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia.
76
77 # method 2 - syscall is preferred since it avoids tainting problems
78 # XXX: is it such a good idea to return hostname untainted?
79 eval {
80 local $SIG{__DIE__};
81 require "syscall.ph";
82 $host = "\0" x 65; ## preload scalar
83 syscall(&SYS_gethostname, $host, 65) == 0;
84 }
85
86 # method 2a - syscall using systeminfo instead of gethostname
87 # -- needed on systems like Solaris
88 || eval {
89 local $SIG{__DIE__};
90 require "sys/syscall.ph";
91 require "sys/systeminfo.ph";
92 $host = "\0" x 65; ## preload scalar
93 syscall(&SYS_systeminfo, &SI_HOSTNAME, $host, 65) != -1;
94 }
95
96 # method 3 - trusty old hostname command
97 || eval {
98 local $SIG{__DIE__};
99 local $SIG{CHLD};
100 $host = `(hostname) 2>/dev/null`; # bsdish
101 }
102
103 # method 4 - use POSIX::uname(), which strictly can't be expected to be
104 # correct
105 || eval {
106 local $SIG{__DIE__};
107 require POSIX;
108 $host = (POSIX::uname())[1];
109 }
110
111 # method 5 - sysV uname command (may truncate)
112 || eval {
113 local $SIG{__DIE__};
114 $host = `uname -n 2>/dev/null`; ## sysVish
115 }
116
117 # method 6 - Apollo pre-SR10
118 || eval {
119 local $SIG{__DIE__};
120 my($a,$b,$c,$d);
121 ($host,$a,$b,$c,$d)=split(/[:\. ]/,`/com/host`,6);
122 }
123
124 # bummer
125 || croak "Cannot get host name of local machine";
126
127 # remove garbage
128 $host =~ tr/\0\r\n//d;
129 $host;
130 }
131}
132
13315µs1;
134
135__END__