From: Garry D. <gar...@sh...> - 2007-10-19 18:54:33
|
Hi Jeff I've got Lirc working here to control a stereo that I'm using as a PA system. It's not very fancy but it works. I'm using this RS232 IR blaster http://www.irblaster.info/ Once I had Lirc up and running, I set up a number of scripts using irsend to control the stereo. For example... #! /bin/sh irsend send_once stereo VOL+ exit 0 I made the scripts executeable and put them in a directory under /opt/misterhouse called stereo_control. Here's the code that I have in my /opt/misterhouse/code directory. # Start of Audio.pl # House Audio my $count; $audio = new Process_Item; $v_power = new Voice_Cmd 'Power [On,Off]'; if ($state = said $v_power) { print_log "Executing audio command $state"; &power; } $audio_volume_default = new Voice_Cmd('Default Volume [5,6,7,8,9,10,11,12,13,14,15]'); if ($state = said $audio_volume_default) { print_log "Executing audio command $state"; #Turn the volume all the way off $count = 0; until ($count == 10) { run '/opt/misterhouse/code/stereo_control/VOL-'; $count++; } #Then turn the volume up to the new default volume $count = 0; until ($count == state $audio_volume_default) { run '/opt/misterhouse/code/stereo_control/VOL+'; $count++; print_log "The volume level is set to ".state $audio_volume_default; } } $v_volume = new Voice_Cmd 'Volume [Up,Down]'; if ($state = said $v_volume) { print_log "Executing audio command $state"; &volume; } $v_mute = new Voice_Cmd 'Mute [On,Off]'; if ($state = said $v_mute) { print_log "Executing audio command $state"; &mute; } $v_input = new Voice_Cmd 'Inputs [Misterhouse,Office,Tuner]'; if ($state = said $v_input) { print_log "Executing audio command $state"; &input; } #Set audio timer to turn off audio system at night to save energy if (time_cron '* 23 * * *' and state $v_power eq 'On') { run_voice_cmd 'Power Off'; print_log "Audio system turned off at ".&time_now; } #Set audio timer to turn on audio system in the morning if (time_cron '* 8 * * 1,2,3,4,5' and state $v_power eq 'Off') { run_voice_cmd 'Power On'; $count = 0; until ($count == state $audio_volume_default) { run '/opt/misterhouse/code/stereo_control/VOL+'; $count++; } print_log "Audio system turned on at ".&time_now; } #subroutine for turning power on and off sub power { if ($state eq "On") { set $audio 'run /opt/misterhouse/code/stereo_control/Power'; start $audio; $count = 0; until ($count == state $audio_volume_default) { run '/opt/misterhouse/code/stereo_control/VOL+'; $count++; } } if ($state eq "Off") { set $audio 'run /opt/misterhouse/code/stereo_control/Power'; start $audio; } } #subroutine for setting volume sub volume { if ($state eq "Up") { $audio_volume_default -> set_now(state $audio_volume_default + 1); set $audio 'run /opt/misterhouse/code/stereo_control/VOL+'; } if ($state eq "Down") { $audio_volume_default -> set_now(state $audio_volume_default - 1); set $audio 'run /opt/misterhouse/code/stereo_control/VOL-'; } start $audio; print_log "The volume level is set to ".state $audio_volume_default; } #subroutine for muting sub mute { if ($state eq "On") { set $audio 'run /opt/misterhouse/code/stereo_control/Mute'; print_log "The audio system mute is set $state"; } if ($state eq "Off") { set $audio 'run /opt/misterhouse/code/stereo_control/Mute'; print_log "The audio system mute is set $state"; } start $audio; } #subroutine for setting the input sub input { if ($state eq "Misterhouse") { set $audio 'run /opt/misterhouse/code/stereo_control/AV2'; } if ($state eq "Office") { set $audio 'run /opt/misterhouse/code/stereo_control/AV1'; } if ($state eq "Tuner") { set $audio 'run /opt/misterhouse/code/stereo_control/Tuner'; } start $audio; print_log "The audio system input is set to $state"; } # End of Audio.pl This was my very first little project in MH so it's probably pretty crude but it does work. Hope it helps. Garry -----Original Message----- From: mis...@li... [mailto:mis...@li...] On Behalf Of Jeff Schmidt Sent: Friday, October 19, 2007 11:35 AM To: misterhouse list Subject: [mh] MH and LIRC Hi, I've got both MH and LIRC running on a Ubuntu box and would like to use them together. I've searched the usual places, and looked through the distribution code, but have just found mentions of the two together. Does anyone have code or pointers to integrate the two? Thanks in advance, Jeff ------------------------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Still grepping through log files to find problems? Stop. Now Search log events and configuration files using AJAX and a browser. Download your FREE copy of Splunk now >> http://get.splunk.com/ ________________________________________________________ To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365 |
From: Neil C. <nc...@li...> - 2007-10-19 19:03:42
|
Garry Doucette wrote: > Hi Jeff > > I've got Lirc working here to control a stereo that I'm using as a PA > system. It's not very fancy but it works. > > I'm using this RS232 IR blaster http://www.irblaster.info/ > > Once I had Lirc up and running, I set up a number of scripts using irsend to > control the stereo. For example... > > #! /bin/sh > irsend send_once stereo VOL+ > exit 0 > > I made the scripts executeable and put them in a directory under > /opt/misterhouse called stereo_control. > > Here's the code that I have in my /opt/misterhouse/code directory. > > # Start of Audio.pl [ code clipped 8< ] > # End of Audio.pl > > This was my very first little project in MH so it's probably pretty crude > but it does work. > > Hope it helps. Great timing, I had some code that worked but I'll give this a try. I also just received a few from the IR Blaster folks. I've got to add them to my collect of links in the IR section. -- Linux Home Automation Neil Cherry nc...@li... http://www.linuxha.com/ Main site http://linuxha.blogspot.com/ My HA Blog Author of: Linux Smart Homes For Dummies |
From: Jeff S. <jef...@gm...> - 2007-10-19 20:48:52
|
Gary, Thanks for the quick reply! I'll try your method when I get home. Jeff On 10/19/07, Neil Cherry <nc...@li...> wrote: > Garry Doucette wrote: > > Hi Jeff > > > > I've got Lirc working here to control a stereo that I'm using as a PA > > system. It's not very fancy but it works. > > > > I'm using this RS232 IR blaster http://www.irblaster.info/ > > > > Once I had Lirc up and running, I set up a number of scripts using irsend to > > control the stereo. For example... > > > > #! /bin/sh > > irsend send_once stereo VOL+ > > exit 0 > > > > I made the scripts executeable and put them in a directory under > > /opt/misterhouse called stereo_control. > > > > Here's the code that I have in my /opt/misterhouse/code directory. > > > > # Start of Audio.pl > > [ code clipped 8< ] > > > # End of Audio.pl > > > > This was my very first little project in MH so it's probably pretty crude > > but it does work. > > > > Hope it helps. > > Great timing, I had some code that worked but I'll give this a try. > I also just received a few from the IR Blaster folks. I've got to > add them to my collect of links in the IR section. > > -- > Linux Home Automation Neil Cherry nc...@li... > http://www.linuxha.com/ Main site > http://linuxha.blogspot.com/ My HA Blog > Author of: Linux Smart Homes For Dummies > > ------------------------------------------------------------------------- > This SF.net email is sponsored by: Splunk Inc. > Still grepping through log files to find problems? Stop. > Now Search log events and configuration files using AJAX and a browser. > Download your FREE copy of Splunk now >> http://get.splunk.com/ > ________________________________________________________ > To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365 > > |