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

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

view plainprint?

1. $url = sprintf('%s://%s%s',  
2. 　$protocol,  
3. 　$_SERVER['SERVER_NAME'],  
4. 　$_SERVER['REQUEST_URI']  
5. );  

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

●改修後

view plainprint?

1. $serverName = $_SERVER['HTTP_X_FORWARDED_HOST'];  
2. if($serverName == "") $serverName = $_SERVER['SERVER_NAME'];  
3. $url = sprintf('%s://%s%s',  
4. 　$protocol,  
5. 　$serverName,  
6. 　$_SERVER['REQUEST_URI']  
7. );  

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

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