SL/BackgroundJob/UpdateEmployeeBaseData.pm

   1 package SL::BackgroundJob::UpdateEmployeeBaseData;
   2
   3 use strict;
   4 use utf8;
   5
   6 use parent qw(SL::BackgroundJob::Base);
   7
   8 use SL::DB::BackgroundJob;
   9 use SL::DB::Employee;
  10
  11 sub run {
  12   my ($self, $db_obj, $end_date) = @_;
  13
  14   SL::DB::Manager::Employee->update_entries_for_authorized_users;
  15
  16   return 1;
  17 }
  18
  19 1;
  20 __END__
  21
  22 =pod
  23
  24 =encoding utf8
  25
  26 =head1 NAME
  27
  28 SL::BackgroundJob::UpdateEmployeeBaseData - Background job for copying
  29 user data from the auth database to the "employee" table
  30
  31 =head1 OVERVIEW
  32
  33 When authentication via HTTP headers is active the regular login
  34 routine is skipped. That routine would normally copy values from the
  35 auth database to the employee table. This job can be run regularly to
  36 copy the same values.
  37
  38 The job is enabled & set to run every five minutes by default.
  39
  40 =head1 AUTHOR
  41
  42 Moritz Bunkus E<lt>m.bunkus@linet.deE<gt>
  43
  44 =cut