Advertisement
Guest User

user.pm

a guest
Dec 5th, 2015
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.59 KB | None | 0 0
  1. package Mojolicious::Command::generate::user;
  2. use Mojo::Base 'Mojolicious::Command';
  3.  
  4. has description => 'Generate a new user for Moblo.';
  5. has usage => "APPLICATION generate user [USERNAME] [PASSWORD] [FULL NAME]\n";
  6.  
  7. sub run {
  8.   my ($self, $user, $password, $name) = @_;
  9.  
  10.   die "Missing attributes" unless ($user && $password && $name);
  11.  
  12.   my $users = $self->app->db->resultset('User');
  13.  
  14.   my $created = $users->create({
  15.     username => $user,
  16.     pw_hash => $self->app->bcrypt($password),
  17.     fullname => $name,
  18.   });
  19.  
  20.   say "Created user '$user' with id " . $created->id;
  21. }
  22.  
  23. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement