Provider.pm 997 B

12345678910111213141516171819202122232425262728293031323334
  1. # ================================
  2. # MOCK ME BABY ALL NIGHT LONG
  3. # ================================
  4. package Cpanel::iContact::Provider;
  5. use strict;
  6. use warnings;
  7. sub new {
  8. my $class = shift;
  9. my $text_body = 'HOLY CRAP THE AUTO-LAYOFF THING TRIGGERED';
  10. my $html_body = "<p>$text_body</p>";
  11. my $self = {
  12. 'contact' => {
  13. 'XMPPUSERNAME' => 'mr_t@a-team.gov',
  14. 'XMPPPASSWORD' => 'bjBarracus#1',
  15. 'XMPPUSETLS' => 1,
  16. 'XMPPTLSVERIFY' => 1,
  17. 'XMPPCOMPONENTNAME' => 'jibber.jabber.org',
  18. 'IRCSERVER' => 'irc.bot.test',
  19. 'IRCPORT' => 666,
  20. 'IRCNICK' => 'DevilBot',
  21. },
  22. 'args' => {
  23. 'subject' => 'cPanel on Drugs',
  24. 'text_body' => \$text_body, #nutty, I know
  25. 'html_body' => \$html_body,
  26. 'to' => [ 'cronspam@dev.null' ],
  27. }
  28. };
  29. return bless $self, $class;
  30. }
  31. 1;