--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/Deployment/Batch/Generic.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,87 @@
+use strict;
+package Deployment::Batch;
+our @history;
+
+package Deployment::Batch::Generic;
+use Common;
+use Time::HiRes;
+our @ISA = qw(Object);
+
+BEGIN {
+    DeclareProperty isProcessed => ACCESS_READ;
+    DeclareProperty LastError => ACCESS_READ;
+    DeclareProperty LocalHistory => ACCESS_NONE;
+}
+
+sub _Run {
+    my ($this) = @_;
+
+    undef $@;
+    local @history = ();
+    my $t0 = [Time::HiRes::gettimeofday];
+    eval {
+        $this->Run;
+    };
+    $this->Log("completed in ",Time::HiRes::tv_interval($t0)," s");
+
+    if ($@) {
+        $this->{$LastError} = $@;
+        Deployment::Batch::Rollback; # rallback nested actions
+        return 0;
+    }
+
+    $this->{$LocalHistory} = \@history;
+    $this->{$isProcessed} = 1;
+
+    return 1;
+}
+
+sub Name {
+    my $this = shift;
+    (my $mod = ref $this) =~ s/^(?:\w+\:\:)*(\w+)$/$1/;
+    return $mod;
+}
+
+sub _Rollback {
+    my ($this) = @_;
+
+    undef $@;
+    eval {
+        $this->Rollback;
+    };
+
+    if ($@) {
+        $this->{$LastError} = $@;
+    }
+
+    $this->{$isProcessed} = 0;
+
+    if ($this->{$LocalHistory}) {
+        local @history = @{$this->{$LocalHistory}};
+        Deployment::Batch::Rollback;
+    }
+
+    return 1;
+}
+
+sub Context {
+    my $this = shift;
+
+    return \%Deployment::Batch::Context;
+}
+
+sub Log {
+    my $this = shift @_;
+    if ($this->Context->{LogOutput}) {
+        my $out = $this->Context->{LogOutput};
+        print $out $this->Name,": ",@_,"\n";
+    }
+}
+
+sub Run {
+}
+
+sub Rollback {
+}
+
+1;
\ No newline at end of file