FS/FS/part_export/communigate_pro_singledomain.pm


1
2
3
4
5
6
7
8
9
10
11

package FS::part_export::communigate_pro_singledomain;

use vars qw(@ISA);
use FS::part_export::communigate_pro;

@ISA = qw(FS::part_export::communigate_pro);

sub export_username {
  my($self, $svc_acct) = (shift, shift);
  $svc_acct->username. '@'. $self->option('domain');
}