From fa44e5b4fba097f4cdc4b139637d9aa303a2bbe7 Mon Sep 17 00:00:00 2001 From: clinton_admin Date: Thu, 20 Dec 2012 03:26:26 -0500 Subject: [PATCH] Escape @ in mail address for quotacheck * This caused an error on newer perl --- quotacheck | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; } -- 2.20.1