oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

converting spectre to POE, no where near working yet

Browse source
This commit is contained in:
JT Smith 2006-02-02 18:13:47 +00:00
parent dae326d868
commit 9d4eb51fb2
7 changed files with 511 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

117
lib/Spectre/Cron.pm
View file

@ -17,8 +17,48 @@ package Spectre::Cron;
use strict;
use DateTime;
use DateTime::Cron::Simple;
use POE;
use WebGUI::Session;
#-------------------------------------------------------------------
=head2 _start ( )
Initializes the scheduler.
=cut
sub _start {
print "Starting WebGUI Spectre Scheduler...";
my ( $kernel, $self, $publicEvents) = @_[ KERNEL, OBJECT, ARG0 ];
my $serviceName = "scheduler";
$kernel->alias_set($serviceName);
$kernel->call( IKC => publish => $serviceName, $publicEvents );
my $configs = WebGUI::Config->readAllConfigs($self->{_webguiRoot});
foreach my $config (keys %{$configs}) {
$kernel->yield("loadSchedule", $config);
}
print "OK\n";
$kernel->yield("checkSchedules");
}
#-------------------------------------------------------------------
=head2 _stop ( )
Gracefully shuts down the scheduler.
=cut
sub _stop {
my ($kernel, $self) = @_[KERNEL, OBJECT];
print "Stopping WebGUI Spectre Scheduler...";
undef $self;
print "OK\n";
}
#-------------------------------------------------------------------
=head2 addJob ( config, job )
@ -36,11 +76,10 @@ A hash reference containing the properties of the job from the WorkflowSchedule
=cut
sub addJob {
my $self = shift;
my $config = shift;
my $job = shift;
my ($self, $config, $job) = @_[OBJECT, ARG0, ARG1];
return 0 unless ($job->{enabled});
$self->{_jobs}{$job->{jobId}} = {
jobId=>$job->{jobId},
config=>$config,
schedule=>join(" ", $job->{minuteOfHour}, $job->{hourOfDay}, $job->{dayOfMonth}, $job->{monthOfYear}, $job->{dayOfWeek}),
workflowId=>$job->{workflowId}
@ -48,6 +87,30 @@ sub addJob {
}
#-------------------------------------------------------------------
=head2 checkSchedule ( job, now )
Compares a schedule with the current time and kicks off an event if necessary. This method should only ever need to be called by checkSchedules().
=head3 job
A job definition created through the addJob() method.
=head3 now
A DateTime object representing the time to compare the schedule with.
=cut
sub checkSchedule {
my ($kernel, $self, $job, $now) = @_[KERNEL, OBJECT, ARG0, ARG1];
my $cron = DateTime::Cron::Simple->new($job->{schedule});
if ($cron->validate_time($now)) {
# kick off an event here once we know what that api looks like
}
}
#-------------------------------------------------------------------
=head2 checkSchedules ( )
@ -57,13 +120,10 @@ Checks all the schedules of the jobs in the queue and triggers a workflow if a s
=cut
sub checkSchedules {
my $self = shift
my ($kernel, $self) = @_[KERNEL, OBJECT];
my $now = DateTime->from_epoch(epoch=>time());
foreach my $jobId (keys %{$self->{_jobs}}) {
my $cron = DateTime::Cron::Simple->new($self->{_jobs}{$jobId}{schedule});
if ($cron->validate_time($now) {
# kick off an event here once we know what that api looks like
}
$kernel->yield("checkSchedule", $self->{_jobs}{$jobId}, $now)
}
}
@ -81,30 +141,38 @@ The unique id of the job to remove.
=cut
sub deleteJob {
my $self = shift;
delete $self->{_jobs}{shift};
my ($self, $jobId) = @_[OBJECT, ARG0];
delete $self->{_jobs}{$jobId};
}
#-------------------------------------------------------------------
=head2 DESTROY ( )
=head2 loadSchedule ( config )
Deconstructor.
Loads the workflow schedule from a particular site.
=head3 config
The config filename for the site to load the schedule.
=cut
sub DESTROY {
my $self = shift;
undef $self;
sub loadSchedule {
my ($kernel, $self, $config) = @_[KERNEL, OBJECT, ARG0];
my $session = WebGUI::Session->open($self->{_webguiRoot}, $config);
my $result = $session->db->read("select * from WorkflowSchedule");
while (my $data = $result->hashRef) {
$kernel->yield("addJob",$config, $data);
}
$session->close;
}
#-------------------------------------------------------------------
=head2 new ( webguiRoot )
Constructor. Loads all schedules from WebGUI sites into it's job queue.
Constructor.
=head3 webguiRoot
@ -117,17 +185,14 @@ sub new {
my $webguiRoot = shift;
my $self = {_webguiRoot=>$webguiRoot};
bless $self, $class;
my $configs = WebGUI::Config->readAllConfigs($webguiRoot);
foreach my $config (keys %{$configs}) {
my $session = WebGUI::Session->open($webguiRoot, $config);
my $result = $session->db->read("select * from WorkflowSchedule");
while (my $data = $result->hashRef) {
$self->addJob($config, $data);
}
$session->close;
}
my @publicEvents = qw(addJob deleteJob);
POE::Session->create(
object_states => [ $self => [qw(_start _stop checkEvents checkEvent loadSchedule), @publicEvents] ],
args=>[\@publicEvents]
);
}
1;