package FS::part_export::communigate_pro_singledomain;
use vars qw(@ISA %info);
use Tie::IxHash;
use FS::part_export::communigate_pro;
@ISA = qw(FS::part_export::communigate_pro);
tie my %options, 'Tie::IxHash', %FS::part_export::communigate_pro::options,
'domain' => { label=>'Domain', },
;
%info = (
'svc' => 'svc_acct',
'desc' =>
'Real-time export to a CommuniGate Pro mail server, one domain only',
'options' => \%options,
'nodomain' => 'Y',
'default_svc_class' => 'Email',
'notes' => <<'END'
Real time export to a
CommuniGate Pro
mail server. This is an unusual export to CommuniGate Pro that forces all
accounts into a single domain. As CommuniGate Pro supports multiple domains,
unless you have a specific reason for using this export, you probably want to
use the communigate_pro export instead. The
CommuniGate Pro Perl Interface
must be installed as CGP::CLI.
END
);
sub export_username {
my($self, $svc_acct) = (shift, shift);
$svc_acct->username. '@'. $self->option('domain');
}
1;