Changeset 262

Timestamp:

07/24/09 17:02:27 (15 years ago)

Author:

nanardon

Message:

• allow to run command after commit success (postcommit=...)

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -6 +6 @@
 use LATMOS::Accounts::Bases::Objects;
 use LATMOS::Accounts::Log;
+use LATMOS::Accounts::Utils qw(exec_command);
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -43 +44 @@
     $base->{_type} = lc($pclass);
     $base->{_label} = $options{label};
+    $base->{_options} = { %options };
     $base->{defattr} = $options{defattr};
     la_log(LA_DEBUG, 'Instanciate base %s (%s)', ($options{label} || 'N/A'), $pclass);
@@ -278 +280 @@
     if ($self->can('_commit')) {
         la_log(LA_DEBUG, 'Commiting data');
-        return $self->_commit;
+        if (!(my $res = $self->_commit)) {
+            return $res;
+        }
+        if ($self->{options}{postcommit}) {
+            return exec_command($self->{options}{postcommit}, $self->{options});
+        }
+        return 1;
     } else {
         return 1;