/[suikacvs]/markup/html/whatpm/mkcommitfeed.pl
Suika

Diff of /markup/html/whatpm/mkcommitfeed.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wakaba, Tue Oct 21 05:18:22 2008 UTC revision 1.5 by wakaba, Tue Oct 21 06:18:59 2008 UTC
# Line 53  unless (defined $entry_content) { Line 53  unless (defined $entry_content) {
53  }  }
54    
55  if ($entry_content =~ /^(\d+)-(\d+)-(\d+)\s+(.+)<([^<>]+)>/m) {  if ($entry_content =~ /^(\d+)-(\d+)-(\d+)\s+(.+)<([^<>]+)>/m) {
56    $entry_date //= timegm (0, 0, 0, $3, $2-1, $1);  #  $entry_date //= timegm (0, 0, 0, $3, $2-1, $1);
57    $entry_author_name //= $4;    $entry_author_name //= $4;
58    $entry_author_mail //= $5;    $entry_author_mail //= $5;
59    $entry_author_name =~ s/\s+$//;    $entry_author_name =~ s/\s+$//;
# Line 93  unless ($feed) { Line 93  unless ($feed) {
93    $feed = $doc->create_element_ns ('http://www.w3.org/2005/Atom', 'feed');    $feed = $doc->create_element_ns ('http://www.w3.org/2005/Atom', 'feed');
94    $doc->append_child ($feed);    $doc->append_child ($feed);
95  }  }
96    $feed->set_attribute_ns ('http://www.w3.org/2000/xmlns/',
97                             'xmlns', $feed->namespace_uri);
98    
99  unless (@{$feed->author_elements}) {  unless (@{$feed->author_elements}) {
100    if (defined $feed_author_name) {    if (defined $feed_author_name) {
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24