diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2018-01-16 12:14:54 -0500 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2018-01-16 12:14:54 -0500 |
| commit | 7668262421ea253ffaf95e0233e037f2857f7071 (patch) | |
| tree | 221ae82a81d95c35777242b60f5eda6baff94263 /FS/FS/ClientAPI | |
| parent | 3229b75a85ab506a718ec684c3e0ca26c496c166 (diff) | |
RT# 39340 - Created minimal selfservice that only allows payments to be made, authorization is based on ip and mac address. This is not done yet need to write routine to get mac address from radius server based on ip address.
Diffstat (limited to 'FS/FS/ClientAPI')
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index ce887ef..c00a13f 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -237,6 +237,13 @@ sub login { $svc_x = $svc_phone; + } elsif ( $p->{'domain'} eq 'ip_mac' ) { + + my $svc_broadband = qsearchs( 'svc_broadband', { 'mac_addr' => $p->{'username'} } ); + return { error => 'IP address not found' } + unless $svc_broadband; + $svc_x = $svc_broadband; + } elsif ( $p->{email} && (my $contact = FS::contact->by_selfservice_email($p->{email})) ) |