Changeset 55

Show
Ignore:
Timestamp:
02/17/06 23:10:22 (3 years ago)
Author:
miya
Message:

support PUT and DELETE method.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • atom_client/trunk/lib/AtomClient.pm

    r54 r55  
    1919 
    2020    my %method_map = ( 
    21                   GET  => 'getFeed', 
    22                   POST => 'createEntry', 
     21                  GET    => 'getFeed', 
     22                  POST   => 'createEntry', 
     23                  PUT    => 'updateEntry', 
     24                  DELETE => 'deleteEntry', 
    2325              ); 
    2426 

  • atom_client/trunk/lib/My/XML/Atom/Client.pm

    r54 r55  
    4040} 
    4141 
     42sub updateEntry { 
     43    my $client = shift; 
     44    my($url, $entry) = @_; 
     45    my $req = HTTP::Request->new(PUT => $url); 
     46    $req->content_type('application/x.atom+xml'); 
     47    my $xml = $entry->as_xml; 
     48    _utf8_off($xml); 
     49    $req->content_length(length $xml); 
     50    $req->content($xml); 
     51    my $res = $client->make_request($req); 
     52    #return $client->error("Error on PUT $url: " . $res->status_line) 
     53    #    unless $res->code == 200; 
     54    return (undef, $req, $res); 
     55} 
     56 
     57sub deleteEntry { 
     58    my $client = shift; 
     59    my($url) = @_; 
     60    my $req = HTTP::Request->new(DELETE => $url); 
     61    my $res = $client->make_request($req); 
     62    #return $client->error("Error on DELETE $url: " . $res->status_line) 
     63    #    unless $res->code == 200; 
     64    return (undef, $req, $res); 
     65} 
     66 
    4267sub _utf8_off { 
    4368    if ($] >= 5.008) {