projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 74789 - updated format to handle credits in seperated batch files
[freeside.git]
/
FS
/
FS
/
acct_snarf.pm
diff --git
a/FS/FS/acct_snarf.pm
b/FS/FS/acct_snarf.pm
index
480a632
..
40d21d0
100644
(file)
--- a/
FS/FS/acct_snarf.pm
+++ b/
FS/FS/acct_snarf.pm
@@
-1,13
+1,11
@@
package FS::acct_snarf;
package FS::acct_snarf;
+use base qw(FS::Record);
use strict;
use strict;
-use vars qw( @ISA );
use Tie::IxHash;
use FS::Record qw( qsearchs );
use FS::cust_svc;
use Tie::IxHash;
use FS::Record qw( qsearchs );
use FS::cust_svc;
-@ISA = qw( FS::Record );
-
=head1 NAME
FS::acct_snarf - Object methods for acct_snarf records
=head1 NAME
FS::acct_snarf - Object methods for acct_snarf records
@@
-142,7
+140,7
@@
sub check {
|| $self->ut_alphan('protocol')
|| $self->ut_textn('username')
|| $self->ut_numbern('check_freq')
|| $self->ut_alphan('protocol')
|| $self->ut_textn('username')
|| $self->ut_numbern('check_freq')
- || $self->ut_enum('leave', [ '', 'Y' ])
+ || $self->ut_enum('leave
mail
', [ '', 'Y' ])
|| $self->ut_enum('apop', [ '', 'Y' ])
|| $self->ut_enum('tls', [ '', 'Y' ])
|| $self->ut_alphan('mailbox')
|| $self->ut_enum('apop', [ '', 'Y' ])
|| $self->ut_enum('tls', [ '', 'Y' ])
|| $self->ut_alphan('mailbox')
@@
-195,9
+193,9
@@
sub cgp_hashref {
'domain' => $self->machine,
'password' => $self->_password,
'period' => $self->check_freq.'s',
'domain' => $self->machine,
'password' => $self->_password,
'period' => $self->check_freq.'s',
- 'APOP' => ( $self->apop eq 'Y' ? 'YES' : 'NO' ),
- 'TLS' => ( $self->tls eq 'Y' ? 'YES' : 'NO' ),
- 'Leave' => ( $self->leave eq 'Y' ? 'YES' : 'NO' ), #XXX leave??
+ 'APOP' => ( $self->apop
eq 'Y' ? 'YES' : 'NO' ),
+ 'TLS' => ( $self->tls
eq 'Y' ? 'YES' : 'NO' ),
+ 'Leave' => ( $self->leave
mail
eq 'Y' ? 'YES' : 'NO' ), #XXX leave??
};
}
};
}