11 |
# events for pre-backup action |
# events for pre-backup action |
12 |
diff -Nur e-smith-backup-2.6.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.6.0.new/root/etc/e-smith/events/actions/workstation-backup-dar |
diff -Nur e-smith-backup-2.6.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.6.0.new/root/etc/e-smith/events/actions/workstation-backup-dar |
13 |
--- e-smith-backup-2.6.0.old/root/etc/e-smith/events/actions/workstation-backup-dar 2016-02-05 00:08:22.000000000 +0100 |
--- e-smith-backup-2.6.0.old/root/etc/e-smith/events/actions/workstation-backup-dar 2016-02-05 00:08:22.000000000 +0100 |
14 |
+++ e-smith-backup-2.6.0.new/root/etc/e-smith/events/actions/workstation-backup-dar 2016-07-26 10:41:26.365197149 +0200 |
+++ e-smith-backup-2.6.0.new/root/etc/e-smith/events/actions/workstation-backup-dar 2016-07-28 11:02:39.939632127 +0200 |
15 |
@@ -30,6 +30,7 @@ |
@@ -30,6 +30,7 @@ |
16 |
use POSIX qw(:sys_wait_h strftime); |
use POSIX qw(:sys_wait_h strftime); |
17 |
use File::Glob qw(bsd_glob); |
use File::Glob qw(bsd_glob); |
29 |
|
|
30 |
my $report = "From: $frommail\n"; |
my $report = "From: $frommail\n"; |
31 |
$report .= "To: $tomail\n"; |
$report .= "To: $tomail\n"; |
32 |
@@ -74,6 +77,10 @@ |
@@ -74,6 +77,13 @@ |
33 |
$report .= "DAILY BACKUP TO WORKSTATION REPORT \n"; |
$report .= "DAILY BACKUP TO WORKSTATION REPORT \n"; |
34 |
$report .= "================================== \n"; |
$report .= "================================== \n"; |
35 |
$report .= "Backup of $id started at " .localtime() . "\n"; |
$report .= "Backup of $id started at " .localtime() . "\n"; |
36 |
+$report .= "================================== \n"; |
+$report .= "================================== \n"; |
37 |
+$report .= "Some parts are excluded of your backup: \n"; |
+ |
38 |
+$report .= "@backup_excludes"; |
+if (@backup_excludes) { |
39 |
+$report .= "================================== \n"; |
+ $report .= "Some parts are excluded of your backup: \n"; |
40 |
|
+ $report .= "@backup_excludes"; |
41 |
|
+ $report .= "================================== \n"; |
42 |
|
+ } |
43 |
|
|
44 |
# ping the SMB Host to see if it is awake |
# ping the SMB Host to see if it is awake |
45 |
$report .= wol ($ether,$smbhost,$smbhostmac,$smbhostdelay); |
$report .= wol ($ether,$smbhost,$smbhostmac,$smbhostdelay); |