要改写一段php程序

unix666

下面这段php程序，是在http://code.google.com/p/opm-ser ... er/php/opm.php?r=53
找到的，是用来帮助手机opera mini浏览器连接服务器的。现在有个cgi空间，想用Perl实现同样的功能，是否需要安装www::curl模块？代码里的php://input在Perl里要怎么弄？谢谢

1. 
   
2. <?php
   
3. if ($_SERVER['REQUEST_METHOD'] == 'GET') {
   
4. if (function_exists("curl_init")) {
   
5.   if (!$_GET["test"] != null) {
   
6.    header( "HTTP/1.1 301 Moved Permanently" );
   
7.    header( "Location: http://www.google.com/ncr" );
   
8.   } else {
   
9.    echo 'Hello Opera Mini Server! ';
   
10.   }
    
11. } else {
    
12.   echo 'cURL is not enabled.';
    
13. }
    
14. } else {
    
15. $curlInterface = curl_init();
    
16. $headers[] = 'Connection: Keep-Alive';
    
17. $headers[] = 'content-type: application/xml';
    
18. $headers[] = 'User-Agent: Java0';
    
19. curl_setopt_array($curlInterface, array(
    
20.   CURLOPT_URL => 'http://server4.operamini.com',
    
21.   CURLOPT_HTTPHEADER => $headers,
    
22.   CURLOPT_POST => 1,
    
23.   CURLOPT_POSTFIELDS => @file_get_contents('php://input'))
    
24.     );
    
25. $result = curl_exec($curlInterface);
    
26. curl_close($curlInterface);
    
27. header('Content-Type: application/octet-stream');
    
28. header('Cache-Control: private, no-cache');
    
29. echo $result;
    
30. }
    
31. ?>
    

复制代码

unix666

今晚又看了一下，'php://input'在perl里应该就是cgi得到的未经处理的$buffer。这个程序感觉用lwp应该可以做到，写了一个，放在cgi空间里经过运行是有问题的，浏览网址手机浏览器没反应。

4.27 更新代码 这段程序放在cgi空间里，手机浏览器尽管会提示"d43连接错误"或"验证服务器证书失败"，但有时会显示出部分页面，这说明还要对程序做细小的修改。

1. 
   
2. #!/usr/bin/perl
   
3. use LWP;
   
4. use LWP::UserAgent;
   
5. 
   
6. my $browser = new LWP::UserAgent(keep_alive => 1);
   
7. 
   
8. my $url = 'http://82.145.209.253';
   
9. my $header =new HTTP::Headers;
   
10. 
    
11. if($ENV{'REQUEST_METHOD'}eq"GET"){
    
12. print "Location: http://www.google.com\n\n";
    
13. }
    
14. elsif($ENV{'REQUEST_METHOD'}eq"POST"){
    
15. read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
    
16. 
    
17. $header->content_type('application/xml');
    
18. $header->user_agent('Java0');
    
19. $header->content_length(length($buffer));
    
20. 
    
21. $request = HTTP::Request->new(POST=>$url,$header,$buffer);
    
22. $response = $browser->request($request);
    
23. 
    
24. print "Cache-Control: private, no-cache\n";
    
25. print "Content-Type: application/octet-stream\n\n";
    
26. 
    
27. print $response->content;
    
28. }
    
29. 
    

复制代码