Changeset 8606 for lang/perl/XML-Atom-Server-Lite

Timestamp:

04/01/08 20:00:14 (5 years ago)

Author:

mattn

Message:

lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite.pm,
lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite/Entry.pm,
lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite/Feed.pm:

• fixed authentication about WSSE.
  
• added some accessors for Entry and Feed.
  

Location:

lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server

Files:

• Lite.pm (modified) (2 diffs)
• Lite/Entry.pm (modified) (3 diffs)
• Lite/Feed.pm (modified) (1 diff)

lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite.pm

@@ -234 +234 @@
 }
 
+sub uri {
+    my $server = shift;
+    $ENV{MOD_PERL} ? $server->{apache}->uri : $server->{cgi}->url;
+}
+
 sub path_info {
     my $server = shift;
@@ -274 +279 @@
             unless $auth->{$f};
     }
+    $auth->{Nonce} = decode_base64($auth->{Nonce}) if $auth->{Nonce} !~ /==$/;
     my $password = $server->password_for_user($auth->{Username});
     defined($password) or return $server->auth_failure(403, 'Invalid login');
     my $expected = encode_base64(sha1(
-           decode_base64($auth->{Nonce}) . $auth->{Created} . $password
+           $auth->{Nonce} . $auth->{Created} . $password
     ), '');
     return $server->auth_failure(403, 'Invalid login')

lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite/Entry.pm

@@ -95 +95 @@
         $xml .= "  <link"
              .  " rel=".XML::Atom::Server::Lite::qquote($link->{rel})
+             .  " title=".XML::Atom::Server::Lite::qquote($link->{title})
              .  " type=".XML::Atom::Server::Lite::qquote($link->{type})
              .  " href=".XML::Atom::Server::Lite::qquote($link->{href})."/>\n";
@@ -101 +102 @@
            . XML::Atom::Server::Lite::encode_xml($self->{title})
            . "</title>\n" if $self->{title};
+    $xml .= "  <icon>"
+           . XML::Atom::Server::Lite::encode_xml($self->{icon})
+           . "</icon>\n" if $self->{icon};
+    $xml .= "  <logo>"
+           . XML::Atom::Server::Lite::encode_xml($self->{logo})
+           . "</logo>\n" if $self->{logo};
     $xml .= "  <content"
          .  " mode=".XML::Atom::Server::Lite::qquote($self->{content}->{mode})
@@ -115 +122 @@
                . "</dc:subject>\n";
     }
+    $xml .= "  <published>"
+           . XML::Atom::Server::Lite::encode_xml($self->{published})
+           . "</published>\n" if $self->{published};
+    $xml .= "  <updated>"
+           . XML::Atom::Server::Lite::encode_xml($self->{updated})
+           . "</updated>\n" if $self->{updated};
     $xml .= " </entry>\n";
 }

lang/perl/XML-Atom-Server-Lite/trunk/lib/XML/Atom/Server/Lite/Feed.pm

@@ -85 +85 @@
     my $self = shift;
     my $xml = "";
-    $xml .= "<feed xmlns=\"http://purl.org/atom/ns#\" xmlns:dc=\"http://purl.org/dc/elements/1.1/\">";
+    $xml .= "<feed xmlns=\"http://purl.org/atom/ns#\" xmlns:dc=\"http://purl.org/dc/elements/1.1/\">\n";
+    $xml .= " <title>"
+           . XML::Atom::Server::Lite::encode_xml($self->{title})
+           . "</title>\n" if $self->{title};
+    for my $link (@{$self->{link}}) {
+        $xml .= " <link"
+             .  " rel=".XML::Atom::Server::Lite::qquote($link->{rel})
+             .  " title=".XML::Atom::Server::Lite::qquote($link->{title})
+             .  " type=".XML::Atom::Server::Lite::qquote($link->{type})
+             .  " href=".XML::Atom::Server::Lite::qquote($link->{href})."/>\n";
+    }
+    $xml .= " <updated>"
+           . XML::Atom::Server::Lite::encode_xml($self->{updated})
+           . "</updated>\n" if $self->{updated};
     for my $entry (@{$self->{entries}}) {
         $xml .= $entry->to_xml;