summaryrefslogtreecommitdiff
path: root/doc/plugins/contrib
diff options
context:
space:
mode:
authorjustint <justint@web>2011-03-01 14:45:04 +0000
committerJoey Hess <joey@kitenet.net>2011-03-01 14:45:04 +0000
commit5469b9f1ef4f71c324ab2dffbd34cb7d9a2e4897 (patch)
treeb981a912f7727b3265df3a46fd8913767e2608b0 /doc/plugins/contrib
parentc8ff86eb4e18b319846b4fa0e8dfa9b0bea3c04b (diff)
Diffstat (limited to 'doc/plugins/contrib')
-rw-r--r--doc/plugins/contrib/justlogin.mdwn65
1 files changed, 65 insertions, 0 deletions
diff --git a/doc/plugins/contrib/justlogin.mdwn b/doc/plugins/contrib/justlogin.mdwn
new file mode 100644
index 000000000..b9fc6f674
--- /dev/null
+++ b/doc/plugins/contrib/justlogin.mdwn
@@ -0,0 +1,65 @@
+This plugin is still in development. Currently it does bring up the login page and the login page does, with proper credentials, log in the user, but the returning page errors.
+
+Place this code into a page:
+
+&lt;form action="http://portable.local/cgi-bin/ikiwiki.cgi" method="get"&gt;
+
+&lt;input type="hidden" name="do" value="justlogin" /&gt;
+
+&lt;input type="submit" value="Login" /&gt;&lt;/form&gt;
+
+
+
+This is the plugin so far:
+
+ #!/usr/bin/perl
+ # Bring up a login page that returns to the calling page
+ package IkiWiki::Plugin::justlogin;
+
+ use warnings;
+ use strict;
+ use IkiWiki 3.00;
+
+ sub import {
+ hook(type => "sessioncgi", id => "justlogin", call => \&sessioncgi);
+ hook(type => "auth", id => "justlogin", call => \&auth);
+ }
+
+ sub sessioncgi ($$) {
+ my $q=shift;
+ my $session=shift;
+
+ debug("jl sessioncgi1 running.");
+
+ if ($q->param('do') eq 'justlogin') {
+ debug("Justlogin do=justlogin running.");
+ if (! defined $session->param("name") ) {
+ debug("Justlogin param!defined running.");
+ $session->param(postsignin => $ENV{HTTP_REFERER} );
+ $session->param("do" => "justgoback" );
+ IkiWiki::cgi_savesession($session);
+ IkiWiki::cgi_signin($q, $session);
+ exit;
+ }
+ } elsif ($session->param('do') eq 'justgoback') {
+ debug("jl justgoback running.");
+ if (! defined $session->param("name")) {
+ debug("Justlogin redir running.");
+ my $page=IkiWiki::possibly_foolish_untaint($q->param('postsignin'));
+ $session->clear("postsignin");
+ $session->clear("do");
+ IkiWiki::cgi_savesession($session);
+ IkiWiki::redirect($q, $page);
+ }
+ }
+ }
+
+ sub auth ($$) {
+ # While this hook is not currently used, it needs to exist
+ # so ikiwiki knows that the wiki supports logins, and will
+ # enable the Preferences page.
+ }
+
+
+ 1
+