From 5cf84738e344083d6a3d98dce9d819df33140c96 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 3 Jun 2016 18:39:46 +0000
Subject: [PATCH] 98_telnet.pm: avaluate the title if prompt is not set (Forum
 #54205)

git-svn-id: https://svn.fhem.de/fhem/trunk@11605 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_telnet.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_telnet.pm b/fhem/FHEM/98_telnet.pm
index 85066fac0..a7ecce72c 100644
--- a/fhem/FHEM/98_telnet.pm
+++ b/fhem/FHEM/98_telnet.pm
@@ -194,7 +194,13 @@ telnet_Read($)
     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} .= '>';  # Not really nice, but dont know better.
+    }
     syswrite($chash->{CD}, sprintf("%c%c%c", 255, 253, 0) )
         if( AttrVal($name, "encoding", "") ); #DO BINARY
     $chash->{CD}->flush();