SL/BackgroundJob/ValidityTokenCleanup.pm

   1 package SL::BackgroundJob::ValidityTokenCleanup;
   2
   3 use strict;
   4
   5 use parent qw(SL::BackgroundJob::Base);
   6
   7 use SL::DB::ValidityToken;
   8
   9 sub create_job {
  10   $_[0]->create_standard_job('0 3 * * *'); # daily
  11 }
  12
  13 sub run {
  14   SL::DB::Manager::ValidityToken->cleanup;
  15
  16   return 1;
  17 }
  18
  19 1;
  20
  21 __END__
  22
  23 =encoding utf8
  24
  25 =head1 NAME
  26
  27 SL::BackgroundJob::ValidityTokenCleanup - Background job for
  28 deleting all expired validity tokens
  29
  30 =cut