e-smith-backup/sme8/e-smith-backup-2.2.0-workstation-backup-wol.patch

diff -ruN e-smith-backup-2.2.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.2.0/root/etc/e-smith/events/actions/workstation-backup-dar
--- e-smith-backup-2.2.0.old/root/etc/e-smith/events/actions/workstation-backup-dar     2013-05-09 04:02:49.000000000 +0100
+++ e-smith-backup-2.2.0/root/etc/e-smith/events/actions/workstation-backup-dar 2013-07-02 12:59:24.000000000 +0100
@@ -40,6 +40,7 @@
 
 my $confdb = esmith::ConfigDB->open;
 my $backupwk = $confdb->get('backupwk') or die "No backupwk db entry found\n";
+my $internalinterface = $confdb->get('InternalInterface') or die "No internalinterface db entry found\n";
 
 my $tm = localtime(time);
 my $bkname = $tm->year+1900;
@@ -66,6 +67,8 @@
 
 my $smbhost = $backupwk->prop('SmbHost');
 my $smbshare = $backupwk->prop('SmbShare');
+my $smbhostmac = $backupwk->prop('SmbHostMAC');
+my $smbhostdelay = $backupwk->prop('SmbHostDelay') || 300;
 my $login = $backupwk->prop('Login');
 my $password = $backupwk->prop('Password');
 my $setsmax = $backupwk->prop('SetsMax') || 1;
@@ -80,6 +83,7 @@
 my $mntdir = $backupwk->prop('Mount') || '/mnt/smb';
 my $frommail = $backupwk->prop('FromMail') || 'admin-backup';
 my $tomail = $backupwk->prop('ToMail') || 'admin';
+my $ether = $internalinterface->prop('Name');
 my $tmpdir;
 
 $report .= "From: ".$frommail."\n";
@@ -95,6 +99,15 @@
 
 $report .= "Mounting backup shared directory $smbhost/$smbshare \n";
 
+# ping the SMB Host to see if it is awake
+
+if (defined($smbhostmac) && (system("ping -c1 $smbhost > /dev/null") != 0)) {
+  $report .= "$smbhost might be asleep, attempting to wake\n";
+  system("ether-wake -i $ether $smbhostmac");
+  $report .= "Waiting $smbhostdelay seconds...\n";
+  sleep $smbhostdelay;
+}
+
 # verify backup directory not already mounted
 
 open FD, '/proc/mounts';
1	diff -ruN e-smith-backup-2.2.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.2.0/root/etc/e-smith/events/actions/workstation-backup-dar
2	--- e-smith-backup-2.2.0.old/root/etc/e-smith/events/actions/workstation-backup-dar 2013-05-09 04:02:49.000000000 +0100
3	+++ e-smith-backup-2.2.0/root/etc/e-smith/events/actions/workstation-backup-dar 2013-07-02 12:59:24.000000000 +0100
4	@@ -40,6 +40,7 @@
5
6	my $confdb = esmith::ConfigDB->open;
7	my $backupwk = $confdb->get('backupwk') or die "No backupwk db entry found\n";
8	+my $internalinterface = $confdb->get('InternalInterface') or die "No internalinterface db entry found\n";
9
10	my $tm = localtime(time);
11	my $bkname = $tm->year+1900;
12	@@ -66,6 +67,8 @@
13
14	my $smbhost = $backupwk->prop('SmbHost');
15	my $smbshare = $backupwk->prop('SmbShare');
16	+my $smbhostmac = $backupwk->prop('SmbHostMAC');
17	+my $smbhostdelay = $backupwk->prop('SmbHostDelay') \|\| 300;
18	my $login = $backupwk->prop('Login');
19	my $password = $backupwk->prop('Password');
20	my $setsmax = $backupwk->prop('SetsMax') \|\| 1;
21	@@ -80,6 +83,7 @@
22	my $mntdir = $backupwk->prop('Mount') \|\| '/mnt/smb';
23	my $frommail = $backupwk->prop('FromMail') \|\| 'admin-backup';
24	my $tomail = $backupwk->prop('ToMail') \|\| 'admin';
25	+my $ether = $internalinterface->prop('Name');
26	my $tmpdir;
27
28	$report .= "From: ".$frommail."\n";
29	@@ -95,6 +99,15 @@
30
31	$report .= "Mounting backup shared directory $smbhost/$smbshare \n";
32
33	+# ping the SMB Host to see if it is awake
34	+
35	+if (defined($smbhostmac) && (system("ping -c1 $smbhost > /dev/null") != 0)) {
36	+ $report .= "$smbhost might be asleep, attempting to wake\n";
37	+ system("ether-wake -i $ether $smbhostmac");
38	+ $report .= "Waiting $smbhostdelay seconds...\n";
39	+ sleep $smbhostdelay;
40	+}
41	+
42	# verify backup directory not already mounted
43
44	open FD, '/proc/mounts';