Initial commit

10 files changed, 393 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..8666cce
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,14 @@
+*~
+\#*#
+.#*
+*.bak
+*.tar*
+.emacs.*
+/tmp/
+/debug.sh
+core
+/MANIFEST
+/MYMETA.*
+/Makefile
+/blib
+/pm_to_blib
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
new file mode 100644
index 0000000..58696be
--- /dev/null
+++ b/MANIFEST.SKIP
@@ -0,0 +1,63 @@
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$         # 6.18 through 6.25 generated this
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid MYMETA files
+^MYMETA\.
+
+^debug.sh
+^tmp
+^buildreq
+^\.emacs\.*
+
+\.tar$
+\.tar\.gz$
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..84b1f32
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+use Module::Metadata;
+
+WriteMakefile(
+    NAME              => 'File::Backup',
+    VERSION_FROM      => 'lib/File/Backup.pm',
+    ABSTRACT_FROM     => 'lib/File/Backup.pm',
+    LICENSE           => 'gpl_3',
+    AUTHOR            => 'Sergey Poznyakoff <gray@gnu.org>',
+    MIN_PERL_VERSION  => 5.006,
+    PREREQ_PM         => {
+        'File::Temp'  => 0.23
+    },
+    TEST_REQUIRES     => {
+        'File::Cmp' => 1.07
+    },
+    META_MERGE        => {
+        'meta-spec' => { version => 2 },
+        resources => {
+            repository => {
+                type => 'git',
+                url => 'git://git.gnu.org.ua/file-backup.git',
+                web => 'http://git.gnu.org.ua/cgit/file-backup.git/',
+            },
+        },
+        provides => Module::Metadata->provides(version => '1.4',
+                                               dir => 'lib')
+    }    
+);
+
+    
+    
diff --git a/lib/File/Backup.pm b/lib/File/Backup.pm
new file mode 100644
index 0000000..8aed3bb
--- /dev/null
+++ b/lib/File/Backup.pm
@@ -0,0 +1,117 @@
+package File::Backup;
+use strict;
+use warnings;
+use File::Copy;
+use File::Temp qw(tempdir);
+use File::Basename;
+use Exporter;
+use re '/aa';
+use Carp;
+
+our $VERSION = '1.00';
+our @ISA = qw(Exporter);
+our @EXPORT = qw(BACKUP_NONE
+                 BACKUP_SINGLE
+                 BACKUP_SIMPLE
+                 BACKUP_NUMBERED
+                 BACKUP_AUTO
+                 backup
+                 backup_simple
+                 backup_numbered
+                 backup_auto);
+
+use constant {
+    BACKUP_NONE => 0,         # No backups at all (none,off)
+    BACKUP_SINGLE => 1,       # Always make single backups (never,simple)
+    BACKUP_SIMPLE => 1,
+    BACKUP_NUMBERED => 2,     # Always make numbered backups (t,numbered)
+    BACKUP_AUTO => 3          # Make numbered if numbered backups exist,
+                              # simple otherwise (nil,existing)
+};
+
+my %envtrans = (
+    none => BACKUP_NONE,
+    off => BACKUP_NONE,
+    never => BACKUP_SIMPLE,
+    simple => BACKUP_SIMPLE,
+    t => BACKUP_NUMBERED,
+    numbered => BACKUP_NUMBERED,
+    nil => BACKUP_AUTO,
+    existing => BACKUP_AUTO
+);
+
+my %backup_func = (
+    BACKUP_NONE() => sub {},
+    BACKUP_SIMPLE() => \&backup_simple,
+    BACKUP_NUMBERED() => \&backup_numbered,
+    BACKUP_AUTO() => \&backup_auto
+);
+
+sub backup {
+    my ($file, $type) = @_;
+    unless (defined($type)) {
+        my $v = $ENV{VERSION_CONTROL} || BACKUP_AUTO;
+        if (exists($envtrans{$v})) {
+            $type = $envtrans{$v};
+        } else {
+            $type = BACKUP_AUTO;
+        }
+    }    
+    &{$backup_func{$type}}($file);
+}
+
+sub backup_simple {
+    my ($file_name) = @_;
+    my $backup_name = $file_name . '~';
+    copy($file_name, $backup_name)
+        or croak "failed to copy $file_name to $backup_name: $!";
+    return $backup_name;
+}
+
+sub backup_numbered_opt {
+    my ($file_name, $if_exists) = @_;
+
+    my $dir = tempdir(DIR => dirname($file_name), CLEANUP => 1);
+    my $fh = File::Temp->new(DIR => $dir);
+    copy($file_name, $fh) or
+        croak "failed to make a temporary copy of $file_name: $!";
+
+    my $num = (sort { $b <=> $a }
+               map {
+                   if (/.+\.~(\d+)~$/) {
+                       $1
+                   } else {
+                       ()
+                   }
+               } glob("$file_name.~*~"))[0];
+
+    if (!defined($num)) {
+        return backup_simple($file_name) if $if_exists;
+        $num = '1';
+    }
+    
+    my $backup_name;
+    while (1) {
+        $backup_name = "$file_name.~$num~";
+        last if symlink($fh->filename, $backup_name);
+        ++$num;
+    }
+    
+    unless (rename($fh->filename, $backup_name)) {
+        croak "can't rename temporary file to $backup_name: $!";
+    }
+    return $backup_name;
+}
+
+sub backup_numbered {
+    my ($file_name) = @_;
+    backup_numbered_opt($file_name, 0);
+}
+
+sub backup_auto {
+    my ($file_name) = @_;
+    backup_numbered_opt($file_name, 1);
+}
+    
+1;