GSM::SMS::TransportRouter::Simple - A simple router

package GSM::SMS::TransportRouter::Simple;
use strict;
use vars qw( $VERSION );

$VERSION = "0.161";

use base qw( GSM::SMS::TransportRouter::TransportRouter );
use Log::Agent;

sub route {
	my($self, $msisdn, @transport_list) = @_;

	logdbg "debug", "called Simple->route( $msisdn )";

	foreach my $transport ( @transport_list ) {

		if ( $self->get_transport() ) {
			logdbg "debug", "A specific transport (" . $self->get_transport() .
			                ") has been defined.";
			
			unless ( $self->get_transport() eq $transport->get_name() ) {
				logdbg "debug", "Only the specified transport is allowed to route messages, not this transport (" . 
					 $transport->get_name() . ").";
				next;
			}
		}
	
		logdbg "debug", 
			sprintf( "we received a %d from %s", 
						$transport->has_valid_route($msisdn),
						$transport->get_name()
				   );

		if ( $transport->has_valid_route($msisdn) ) {
			logdbg "debug", "route on " 
					 . ref($transport) 
					 . " ( " . $transport->get_name() . ")";
			return $transport;
		}
	}
	return undef;
}

1;

__END__