Provider.pm 916 B

1234567891011121314151617181920212223242526272829303132
  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. 'IRCPORT' => 666,
  19. 'IRCNICK' => 'DevilBot',
  20. },
  21. 'args' => {
  22. 'subject' => 'cPanel on Drugs',
  23. 'text_body' => \$text_body, #nutty, I know
  24. 'to' => [ 'cronspam@dev.null' ],
  25. }
  26. };
  27. return bless $self, $class;
  28. }
  29. 1;