From: clinton_admin <clinton_admin@navajos.hcoop.net>
Date: Thu, 20 Dec 2012 08:26:26 +0000 (-0500)
Subject: Escape @ in mail address for quotacheck
X-Git-Url: https://git.hcoop.net/hcoop/scripts.git/commitdiff_plain/fa44e5b4fba097f4cdc4b139637d9aa303a2bbe7?hp=2a789dae2af8378cc8c8cbf2bccaa9ed050f440c

Escape @ in mail address for quotacheck
* This caused an error on newer perl
---

diff --git a/quotacheck b/quotacheck
index 2d638d1..70306a9 100755
--- a/quotacheck
+++ b/quotacheck
@@ -237,7 +237,7 @@ sub email_notify {
 		$_ =~ s/\$CRIT{(\w+)}/$warn{$user}{$1} ? " (APPROACHING QUOTA)" : ""/mge;
 	}
 	#print join('', @msg);
-	open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins@hcoop.net' '$user\@hcoop.net'");
+	open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins\@hcoop.net' '$user\@hcoop.net'");
 	{ no warnings; print main::MAIL join('', @msg); }
 	close MAIL;
 }