RE: [misterhouse-users] X10 Sensor code help

[Tom H. <tha...@so...>]

Maybe you have not defined a bedroom light? If any code mentions a device
that has not been defined, MH freaks out :) Just a guess, I am not the most
savvy MH coder myself...



-----Original Message-----
From: mis...@li...
[mailto:mis...@li...]On Behalf Of Brian
Miller
Sent: Wednesday, October 16, 2002 9:40 PM
To: mis...@li...
Subject: [misterhouse-users] X10 Sensor code help


Hello folks,

My X10 Activehome kit just came in today, so I've been playing around with
it, and have gotten most parts to work just fine.  It's pretty neat,
actually.  :-)

I also got 3 motion sensors with it, and I wanted to place them at each
door, facing outside to watch for motion - in hopes of using it as an
"automatic doorbell" of sorts.  My problem is I can't seem to get MH to work
with any code I've tried.  Now I'll be the first to tell you - I understand
VERY LITTLE of MH when it comes to coding.  I seem to have some sort of
mental block.  :-/

I snagged the code shown below from an earlier discussion today about
halloween and thought I could make IT work, but I'm not having any luck with
this either.  If I try to run MH (version 2.72 on Windows 2k) with this code
(saved into a file) in my codes directory, MH will not start.  The following
is a snippet of the log file when MH errors on startup:

10/16/02 08:36:22 PM Oops1: Global symbol "$Bedroom_Light_state" requires
explicit package name at (eval 87) line 6904.


Error in user code:
  10/16/02 08:36:22 PM:
10/16/02 08:36:22 PM Oops1: Global symbol "$Bedroom_Light_state" requires
explicit package name at (eval 87) line 6904.
Line 6899:      }
Line 6900:    }
Line 6901:  }
Line 6902:
Line 6903:  if ( expired $Back_Door_Motion_timer ) {
Line 6904:    $Bedroom_Light_state = 'off';
Line 6905:    set $Bedroom_Light 'on';
Line 6906:  }
Line 6907:
Line 6908:     $Benchmark_Members{'x10_motion'} += &get_tickcount -
$benchmark_tickcount if $benchmark_tickcount and
$Benchmark_Members{on_off_flag};
Line 6909:



Is anybody patient enough to help me out by DUMBING DOWN their advice for
me?  *sigh*

Thanks in advance...

Brian




# Category=X10
# See Items.mht for X10 definitions

my $light_states = 'on,brighten,dim,off';
my $state;

my $Back_Door_Motion_timer = new Timer;
my $Back_Door_Motion_state;

if ($state = state_now $Back_Door_Motion) {
  set $Back_Door_Motion_timer 4;
  if ($Back_Door_Motion_state ne $state) {
    if ($state eq 'on') {
      speak "Back door motion detected";
      set $Bedroom_Light 'off';
    }
  }
}

if ( expired $Back_Door_Motion_timer ) {
  $Bedroom_Light_state = 'off';
  set $Bedroom_Light 'on';
}



-------------------------------------------------------
This sf.net email is sponsored by: viaVerio will pay you up to
$1,000 for every account that you consolidate with us.
http://ad.doubleclick.net/clk;4749864;7604308;v?
http://www.viaverio.com/consolidator/osdn.cfm
________________________________________________________
To unsubscribe from this list, go to:
http://sourceforge.net/mail/?group_id=1365