urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

master
justint 2011-03-02 03:00:28 +00:00 committed by Joey Hess
parent b156dbdcc2
commit a91bd978d8
1 changed files with 23 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
doc/plugins/contrib/justlogin.mdwn
View File

@ -1,4 +1,4 @@
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.
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 goes to prefs. I have no idea why.
Place this code into a page:
@ -8,10 +8,7 @@ Place this code into a page:
<input type="submit" value="Login" /></form>
This is the plugin so far:
#!/usr/bin/perl
# Bring up a login page that returns to the calling page
package IkiWiki::Plugin::justlogin;
@ -22,7 +19,6 @@ This is the plugin so far:
sub import {
hook(type => "sessioncgi", id => "justlogin", call => \&sessioncgi);
hook(type => "auth", id => "justlogin", call => \&auth);
}
sub sessioncgi ($$) {
@ -31,35 +27,26 @@ This is the plugin so far:
debug("jl sessioncgi1 running.");
if ($q->param('do') eq 'justlogin') {
debug("Justlogin do=justlogin running.");
if ($q->param("do") eq "justlogin") {
debug("jl do=justlogin running.");
if (! defined $session->param("name") ) {
debug("Justlogin param!defined running.");
$session->param(postsignin => $ENV{HTTP_REFERER} );
debug("jl param!defined running.");
$session->param("postsignin" => $ENV{HTTP_REFERER} );
$session->param("do" => "justgoback" );
IkiWiki::cgi_savesession($session);
IkiWiki::cgi_signin($q, $session);
exit;
IkiWiki::cgi_savesession($session);
}
} elsif ($session->param('do') eq 'justgoback') {
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'));
my $page=$q->param("postsignin");
$session->clear("postsignin");
$session->clear("do");
IkiWiki::cgi_savesession($session);
IkiWiki::redirect($q, $page);
exit;
}
}
}
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