[Moscow.pm] Платеж в ОСМП: кто-нибудь делал?

Thu, 03 May 2012 01:33:20 -0700 

Добрый всем день

Начал разбираться в ОСМП, и сразу попал в тупик

Код (для начала) простой, как грабли

my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $req = HTTP::Request->new(POST => 'http://xml1.osmp.ru/term2/xml.jsp');
$req->content_type('application/octet-stream');
$req->content('<?xml version="1.0"
encoding="utf-8"?>                                                              
                                                                   

<request>                                                                       
                                                                                
       

  <auth
signAlg="MD5"                                                                   
                                                                               

       
sign="9244cc4142b289371cf4f64f5c249ec2"                                         
                                                                               

       
login="erik0">                                                                  
                                                                         

    <client software="BankSkidok
0.1"                                                                            
                                                      

terminal="Александр"                                                            
                                                                                
       

           
serial="9276915">                                                               
                                                                           

     
<system>                                                                        
                                                                              

        <getResultCodes
/>                                                                              
                                                               

     
</system>                                                                       
                                                                              

   
</client>                                                                       
                                                                                
   

 
</auth>                                                                         
                                                                                
     

</request>                                                                      
                                                                                
       

');

# Pass request to the user agent and get a response
back                                                                            
                                   

my $res = $ua->request($req);

# Check the outcome of the
response                                                                        
                                                            

if ($res->is_success) {
  print $res->content;
}
else {
  print $res->status_line, "\n";
}

Все просто. Ответ тоже простой

<?xml version="1.0" encoding="windows-1251"?>
<response> <result-code fatal="true">202</result-code> </response>

Я что-то принципиально делаю не так. Но что?

Alex
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить