cgiurl

[ikiwiki.git] / ikiwiki
diff --git a/ikiwiki b/ikiwiki

index fcf081ccbb797a9863f3a281da4469609e8362f6..78e0d2798b913e8fbc795c07619d0011d8c717e7 100755 (executable)
--- a/ikiwiki
+++ b/ikiwiki
@@ -23,6 +23,7 @@ my $wikiname="wiki";
  my $default_pagetype=".mdwn";
  my $cgi=0;
  my $url="";
+my $cgiurl="";
  my $svn=1;
  
  sub usage {
@@ -262,8 +263,15 @@ sub finalize ($$) {
         $path=~s/\.\.\/$/index.html/;
         $pagelink="<a href=\"$path\">$wikiname</a>/ $pagelink";
         
+       my @actions;
+       if (length $cgiurl) {
+               push @actions, "<a href=\"$cgiurl?do=edit&page=$page\">Edit</a>";
+               push @actions, "<a href=\"$cgiurl?do=recentchanges\">RecentChanges</a>";
+       }
+       
         $content="<html>\n<head><title>$title</title></head>\n<body>\n".
                   "<h1>$pagelink</h1>\n".
+                 "@actions\n<hr>\n".
                   $content.
                   "</body>\n</html>\n";
         
@@ -504,6 +512,7 @@ sub gen_wrapper ($$) {
         push @params, "--nosvn" if !$svn;
         push @params, "--cgi" if $cgi;
         push @params, "--url=$url" if $url;
+       push @params, "--cgiurl=$url" if $cgiurl;
         my $params=join(" ", @params);
         my $call='';
         foreach my $p ($this, $this, @params) {
@@ -655,6 +664,7 @@ if (grep /^-/, @ARGV) {
                 "svn!" => \$svn,
                 "cgi" => \$cgi,
                 "url=s" => \$url,
+               "cgiurl=s" => \$cgiurl,
         ) || usage();
  }
  usage() unless @ARGV == 2;