define default port for mikrotik switches by config.pm

scripts/Rstat/cmd.pm

@@ -259,14 +259,14 @@ my $device = shift;
 #router
 if ($device->{device_type} eq '2') {
     #mikrotik
-#    if ($device->{vendor_id} eq '9') { $device->{port}=$config_ref{router_port}; }
+    if ($device->{vendor_id} eq '9') { $device->{port}=$config_ref{router_port}; }
     $device->{login}=$config_ref{router_login};
     $device->{password}=$config_ref{router_password};
     }
 #switch
 if ($device->{device_type} eq '1' or $device->{vendor_id} eq '3') {
     #mikrotik
-    if ($device->{vendor_id} eq '9') { $device->{port}=$config_ref{router_port}; }
+#    if ($device->{vendor_id} eq '9') { $device->{port}=$config_ref{router_port}; }
     $device->{login}=$sw_login;
     $device->{password}=$sw_password;
     }

scripts/Rstat/config.pm

@@ -269,7 +269,7 @@ our %switch_auth = (
 '17'=>{'vendor'=>'Maipu','proto'=>'telnet','port'=>'23','login'=> 'login:','password'=>'password:','prompt'=>qr/([-\w]+|[-\w(config)+])\#/},
 '4'=>{'vendor'=>'Zyxel','proto'=>'telnet','port'=>'23','login'=> 'User name:','password'=>'Password:','prompt'=>qr/([-\w]+|[-\w(config)+]|[-\w(config-interface)+])\#/},
 '38'=>{'vendor'=>'Qtech','proto'=>'telnet','port'=>'23','enable'=>'en','login'=> 'login:','password'=>'Password:','prompt'=>qr/([-\w]+|[-\w(config)+])\#/},
-'9'=>{'vendor'=>'Mikrotik','proto'=>'ssh','port'=>'60022','login'=> 'login as:','password'=>'password:','prompt'=>qr/\[[-\w]+\@[-\w]+\]\s+\>/},
+'9'=>{'vendor'=>'Mikrotik','proto'=>'ssh','port'=>'22','login'=> 'login as:','password'=>'password:','prompt'=>qr/\[[-\w]+\@[-\w]+\]\s+\>/},
 '39'=>{'vendor'=>'Extreme','proto'=>'telnet','port'=>'23','login'=> 'login:','password'=>'password:','prompt'=>qr/[-\w]+\s\#\s/},
 );