Change Server to NAS

lib/smradius/daemon.pm

@@ -622,7 +622,7 @@ sub process_request {
 			my $timePeriod = $now - $val;
 			# Check if we're still within the abuse threshold
 			if ($pkt->code eq "Access-Request" && $timePeriod < $self->{'smradius'}->{'access_request_abuse_threshold'}) {
-				$self->log(LOG_NOTICE,"[SMRADIUS] ABUSE: Server trying too fast. server = ".$server->{'peeraddr'}.", user = ".$user->{'Username'}.
+				$self->log(LOG_NOTICE,"[SMRADIUS] ABUSE: NAS trying too fast. NAS = ".$server->{'peeraddr'}.", user = ".$user->{'Username'}.
 						", code = ".$pkt->code.", timeout = ".($now - $val));
 				# Tell the NAS we got its packet
 				my $resp = smradius::Radius::Packet->new($self->{'radius'}->{'dictionary'});
@@ -635,7 +635,7 @@ sub process_request {
 				return;
 
 			} elsif ($pkt->code eq "Accounting-Request" && $timePeriod < $self->{'smradius'}->{'accounting_request_abuse_threshold'}) {
-				$self->log(LOG_NOTICE,"[SMRADIUS] ABUSE: Server trying too fast. server = ".$server->{'peeraddr'}.", user = ".$user->{'Username'}.
+				$self->log(LOG_NOTICE,"[SMRADIUS] ABUSE: NAS trying too fast. NAS = ".$server->{'peeraddr'}.", user = ".$user->{'Username'}.
 						", code = ".$pkt->code.", timeout = ".($now - $val));
 				# Tell the NAS we got its packet
 				my $resp = smradius::Radius::Packet->new($self->{'radius'}->{'dictionary'});