WebSVN – PEEPS – Diff – /trunk/perl/PEEPSMailer.pm



                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br.$h->br,
                      "Log into ".$h->a ({href=>CGI::url ()}, "WFTDA PEEPS")." to accept or reject the affiliation request.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""
                   );

                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });

                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br,
                      "Role: ".$role.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""
                   );

                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });

                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br,
                      "Role: ".$newrole.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""
                   );

                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });

                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""
                   );

  
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });

Subversion Repositories PEEPS

(root)/trunk/perl/PEEPSMailer.pm – Rev 19 → 61

Rev 19		Rev 61
Line 143...		Line 143...
143	`"Derby Name: ".$newb->{derby_name}.$h->br.`	143	`"Derby Name: ".$newb->{derby_name}.$h->br.`
144	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`	144	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`
145	`"PEEPS ID: ".$newb->{id}.$h->br.$h->br,`	145	`"PEEPS ID: ".$newb->{id}.$h->br.$h->br,`
146	`"Log into ".$h->a ({href=>CGI::url ()}, "WFTDA PEEPS")." to accept or reject the affiliation request.".$h->br.$h->br,`	146	`"Log into ".$h->a ({href=>CGI::url ()}, "WFTDA PEEPS")." to accept or reject the affiliation request.".$h->br.$h->br,`
147	`"-WFTDA PEEPS",`	147	`"-WFTDA PEEPS",`
148	`"NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"`	148	`$ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""`
149	`);`	149	`);`
Line 150...		Line 150...
150		150
151	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`	151	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`
Line 171...		Line 171...
171	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`	171	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`
172	`"PEEPS ID: ".$newb->{id}.$h->br,`	172	`"PEEPS ID: ".$newb->{id}.$h->br,`
173	`"Role: ".$role.$h->br.$h->br,`	173	`"Role: ".$role.$h->br.$h->br,`
174	`"No further action is necessary.".$h->br.$h->br,`	174	`"No further action is necessary.".$h->br.$h->br,`
175	`"-WFTDA PEEPS",`	175	`"-WFTDA PEEPS",`
176	`"NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"`	176	`$ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""`
177	`);`	177	`);`
Line 178...		Line 178...
178		178
179	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`	179	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`
Line 199...		Line 199...
199	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`	199	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`
200	`"PEEPS ID: ".$newb->{id}.$h->br,`	200	`"PEEPS ID: ".$newb->{id}.$h->br,`
201	`"Role: ".$newrole.$h->br.$h->br,`	201	`"Role: ".$newrole.$h->br.$h->br,`
202	`"No further action is necessary.".$h->br.$h->br,`	202	`"No further action is necessary.".$h->br.$h->br,`
203	`"-WFTDA PEEPS",`	203	`"-WFTDA PEEPS",`
204	`"NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"`	204	`$ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""`
205	`);`	205	`);`
Line 206...		Line 206...
206		206
207	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`	207	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`
Line 225...		Line 225...
225	`"Derby Name: ".$newb->{derby_name}.$h->br.`	225	`"Derby Name: ".$newb->{derby_name}.$h->br.`
226	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`	226	`"Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.`
227	`"PEEPS ID: ".$newb->{id}.$h->br.$h->br,`	227	`"PEEPS ID: ".$newb->{id}.$h->br.$h->br,`
228	`"No further action is necessary.".$h->br.$h->br,`	228	`"No further action is necessary.".$h->br.$h->br,`
229	`"-WFTDA PEEPS",`	229	`"-WFTDA PEEPS",`
230	`"NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"`	230	`$ENV{SERVER_NAME} eq "peeps.wftda.com" ? "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!" : ""`
231	`);`	231	`);`
Line 232...		Line 232...
232		232
233	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`	233	`PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });`