package Fripost::Commands::add_user;

use 5.010_000;
use strict;
use warnings;
use utf8;

=head1 NAME

add_user - Add a new mailbox to the system

=cut

use FindBin qw($Bin);
use lib "$Bin/lib";

use Fripost::Password;
use Fripost::Prompt;
use Fripost::Schema;
use Fripost::Email;
use Email::Valid;

our $VERSION = '0.01';

our @EXPORT = qw/main/;
our @ISA = qw(Exporter);

sub main {
    my $ldap = shift;
    my $conf = shift;

    my $username = shift;
    prompt_if_undefined ( "New username: ", \$username,
        [ rewrite => sub { fix_username $_ }
        , 'Invalid e-mail' => sub { Email::Valid->address($_) }
        , 'Unknown domain' => sub { $ldap->domain->search({
                                        domain => (split /\@/, $_, 2)[1]
                                    })->count }
        , 'User exists'    => sub { $ldap->user->search({
                                       username => $_
                                    })->count == 0 }
        , 'Alias exists'   => sub { $ldap->alias->search({
                                       address => $_
                                    })->count == 0 }
        ]
    );
    

    my $user;
    my $clearPassword;
    {
        my $isActive     = 'TRUE';
        my $userPassword;
        if ( defined $conf->{password} ) {
            $userPassword  = $conf->{password};
        }
        else {
            $clearPassword = prompt_password();
            $userPassword  = hash( $clearPassword );
        }
    
        $user = {
            username      => $username,
            isActive      => $isActive,
            userPassword  => $userPassword,
        };
    
        say "User name: $user->{username}";
        say "Password:  (hidden)";
    
        confirm_or_abort();
    }

    my $welcome = new_welcome_message ($conf, $user->{username});
    my $info;
    unless (defined $conf->{password}) {
        if (confirm "Send email with login information? ") {
            my $to;
            prompt_if_undefined ( "Where should the email be sent? ", $to,
                [ 'Invalid e-mail' => sub { Email::Valid->address($_) } ]
            );
            $info = new_user_info_message ( $conf, $user->{username},
                                                   $clearPassword,
                                                   $to );
        }
    }

    if ($conf->{pretend}) {
        say STDERR "Did not create user since we are pretending."
            if $conf->{verbose} or $conf->{debug};
    }
    else {
        # Insert the new user
        my %user = %$user;
        delete $user{clearPassword};
        $ldap->user->add(\%user);
        say STDERR "New account $user{username} added.";

        # Send the prepared emails
        $welcome->send();
        say "Sent welcome message (". (security_status $welcome) .").";

        # Subscribe user to announce-list
        subscribe($conf, $username, 'announce@lists.fripost.org')
            if  confirm("Subscribe user to announce mailing list? ");

        if (defined $info) {
            $info->send();
            say "Credentials sent (". (security_status $info) .").";
        }
    }
}


=head1 AUTHOR

Stefan Kangas C<< <skangas at skangas.se> >>

Guilhem Moulin C<< <guilhem at fripost.org> >>

=head1 COPYRIGHT

Copyright 2010,2011 Stefan Kangas.

Copyright 2012 Guilhem Moulin.

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it
under the same terms as perl itself.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

=cut

1; # End of add_user.pm

__END__