X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI%2FMyAccount.pm;h=d724e2c60ef18160e255b53e5bf41478551a81a9;hb=f464dfb4fed3f68c330938d455083424e7c838de;hp=3390687aef55b40eba0eb4b5846e2b34f66e6319;hpb=9d55843fddd22f64ad0f6b890181c6918aebbf6d;p=freeside.git diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 3390687ae..d724e2c60 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -183,29 +183,6 @@ sub skin_info { } -sub get_mac_address { - my $p = shift; - -## access radius exports acct tables to get mac - my @part_export = (); - @part_export = ( - qsearch( 'part_export', { 'exporttype' => 'sqlradius' } ), - qsearch( 'part_export', { 'exporttype' => 'sqlradius_withdomain' } ), - qsearch( 'part_export', { 'exporttype' => 'broadband_sqlradius' } ), - ); - - my @sessions; - foreach my $part_export (@part_export) { - push @sessions, ( @{ $part_export->usage_sessions( { - 'ip' => $p->{'ip'}, - } ) } ); - } - - my $mac = $sessions[0]->{'callingstationid'}; - - return { 'mac_address' => $mac, }; -} - sub login_info { my $p = shift; @@ -261,11 +238,8 @@ sub login { } elsif ( $p->{'domain'} eq 'ip_mac' ) { - my $mac_address = $p->{'username'}; - $mac_address =~ s/\://g; - - my $svc_broadband = qsearchs( 'svc_broadband', { 'mac_addr' => $mac_address } ); - return { error => 'MAC address not found '.$p->{'username'} } + my $svc_broadband = qsearchs( 'svc_broadband', { 'mac_addr' => $p->{'username'} } ); + return { error => 'IP address not found' } unless $svc_broadband; $svc_x = $svc_broadband;