22 |
+ $OUT .= "--go-into $dir\n"; |
+ $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 |