FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

FRITZBOX: freetz telnet "login: "

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7299 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2014-12-21 21:30:17 +00:00
parent 3612caceb3
commit f6e048ad22
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
fhem/FHEM/72_FRITZBOX.pm
View File

@ -272,7 +272,7 @@ FRITZBOX_Set($$@)
{ {
if ( int @val == 2 && $val[0] =~ /^(1|2|3)$/ && $val[1] =~ /^(on|off)$/ ) if ( int @val == 2 && $val[0] =~ /^(1|2|3)$/ && $val[1] =~ /^(on|off)$/ )
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
my $state = $val[1]; my $state = $val[1];
$state =~ s/on/1/; $state =~ s/on/1/;
$state =~ s/off/0/; $state =~ s/off/0/;
@ -284,14 +284,14 @@ FRITZBOX_Set($$@)
} elsif ( lc $cmd eq 'convertmoh') { } elsif ( lc $cmd eq 'convertmoh') {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
return FRITZBOX_ConvertMOH $hash, @val; return FRITZBOX_ConvertMOH $hash, @val;
} }
} elsif ( lc $cmd eq 'convertringtone') { } elsif ( lc $cmd eq 'convertringtone') {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
return FRITZBOX_ConvertRingTone $hash, @val; return FRITZBOX_ConvertRingTone $hash, @val;
} }
@ -310,14 +310,14 @@ FRITZBOX_Set($$@)
} elsif ( lc $cmd eq 'customerringtone') { } elsif ( lc $cmd eq 'customerringtone') {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
return FRITZBOX_SetCustomerRingTone $hash, @val; return FRITZBOX_SetCustomerRingTone $hash, @val;
} }
} elsif ( lc $cmd eq 'diversity') { } elsif ( lc $cmd eq 'diversity') {
if ( int @val == 2 && defined( $hash->{READINGS}{"diversity".$val[0]} ) && $val[1] =~ /^(on|off)$/ ) if ( int @val == 2 && defined( $hash->{READINGS}{"diversity".$val[0]} ) && $val[1] =~ /^(on|off)$/ )
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
my $state = $val[1]; my $state = $val[1];
$state =~ s/on/1/; $state =~ s/on/1/;
$state =~ s/off/0/; $state =~ s/off/0/;
@ -329,7 +329,7 @@ FRITZBOX_Set($$@)
} elsif ( lc $cmd eq 'guestwlan') { } elsif ( lc $cmd eq 'guestwlan') {
if (int @val == 1 && $val[0] =~ /^(on|off)$/) if (int @val == 1 && $val[0] =~ /^(on|off)$/)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
my $state = $val[0]; my $state = $val[0];
$state =~ s/on/1/; $state =~ s/on/1/;
$state =~ s/off/0/; $state =~ s/off/0/;
@ -343,7 +343,7 @@ FRITZBOX_Set($$@)
{ {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
$resultStr = FRITZBOX_SetMOH $hash, @val; $resultStr = FRITZBOX_SetMOH $hash, @val;
unless ($resultStr) unless ($resultStr)
{ {
@ -359,14 +359,14 @@ FRITZBOX_Set($$@)
{ {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
FRITZBOX_Ring_Start $hash, @val; FRITZBOX_Ring_Start $hash, @val;
return undef; return undef;
} }
} }
elsif ( lc $cmd eq 'sendmail') elsif ( lc $cmd eq 'sendmail')
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
FRITZBOX_Send_Mail $hash, @val; FRITZBOX_Send_Mail $hash, @val;
return undef; return undef;
} }
@ -374,7 +374,7 @@ FRITZBOX_Set($$@)
{ {
if (int @val > 0) if (int @val > 0)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
return FRITZBOX_Start_Radio $hash, @val; return FRITZBOX_Start_Radio $hash, @val;
} }
} }
@ -382,7 +382,7 @@ FRITZBOX_Set($$@)
{ {
if ( int @val == 2 && defined( $hash->{READINGS}{"tam".$val[0]} ) && $val[1] =~ /^(on|off)$/ ) if ( int @val == 2 && defined( $hash->{READINGS}{"tam".$val[0]} ) && $val[1] =~ /^(on|off)$/ )
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
my $state = $val[1]; my $state = $val[1];
$state =~ s/on/1/; $state =~ s/on/1/;
$state =~ s/off/0/; $state =~ s/off/0/;
@ -393,7 +393,7 @@ FRITZBOX_Set($$@)
} }
elsif( lc $cmd eq 'update' ) elsif( lc $cmd eq 'update' )
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
$hash->{fhem}{LOCAL}=1; $hash->{fhem}{LOCAL}=1;
FRITZBOX_Readout_Start($hash); FRITZBOX_Readout_Start($hash);
$hash->{fhem}{LOCAL}=0; $hash->{fhem}{LOCAL}=0;
@ -403,7 +403,7 @@ FRITZBOX_Set($$@)
{ {
if (int @val == 1 && $val[0] =~ /^(on|off)$/) if (int @val == 1 && $val[0] =~ /^(on|off)$/)
{ {
Log3 $name, 3, "FRITZBOX $name: $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX $name: set $cmd ".join(" ", @val);
my $state = $val[0]; my $state = $val[0];
$state =~ s/on/1/; $state =~ s/on/1/;
$state =~ s/off/0/; $state =~ s/off/0/;
@ -1052,7 +1052,7 @@ FRITZBOX_Ring_Run($)
# uses name of port 0-3 (dial port 1-4) to show messages on ringing phone # uses name of port 0-3 (dial port 1-4) to show messages on ringing phone
my $ringWithIntern = AttrVal( $name, "ringWithIntern", 0 ); my $ringWithIntern = AttrVal( $name, "ringWithIntern", 0 );
if ($ringWithIntern =~ /^([1-4])$/ ) if ($ringWithIntern =~ /^([1-3])$/ )
{ {
push @cmdArray, "ctlmgr_ctl r telcfg settings/MSN/Port".($ringWithIntern-1)."/Name"; push @cmdArray, "ctlmgr_ctl r telcfg settings/MSN/Port".($ringWithIntern-1)."/Name";
push @cmdArray, "ctlmgr_ctl w telcfg settings/MSN/Port".($ringWithIntern-1)."/Name '$msg'"; push @cmdArray, "ctlmgr_ctl w telcfg settings/MSN/Port".($ringWithIntern-1)."/Name '$msg'";
@ -1360,7 +1360,7 @@ sub FRITZBOX_Open_Connection($)
} }
FRITZBOX_Log $hash, 5, "Wait for user or password prompt."; FRITZBOX_Log $hash, 5, "Wait for user or password prompt.";
unless ( ($before,$match) = $telnet->waitfor('/(user|password): $/i') ) unless ( ($before,$match) = $telnet->waitfor('/(user|login|password): $/i') )
{ {
$msg = "Telnet error while waiting for user or password prompt: ".$telnet->errmsg; $msg = "Telnet error while waiting for user or password prompt: ".$telnet->errmsg;
FRITZBOX_Log $hash, 2, $msg; FRITZBOX_Log $hash, 2, $msg;
@ -1368,7 +1368,7 @@ sub FRITZBOX_Open_Connection($)
$telnet = undef; $telnet = undef;
return $msg; return $msg;
} }
if ( $match eq "user: " && $user eq "") if ( $match =~ /(user|login): / && $user eq "")
{ {
$msg = "Telnet login requires user name but attribute 'telnetUser' not defined"; $msg = "Telnet login requires user name but attribute 'telnetUser' not defined";
FRITZBOX_Log $hash, 2, $msg; FRITZBOX_Log $hash, 2, $msg;
@ -1376,7 +1376,7 @@ sub FRITZBOX_Open_Connection($)
$telnet = undef; $telnet = undef;
return $msg; return $msg;
} }
elsif ( $match eq "user: ") elsif ( $match =~ /(user|login): /)
{ {
FRITZBOX_Log $hash, 5, "Entering user name"; FRITZBOX_Log $hash, 5, "Entering user name";
$telnet->print( $user ); $telnet->print( $user );