/[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.2 by wakaba, Tue Oct 21 05:17:48 2008 UTC revision 1.4 by wakaba, Tue Oct 21 06:17:52 2008 UTC
# Line 12  my $feed_author_name; Line 12  my $feed_author_name;
12  my $feed_author_mail;  my $feed_author_mail;
13  my $feed_author_url;  my $feed_author_url;
14  my $feed_lang = 'i-default';  my $feed_lang = 'i-default';
15  my $feed_realated_url;  my $feed_related_url;
16  my $feed_license_url;  my $feed_license_url;
17  my $feed_rights;  my $feed_rights;
18  my $entry_content;  my $entry_content;
# 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 ('xmlns', $feed->namespace_uri);
97    
98  unless (@{$feed->author_elements}) {  unless (@{$feed->author_elements}) {
99    if (defined $feed_author_name) {    if (defined $feed_author_name) {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24