Provider.pm 761 B

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