e-smith-backup/sme8/e-smith-backup-2.2.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	--- 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	--- 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