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

password prompt for admin user

master
Joey Hess 2008-07-27 15:44:11 -04:00
parent c755bfd1d8
commit 929a70a16d
2 changed files with 34 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
IkiWiki/Setup/Automator.pm
View File

@ -6,6 +6,7 @@ package IkiWiki::Setup::Automator;
use warnings; use warnings;
use strict; use strict;
use IkiWiki; use IkiWiki;
use IkiWiki::UserInfo;
use Term::ReadLine; use Term::ReadLine;
use File::Path; use File::Path;
@ -36,11 +37,11 @@ sub import (@) { #{{{
foreach my $key (qw{srcdir destdir repository dumpsetup}) { foreach my $key (qw{srcdir destdir repository dumpsetup}) {
next unless exists $config{$key}; next unless exists $config{$key};
my $add=""; my $add="";
while (-e $config{$key}.$add) { while (-e $add.$config{$key}) {
$add=1 if ! $add; $add=1 if ! $add;
$add++; $add++;
} }
$config{$key}.=$add; $config{$key}=$add.$config{$key};
} }
IkiWiki::checkconfig(); IkiWiki::checkconfig();
@ -76,10 +77,37 @@ sub import (@) { #{{{
} }
IkiWiki::Setup::dump($config{dumpsetup}); IkiWiki::Setup::dump($config{dumpsetup});
# Build the wiki. # Build the wiki, but w/o wrappers, so it's not live yet.
mkpath($config{destdir}) || die "mkdir $config{destdir}: $!"; mkpath($config{destdir}) || die "mkdir $config{destdir}: $!";
if (system("ikiwiki", "--setup", $config{dumpsetup}) != 0) { if (system("ikiwiki", "--refresh", "--setup", $config{dumpsetup}) != 0) {
die "ikiwiki --setup $config{dumpsetup} failed"; die "ikiwiki --refresh --setup $config{dumpsetup} failed";
}
# Create admin user(s).
foreach my $admin (@{$config{adminuser}}) {
next if $admin=~/^http\?:\/\//; # openid
# Prompt for password w/o echo.
system('stty -echo 2>/dev/null');
local $|=1;
print "\n\nCreating wiki admin $admin ...\n";
print "Choose a password: ";
chomp(my $password=<STDIN>);
print "\n\n\n";
system('stty sane 2>/dev/null');
if (IkiWiki::userinfo_setall($admin, { regdate => time }) &&
IkiWiki::Plugin::passwordauth::setpassword($admin, $password)) {
IkiWiki::userinfo_set($admin, "email", $config{adminemail}) if defined $config{adminemail};
}
else {
error("problem setting up $admin user");
}
}
# Add wrappers, make live.
if (system("ikiwiki", "--wrappers", "--setup", $config{dumpsetup}) != 0) {
die "ikiwiki --wrappers --setup $config{dumpsetup} failed";
} }
# Done! # Done!

1
doc/setup.mdwn
View File

@ -15,6 +15,7 @@ and answer a couple of questions.
% ikiwiki -setup /etc/ikiwiki/simple.setup % ikiwiki -setup /etc/ikiwiki/simple.setup
What will the wiki be named? mywiki What will the wiki be named? mywiki
What revision control system to use? git What revision control system to use? git
What wiki user (or openid) will be wiki admin? joey
Wait for it to tell you an url for your new wiki.. Done! Wait for it to tell you an url for your new wiki.. Done!