link => {
rel => 'self',
href => $feed_opts->{atomurl} ||
- "http://example.com/atom",
+ "http://example.com/atom.xml",
},
id => $feed_opts->{address} || 'public-inbox@example.com',
updated => POSIX::strftime(DATEFMT, gmtime),
my $base = $cgi->url(-base);
$url_base = $cgi_url;
if ($url_base =~ s!/(?:|index\.html)?\z!!) {
- $rv{atomurl} = "$base$url_base/index.atom.xml";
+ $rv{atomurl} = "$base$url_base/atom.xml";
} else {
- $url_base =~ s!/?(?:index|all)\.atom\.xml\z!!;
+ $url_base =~ s!/atom\.xml\z!!;
$rv{atomurl} = $base . $cgi_url;
$url_base = $base . $url_base; # XXX is this needed?
}
} else {
$url_base = "http://example.com";
- $rv{atomurl} = "$url_base/index.atom.xml";
+ $rv{atomurl} = "$url_base/atom.xml";
}
$rv{url} ||= "$url_base/";
$rv{midurl} = "$url_base/m/";
sub dump_html_line {
my ($self, $level, $args) = @_; # args => [ $html, $midurl ]
- $args->[0] .= (' ' x $level);
if ($self->message) {
+ $args->[0] .= (' ' x $level);
my $simple = $self->message;
my $subj = utf8_header($simple, "Subject");
my $mid = utf8_header($simple, "Message-ID");
$from = xs_html($from);
$subj = xs_html($subj);
$args->[0] .= "<a href=\"$url.html\">$subj</a> $from\n";
- } else {
- $args->[0] .= "[ Message not available ]\n";
}
dump_html_line($self->child, $level+1, $args) if $self->child;
dump_html_line($self->next, $level, $args) if $self->next;
die "failed to setup string handle: $!\n";
binmode $fh;
my $bytes = $git->cat_blob($sha1, $fh);
- return if $bytes <= 0;
close $fh or die "failed to close string handle: $!\n";
+ return if $bytes <= 0;
} else {
$str = `git cat-file blob $sha1`;
return if $? != 0 || length($str) == 0;