--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/Deployment/Batch/CopyFile.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,45 @@
+use strict;
+package Deployment::Batch;
+our %Dirs;
+package Deployment::Batch::CopyFile;
+use base qw(Deployment::Batch::Generic);
+use File::Copy;
+require URI::file;
+use Common;
+
+BEGIN {
+    DeclareProperty Src => ACCESS_READ;
+    DeclareProperty Dst => ACCESS_READ;
+}
+
+sub CTOR {
+    my ($this,$src,$dest,$Dir) = @_;
+
+    $src or die "Source file name is required";
+    $dest or die "Destination file name is reqiured";
+                       
+    my $uriSrc = URI::file->new($src)->abs($this->Context->{PackageDir});
+
+    my $uriDest = URI::file->new($dest);
+    
+    $uriDest = $uriDest->abs(
+        ($Dir and $Dirs{$Dir}) ?
+            $Dirs{$Dir} :
+            $this->Context->{PackageDir}
+    );
+
+    $this->{$Src} = $uriSrc->file;
+    $this->{$Dst} = $uriDest->file;
+}
+
+sub Run {
+    my ($this) = @_;
+
+    $this->Log("Copy '$this->{$Src}' to '$this->{$Dst}'");
+
+    Deployment::Batch->Backup( File => $this->{$Dst} );
+    
+    copy($this->{$Src},$this->{$Dst}) or die "copy failed: $!";
+}
+
+1;