#
#========================================================================
#
-# Version 1.5.0, released 2 Aug 2002.
+# Version 1.6.0_CVS, released 10 Dec 2002.
#
# See http://backuppc.sourceforge.net.
#
{
my($class, $bpc, $args) = @_;
+ $args ||= {};
my $t = bless {
bpc => $bpc,
conf => { $bpc->Conf },
return $t;
}
+sub args
+{
+ my($t, $args) = @_;
+
+ foreach my $arg ( keys(%$args) ) {
+ $t->{$arg} = $args->{$arg};
+ }
+}
+
+sub useTar
+{
+ return 1;
+}
+
sub start
{
my($t) = @_;