tmhUtilities::php_self()のリバプロ非対応な件

tmhUtilities::php_self();が、リバースプロキシのときに、ちゃんと動いてませんねー。
よって改修しますよ。
●改修前

$url = sprintf('%s://%s%s',
　$protocol,
　$_SERVER['SERVER_NAME'],
　$_SERVER['REQUEST_URI']
);

●改修後

$serverName = $_SERVER['HTTP_X_FORWARDED_HOST'];
if($serverName == "") $serverName = $_SERVER['SERVER_NAME'];
$url = sprintf('%s://%s%s',
　$protocol,
　$serverName,
　$_SERVER['REQUEST_URI']
);

いやしかし、リバプロ対応に関する修正って、いままで数限りなくやってるんですが、いまだになくなりません^^;^^;