kivitendo/SL/DB/ValidityToken.pm @ b891f0ba
| 8b4dd266 | Moritz Bunkus | package SL::DB::ValidityToken;
|
||
use strict;
|
||||
use Carp;
|
||||
use Digest::SHA qw(sha256_hex);
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
use SL::DB::MetaSetup::ValidityToken;
|
||||
use SL::DB::Manager::ValidityToken;
|
||||
__PACKAGE__->meta->initialize;
|
||||
| 1927b931 | Bernd Bleßmann | use constant SCOPE_SALES_INVOICE_POST => 'SalesInvoice::Post';
|
||
use constant SCOPE_PURCHASE_INVOICE_POST => 'PurchaseInvoice::Post';
|
||||
use constant SCOPE_DELIVERY_ORDER_SAVE => 'DeliveryOrder::Save';
|
||||
use constant SCOPE_ORDER_SAVE => 'Order::Save';
|
||||
use constant SCOPE_RECLAMATION_SAVE => 'Reclamation::Save';
|
||||
| 0c0e2ee2 | Bernd Bleßmann | use constant SCOPE_GL_TRANSACTION_POST => 'GLTransaction::Post';
|
||
| 8b4dd266 | Moritz Bunkus | |||
sub create {
|
||||
my ($class, %params) = @_;
|
||||
croak "missing required parameter 'scope'" if !$params{scope};
|
||||
my $token_obj = $class->new(
|
||||
scope => $params{scope},
|
||||
valid_until => $params{valid_until} // DateTime->now_local->add(hours => 24),
|
||||
);
|
||||
while (1) {
|
||||
my $token_value = join('-', gettimeofday(), $$, int(rand(1 << 63)));
|
||||
$token_obj->token(sha256_hex($token_value));
|
||||
last if eval {
|
||||
$token_obj->save;
|
||||
1;
|
||||
};
|
||||
}
|
||||
return $token_obj;
|
||||
}
|
||||
1;
|