[PATCH 1/7] Add name property to Brackup::Target class
Michael Hanselmann
public at hansmi.ch
Wed Aug 13 21:15:56 UTC 2008
From: Michael Hanselmann <hansmi at hansmi-mac-zrh.lan>
---
lib/Brackup/Target.pm | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/lib/Brackup/Target.pm b/lib/Brackup/Target.pm
index 04bdfc0..ca4c20c 100644
--- a/lib/Brackup/Target.pm
+++ b/lib/Brackup/Target.pm
@@ -13,6 +13,7 @@ sub new {
my $name = $confsec->name;
$name =~ s!^TARGET:!! or die;
+ $self->{name} = $name;
$self->{keep_backups} = $confsec->value("keep_backups");
$self->{inv_db} =
Brackup::InventoryDatabase->new($confsec->value("inventory_db") ||
@@ -21,6 +22,12 @@ sub new {
return $self;
}
+sub name {
+ my ($self) = @_;
+
+ return $self->{name};
+}
+
# return hashref of key/value pairs you want returned to you during a restore
# you should include anything you need to restore.
# keys should only contain \w
--
1.5.5.3
More information about the brackup
mailing list