Revision f2b06135
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/BackgroundJob/Base.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use parent qw(Rose::Object); |
| 6 | 6 |
|
| 7 |
use IO::Dir; |
|
| 7 | 8 |
use SL::DB::BackgroundJob; |
| 9 |
use SL::System::Process; |
|
| 10 |
|
|
| 11 |
sub get_known_job_classes {
|
|
| 12 |
tie my %dir_h, 'IO::Dir', File::Spec->catdir(File::Spec->splitdir(SL::System::Process->exe_dir), 'SL', 'BackgroundJob'); |
|
| 13 |
return sort map { s/\.pm$//; $_ } grep { m/\.pm$/ && !m/(?: ALL | Base) \.pm$/x } keys %dir_h;
|
|
| 14 |
} |
|
| 8 | 15 |
|
| 9 | 16 |
sub create_standard_job {
|
| 10 | 17 |
my $self_or_class = shift; |
Auch abrufbar als: Unified diff
Methode zum Auflisten bekannter Hintergrundjobklassen