Changeset 1016 for trunk

Timestamp:

05/22/12 01:00:13 (12 years ago)

Author:

nanardon

Message:

• trap perl error in la-sync-manager

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SyncManager.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SyncManager.pm

@@ -45 +45 @@
     my ($self, $module, $dbrev) = @_;
 
-    if (!$self->ini->SectionExists($module)) {
-        la_log LA_ERR, "Cannot run inexistant module %s", $module;
+    eval {
+        if (!$self->ini->SectionExists($module)) {
+            la_log LA_ERR, "Cannot run inexistant module %s", $module;
+            return;
+        }
+
+        my $modtype = $self->ini->val($module, 'type', $module);
+        my $task = LATMOS::Accounts::Task->new(
+            $modtype,
+            config => $self->{config},
+        )
+            or do {
+            la_log(LA_ERR, 'Cannot load module %s', $modtype);
+            return;
+        };
+        la_log LA_NOTICE, "Processing sync module %s (%s)", $module, $modtype;
+        if (!$task->init) {
+            la_log(LA_ERR, 'init() failed for module %s', $module);
+            return;
+        }
+
+        if (!$task->needupd($dbrev, $self)) {
+            la_log LA_DEBUG, "No change on main base, aborting";
+            return 1;
+        }
+
+
+        my $res = $task->run;
+        if (!$res) {
+            la_log LA_ERR, "Task %s did not end successfully", $module;
+        }
+        $task->post if ($res);
+        la_log LA_DEBUG, "end process $module";
+        return $res;
+    };
+
+    if ($@) {
+        la_log(LA_CRIT, 'Fatal Perl Error: %s', $@);
         return;
     }
-
-    my $modtype = $self->ini->val($module, 'type', $module);
-    my $task = LATMOS::Accounts::Task->new(
-        $modtype,
-        config => $self->{config},
-    )
-        or do {
-        la_log(LA_ERR, 'Cannot load module %s', $modtype);
-        return;
-    };
-    la_log LA_NOTICE, "Processing sync module %s (%s)", $module, $modtype;
-    if (!$task->init) {
-        la_log(LA_ERR, 'init() failed for module %s', $module);
-        return;
-    }
-
-    if (!$task->needupd($dbrev, $self)) {
-        la_log LA_DEBUG, "No change on main base, aborting";
-        return 1;
-    }
-
-
-    my $res = $task->run;
-    if (!$res) {
-        la_log LA_ERR, "Task %s did not end successfully", $module;
-    }
-    $task->post if ($res);
-    la_log LA_DEBUG, "end process $module";
-    return $res;
 }