IRTrans und Misterhouse

[EinfachInButter]

Hallo,

nachdem ich Misterhouse mit eibd nun auf meinem xen-server am laufen habe, würde ich gerne noch meinen neuen IRTrans Ethernet PoEmit DB in Misterhouse einbinden. Leider habe ich noch nichts wirklich hilfreiches dazu gefunden.
Ich habe nur gefunden das es über xAP gehen soll. Hat jemand das schon am laufen und kann mir ein kleine HOWTO geben?
Ein paar nütliche Links würden zur Not auch helfen.

Vielen Dank

[microcheese]

Hi,

ich habe bei mir den IRTrans an Misterhouse mit angebunden. Habs anfägnlich auch mit XAP versucht, bin aber nicht wirklich zu einem bidirektionalen erfolgreichem setup gekommen.

Ich habe die anbindung nun wie folgt gelöst:

Ich starte den IRTrans daemon auf der Linux maschine über ein RC Script:

$IRTRANS_BIN -logfile /var/log/irtrans.log -http_port 8555 -loglevel 4 -pidfile /var/run/irserver.pid -daemon 10.80.29.8

Im misterhouse habe ich z.B. den zugriff so gelöst:

# Category=IRTrans
# Sending IR with the IRTrans device

use lirc_mh;

# LIRC
$lirc_client = new Socket_Item(undef, undef, '10.80.29.1:8765','lirc','tcp','record');

# Then,  add code to start the socket:
if ($Startup) {
  start $lirc_client;
}

###########################################################################################
# My Remotes
# TV
#my %tvmap = qw();
$TV = new IR_Item 'tv-panasonic', '', 'lirc';
$TV -> set_info("Fernseher");
$TV -> set_icon("Fernseher");
my $tv_state_list = 'p1,p2,p3,p4,p5,p6,p7,p8,p9,p0,info,mute,chan+,chan-,vol+,vol-,text,fp,index,hold,rot,gelb,gruen,blau,menu,return,up,down,left,right,ok,aspekt,exit,stereo,option,rec,link,tv,av,xoff,rec2,prog+,prog-,fastr,fastf,stop,pause,play,hdmi-dvb,off1,xon,hdmi2,tv-tuner';
set_states $TV split ',', $tv_state_list;
$v_tv_remote      = new  Voice_Cmd("tv-panasonic [$tv_state_list]");
    
# send IR command when we get a voice command
if ($state = said $v_tv_remote) {
   print_log "Setting TV to $state";
   set $TV $state;
}

# RECEIVER
$RECEIVER = new IR_Item 'receiver-denon', '', 'lirc';
my $receiver_state_list = "off,on,phono,cd,tuner,dvd,vdp,vaux,vcr1,vcr2,p9,tv,dbs,cdrtape,tvvol+,tvvol-,chan+,chan-,cinema,music,roomeq,night,standard,dspsim,puredirect,dirstereo,directstereo,avvol+,avvol-,play,stop,nextchap,rev,forw,pause,diskskip,muting,systemsetup,menu,up,down,onscreen,search,left,right,chanselect,testtone,speaker,mode,usermode1,usermode2,usermode3";
set_states $RECEIVER split ',', $receiver_state_list;
$v_receiver_remote      = new  Voice_Cmd("receiver-denon [$receiver_state_list]");
    
# send IR command when we get a voice command
if ($state = said $v_receiver_remote) {
   print_log "Setting RECEIVER to $state";
   set $RECEIVER $state;
}

# DBV
$DVB = new IR_Item 'dvb-homecast', '', 'lirc';
my $dvb_state_list = "power,tvradio,tvstb,opt,av+,fav,a-z,menu,epg,info,up,down,left,right,ok,vol+,vol-,back,chan+,chan-,p1,p2,p3,p4,p5,p6,p7,p8,p9,p0,func,mute";
set_states $DVB split ',', $dvb_state_list;
$v_dvb_remote      = new  Voice_Cmd("dvb-homecast [$dvb_state_list]");
    
# send IR command when we get a voice command
if ($state = said $v_dvb_remote) {
   print_log "Setting DVB to $state";
   set $DVB $state;
}

# BEAMER
$BEAMER = new IR_Item 'beamer-panasonic', '', 'lirc';
my $beamer_state_list = "power,menu,return,enter,up,down,left,right,normal,shutter,video,cmpnt,hdmipc,aspect,picmode,memload,main,advanced,ccm";
set_states $BEAMER split ',', $beamer_state_list;
$v_beamer_remote      = new  Voice_Cmd("beamer-panasonic [$beamer_state_list]");
    
# send IR command when we get a voice command
if ($state = said $v_beamer_remote) {
   print_log "Setting Beamer to $state";
   set $BEAMER $state;
}

##############################################################################################
# My IR receive actions
if (my $msg = said $lirc_client) {
   
   if (($msg ne "BEGIN")&&($msg ne "ERROR")&&($msg ne "DATA")&&($msg ne "END")&&($msg ne "1")&&($msg ne "Unknown LIRC Command received: (null)")&&($msg ne "SUCCESS")) {print_log "Lirc message received: $msg";}
   
   my ($code,$act,$key,$remote) = ($msg =~ /([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) */);
   #print $code.":".$act.":".$key.":".$remote."\n";
}

Beste Grüße
Ernst

[toldap2]

Hallo

Ich versuche gerade, einen Weg zu finden, IR-Signale in mh zu empfangen. Du hast ja ein kuzen code schnipsel darüber gemacht;

 ##############################################################################################
# My IR receive actions
if (my $msg = said $lirc_client) {
   
   if (($msg ne "BEGIN")&&($msg ne "ERROR")&&($msg ne "DATA")&&($msg ne "END")&&($msg ne "1")&&($msg ne "Unknown LIRC Command received: (null)")&&($msg ne "SUCCESS")) {print_log "Lirc message received: $msg";}
   
   my ($code,$act,$key,$remote) = ($msg =~ /([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) */);
   #print $code.":".$act.":".$key.":".$remote."\n";
}

Funktioniert das bei Dir? Ich bekomme leider keinerlei lirc-ausgabe in der irserver.log, wenn irgendwelche IR Signale empfangen wurden. Entsprechend kriege ich auch keine Ausgabe in mh. Senden funktioniert wunderbar. Hättest DU ggf. einen Tipp für mich?

Vielen Dank