add rss button

[ikiwiki.git] / ikiwiki

diff --git a/ikiwiki b/ikiwiki
index 9e9c293544170cb61ed6a60310e7967496825098..d1173d399fe330f503c173f916dca2ff5fe1851d 100755 (executable)
--- a/ikiwiki
+++ b/ikiwiki
@@ -252,6 +252,19 @@ sub pagetitle ($) { #{{{
        return $page;
 } #}}}
 
+sub titlepage ($) { #{{{
+       my $title=shift;
+       $title=~y/ /_/;
+       $title=~s/([^-A-Za-z0-9_:+\/.])/"__".ord($1)."__"/eg;
+       return $title;
+} #}}}
+
+sub cgiurl (@) { #{{{
+       my %params=@_;
+
+       return $config{cgiurl}."?".join("&", map "$_=$params{$_}", keys %params);
+} #}}}
+
 sub htmllink ($$;$$$) { #{{{
        my $page=shift;
        my $link=shift;
@@ -279,13 +292,15 @@ sub htmllink ($$;$$$) { #{{{
                $bestlink=htmlpage($bestlink);
        }
        if (! grep { $_ eq $bestlink } values %renderedfiles) {
-               return "<span><a href=\"$config{cgiurl}?do=create&page=$link&from=$page\">?</a>$linktext</span>"
+               return "<span><a href=\"".
+                       cgiurl(do => "create", page => $link, from =>$page).
+                       "\">?</a>$linktext</span>"
        }
        
        $bestlink=File::Spec->abs2rel($bestlink, dirname($page));
        
        if (! $noimageinline && isinlinableimage($bestlink)) {
-               return "<img src=\"$bestlink\">";
+               return "<img src=\"$bestlink\" alt=\"$linktext\">";
        }
        return "<a href=\"$bestlink\">$linktext</a>";
 } #}}}