FS/FS/part_export/communigate_pro_singledomain.pm

   1 package FS::part_export::communigate_pro_singledomain;
   2
   3 use vars qw(@ISA %info);
   4 use Tie::IxHash;
   5 use FS::part_export::communigate_pro;
   6
   7 @ISA = qw(FS::part_export::communigate_pro);
   8
   9 tie my %options, 'Tie::IxHash', %FS::part_export::communigate_pro::options,
  10   'domain'   => { label=>'Domain', },
  11 ;
  12
  13 %info = (
  14   'svc'      => 'svc_acct',
  15   'desc'     =>
  16     'Real-time export to a CommuniGate Pro mail server, one domain only',
  17   'options'  => \%options,
  18   'nodomain' => 'Y',
  19   'notes'    => <<'END'
  20 Real time export to a
  21 <a href="http://www.stalker.com/CommuniGatePro/">CommuniGate Pro</a>
  22 mail server.  This is an unusual export to CommuniGate Pro that forces all
  23 accounts into a single domain.  As CommuniGate Pro supports multiple domains,
  24 unless you have a specific reason for using this export, you probably want to
  25 use the communigate_pro export instead.  The
  26 <a href="http://www.stalker.com/CGPerl/">CommuniGate Pro Perl Interface</a>
  27 must be installed as CGP::CLI.
  28 END
  29 );
  30
  31 sub export_username {
  32   my($self, $svc_acct) = (shift, shift);
  33   $svc_acct->username. '@'. $self->option('domain');
  34 }
  35
  36 1;
  37