--- /dev/null
+#!/usr/bin/perl
+# Ikiwiki password authentication.
+package IkiWiki::Plugin::passwordauth;
+
+use warnings;
+use strict;
+use IkiWiki;
+
+sub import { #{{{
+ hook(type => "formbuilder_setup", id => "passwordauth",
+ call => \&formbuilder_setup);
+ hook(type => "formbuilder", id => "passwordauth",
+ call => \&formbuilder);
+} # }}}
+
+sub formbuilder_setup (@) { #{{{
+ my %params=@_;
+
+ my $form=$params{form};
+ my $session=$params{session};
+ my $cgi=$params{cgi};
+
+ if ($form->title eq "signin" || $form->title eq "register") {
+ $form->field(name => "name", required => 0, size => 30);
+ $form->field(name => "password", type => "password", required => 0);
+
+ if ($form->submitted eq "Register" || $form->submitted eq "Create Account") {
+ $form->field(name => "confirm_password", type => "password");
+ $form->field(name => "email", size => 50);
+ $form->title("register");
+ $form->text("");
+ }
+
+ if ($form->submitted) {
+ my $submittype=$form->submitted;
+ # Set required fields based on how form was submitted.
+ my %required=(
+ "Login" => [qw(name password)],
+ "Register" => [],
+ "Create Account" => [qw(name password confirm_password email)],
+ "Mail Password" => [qw(name)],
+ );
+ foreach my $opt (@{$required{$submittype}}) {
+ $form->field(name => $opt, required => 1);
+ }
+
+ if ($submittype eq "Create Account") {
+ $form->field(
+ name => "confirm_password",
+ validate => sub {
+ shift eq $form->field("password");
+ },
+ );
+ $form->field(
+ name => "email",
+ validate => "EMAIL",
+ );
+ }
+
+ # Validate password against name for Login.
+ if ($submittype eq "Login") {
+ $form->field(
+ name => "password",
+ validate => sub {
+ length $form->field("name") &&
+ shift eq IkiWiki::userinfo_get($form->field("name"), 'password');
+ },
+ );
+ }
+ elsif ($submittype eq "Register" ||
+ $submittype eq "Create Account" ||
+ $submittype eq "Mail Password") {
+ $form->field(name => "password", validate => 'VALUE');
+ }
+
+ # And make sure the entered name exists when logging
+ # in or sending email, and does not when registering.
+ if ($submittype eq 'Create Account' ||
+ $submittype eq 'Register') {
+ $form->field(
+ name => "name",
+ validate => sub {
+ my $name=shift;
+ length $name &&
+ $name=~/$config{wiki_file_regexp}/ &&
+ ! IkiWiki::userinfo_get($name, "regdate");
+ },
+ );
+ }
+ elsif ($submittype eq "Login" ||
+ $submittype eq "Mail Password") {
+ $form->field(
+ name => "name",
+ validate => sub {
+ my $name=shift;
+ length $name &&
+ IkiWiki::userinfo_get($name, "regdate");
+ },
+ );
+ }
+ }
+ else {
+ # First time settings.
+ $form->field(name => "name", comment => "use FirstnameLastName");
+ if ($session->param("name")) {
+ $form->field(name => "name", value => $session->param("name"));
+ }
+ }
+ }
+ elsif ($form->title eq "preferences") {
+ $form->field(name => "name", disabled => 1, value =>
+ $session->param("name"), force => 1);
+ $form->field(name => "password", type => "password");
+ $form->field(name => "confirm_password", type => "password",
+ validate => sub {
+ shift eq $form->field("password");
+ });
+
+ }
+}
+
+sub formbuilder (@) { #{{{
+ my %params=@_;
+
+ my $form=$params{form};
+ my $session=$params{session};
+ my $cgi=$params{cgi};
+ my $buttons=$params{buttons};
+
+ if ($form->title eq "signin" || $form->title eq "register") {
+ if ($form->submitted && $form->validate) {
+ if ($form->submitted eq 'Login') {
+ $session->param("name", $form->field("name"));
+ IkiWiki::cgi_postsignin($cgi, $session);
+ }
+ elsif ($form->submitted eq 'Create Account') {
+ my $user_name=$form->field('name');
+ if (IkiWiki::userinfo_setall($user_name, {
+ 'email' => $form->field('email'),
+ 'password' => $form->field('password'),
+ 'regdate' => time})) {
+ $form->field(name => "confirm_password", type => "hidden");
+ $form->field(name => "email", type => "hidden");
+ $form->text("Account creation successful. Now you can Login.");
+ }
+ else {
+ error("Error creating account.");
+ }
+ }
+ elsif ($form->submitted eq 'Mail Password') {
+ my $user_name=$form->field("name");
+ my $template=template("passwordmail.tmpl");
+ $template->param(
+ user_name => $user_name,
+ user_password => IkiWiki::userinfo_get($user_name, "password"),
+ wikiurl => $config{url},
+ wikiname => $config{wikiname},
+ REMOTE_ADDR => $ENV{REMOTE_ADDR},
+ );
+
+ eval q{use Mail::Sendmail};
+ error($@) if $@;
+ sendmail(
+ To => IkiWiki::userinfo_get($user_name, "email"),
+ From => "$config{wikiname} admin <$config{adminemail}>",
+ Subject => "$config{wikiname} information",
+ Message => $template->output,
+ ) or error("Failed to send mail");
+
+ $form->text("Your password has been emailed to you.");
+ $form->field(name => "name", required => 0);
+ push @$buttons, "Mail Password";
+ }
+ elsif ($form->submitted eq "Register") {
+ @$buttons="Create Account";
+ }
+ }
+ elsif ($form->submitted eq "Create Account") {
+ @$buttons="Create Account";
+ }
+ else {
+ push @$buttons, "Register", "Mail Password";
+ }
+ }
+ elsif ($form->title eq "preferences") {
+ if ($form->submitted eq "Save Preferences" && $form->validate) {
+ my $user_name=$form->field('name');
+ foreach my $field (qw(password)) {
+ if (defined $form->field($field) && length $form->field($field)) {
+ userinfo_set($user_name, $field, $form->field($field)) || error("failed to set $field");
+ }
+ }
+ }
+ }
+
+ IkiWiki::printheader($session);
+ print IkiWiki::misctemplate($form->title, $form->render(submit => $buttons));
+} #}}}
+
+1
sipb-www / ikiwiki.git / commitdiff
