Provider.pm 829 B

123456789101112131415161718192021222324252627282930
  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 $self = {
  11. 'contact' => {
  12. 'XMPPUSERNAME' => 'mr_t@a-team.gov',
  13. 'XMPPPASSWORD' => 'bjBarracus#1',
  14. 'XMPPUSETLS' => 1,
  15. 'XMPPTLSVERIFY' => 1,
  16. 'XMPPCOMPONENTNAME' => 'jibber.jabber.org',
  17. 'IRCSERVER' => 'irc.bot.test',
  18. },
  19. 'args' => {
  20. 'subject' => 'cPanel on Drugs',
  21. 'text_body' => \$text_body, #nutty, I know
  22. 'to' => [ 'cronspam@dev.null' ],
  23. }
  24. };
  25. return bless $self, $class;
  26. }
  27. 1;