Renamed POD to COA and added backwards compatibility

lib/smradius/daemon.pm

@@ -931,64 +931,76 @@ sub process_request {
 			# Grab packet
 			my $response = auth_resp($resp->pack, getAttributeValue($user->{'ConfigAttributes'},"SMRadius-Config-Secret"));
 
-			# Check for POD Servers and send disconnect
+			my $coaServer;
+
+			# Check for old POD server attribute
 			if (defined($user->{'ConfigAttributes'}->{'SMRadius-Config-PODServer'})) {
 				$self->log(LOG_DEBUG,"[SMRADIUS] SMRadius-Config-PODServer is defined");
+				$coaServer = $user->{'ConfigAttributes'}->{'SMRadius-Config-PODServer'};
+			}
+
+			# Check for new CoA server attribute
+			if (defined($user->{'ConfigAttributes'}->{'SMRadius-Config-CoAServer'})) {
+				$self->log(LOG_DEBUG,"[SMRADIUS] SMRadius-Config-CoAServer is defined");
+				$coaServer = $user->{'ConfigAttributes'}->{'SMRadius-Config-CoAServer'};
+			}
 
+			# Check for CoA servers
+			if (defined($coaServer)) {
 				# Check address format
-				foreach my $podServerAttribute (@{$user->{'ConfigAttributes'}->{'SMRadius-Config-PODServer'}}) {
+				foreach my $coaServerAttribute (@{$coaServer}) {
 					# Check for valid IP
-					if ($podServerAttribute =~ /^([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) {
-						my $podServer = $1;
+					if ($coaServerAttribute =~ /^([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) {
+						my $coaServer = $1;
 
 						# If we have a port, use it, otherwise use default 1700
-						my $podServerPort;
-						if ($podServerAttribute =~ /:([0-9]+)$/) {
-							$podServerPort = $1;
+						my $coaServerPort;
+						if ($coaServerAttribute =~ /:([0-9]+)$/) {
+							$coaServerPort = $1;
 						} else {
-							$podServerPort = 1700;
+							$coaServerPort = 1700;
 						}
 
-						$self->log(LOG_DEBUG,"[SMRADIUS] POST-ACCT: Trying PODServer => IP: '".$podServer."' Port: '".$podServerPort."'");
+						$self->log(LOG_DEBUG,"[SMRADIUS] POST-ACCT: Trying CoAServer => IP: '".$coaServer."' Port: '".$coaServerPort."'");
 
 						# Create socket to send packet out on
-						my $podServerTimeout = "10";  # 10 second timeout
-						my $podSock = IO::Socket::INET->new(
-								PeerAddr => $podServer,
-								PeerPort => $podServerPort,
+						my $coaServerTimeout = "10";  # 10 second timeout
+						my $coaSock = IO::Socket::INET->new(
+								PeerAddr => $coaServer,
+								PeerPort => $coaServerPort,
 								Type => SOCK_DGRAM,
 								Proto => 'udp',
-								TimeOut => $podServerTimeout,
+								TimeOut => $coaServerTimeout,
 						);
 
-						if (!$podSock) {
+						if (!$coaSock) {
 							$self->log(LOG_ERR,"[SMRADIUS] POST-ACCT: Failed to create socket to send POD on");
 							next;
 						}
 
 						# Check if we sent the packet...
-						if (!$podSock->send($response)) {
+						if (!$coaSock->send($response)) {
 							$self->log(LOG_ERR,"[SMRADIUS] POST-ACCT: Failed to send data on socket");
 							next;
 						}
 
 						# Once sent, we need to get a response back
-						my $sh = IO::Select->new($podSock);
+						my $sh = IO::Select->new($coaSock);
 						if (!$sh) {
 							$self->log(LOG_ERR,"[SMRADIUS] POST-ACCT: Failed to select data on socket");
 							next;
 						}
 
-						if (!$sh->can_read($podServerTimeout)) {
+						if (!$sh->can_read($coaServerTimeout)) {
 							$self->log(LOG_ERR,"[SMRADIUS] POST-ACCT: Failed to receive data on socket");
 							next;
 						}
 
 						my $data;
-						$podSock->recv($data, 65536);
+						$coaSock->recv($data, 65536);
 						if (!$data) {
 							$self->log(LOG_ERR,"[SMRADIUS] POST-ACCT: Receive data failed");
-							$logReason = "POD Failure";
+							$logReason = "CoA Failure";
 						} else {
 							$logReason = "User POD";
 						}
@@ -996,11 +1008,11 @@ sub process_request {
 						#my @stuff = unpack('C C n a16 a*', $data);
 						#$self->log(LOG_DEBUG,"STUFF: ".Dumper(\@stuff));
 					} else {
-						$self->log(LOG_DEBUG,"[SMRADIUS] Invalid POD Server value: '".$podServerAttribute."'");
+						$self->log(LOG_DEBUG,"[SMRADIUS] Invalid CoA Server value: '".$coaServerAttribute."'");
 					}
 				}
 			} else {
-				$self->log(LOG_DEBUG,"[SMRADIUS] SMRadius-Config-PODServer is not defined");
+				$self->log(LOG_DEBUG,"[SMRADIUS] SMRadius-Config-CoAServer is not defined");
 			}
 		}