support the old use of just putting the password in the control field

2015-05-13 08:23:16 -04:00 · 2015-05-13 08:23:16 -04:00 · 246fadb097
parent e8114c90bb
commit 246fadb097
1 changed files with 4 additions and 0 deletions
--- a/scripts/ZoneMinder/lib/ZoneMinder/Control/FI9821W_Y2k.pm
+++ b/scripts/ZoneMinder/lib/ZoneMinder/Control/FI9821W_Y2k.pm
@ -114,6 +114,10 @@ sub sendCmd
    my $result = undef;

 	my ($user, $password) = split /:/, $self->{Monitor}->{ControlDevice};
+	if ( ! $password ) {
+		$password = $user;
+		$user = 'admin';
+	}
 	$user = 'admin' if ! $user;
 	$password = 'pwd' if ! $password;