1 |
diff -Nur --no-dereference e-smith-devtools-2.6.0.old/Backup.pm e-smith-devtools-2.6.0/Backup.pm |
diff -Nur --no-dereference e-smith-devtools-2.6.0.old/Backup.pm e-smith-devtools-2.6.0/Backup.pm |
2 |
--- e-smith-devtools-2.6.0.old/Backup.pm 1969-12-31 19:00:00.000000000 -0500 |
--- e-smith-devtools-2.6.0.old/Backup.pm 1969-12-31 19:00:00.000000000 -0500 |
3 |
+++ e-smith-devtools-2.6.0/Backup.pm 2022-07-29 23:51:46.614000000 -0400 |
+++ e-smith-devtools-2.6.0/Backup.pm 2022-07-30 00:28:03.796000000 -0400 |
4 |
@@ -0,0 +1,120 @@ |
@@ -0,0 +1,116 @@ |
5 |
+#---------------------------------------------------------------------- |
+#---------------------------------------------------------------------- |
6 |
+# copyright (C) 2013-2022 Koozali Foundation |
+# copyright (C) 2013-2022 Koozali Foundation |
7 |
+# |
+# |
38 |
+ all => [ qw!backup_excludes backup_includes! ] |
+ all => [ qw!backup_excludes backup_includes! ] |
39 |
+ ); |
+ ); |
40 |
+ |
+ |
41 |
+our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/; |
+our $VERSION = sprintf '%d.%03d', q$Revision: 1.2 $ =~ /: (\d+).(\d+)/; |
42 |
+ |
+ |
43 |
+=head1 NAME |
+=head1 NAME |
44 |
+ |
+ |
101 |
+ my $core = "root/etc/backup-data.d"; |
+ my $core = "root/etc/backup-data.d"; |
102 |
+ my $corefilename = "$core/${name}.exclude"; |
+ my $corefilename = "$core/${name}.exclude"; |
103 |
+ |
+ |
|
+ unless (-d $dir) |
|
|
+ { |
|
|
+ mkpath $dir or die "Could not create dir $dir: $!"; |
|
|
+ } |
|
104 |
+ unless (-d $core) |
+ unless (-d $core) |
105 |
+ { |
+ { |
106 |
+ mkpath $core or die "Could not create dir $core: $!"; |
+ mkpath $core or die "Could not create dir $core: $!"; |