>>316　ここかな。

$r_host = @gethostbyaddr($r_addr);

gethostbyaddr関数の前の「@」が邪魔してんのかな。
無くても大丈夫だからとってみたら。
うちではあってもなくても動くけど。