script/admin_users.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use v5.10.0;
   7
   8 use Getopt::Long;
   9 ## using prompt():
  10 use ExtUtils::MakeMaker();
  11 use lib 'lib';
  12
  13 use Text::Tradition::UserStore;
  14 use Text::Tradition::Directory;
  15
  16
  17 my ($dsn, $command) = ('dbi:SQLite:dbname=db/traditions.db', 'add', undef);
  18 my ($username, $password, $tradition_id);
  19
  20 GetOptions(
  21     'c|command:s' => \$command,
  22     'dsn:s' => \$dsn,
  23     'u|username=s' => \$username,
  24     'p|password:s' => \$password,
  25     't|tradition:s' => \$tradition_id,
  26     ) or usage();
  27
  28 if(!$command || !($command ~~ [qw/add modify delete deactivate reactivate/])) {
  29     print "No command supplied, chickening out ... \n\n";
  30     usage();
  31 }
  32
  33 if(!$username) {
  34     print "No username supplied, confused ... \n\n";
  35     usage();
  36 }
  37
  38 my $userstore = Text::Tradition::UserStore->new( dsn => $dsn);
  39
  40 given ($command) {
  41     when ('add') {
  42         if(!$password || !$userstore->validate_password($password)) {
  43             print "Can't add a new user without a valid password\n\n";
  44             usage();
  45         }
  46         my $user = $userstore->add_user({ username => $username,
  47                                           password => $password });
  48         if(!$user) {
  49             print "Failed to add user! (you should see errors above this..)\n";
  50         } else {
  51             print "OK.\n";
  52         }
  53     }
  54
  55     when ('modify') {
  56         if(!$tradition_id || (!$password || !$userstore->validate_password($password))) {
  57             print "Can't modify a user without a valid password or a tradition\n\n";
  58             usage();
  59         }
  60         if($password) {
  61             my $user = $userstore->modify_user({ username => $username,
  62                                                  password => $password });
  63             if(!$user) {
  64                 print "Failed to modify user! (you should see errors above this..)\n";
  65             } else {
  66                 print "OK.\n";
  67             }
  68         } elsif($tradition_id) {
  69             my $directory = Text::Tradition::Directory->new(
  70                 dsn => $dsn,
  71             );
  72             my $new_scope = $directory->new_scope;
  73             my $tradition = $directory->tradition($tradition_id);
  74             my $user = $userstore->find_user({ username => $username });
  75             if(!$tradition || !$user) {
  76                 print "Can't find one of '$username' or '$tradition_id' in the database!\n";
  77             } else {
  78                 $user->add_tradition($tradition);
  79                 $directory->update($tradition);
  80                 $userstore->update($user);
  81                 print "OK.\n";
  82             }
  83         }
  84     }
  85
  86     when ('deactivate') {
  87         my $user = $userstore->deactivate_user({ username => $username});
  88         if(!$user) {
  89             print "Failed to deactivate user! (you should see errors above this..)\n";
  90         } else {
  91             print "OK.\n";
  92         }
  93     }
  94
  95     when ('reactivate') {
  96         my $user = $userstore->reactivate_user({ username => $username});
  97         if(!$user) {
  98             print "Failed to reactivate user! (you should see errors above this..)\n";
  99         } else {
 100             print "OK.\n";
 101         }
 102     }
 103
 104     when ('delete') {
 105         my $yesno = ExtUtils::MakeMaker::prompt("Permanently delete $username? (y/N)", "n");
 106         if($yesno !~ /^y$/i) {
 107             print "Not deleting $username\n";
 108             break;
 109         }
 110         my $user = $userstore->delete_user({ username => $username});
 111         if(!$user) {
 112             print "Failed to delete user! (you should see errors above this..)\n";
 113         } else {
 114             print "OK.\n";
 115         }
 116     }
 117 }
 118
 119 sub usage {
 120     print "User Admin tool, to add/modify/deactivate/reactivate/delete users\n";
 121     print "===========================================\n";
 122     print "Usage: $0 -c add -u jimbob -p hispassword\n";
 123     print "Usage: $0 -c modify -u jimbob -p hisnewpassword\n";
 124     print "Usage: $0 -c modify -u jimbob -t \"Notre besoin\"\n";
 125     print "Usage: $0 -c deactivate -u jimbob\n";
 126 }
 127
 128 =head1 NAME
 129
 130 admin_users.pl - add / modify / etc users
 131
 132 =head1 SYNOPSIS
 133
 134     admin_user.pl -c add -u jimbob -p "jimspassword"
 135
 136     admin_user.pl -c modify -u jimbob -p "jimsnewpassword"
 137
 138     admin_user.pl -c delete -u jimbob
 139
 140 =head1 OPTIONS
 141
 142 =over
 143
 144 =item -c | --command
 145
 146 The action to take, can be one of: add, modify, deactivate, reactivate, delete.
 147
 148 =item -u | --username
 149
 150 The username of the new user or user to change.
 151
 152 =item -p | --password
 153
 154 The new password or password to change.
 155
 156 =back