$office_movement = new X10_Item('A1'); # A1 is the X10 code



my $office_presence_start = "8:00 AM";

my $office_presence_end = "9:00 AM";

my $office_presence_file = "office.presence.txt";



if (time_now($office_presence_start)) {

   # reset the file

   unlink $office_presence_file;

}



if (state_now $office_movement eq ON

  and time_greater_than($office_presence_start)

  and time_less_than($office_presence_end)) {

   open PRESENCE, ">$office_presence_file";

   print PRESENCE time();

   close PRESENCE;

}