Lines Matching refs:parent
34 # the parent process handles caching of IP->hostnames using a Perl hash
72 my $parent = $$;
78 $filename = "./.socket.$parent.$child";
86 &parent;
94 if (-e "./.socket.$parent.$child") {
95 unlink("./.socket.$parent.$child")
96 || warn ".socket.$parent.$child $!";
101 sub parent {
109 ## to this parent and use an unique temp filename to do so.
114 warn "parent socket to child failed $!";
116 $filename = "./.socket.$parent.$child";
170 # arg = numeric ID - how the parent refers to me
176 # create a socket to communicate with parent
179 $filename = "./.socket.$parent.$me";
187 # accept a connection from the parent process. We only ever have
189 # parent.. 1 line in (IP address), 1 line out (IP + hostname).
193 # while the parent keeps sending data, we keep responding..