X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FAttrib.pm;h=e38f7cb7826fca022f07c176ef536901e62fc4d6;hp=f5c497e6b66c25182a5cd9efea927715c8c71587;hb=5b3e6091d542c2e7445d5dd511cdf6e20aec8b8d;hpb=1ce7d1541ea1279aaa0a75c16986a3fd40b608ec;ds=sidebyside

diff --git a/lib/BackupPC/Attrib.pm b/lib/BackupPC/Attrib.pm
index f5c497e..e38f7cb 100644
--- a/lib/BackupPC/Attrib.pm
+++ b/lib/BackupPC/Attrib.pm
@@ -12,7 +12,7 @@
 #   Craig Barratt  <cbarratt@users.sourceforge.net>
 #
 # COPYRIGHT
-#   Copyright (C) 2001  Craig Barratt
+#   Copyright (C) 2001-2003  Craig Barratt
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 #
 #========================================================================
 #
-# Version 1.5.0, released 2 Aug 2002.
+# Version 3.0.0alpha, released 23 Jan 2006.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -59,6 +59,7 @@ use constant BPC_FTYPE_DIR      => 5;
 use constant BPC_FTYPE_FIFO     => 6;
 use constant BPC_FTYPE_SOCKET   => 8;
 use constant BPC_FTYPE_UNKNOWN  => 9;
+use constant BPC_FTYPE_DELETED  => 10;
 
 my @FILE_TYPES = qw(
                   BPC_FTYPE_FILE
@@ -70,6 +71,7 @@ my @FILE_TYPES = qw(
                   BPC_FTYPE_FIFO
                   BPC_FTYPE_SOCKET
                   BPC_FTYPE_UNKNOWN
+		  BPC_FTYPE_DELETED
              );
 
 #
@@ -85,6 +87,8 @@ my @FileType2Text = (
     "fifo",
     "?",
     "socket",
+    "?",
+    "deleted",
 );
 
 #
@@ -139,13 +143,18 @@ sub set
 {
     my($a, $fileName, $attrib) = @_;
 
-    $a->{files}{$fileName} = $attrib;
+    if ( !defined($attrib) ) {
+	delete($a->{files}{$fileName});
+    } else {
+	$a->{files}{$fileName} = $attrib;
+    }
 }
 
 sub get
 {
     my($a, $fileName) = @_;
-    return $a->{files}{$fileName};
+    return $a->{files}{$fileName} if ( defined($fileName) );
+    return $a->{files};
 }
 
 sub fileType2Text