/[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.1 by wakaba, Tue Oct 21 05:03:24 2008 UTC revision 1.2 by wakaba, Tue Oct 21 05:17:48 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;
16    my $feed_license_url;
17    my $feed_rights;
18  my $entry_content;  my $entry_content;
19  my $entry_author_name;  my $entry_author_name;
20  my $entry_author_mail;  my $entry_author_mail;
# Line 27  GetOptions ( Line 30  GetOptions (
30    'feed-author-name=s' => \$feed_author_name,    'feed-author-name=s' => \$feed_author_name,
31    'feed-author-url=s' => \$feed_author_url,    'feed-author-url=s' => \$feed_author_url,
32    'feed-lang=s' => \$feed_lang,    'feed-lang=s' => \$feed_lang,
33      'feed-license-url=s' => \$feed_license_url,
34      'feed-related-url=s' => \$feed_related_url,
35      'feed-rights=s' => \$feed_rights,
36    'feed-title=s' => \$feed_title,    'feed-title=s' => \$feed_title,
37    'feed-url=s' => \$feed_url,    'feed-url=s' => \$feed_url,
38    'file-name=s' => \$file_name,    'file-name=s' => \$file_name,
# Line 104  unless (@{$feed->link_elements}) { Line 110  unless (@{$feed->link_elements}) {
110    $link_self->hreflang ($feed_lang);    $link_self->hreflang ($feed_lang);
111    $link_self->href ($feed_url);    $link_self->href ($feed_url);
112    $feed->append_child ($link_self);    $feed->append_child ($link_self);
113    
114      if (defined $feed_related_url) {
115        my $link = $doc->create_element_ns ($feed->namespace_uri, 'link');
116        $link->rel ('related');
117        $link->href ($feed_related_url);
118        $feed->append_child ($link);
119      }
120    
121      if (defined $feed_license_url) {
122        my $link = $doc->create_element_ns ($feed->namespace_uri, 'link');
123        $link->rel ('license');
124        $link->href ($feed_license_url);
125        $feed->append_child ($link);
126      }
127    }
128    
129    if (defined $feed_rights) {
130      $feed->rights_element->text_content ($feed_rights);
131  }  }
132    
133  my $entry_id = 'entry-' . time;  my $entry_id = 'entry-' . time;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24