diff options
author | Joey Hess <joey@gnu.kitenet.net> | 2008-12-17 15:22:16 -0500 |
---|---|---|
committer | Joey Hess <joey@gnu.kitenet.net> | 2008-12-17 15:22:16 -0500 |
commit | bb93fccf0690344aa77f9538a508959a6de09847 (patch) | |
tree | 2381c9c097e553f384b6136be1322ec205695119 /doc/todo/cas_authentication.mdwn | |
parent | 985b229be632126f376aaad7bd354d0d7d014464 (diff) | |
download | ikiwiki-bb93fccf0690344aa77f9538a508959a6de09847.tar ikiwiki-bb93fccf0690344aa77f9538a508959a6de09847.tar.gz |
Coding style change: Remove explcit vim folding markers.
Diffstat (limited to 'doc/todo/cas_authentication.mdwn')
-rw-r--r-- | doc/todo/cas_authentication.mdwn | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/doc/todo/cas_authentication.mdwn b/doc/todo/cas_authentication.mdwn index c8ffe7005..8bf7042df 100644 --- a/doc/todo/cas_authentication.mdwn +++ b/doc/todo/cas_authentication.mdwn @@ -43,11 +43,11 @@ follows) ? > the use of it: `eval q{use AuthCAS}; error $@ if $@` + - +sub import { #{{{ + +sub import { + hook(type => "getopt", id => "cas", call => \&getopt); + hook(type => "auth", id => "cas", call => \&auth); + hook(type => "formbuilder_setup", id => "cas", call => \&formbuilder_setup); - +} # }}} + +} > Could you please use tabs for indentation of program flow? @@ -61,15 +61,15 @@ follows) ? > Why would you want to make other auth plugins not work? Could a site not > legitimatly chose to use this and another auth method? - +sub getopt () { #{{{ + +sub getopt () { + eval q{use Getopt::Long}; + error($@) if $@; + Getopt::Long::Configure('pass_through'); + GetOptions("cas_url=s" => \$config{cas_url}); + GetOptions("ca_file=s" => \$config{ca_file}); - +} #}}} + +} + - +sub auth ($$) { #{{{ + +sub auth ($$) { + my $q=shift; + my $session=shift; + @@ -98,11 +98,11 @@ follows) ? + error("CAS failure: ".&AuthCAS::get_errors()); + } + } - +} #}}} + +} + +# I use formbuilder_setup and not formbuilder type in order to bypass the +# Logout processing done in IkiWiki::CGI::cgi_prefs() - +sub formbuilder_setup (@) { #{{{ + +sub formbuilder_setup (@) { + my %params=@_; + + my $form=$params{form}; |