e-smith-backup/sme7/e-smith-backup-2.0.0-restore_list.patch

--- e-smith-backup-2.0.0/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/40go-into.restore_list      2008-10-07 11:34:31.000000000 -0600
+++ e-smith-backup-2.0.0/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/40go-into   2008-10-16 10:11:42.000000000 -0600
@@ -1,13 +1,8 @@
---go-into etc/e-smith/templates-custom
---go-into etc/e-smith/templates-user-custom
---go-into etc/group
---go-into etc/gshadow
---go-into etc/passwd
---go-into etc/samba/secrets.tdb
---go-into etc/samba/smbpasswd
---go-into etc/shadow
---go-into etc/smbpasswd
---go-into etc/ssh
---go-into etc/sudoers
---go-into home/e-smith
---go-into root
+{
+    use esmith::Backup;
+
+    my @backup_list = esmith::Backup->restore_list;
+    foreach my $dir ( @backup_list ) {
+        $OUT .= "--go-into $dir\n";
+    }
+}
--- e-smith-backup-2.0.0/root/usr/lib/perl5/site_perl/esmith/Backup.pm.restore_list     2007-09-05 13:45:52.000000000 -0600
+++ e-smith-backup-2.0.0/root/usr/lib/perl5/site_perl/esmith/Backup.pm  2008-10-20 09:25:37.000000000 -0600
@@ -59,34 +59,6 @@
     return $self;
 }
 
-=head2 restore_list
-
-Returns an (ordered) array of files/directories to recover from the
-backup. The pathnames are relative to root.
-
-=cut
-
-sub restore_list
-{
-    my ($self) = @_;
-
-    return (
-        'home/e-smith',
-        'etc/e-smith/templates-custom',
-        'etc/e-smith/templates-user-custom',
-        'etc/ssh',
-        'root',
-        'etc/sudoers',
-        'etc/passwd',
-        'etc/shadow',
-        'etc/group',
-        'etc/gshadow',
-        'etc/samba/secrets.tdb',
-        'etc/samba/smbpasswd',
-        'etc/smbpasswd',
-    );
-}
-
 =head2 merge_passwd
 
 Merge password files. Takes a filename of a restored password
1	slords	1.1	--- e-smith-backup-2.0.0/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/40go-into.restore_list 2008-10-07 11:34:31.000000000 -0600
2			+++ e-smith-backup-2.0.0/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/40go-into 2008-10-16 10:11:42.000000000 -0600
3			@@ -1,13 +1,8 @@
4			---go-into etc/e-smith/templates-custom
5			---go-into etc/e-smith/templates-user-custom
6			---go-into etc/group
7			---go-into etc/gshadow
8			---go-into etc/passwd
9			---go-into etc/samba/secrets.tdb
10			---go-into etc/samba/smbpasswd
11			---go-into etc/shadow
12			---go-into etc/smbpasswd
13			---go-into etc/ssh
14			---go-into etc/sudoers
15			---go-into home/e-smith
16			---go-into root
17			+{
18			+ use esmith::Backup;
19			+
20			+ my @backup_list = esmith::Backup->restore_list;
21			+ foreach my $dir ( @backup_list ) {
22			+ $OUT .= "--go-into $dir\n";
23			+ }
24			+}
25	slords	1.2	--- e-smith-backup-2.0.0/root/usr/lib/perl5/site_perl/esmith/Backup.pm.restore_list 2007-09-05 13:45:52.000000000 -0600
26			+++ e-smith-backup-2.0.0/root/usr/lib/perl5/site_perl/esmith/Backup.pm 2008-10-20 09:25:37.000000000 -0600
27			@@ -59,34 +59,6 @@
28			return $self;
29			}
30
31			-=head2 restore_list
32			-
33			-Returns an (ordered) array of files/directories to recover from the
34			-backup. The pathnames are relative to root.
35			-
36			-=cut
37			-
38			-sub restore_list
39			-{
40			- my ($self) = @_;
41			-
42			- return (
43			- 'home/e-smith',
44			- 'etc/e-smith/templates-custom',
45			- 'etc/e-smith/templates-user-custom',
46			- 'etc/ssh',
47			- 'root',
48			- 'etc/sudoers',
49			- 'etc/passwd',
50			- 'etc/shadow',
51			- 'etc/group',
52			- 'etc/gshadow',
53			- 'etc/samba/secrets.tdb',
54			- 'etc/samba/smbpasswd',
55			- 'etc/smbpasswd',
56			- );
57			-}
58			-
59			=head2 merge_passwd
60
61			Merge password files. Takes a filename of a restored password