sub add_interface {
my($self, $router_ip, $interface, $serviceid ) = @_;
sub add_interface {
my($self, $router_ip, $interface, $serviceid ) = @_;
$interface =~ s(\/)(_)g; #slashes become underscores
$interface =~ s(\.)(_)g; #periods too, huh
$interface =~ s(\/)(_)g; #slashes become underscores
$interface =~ s(\.)(_)g; #periods too, huh