Nützliche aliase

[uniqueck]

Ich bin gerade am probieren, wie ich ein cmdalias für pushnotifier bauen kann.

Code Auswählen Erweitern


define c_msgconni cmdalias msgconni .* AS set pushMessageConni message 'FHEM' '$EVENT'


Allerdings weiß ich nicht recht, wie ich es machen soll, dass ich auch beim alias den Title der Nachricht mitgeben kann.
Kann mir da jemand weiterhelfen?

Ein ähnliches cmdalias unter say habe ich gefunden, aber das entspricht hier dem Part $EVENT.

Gruß uniqueck

[igami]

Habe mir eben noch ein cmdalias gebaut um bestimmte Zeilen aus dem Log zu entfernen

Code Auswählen Erweitern


define c_wipelog cmdalias wipelog .+ AS {qx(sed -r '/.*$EVENT.*/d' $currlogfile > $currlogfile.tmp && cat $currlogfile.tmp > $currlogfile && rm $currlogfile.tmp);; Log 1, "Logfile um Zeilen mit \"$EVENT\" bereinigt.";;}

Noch etwas unschön, aber es funktioniert.

Grüße
igami

[betateilchen]

Um die uptime der Hardwareplattform (!) auf der fhem läuft, in fhem anzuzeigen, nutze ich folgenden cmdalias:

Code Auswählen Erweitern

define alias_uptime cmdalias up AS {my @a = split(/,/,qx(uptime));; @a = split(/up /,$a[0]);;return $a[1]}

[justme1968]

falls man man den überblick verliert auf welchem fhem rechner man gerade eingeloggt ist:

Code Auswählen Erweitern

define hostname cmdalias hostname AS {(split('\.', qx(hostname)))[0]}

gruss
  andre

[P.A.Trick]

falls man man den überblick verliert auf welchem fhem rechner man gerade eingeloggt ist:

Code Auswählen Erweitern

define hostname cmdalias hostname AS {(split('\.', qx(hostname)))[0]}

gruss
  andre

Cool! Habe ich ins Wiki übernommen!

[betateilchen]

Code Auswählen Erweitern

attr global title {(split('\.', qx(hostname)))[0]}

Dann sieht man den Hostname sogar ständig im Browser, ohne ihn abfragen zu müssen

[P.A.Trick]

Code Auswählen Erweitern

attr global title {(split('\.', qx(hostname)))[0]}

Dann sieht man den Hostname sogar ständig im Browser, ohne ihn abfragen zu müssen

Stimmt aber ich arbeite oft in der Console und da hilft der alias doch schon!

[betateilchen]

Code Auswählen Erweitern


MBA:~ udo$ telnet fhem-dev 7072
Trying 192.168.123.158...
Connected to fhem-dev.
Escape character is '^]'.

fhem-dev>


mit diesem Patch kriegst Du auch bei telnet den hostname als prompt angezeigt

Code Auswählen Erweitern


Index: 98_telnet.pm
===================================================================
--- 98_telnet.pm (Revision 11601)
+++ 98_telnet.pm (Arbeitskopie)
@@ -194,7 +194,12 @@
     return if(!$chash);
     $chash->{canAsyncOutput} = 1;
     $chash->{encoding} = AttrVal($name, "encoding", "utf8");
-    $chash->{prompt}  = AttrVal($name, "prompt", "fhem>");
+    $chash->{prompt}  = AttrVal($name, "prompt", AttrVal('global','title','fhem'));
+    if($chash->{prompt} =~ m/^{.*}$/s) {
+       $chash->{prompt}  = eval $chash->{prompt};
+       $chash->{prompt}  =~ s/\n//;
+    }
+    $chash->{prompt} .= '>';
     syswrite($chash->{CD}, sprintf("%c%c%c", 255, 253, 0) )
         if( AttrVal($name, "encoding", "") ); #DO BINARY
     $chash->{CD}->flush();


Alternativ könnte man 98_telnet.pm auch so patchen, dass das Attribut prompt als perlSpecial aufgelöst wird.

[P.A.Trick]

Code Auswählen Erweitern


MBA:~ udo$ telnet fhem-dev 7072
Trying 192.168.123.158...
Connected to fhem-dev.
Escape character is '^]'.

fhem-dev>


mit diesem Patch kriegst Du auch bei telnet den hostname als prompt angezeigt

Code Auswählen Erweitern


Index: 98_telnet.pm
===================================================================
--- 98_telnet.pm (Revision 11601)
+++ 98_telnet.pm (Arbeitskopie)
@@ -194,7 +194,12 @@
     return if(!$chash);
     $chash->{canAsyncOutput} = 1;
     $chash->{encoding} = AttrVal($name, "encoding", "utf8");
-    $chash->{prompt}  = AttrVal($name, "prompt", "fhem>");
+    $chash->{prompt}  = AttrVal($name, "prompt", AttrVal('global','title','fhem'));
+    if($chash->{prompt} =~ m/^{.*}$/s) {
+       $chash->{prompt}  = eval $chash->{prompt};
+       $chash->{prompt}  =~ s/\n//;
+    }
+    $chash->{prompt} .= '>';
     syswrite($chash->{CD}, sprintf("%c%c%c", 255, 253, 0) )
         if( AttrVal($name, "encoding", "") ); #DO BINARY
     $chash->{CD}->flush();


Alternativ könnte man 98_telnet.pm auch so patchen, dass das Attribut prompt als perlSpecial aufgelöst wird.

Sehr gerne wenn du Rudi davon überzeugt bekommst!?

[justme1968]

der patch ist eine gute idee.

das hilft aber nur wenn man auch mit prompt arbeitet. und der ist bei copy&paste immer im weg.

[betateilchen]

Sehr gerne wenn du Rudi davon überzeugt bekommst!?

Schauen wir mal...

https://forum.fhem.de/index.php/topic,54205.0.html

[betateilchen]

und der ist bei copy&paste immer im weg.

das verstehe ich grade nicht - ich arbeite in telnet viel mit c&p aber der prompt geht mir dabei nicht verloren.

[P.A.Trick]

Schauen wir mal...

https://forum.fhem.de/index.php/topic,54205.0.html

Cool Danke!

[justme1968]

wenn man eine zeile per doppelklick markiert wird der prompt mit markiert wenn er vorhanden ist. deshalb arbeite ich immer ohne prompt.

es ging nicht gegen deinen vorschlag. den finde ich gut. er nützt aber nur demjenigen der mit prompt arbeitet.

[betateilchen]

wenn man eine zeile per doppelklick markiert wird der prompt mit markiert wenn er vorhanden ist. deshalb arbeite ich immer ohne prompt.

verstehe ich immer noch nicht. Egal. Ich arbeite immer mit prompt und hatte damit noch nie Probleme.
Ich finde auch den cmdalias praktisch. Hab das einfach nur weitergedacht.