* Add support for links of the form [[../foo]], this links to the page

* Fix code to make absolute urls for rss feeds, was missing some urls.
* Fix double-escaping of html entities in titles etc in rss feeds
  that occured if escaped characters were present in the page filename.

1 files changed, 6 insertions, 7 deletions

diff --git a/IkiWiki/Plugin/inline.pm b/IkiWiki/Plugin/inline.pm
index 78a8813a3..70b353ec5 100644
--- a/IkiWiki/Plugin/inline.pm
+++ b/IkiWiki/Plugin/inline.pm
@@ -37,7 +37,6 @@ sub checkconfig () { #{{{
 		error("Must specify url to wiki with --url when using --rss or --atom");
 	}
 	if ($config{rss}) {
-		print STDERR "!!\n";
 		push @{$config{wiki_file_prune_regexps}}, qr/\.rss$/;
 	}
 	if ($config{atom}) {
@@ -265,8 +264,8 @@ sub absolute_urls ($$) { #{{{
 	$url=~s/[^\/]+$//;
 	
 	$content=~s/(<a(?:\s+(?:class|id)="?\w+"?)?)\s+href="(#[^"]+)"/$1 href="$baseurl$2"/ig;
-	$content=~s/(<a(?:\s+(?:class|id)="?\w+"?)?)\s+href="(?![^:]+:\/\/)([^"]+)"/$1 href="$url$2"/ig;
-	$content=~s/(<img(?:\s+(?:class|id)="?\w+"?)?)\s+src="(?![^:]+:\/\/)([^"]+)"/$1 src="$url$2"/ig;
+	$content=~s/(<a(?:\s+(?:class|id)="?\w+"?)?)\s+href="(?!\w+:\/\/)([^"]+)"/$1 href="$url$2"/ig;
+	$content=~s/(<img(?:\s+(?:class|id)="?\w+"?)?)\s+src="(?!\w+:\/\/)([^"]+)"/$1 src="$url$2"/ig;
 	return $content;
 } #}}}
 
@@ -300,7 +299,7 @@ sub genfeed ($$$$@) { #{{{
 		my $pcontent = absolute_urls(get_inline_content($p, $page), $url);
 
 		$itemtemplate->param(
-			title => pagetitle(basename($p)),
+			title => pagetitle(basename($p), 1),
 			url => $u,
 			permalink => $u,
 			date_822 => date_822($pagectime{$p}),
@@ -344,7 +343,7 @@ sub genfeed ($$$$@) { #{{{
 
 	my $template=template($feedtype."page.tmpl", blind_cache => 1);
 	$template->param(
-		title => $page ne "index" ? pagetitle($page) : $config{wikiname},
+		title => $page ne "index" ? pagetitle($page, 1) : $config{wikiname},
 		wikiname => $config{wikiname},
 		pageurl => $url,
 		content => $content,
@@ -384,14 +383,14 @@ sub pingurl (@) { #{{{
 	IkiWiki::unlockwiki();
 
 	foreach my $page (keys %toping) {
-		my $title=pagetitle(basename($page));
+		my $title=pagetitle(basename($page), 0);
 		my $url="$config{url}/".htmlpage($page);
 		foreach my $pingurl (@{$config{pingurl}}) {
 			debug("Pinging $pingurl for $page");
 			eval {
 				my $client = RPC::XML::Client->new($pingurl);
 				my $req = RPC::XML::request->new('weblogUpdates.ping',
-				$title, $url);
+					$title, $url);
 				my $res = $client->send_request($req);
 				if (! ref $res) {
 					debug("Did not receive response to ping");