my($login, $password, $hostport) = <TEST_ACCOUNT>;
chomp $login;
chomp $password;
- chomp $hostport;
+ #chomp $hostport;
- if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
- my($host, $port) = ($1, $3);
- $Net::VoIP_Innovations::HOST = $host;
- $Net::VoIP_Innovations::PORT = $port;
- }
+ #if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
+ # my($host, $port) = ($1, $3);
+ # $Net::VoIP_Innovations::HOST = $host;
+ # $Net::VoIP_Innovations::PORT = $port;
+ #}
return($login, $password);
}