Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Only tell them it'll come later if post.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-02-29 17:58:37 -08:00
parent 475f8a8a1d
commit 76f4e3f4ef
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scripts/send-t-shirts.plx
View file

@ -68,6 +68,10 @@ foreach my $id (sort keys %idsSent) {
$emailTo = $addr[0];
}
my $fromAddress = 'info@sfconservancy.org';
my $pingNoGet = "";
$pingNoGet = "\nPlease ping us if you do not receive your t-shirt within two weeks in the\nUSA, or three weeks outside of the USA.\n\n"
if ($HOW =~ /post/);
open(SENDMAIL, "|/usr/lib/sendmail -f \"$fromAddress\" -oi -oem -- $emailTo $fromAddress") or
die "unable to run sendmail: $!";
print SENDMAIL <<DATA;
@ -75,15 +79,12 @@ To: $emailTo
From: "Software Freedom Conservancy" <$fromAddress>
Subject: $idsSent{$id} Conservancy T-Shirt sent via post yesterday.
The t-shirt of size $idsSent{$id} that you requested as a Conservancy
Supporter was sent to you via the post yesterday. Please ping us if you do
not receive your t-shirt within two weeks in the USA, or three weeks outside
of the USA.
Thank you again so much for supporting Conservancy. When your shirt arrives,
we'd really appreciate if you'd post pictures of the shirt on social media
and encourage others to sign up as a Conservancy supporter at
https://sfconservancy.org/supporter/ .
According to our records, the t-shirt of size $idsSent{$id} that you
requested as a Conservancy Supporter was $HOW.
$pingNoGet
Thank you again so much for supporting Conservancy. We'd really appreciate
if you'd post pictures of the shirt on social media and encourage others to
sign up as a Conservancy supporter at https://sfconservancy.org/supporter/ .
Sincerely,