1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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
<a href="http://www.stalker.com/CommuniGatePro/">CommuniGate Pro</a>
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
<a href="http://www.stalker.com/CGPerl/">CommuniGate Pro Perl Interface</a>
must be installed as CGP::CLI.
END
);
sub export_username {
my($self, $svc_acct) = (shift, shift);
$svc_acct->username. '@'. $self->option('domain');
}
1;
|