Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

49_TBot_List: chat/groupid can be added in start

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23443 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
viegener 2020-12-31 13:15:43 +00:00
parent de4bd4a3d9
commit b8ad72ca15
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- change: 49_TBot_List: chat/groupid can be added in start
- bugfix: 98_weekprofile: Log ccutype not defined (forum #1113306) - bugfix: 98_weekprofile: Log ccutype not defined (forum #1113306)
- change: Device::Firmata removed, use CPAN version (forum #114552) - change: Device::Firmata removed, use CPAN version (forum #114552)
- bugfix: 10_FRM: Device::Firmata check (forum #114552 msg #1112141) - bugfix: 10_FRM: Device::Firmata check (forum #114552 msg #1112141)

15
FHEM/49_TBot_List.pm
View File

@ -86,6 +86,9 @@
# document deleteOnly # document deleteOnly
# 0.7 2018-03-11 deleteonly lists / internal changes # 0.7 2018-03-11 deleteonly lists / internal changes
# show entry content in response for add/del
# start list with peerid und chatid als Parameter
# #
############################################################################## ##############################################################################
# TASKS # TASKS
@ -270,8 +273,12 @@ sub TBot_List_Set($@)
if ( $numberOfArgs == 2 ) { if ( $numberOfArgs == 2 ) {
$tchat = ReadingsVal( $tbot, "msgChatId", undef ); $tchat = ReadingsVal( $tbot, "msgChatId", undef );
$tpeer = ReadingsVal( $tbot, "msgPeerId", "" ); $tpeer = ReadingsVal( $tbot, "msgPeerId", "" );
} elsif ( $numberOfArgs == 4 ) {
$tpeer = AnalyzeCommandChain( $hash, "get $tbot peerId ".$args[1] );
$tchat = AnalyzeCommandChain( $hash, "get $tbot peerId ".$args[2] );
} else { } else {
$tpeer = AnalyzeCommandChain( $hash, "get $tbot peerId ".$args[1] ); $tpeer = AnalyzeCommandChain( $hash, "get $tbot peerId ".$args[1] );
$tchat = undef;
} }
$ret = "No peer found or specified :$tbot: ".(( $numberOfArgs == 2 )?"":$args[1]) if ( ! $tpeer ); $ret = "No peer found or specified :$tbot: ".(( $numberOfArgs == 2 )?"":$args[1]) if ( ! $tpeer );
} }
@ -945,7 +952,7 @@ sub TBot_List_handler($$$$;$)
if ( ( $no >= 0 ) && ( $no < scalar(@list) ) ) { if ( ( $no >= 0 ) && ( $no < scalar(@list) ) ) {
# remove from array the entry with the index # remove from array the entry with the index
splice(@list, $no, 1); my $rementry = splice(@list, $no, 1);
my $text = join(",", @list ); my $text = join(",", @list );
@ -953,7 +960,7 @@ sub TBot_List_handler($$$$;$)
AnalyzeCommandChain( $hash, "set ".TBot_List_getConfigPostMe($hash)." add $lname $text" ); AnalyzeCommandChain( $hash, "set ".TBot_List_getConfigPostMe($hash)." add $lname $text" );
# show updated list -> call recursively # show updated list -> call recursively
TBot_List_handler( $hash, "list_edit", $tbot, $peer, " Eintrag geloescht" ); TBot_List_handler( $hash, "list_edit", $tbot, $peer, " Eintrag \"".$rementry."\" geloescht" );
} }
@ -1156,7 +1163,7 @@ sub TBot_List_handler($$$$;$)
AnalyzeCommandChain( $hash, "set ".TBot_List_getConfigPostMe($hash)." add $lname ".$addentry ); AnalyzeCommandChain( $hash, "set ".TBot_List_getConfigPostMe($hash)." add $lname ".$addentry );
# show list again -> call recursively # show list again -> call recursively
if ( defined($msgId ) ) { if ( defined($msgId ) ) {
TBot_List_handler( $hash, "list_edit", $tbot, $peer, " Eintrag hinzugefuegt" ); TBot_List_handler( $hash, "list_edit", $tbot, $peer, " Eintrag \"".$addentry."\" hinzugefuegt" );
} else { } else {
$ret = "TBot_List_handler: $name - $tbot ERROR no msgId known for peer :$peer: chat :$chatId: cmd :$cmd: ".(defined($arg)?"arg :$arg:":""); $ret = "TBot_List_handler: $name - $tbot ERROR no msgId known for peer :$peer: chat :$chatId: cmd :$cmd: ".(defined($arg)?"arg :$arg:":"");
} }
@ -1348,7 +1355,7 @@ sub TBot_List_Setup($) {
where &lt;what&gt; / &lt;value&gt; is one of where &lt;what&gt; / &lt;value&gt; is one of
<br><br> <br><br>
<li><code>start &lt;telegrambot name&gt; [ &lt;peerid&gt; ]</code><br>Initiate a new dialog for the given peer (or the last peer sending a message on the given telegrambot) <li><code>start &lt;telegrambot name&gt; [ &lt;peerid&gt; [ &lt;chatid&gt; ] ]</code><br>Initiate a new dialog for the given peer (or the last peer sending a message on the given telegrambot - if communication should happen in a group then both chatid with the groupid and peerid with the user id need to be specified)
</li> </li>
<li><code>end &lt;telegrambot name&gt; &lt;peerid&gt;</code><br>Finalize a new dialog for the given peer on the given telegrambot <li><code>end &lt;telegrambot name&gt; &lt;peerid&gt;</code><br>Finalize a new dialog for the given peer on the given telegrambot
</li> </li>