Changeset 2315

Timestamp:

05/13/08 17:43:51 (21 months ago)

Author:

bchoate

Message:

Use DBI driver (non-caching) for TheSchwartz itself. Optimized daemon loop so it clears caches only when work was done.

Files:

• branches/release-38/lib/MT/TheSchwartz.pm (modified) (4 diffs)

branches/release-38/lib/MT/TheSchwartz.pm

@@ -86 +86 @@
     TheSchwartz::Error->properties->{datasource}      = 'ts_error';
     TheSchwartz::ExitStatus->properties->{datasource} = 'ts_exitstatus';
-
-    my $job_set_exit_status = \&TheSchwartz::Job::set_exit_status;
-    my $job_add_failure = \&TheSchwartz::Job::add_failure;
-
-    my $driver = MT::Object->driver;
-    no warnings 'redefine';
-    *TheSchwartz::Job::set_exit_status = sub {
-        $driver->Disabled(1);
-        my $res = $job_set_exit_status->(@_);
-        $driver->Disabled(0);
-        return $res;
-    };
-    *TheSchwartz::Job::add_failure = sub {
-        $driver->Disabled(1);
-        my $res = $job_add_failure->(@_);
-        $driver->Disabled(0);
-        return $res;
-    };
-
     return $initialized = 1;
 }
@@ -110 +91 @@
 sub driver_for {
     my MT::TheSchwartz $client = shift;
-    return MT::Object->driver;
+    return MT::Object->dbi_driver;
 }
 
@@ -147 +128 @@
     $delay ||= 5;
     my $last_task_run = 0;
+    my $did_work = 0;
     while (1) {
-        unless ($client->work_once) {
-            my $driver = $client->driver_for();
-            $driver->clear_cache
-                if $driver->can('clear_cache');
-            MT->request->reset();
-            sleep $delay;
+        if ($client->work_once) {
+            $did_work = 1;
+        } else {
+            if ($did_work) {
+                my $driver = MT::Object->driver;
+                $driver->clear_cache
+                    if $driver->can('clear_cache');
+                MT->request->reset();
+                $did_work = 0;
+            }
 
             if ($last_task_run + 60 * 5 < time) {
@@ -160 +146 @@
             }
         }
+        sleep $delay;
     }
 }