33 lines
842 B
Perl
33 lines
842 B
Perl
package App::Netdisco::Worker::Plugin::SetUserToken;
|
|
|
|
use Dancer ':syntax';
|
|
use Dancer::Plugin::DBIC 'schema';
|
|
|
|
use App::Netdisco::Worker::Plugin;
|
|
use aliased 'App::Netdisco::Worker::Status';
|
|
|
|
register_worker({ phase => 'check' }, sub {
|
|
return Status->error('Missing user (-e).')
|
|
unless shift->extra;
|
|
return Status->done('SetUserToken is able to run');
|
|
});
|
|
|
|
register_worker({ phase => 'main' }, sub {
|
|
my ($job, $workerconf) = @_;
|
|
my $username = $job->extra;
|
|
|
|
my $user = schema('netdisco')->resultset('User')
|
|
->find({ username => $username });
|
|
|
|
return Status->error("No such user")
|
|
unless $user and $user->in_storage;
|
|
|
|
$user->update({ token_from => time, token => \'md5(random()::text)' })
|
|
->discard_changes();
|
|
|
|
return Status->done(
|
|
sprintf 'Set token for user %s: %s', $username, $user->token);
|
|
});
|
|
|
|
true;
|