| Line 1379... |
Line 1379... |
| 1379 |
$body = $h->p ("Greetings,");
|
1379 |
$body = $h->p ("Greetings,");
|
| 1380 |
$body .= $h->p ("It appears as though you've registered a new account in WFTDI's PEEPS system with the following information:");
|
1380 |
$body .= $h->p ("It appears as though you've registered a new account in WFTDI's PEEPS system with the following information:");
|
| 1381 |
$body .= $h->table ([
|
1381 |
$body .= $h->table ([
|
| 1382 |
$h->tr ([$h->td (" ", "Derby Name:", $data->{derby_name})]),
|
1382 |
$h->tr ([$h->td (" ", "Derby Name:", $data->{derby_name})]),
|
| 1383 |
$h->tr ([$h->td (" ", "Civil Name:", join (" ", $data->{name_first}, $data->{name_middle}, $data->{name_last}))]),
|
1383 |
$h->tr ([$h->td (" ", "Civil Name:", join (" ", $data->{name_first}, $data->{name_middle}, $data->{name_last}))]),
|
| 1384 |
# $h->tr ([$h->td (" ", "Pronouns:", $data->{pronouns})]),
|
- |
|
| 1385 |
# $h->tr ([$h->td (" ", "TShirt Size:", $data->{tshirt})]),
|
- |
|
| 1386 |
$h->tr ([$h->td (" ", "Email Address:", $data->{email})]),
|
1384 |
$h->tr ([$h->td (" ", "Email Address:", $data->{email})]),
|
| 1387 |
# $h->tr ([$h->td (" ", "Phone:", $data->{phone})])
|
- |
|
| 1388 |
]);
|
1385 |
]);
|
| 1389 |
$body .= $h->p ("To validate that you've entered a real (and correct) email address (and that you're not a spam-bot), please click the following link:",
|
1386 |
$body .= $h->p ("To validate that you've entered a real (and correct) email address (and that you're not a spam-bot), please click the following link:",
|
| 1390 |
$h->a ({ HREF=>$activationlink }, "Activate my PEEPS Account!"), $h->br,
|
1387 |
$h->a ({ HREF=>$activationlink }, "Activate my PEEPS Account!"), $h->br,
|
| 1391 |
"Or you can copy/paste this into the 'Activation Code' box: ".$data->{activation}, $h->br,
|
1388 |
"Or you can copy/paste this into the 'Activation Code' box: ".$data->{activation}, $h->br,
|
| 1392 |
"Once activated, you'll be able to log in.",
|
1389 |
"Once activated, you'll be able to log in.",
|
| 1393 |
"If you didn't make this request, well, you're still the only one who received this email, and you now have an account request. You should probably let us know that someone is messing with you.",
|
1390 |
"If you didn't make this request, well, you're still the only one who received this email, and you now have an account request. You should probably let us know that someone is messing with you.",
|
| 1394 |
$h->br,
|
1391 |
$h->br,
|
| 1395 |
"--PEEPS Automated Emailer");
|
1392 |
"--PEEPS Automated Emailer");
|
| - |
|
1393 |
} elsif ($context eq "Email Change") {
|
| - |
|
1394 |
$subject = 'WFTDI PEEPS - Email Change';
|
| - |
|
1395 |
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;
|
| - |
|
1396 |
my $activationlink = url ()."?activate=".$data->{activation};
|
| - |
|
1397 |
$body = $h->p ("Greetings,");
|
| - |
|
1398 |
$body .= $h->p ("It appears as though you've changed your email address in WFTDI's PEEPS system:");
|
| - |
|
1399 |
$body .= $h->table ([
|
| - |
|
1400 |
$h->tr ([$h->td (" ", "Derby Name:", $data->{derby_name})]),
|
| - |
|
1401 |
$h->tr ([$h->td (" ", "Civil Name:", join (" ", $data->{name_first}, $data->{name_middle}, $data->{name_last}))]),
|
| - |
|
1402 |
$h->tr ([$h->td (" ", "New Email Address:", $data->{email})]),
|
| - |
|
1403 |
]);
|
| - |
|
1404 |
$body .= $h->p ("To validate that you've entered a real (and correct) email address (and that you're not a spam-bot), please click the following link:",
|
| - |
|
1405 |
$h->a ({ HREF=>$activationlink }, "Re-activate my PEEPS Account!"), $h->br,
|
| - |
|
1406 |
"Or you can copy/paste this into the 'Activation Code' box: ".$data->{activation}, $h->br,
|
| - |
|
1407 |
"Once re-activated, you'll be able to log in again.",
|
| - |
|
1408 |
"If you didn't make this request, well, you're still the only one who received this email, and your username hasn't changed. You should probably let us know that someone is messing with you.",
|
| - |
|
1409 |
$h->br,
|
| - |
|
1410 |
"--PEEPS Automated Emailer");
|
| 1396 |
} elsif ($context eq "Activate") {
|
1411 |
} elsif ($context eq "Activate") {
|
| 1397 |
$subject .= " Activated!";
|
1412 |
$subject .= " Activated!";
|
| 1398 |
$body = "Greetings again,
|
1413 |
$body = "Greetings again,
|
| Line 1399... |
Line 1414... |
| 1399 |
|
1414 |
|