#
#========================================================================
#
-# Version 1.5.0, released 2 Aug 2002.
+# Version 2.0.0beta2, released 13 Apr 2003.
#
# See http://backuppc.sourceforge.net.
#
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
BPC_FTYPE_FIFO
BPC_FTYPE_SOCKET
BPC_FTYPE_UNKNOWN
+ BPC_FTYPE_DELETED
);
#
"fifo",
"?",
"socket",
+ "?",
+ "deleted",
);
#
{
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