2012-03-08 68 views

回答

0

我在缓存机器中托管了一个cgi脚本,它监听http请求并执行squidclient。

use CGI qw(:standard); 

$urltopurge=param("url"); 

print $urltopurge; 

print header(); 

print "Trying to purge <b>$urltopurge</b><P>"; 

print "sending command <B>squidclient -v -m PURGE -h 172.24.133.181 -p 8081 $urltopurge</b> to proxy server<P><HR><b>Server Response:</b><P>"; 

$result = system ("C:\\squid\\bin\\squidclient.exe -v -m PURGE -p 8081 $urltopurge"); 

print $result; 

print "<hr>"; 

print "purger.cgi - Praveen";