PageRenderTime 30ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/v2-45/mh/lib/Serial_Item.pm

#
Perl | 610 lines | 374 code | 51 blank | 185 comment | 74 complexity | 65f2479ddd7cb68b5a24a71dd7159217 MD5 | raw file
Possible License(s): GPL-2.0, LGPL-2.0, GPL-3.0 
    

  1. use strict;
    2. 

  2. 

  3. package Serial_Item;
    4. 

  4. 

  5. @Serial_Item::ISA = ('Generic_Item');
    6. 

  6. 

  7. my (%serial_items_by_id);
    8. 

  8. 

  9. sub reset {
    10. 

  10.     undef %serial_items_by_id;   # Reset on code re-load
    11. 

  11. }
    12. 

  12. 

  13. sub serial_items_by_id {
    14. 

  14.     my($id) = @_;
    15. 

  15.     return unless $serial_items_by_id{$id};
    16. 

  16.     return @{$serial_items_by_id{$id}};
    17. 

  17. }
    18. 

  18.                                 # For backward compatability, return just the first item
    19. 

  19. sub serial_item_by_id {
    20. 

  20.     my($id) = @_;
    21. 

  21.     my @refs = &serial_items_by_id($id);
    22. 

  22.     return $refs[0];
    23. 

  23. }
    24. 

  24. 

  25. sub new {
    26. 

  26.     my ($class, $id, $state, $port_name) = @_;
    27. 

  27.     my $self = {state => ''};
    28. 

  28. #   print "\n\nWarning: duplicate ID codes on different Serial_Item objects:\n " .
    29. 

  29. #         "id=$id state=$state states=@{${$serial_item_by_id{$id}}{states}}\n\n" if $serial_item_by_id{$id};
    30. 

  30.     $$self{port_name} = $port_name;
    31. 

  31.     &add($self, $id, $state);
    32. 

  32.     bless $self, $class;
    33. 

  33.     $self->set_interface($port_name) if $id and $id =~ /^X/;
    34. 

  34.     return $self;
    35. 

  35. }
    36. 

  36. sub add {
    37. 

  37.     my ($self, $id, $state) = @_;
    38. 

  38.                                 # Allow for Serial_Item's without states
    39. 

  39. #   $state = 'default_state' unless defined $state;
    40. 

  40.     $state = $id  unless defined $state;
    41. 

  41. 

  42.     $$self{state_by_id}{$id} = $state if defined $id;
    43. 

  43.     $$self{id_by_state}{$state} = $id if defined $state;
    44. 

  44.     push(@{$$self{states}}, $state);
    45. 

  45.     push(@{$serial_items_by_id{$id}}, $self) if $id;
    46. 

  46. }
    47. 

  47. 

  48. sub is_started {
    49. 

  49.     my ($self) = @_;
    50. 

  50.     my $port_name = $self->{port_name};
    51. 

  51.     return ($main::Serial_Ports{$port_name}{object}) ? 1 : 0;
    52. 

  52. }
    53. 

  53. sub is_stopped {
    54. 

  54.     my ($self) = @_;
    55. 

  55.     my $port_name = $self->{port_name};
    56. 

  56.     return ($main::Serial_Ports{$port_name}{object}) ? 0 : 1;
    57. 

  57. }
    58. 

  58. 

  59.                                 # Try to do a 'new' ... object is not kept, even if new is sucessful
    60. 

  60.                                 #   - not sure if there is a better way to test if a port is available
    61. 

  61.                                 #     Hopefully this is not too wasteful
    62. 

  62. sub is_available {
    63. 

  63.     my ($self) = @_;
    64. 

  64. 

  65.     my $port_name = $self->{port_name};
    66. 

  66.     my $port = $main::Serial_Ports{$port_name}{port};
    67. 

  67.     print "testing port $port ... ";
    68. 

  68. 

  69.     my $sp_object;
    70. 

  70. 

  71.                                 # Use the 2nd parm of '1' to indicate this do a test open
    72. 

  72.                                 #  - Modified Win32::SerialPort so it does not compilain if New/open fails
    73. 

  73.     if (( $main::OS_win and $sp_object = new Win32::SerialPort($port, 1))or 
    74. 

  74.         (!$main::OS_win and $sp_object = new Device::SerialPort($port))) {
    75. 

  75.         print " available\n";
    76. 

  76.         $sp_object->close;
    77. 

  77.         return 1;
    78. 

  78.     }
    79. 

  79.     else {
    80. 

  80.         print " not available\n";
    81. 

  81.         return 0;
    82. 

  82.     }
    83. 

  83. }
    84. 

  84. 

  85. sub start {
    86. 

  86.     my ($self) = @_;
    87. 

  87.     my $port_name = $self->{port_name};
    88. 

  88.     print "Starting port $port_name on port $main::Serial_Ports{$port_name}{port}\n";
    89. 

  89.     if ($main::Serial_Ports{$port_name}{object}) {
    90. 

  90.         print "Port $port_name is already started\n";
    91. 

  91.         return;
    92. 

  92.     }
    93. 

  93.     if ($port_name) {
    94. 

  94.         if (&main::serial_port_open($port_name)) {
    95. 

  95.             print "Port $port_name was re-opened\n";
    96. 

  96.         }
    97. 

  97.         else {
    98. 

  98.             print "Serial_Item start failed for port $port_name\n";
    99. 

  99.         }
    100. 

  100.     }
    101. 

  101.     else {
    102. 

  102.         print "Error in Serial_Item start:  no port name for object=$self\n";
    103. 

  103.     }
    104. 

  104. }
    105. 

  105. 

  106. sub stop {
    107. 

  107.     my ($self) = @_;
    108. 

  108.     my $port_name = $self->{port_name};
    109. 

  109.     my $sp_object = $main::Serial_Ports{$port_name}{object};
    110. 

  110.     if ($sp_object) {
    111. 

  111. 

  112.         my $port = $main::Serial_Ports{$port_name}{port};
    113. 

  113. #       &Win32::SerialPort::debug(1);
    114. 

  114.         if ($sp_object->close) {
    115. 

  115.             print "Port $port_name on port $port was closed\n";
    116. 

  116.         }
    117. 

  117.         else {
    118. 

  118.             print "Serial_Item stop failed for port $port_name\n";
    119. 

  119.         }
    120. 

  120.                                 # Delete the ports, even if it didn't close, so we can do 
    121. 

  121.                                 # starts again without a 'port reuse' message.
    122. 

  122.         delete $main::Serial_Ports{$port_name}{object};
    123. 

  123.         delete $main::Serial_Ports{object_by_port}{$port};
    124. 

  124. #       &Win32::SerialPort::debug(0);
    125. 

  125.     }
    126. 

  126.     else {
    127. 

  127.         print "Error in Serial_Item stop for port $port_name: Port is not started\n";
    128. 

  128.     }
    129. 

  129. }
    130. 

  130. 

  131. sub said {
    132. 

  132.     my $port_name = $_[0]->{port_name};
    133. 

  133.     my $datatype  = $main::Serial_Ports{$port_name}{datatype};
    134. 

  134.     
    135. 

  135.     my $data;
    136. 

  136.     if ($datatype and $datatype eq 'raw') {
    137. 

  137.         $data = $main::Serial_Ports{$port_name}{data};
    138. 

  138.         $main::Serial_Ports{$port_name}{data} = '';
    139. 

  139.     }
    140. 

  140.     else {
    141. 

  141.         $data = $main::Serial_Ports{$port_name}{data_record};
    142. 

  142.         $main::Serial_Ports{$port_name}{data_record} = ''; # Maybe this should be reset in main loop??
    143. 

  143.     }
    144. 

  144.     return $data;
    145. 

  145. }
    146. 

  146. 

  147. sub set_data {
    148. 

  148.     my ($self, $data) = @_;
    149. 

  149.     my $port_name = $self->{port_name};
    150. 

  150.     my $datatype  = $main::Serial_Ports{$port_name}{datatype};
    151. 

  151.     if ($datatype eq 'raw') {
    152. 

  152.         $main::Serial_Ports{$port_name}{data} = $data;
    153. 

  153.     }
    154. 

  154.     else {
    155. 

  155.         $main::Serial_Ports{$port_name}{data_record} = $data;
    156. 

  156.     }
    157. 

  157. }
    158. 

  158. 

  159. sub set_receive {
    160. 

  160.     my ($self, $state) = @_;
    161. 

  161.     &Generic_Item::set_states_for_next_pass($self, $state);
    162. 

  162. }
    163. 

  163. 

  164. sub set_dtr {
    165. 

  165.     my ($self, $state) = @_;
    166. 

  166.     my $port_name = $self->{port_name};
    167. 

  167.     if (my $serial_port = $main::Serial_Ports{$port_name}{object}) {
    168. 

  168.         $main::Serial_Ports{$port_name}{object}->dtr_active($state);
    169. 

  169.         print "Serial_port $port_name dtr set to $state\n" if $main::config_parms{debug} eq 'serial';
    170. 

  170.     }
    171. 

  171.     else {
    172. 

  172.         print "Error, serial port set_dtr for $port_name failed, port has not been set\n";
    173. 

  173.     }
    174. 

  174. }
    175. 

  175. sub set_rts {
    176. 

  176.     my ($self, $state) = @_;
    177. 

  177.     my $port_name = $self->{port_name};
    178. 

  178.     if (my $serial_port = $main::Serial_Ports{$port_name}{object}) {
    179. 

  179.         $main::Serial_Ports{$port_name}{object}->rts_active($state);
    180. 

  180.         print "Serial_port $port_name rts set to $state\n" if $main::config_parms{debug} eq 'serial';
    181. 

  181.     }
    182. 

  182.     else {
    183. 

  183.         print "Error, serial port set_rts for $port_name failed, port has not been set\n";
    184. 

  184.     }
    185. 

  185. }
    186. 

  186. 

  187. 

  188. sub set {
    189. 

  189.     my ($self, $state) = @_;
    190. 

  190.     return if &main::check_for_tied_filters($self, $state);
    191. 

  191. 

  192.                                 # Allow for Serial_Item's without states
    193. 

  193.     $state = 'default_state' unless defined $state; 
    194. 

  194. 

  195.     my $serial_id;
    196. 

  196.                                 # Allow for upper/mixed case (e.g. treat ON the same as on ... so X10_Items is simpler)
    197. 

  197.     if (defined $self->{id_by_state}{$state}) {
    198. 

  198.         $serial_id = $self->{id_by_state}{$state};
    199. 

  199.     }
    200. 

  200.     elsif (defined $self->{id_by_state}{lc $state}) {
    201. 

  201.         $serial_id = $self->{id_by_state}{lc $state};
    202. 

  202.     }
    203. 

  203.     else {
    204. 

  204.         $serial_id = $state;
    205. 

  205.     }
    206. 

  206.     my $serial_data = $serial_id;
    207. 

  207. 

  208.                                 # Avoid sending the same X10 code on consecutive passes.
    209. 

  209.                                 # It is pretty easy to create a loop with
    210. 

  210.                                 # tied items, groups, house codes, etc.  Just ask Bill S. :)
    211. 

  211. #   print "db state=$state, sp=$self->{state_prev},  loop=$main::Loop_Count, lcp==$self->{change_pass}\n";
    212. 

  212.     if ($serial_id =~ /^X/ and $self->{state_prev} and $state eq $self->{state_prev} and 
    213. 

  213.         $self->{change_pass} >= ($main::Loop_Count - 1)) {
    214. 

  214.         my $item_name = $self->{object_name};
    215. 

  215.         print "X10 item set skipped on consecutive pass.  item=$item_name state=$state id=$serial_id\n";
    216. 

  216.         return;
    217. 

  217.     }
    218. 

  218. 

  219.     &Generic_Item::set_states_for_next_pass($self, $state);
    220. 

  220. 

  221.     return unless %main::Serial_Ports;
    222. 

  222. 

  223.     my $port_name = $self->{port_name};
    224. 

  224. 

  225.     print "Serial_Item: port=$port_name self=$self state=$state data=$serial_data interface=$$self{interface}\n" 
    226. 

  226.         if $main::config_parms{debug} eq 'serial';
    227. 

  227. 

  228.     return if $main::Save{mode} eq 'offline';
    229. 

  229. 

  230.     my $interface = $$self{interface};
    231. 

  231.     $interface = 'none' unless $interface;
    232. 

  232. 

  233.                                 # First deal with X10 strings...
    234. 

  234.                                 # allow for xx% (e.g. 1% -> &P1)
    235. 

  235.     if ($serial_data =~ /(\d+)%/) {
    236. 

  236.         $serial_data = '&P' . int ($1 * 63 / 100 + 0.5);
    237. 

  237.     }
    238. 

  238.                                 # Make sure that &P codes have the house code prefixed
    239. 

  239.                                 #  - e.g. device A1 -> A&P1
    240. 

  240.     if ($serial_data =~ /^&P/) {
    241. 

  241.         $serial_data = substr($self->{x10_id}, 1, 1) . $serial_data;
    242. 

  242.     }
    243. 

  243.                                 # If code is &P##, prefix with item code.
    244. 

  244.                                 #  - e.g. A&P1 -> A1A&P1
    245. 

  245.     if (substr($serial_data, 1, 1) eq '&') {
    246. 

  246.         $serial_data = $self->{x10_id} . $serial_data;
    247. 

  247.     }
    248. 

  248.    
    249. 

  249.                                 # Allow for long strings like this: XAGAGAGAG (e.g. SmartLinc control)
    250. 

  250.                                 #  - break it into individual codes (XAG  XAG  XAG)
    251. 

  251.     if ($serial_data =~ /^X/) {
    252. 

  252.         $serial_data =~ s/^X//;
    253. 

  253.         my $serial_chunk;
    254. 

  254.         while ($serial_data) {
    255. 

  255.             if ($serial_data =~ /^([A-P]STATUS)(\S*)/ or
    256. 

  256.                 $serial_data =~ /^([A-P]PRESET_DIM1)(\S*)/ or
    257. 

  257.                 $serial_data =~ /^([A-P]PRESET_DIM2)(\S*)/ or
    258. 

  258.                 $serial_data =~ /^([A-P][1-9A-W])(\S*)/ or
    259. 

  259.                 $serial_data =~ /^([A-P]\&P\d+)(\S*)/ or 
    260. 

  260.                 $serial_data =~ /^([A-P]\d+\%)(\S*)/ or 
    261. 

  261.                 $serial_data =~ /^([A-P][\+\-]?\d+)(\S*)/) {
    262. 

  262.                 $serial_chunk = $1;
    263. 

  263.                 $serial_data  = $2;
    264. 

  264.                 &send_x10_data($self, 'X' . $serial_chunk, $interface);
    265. 

  265.             }
    266. 

  266.             else {
    267. 

  267.                 print "Serial_Item error, X10 string not parsed: $serial_data.\n";
    268. 

  268.                 return;
    269. 

  269.             }
    270. 

  270.         }
    271. 

  271.         return;
    272. 

  272.     }
    273. 

  273. 

  274.                                 # Now deal with all other Serial strings
    275. 

  275.     elsif ($interface eq 'homevision') {
    276. 

  276.         print "Using homevision to send: $serial_data\n";
    277. 

  277.         &Homevision::send($main::Serial_Ports{Homevision}{object}, $serial_data);
    278. 

  278.     }
    279. 

  279.     elsif ($interface eq 'ncpuxa') {
    280. 

  280.         print "Using ncpuxa to send: $serial_data\n";
    281. 

  281.         &ncpuxa_mh::send($main::config_parms{ncpuxa_port}, $serial_data);
    282. 

  282.     }
    283. 

  283.     else {
    284. 

  284.                                 # Pick a default port, if not specified
    285. 

  285.         $port_name = 'Homevision' if !$port_name and $main::Serial_Ports{Homevision}{object}; #Since it's multifunction, it should be default
    286. 

  286.         $port_name = 'weeder'  if !$port_name and $main::Serial_Ports{weeder}{object};
    287. 

  287.         $port_name = 'serial1' if !$port_name and $main::Serial_Ports{serial1}{object};
    288. 

  288.         $port_name = 'serial2' if !$port_name and $main::Serial_Ports{serial2}{object};
    289. 

  289. #       print "\$port_name is $port_name\n\$main::Serial_Ports{Homevision}{object} is $main::Serial_Ports{Homevision}{object}\n";
    290. 

  290.         unless ($port_name) {
    291. 

  291.             print "Error, serial set called, but no serial port found: data=$serial_data\n";
    292. 

  292.             return;
    293. 

  293.         }
    294. 

  294.         unless ($main::Serial_Ports{$port_name}{object}) {
    295. 

  295.             print "Error, serial port for $port_name has not been set: data=$serial_data\n";
    296. 

  296.             return;
    297. 

  297.         }
    298. 

  298. 

  299.         if (lc($port_name) eq 'homevision') {
    300. 

  300.             &Homevision::send($main::Serial_Ports{Homevision}{object}, $serial_data);
    301. 

  301.         }
    302. 

  302.         else {
    303. 

  303.             my $datatype  = $main::Serial_Ports{$port_name}{datatype};
    304. 

  304.             $serial_data .= "\r" unless $datatype and $datatype eq 'raw';
    305. 

  305.             my $results = $main::Serial_Ports{$port_name}{object}->write($serial_data);
    306. 

  306.             
    307. 

  307. #           &main::print_log("serial port=$port_name out=$serial_data results=$results") if $main::config_parms{debug} eq 'serial';
    308. 

  308.             print "serial port=$port_name out=$serial_data results=$results\n" if $main::config_parms{debug} eq 'serial';
    309. 

  309.         }
    310. 

  310.     }
    311. 

  311. 

  312.                                 # Check for X10 All-on All-off house codes
    313. 

  313.                                 #  - If found, set states of all X10_Items on that housecode
    314. 

  314.     if ($serial_data =~ /^X(\S)([OP])$/) {
    315. 

  315.         print "db l=$main::Loop_Count X10: mh set House code $1 set to $2\n" if $main::config_parms{debug} eq 'X10';
    316. 

  316.         my $state = ($2 eq 'O') ? 'on' : 'off';
    317. 

  317.         &X10_Item::set_by_housecode($1, $state);
    318. 

  318.     }
    319. 

  319.                                 # Check for other items with the same codes
    320. 

  320.                                 #  - If found, set them to the same state
    321. 

  321.     if ($serial_items_by_id{$serial_id} and my @refs = @{$serial_items_by_id{$serial_id}}) {
    322. 

  322.         for my $ref (@refs) {
    323. 

  323.             next if $ref eq $self;
    324. 

  324.                                 # Only compare between items on the same port
    325. 

  325.             my $port_name1 = ($self->{port_name} or ' ');
    326. 

  326.             my $port_name2 = ($ref ->{port_name} or ' ');
    327. 

  327.             next unless $port_name1 eq $port_name2;
    328. 

  328. 

  329.             print "Serial_Item: Setting duplicate state: id=$serial_id item1=$$self{object_name} item2=$$ref{object_name}\n" 
    330. 

  330.                 if $main::config_parms{debug} eq 'serial';
    331. 

  331.             if ($state = $$ref{state_by_id}{$serial_id}) {
    332. 

  332.                 $ref->set_receive($state);
    333. 

  333.             }
    334. 

  334.             else {
    335. 

  335.                 $ref->set_receive($serial_id);
    336. 

  336.             }
    337. 

  337.         }
    338. 

  338.     }
    339. 

  339. 

  340. }    
    341. 

  341. 

  342. my $x10_save_unit;
    343. 

  343. sub send_x10_data {
    344. 

  344.     my ($self, $serial_data, $interface) = @_;
    345. 

  345.     my ($isfunc);
    346. 

  346. 

  347.     if ($serial_data =~ /^X[A-P][1-9A-G]$/) {
    348. 

  348.         $isfunc = 0;
    349. 

  349.         $x10_save_unit = $serial_data;
    350. 

  350.     }
    351. 

  351.     else {
    352. 

  352.         $isfunc = 1;
    353. 

  353.     }
    354. 

  354.     print "X10: interface=$interface isfunc=$isfunc save_unit=$x10_save_unit data=$serial_data\n" if $main::config_parms{debug} eq 'X10';
    355. 

  355. 

  356.     if ($interface eq 'cm11') {
    357. 

  357.                                 # cm11 wants individual codes without X
    358. 

  358.         &ControlX10::CM11::send($main::Serial_Ports{cm11}{object},
    359. 

  359.                                 substr($serial_data, 1));
    360. 

  360.     }
    361. 

  361.     elsif ($interface eq 'cm17') {
    362. 

  362.                                 # cm17 wants A1K, not XA1AK
    363. 

  363.         &ControlX10::CM17::send($main::Serial_Ports{cm17}{object},
    364. 

  364.                                 substr($x10_save_unit, 1) . substr($serial_data, 2)) if $isfunc;
    365. 

  365.     }
    366. 

  366.     elsif ($interface eq 'homevision') {
    367. 

  367.                                 # homevision wants XA1AK
    368. 

  368.         if ($isfunc) {
    369. 

  369.             print "Using homevision to send: " .
    370. 

  370.                 $x10_save_unit . substr($serial_data, 1) . "\n";
    371. 

  371.             &Homevision::send($main::Serial_Ports{Homevision}{object},
    372. 

  372.                               $x10_save_unit . substr($serial_data, 1));
    373. 

  373.         }
    374. 

  374.     }
    375. 

  375.     elsif ($interface eq 'homebase') {
    376. 

  376.                                 # homebase wants individual codes without X
    377. 

  377.         print "Using homebase to send: $serial_data\n";
    378. 

  378.         &HomeBase::send_X10($main::Serial_Ports{HomeBase}{object}, substr($serial_data, 1));
    379. 

  379.     }
    380. 

  380.     elsif ($interface eq 'houselinc') {
    381. 

  381.                                 # houselinc wants XA1AK
    382. 

  382.         if ($isfunc) {
    383. 

  383.             print "Using houselinc to send: " .
    384. 

  384.                 $x10_save_unit . substr($serial_data, 1) . "\n";
    385. 

  385.             &HouseLinc::send_X10($main::Serial_Ports{HouseLinc}{object},
    386. 

  386.                                  $x10_save_unit . substr($serial_data, 1));
    387. 

  387.         }
    388. 

  388.     }
    389. 

  389.     elsif ($interface eq 'marrick') {
    390. 

  390.                                 # marrick wants XA1AK
    391. 

  391.         if ($isfunc) {
    392. 

  392.             print "Using marrick to send: " .
    393. 

  393.                 $x10_save_unit . substr($serial_data, 1) . "\n";
    394. 

  394.             &Marrick::send_X10($main::Serial_Ports{Marrick}{object},
    395. 

  395.                                $x10_save_unit . substr($serial_data, 1));
    396. 

  396.         }
    397. 

  397.     }
    398. 

  398.     elsif ($interface eq 'ncpuxa') {
    399. 

  399.                                 # ncpuxa wants individual codes with X
    400. 

  400.         print "Using ncpuxa to send: $serial_data\n";
    401. 

  401.         &ncpuxa_mh::send($main::config_parms{ncpuxa_port}, $serial_data);
    402. 

  402.     }
    403. 

  403.     elsif ($interface eq 'weeder') {
    404. 

  404.                                 # Weeder table does not match what we defined in CM11,CM17,X10_Items.pm
    405. 

  405.                                 #  - Dim -> L, Bright -> M,  AllOn -> I, AllOff -> H
    406. 

  406.         my ($device, $house, $command) = $serial_data =~ /^X(\S\S)(\S)(\S+)/;
    407. 

  407. 

  408.                                 # Allow for +-xx%
    409. 

  409.         my $dim_amount = 3;
    410. 

  410.         if ($command =~ /[\+\-]\d+/) {
    411. 

  411.             $dim_amount = int(10 * abs($command) / 100); # about 10 levels to 100%
    412. 

  412.             $command = ($command > 0) ? 'L' : 'M';
    413. 

  413.         }
    414. 

  414.         if ($command eq 'M') {
    415. 

  415.             $command =  'L' . (($house . 'L') x $dim_amount);
    416. 

  416.         }
    417. 

  417.         elsif ($command eq 'L') {
    418. 

  418.             $command =  'M' . (($house . 'M') x $dim_amount);
    419. 

  419.         }
    420. 

  420.         elsif ($command eq 'O') {
    421. 

  421.             $command =  'I';
    422. 

  422.         }
    423. 

  423.         elsif ($command eq 'P') {
    424. 

  424.             $command =  'H';
    425. 

  425.         }
    426. 

  426.         $serial_data = 'X' . $device . $house . $command;
    427. 

  427. 

  428.         $main::Serial_Ports{weeder}{object}->write($serial_data);
    429. 

  429. 

  430. 				# Give weeder a chance to do the previous command
    431. 

  431. 				# Surely there must be a better way!
    432. 

  432.         select undef, undef, undef, 1.2;
    433. 

  433.     }
    434. 

  434. 

  435.     else {
    436. 

  436.         print "\nError, X10 interface not found: interface=$interface, data=$serial_data\n";
    437. 

  437.     }
    438. 

  438. }
    439. 

  439. 

  440. sub set_interface {
    441. 

  441.     my ($self, $interface) = @_;
    442. 

  442.                                 # Set the default interface
    443. 

  443.     unless ($interface) {
    444. 

  444.         if ($main::Serial_Ports{cm11}{object}) {
    445. 

  445.             $interface = 'cm11';
    446. 

  446.         }
    447. 

  447.         elsif ($main::Serial_Ports{Homevision}{object}) {
    448. 

  448.             $interface = 'homevision';
    449. 

  449.         }
    450. 

  450.         elsif ($main::Serial_Ports{HomeBase}{object}) {
    451. 

  451.             $interface = 'homebase';
    452. 

  452.         }
    453. 

  453.         elsif ($main::Serial_Ports{HouseLinc}{object}) {
    454. 

  454.             $interface = 'houselinc';
    455. 

  455.         }
    456. 

  456.         elsif ($main::Serial_Ports{Marrick}{object}) {
    457. 

  457.             $interface = 'marrick';
    458. 

  458.         }
    459. 

  459.         elsif ($main::config_parms{ncpuxa_port}) {
    460. 

  460.             $interface = 'ncpuxa';
    461. 

  461.         }
    462. 

  462.         elsif ($main::Serial_Ports{cm17}{object}) {
    463. 

  463.             $interface = 'cm17';
    464. 

  464.         }
    465. 

  465.         elsif ($main::Serial_Ports{weeder}{object}) {
    466. 

  466.             $interface = 'weeder';
    467. 

  467.         }
    468. 

  468. 

  469.     }
    470. 

  470.     $$self{interface} = lc($interface) if $interface;
    471. 

  471. }
    472. 

  472. 

  473. 

  474. #
    475. 

  475. # $Log$
    476. 

  476. # Revision 1.45  2001/02/04 20:31:31  winter
    477. 

  477. # - 2.43 release
    478. 

  478. #
    479. 

  479. # Revision 1.44  2000/12/03 19:38:55  winter
    480. 

  480. # - 2.36 release
    481. 

  481. #
    482. 

  482. # Revision 1.43  2000/11/12 21:02:38  winter
    483. 

  483. # - 2.34 release
    484. 

  484. #
    485. 

  485. # Revision 1.42  2000/10/22 16:48:29  winter
    486. 

  486. # - 2.32 release
    487. 

  487. #
    488. 

  488. # Revision 1.41  2000/10/01 23:29:40  winter
    489. 

  489. # - 2.29 release
    490. 

  490. #
    491. 

  491. # Revision 1.40  2000/09/09 21:19:11  winter
    492. 

  492. # - 2.28 release
    493. 

  493. #
    494. 

  494. # Revision 1.39  2000/08/19 01:22:36  winter
    495. 

  495. # - 2.27 release
    496. 

  496. #
    497. 

  497. # Revision 1.38  2000/06/24 22:10:54  winter
    498. 

  498. # - 2.22 release.  Changes to read_table, tk_*, tie_* functions, and hook_ code
    499. 

  499. #
    500. 

  500. # Revision 1.37  2000/05/27 16:40:10  winter
    501. 

  501. # - 2.20 release
    502. 

  502. #
    503. 

  503. # Revision 1.36  2000/05/06 16:34:32  winter
    504. 

  504. # - 2.15 release
    505. 

  505. #
    506. 

  506. # Revision 1.35  2000/03/10 04:09:01  winter
    507. 

  507. # - Add Ibutton support and more web changes
    508. 

  508. #
    509. 

  509. # Revision 1.34  2000/02/13 03:57:27  winter
    510. 

  510. #  - 2.00 release.  New web server interface
    511. 

  511. #
    512. 

  512. # Revision 1.33  2000/02/12 06:11:37  winter
    513. 

  513. # - commit lots of changes, in preperation for mh release 2.0
    514. 

  514. #
    515. 

  515. # Revision 1.32  2000/01/27 13:42:42  winter
    516. 

  516. # - update version number
    517. 

  517. #
    518. 

  518. # Revision 1.31  2000/01/19 13:23:29  winter
    519. 

  519. # - add yucky delay to Weeder X10 xmit
    520. 

  520. #
    521. 

  521. # Revision 1.30  2000/01/02 23:47:43  winter
    522. 

  522. # - add Device:: to as Serilport check.  Use 10, not 7, increments in weeder dim
    523. 

  523. #
    524. 

  524. # Revision 1.29  1999/12/09 03:00:21  winter
    525. 

  525. # - added Weeder bright/dim support
    526. 

  526. #
    527. 

  527. # Revision 1.28  1999/11/08 02:16:17  winter
    528. 

  528. # - Move X10 stuff to X10_Items.pm.  Fix close method
    529. 

  529. #
    530. 

  530. # Revision 1.27  1999/11/02 14:51:36  winter
    531. 

  531. # - delete port in any case in stop method
    532. 

  532. #
    533. 

  533. # Revision 1.26  1999/10/31 14:49:04  winter
    534. 

  534. # - added X10 &P## preset dim option and X10_Lamp item
    535. 

  535. #
    536. 

  536. # Revision 1.25  1999/10/27 12:42:27  winter
    537. 

  537. # - add delete to serial_ports_by_port in sub close
    538. 

  538. #
    539. 

  539. # Revision 1.24  1999/10/09 20:36:49  winter
    540. 

  540. # - add call to set_interface in first new method.  Change to ControlX10
    541. 

  541. #
    542. 

  542. # Revision 1.23  1999/10/02 22:41:10  winter
    543. 

  543. # - move interface stuff to set_interface, so we can use for x10_appliances also
    544. 

  544. #
    545. 

  545. # Revision 1.22  1999/09/27 03:16:32  winter
    546. 

  546. # - move cm11 to HomeAutomation dir
    547. 

  547. #
    548. 

  548. # Revision 1.21  1999/09/12 16:57:07  winter
    549. 

  549. # - point to new cm17 path
    550. 

  550. #
    551. 

  551. # Revision 1.20  1999/08/30 00:23:30  winter
    552. 

  552. # - add set_dtr set_rts.  Add check on loop_count
    553. 

  553. #
    554. 

  554. # Revision 1.19  1999/08/02 02:24:21  winter
    555. 

  555. # - Add STATUS state
    556. 

  556. #
    557. 

  557. # Revision 1.18  1999/06/27 20:12:09  winter
    558. 

  558. # - add CM17 support
    559. 

  559. #
    560. 

  560. # Revision 1.17  1999/06/20 22:32:43  winter
    561. 

  561. # - check for raw datatype on writes
    562. 

  562. #
    563. 

  563. # Revision 1.16  1999/04/29 12:25:20  winter
    564. 

  564. # - add House all on/off states
    565. 

  565. #
    566. 

  566. # Revision 1.15  1999/03/21 17:35:36  winter
    567. 

  567. # - add datatype raw
    568. 

  568. #
    569. 

  569. # Revision 1.14  1999/03/12 04:30:24  winter
    570. 

  570. # - add start, stop, and set_receive methods
    571. 

  571. #
    572. 

  572. # Revision 1.13  1999/02/16 02:06:57  winter
    573. 

  573. # - add homebase send errata
    574. 

  574. #
    575. 

  575. # Revision 1.12  1999/02/08 03:50:25  winter
    576. 

  576. # - re-enable serial writes!  Bug introduced in last install.
    577. 

  577. #
    578. 

  578. # Revision 1.11  1999/02/08 00:30:54  winter
    579. 

  579. # - make serial port prints depend on debug parm
    580. 

  580. #
    581. 

  581. # Revision 1.10  1999/01/30 19:55:45  winter
    582. 

  582. # - add more checks for blank objects, so we don't abend
    583. 

  583. #
    584. 

  584. # Revision 1.9  1999/01/23 16:23:43  winter
    585. 

  585. # - change the Serial_Port object to match Socket_Port format
    586. 

  586. #
    587. 

  587. # Revision 1.8  1999/01/13 14:11:03  winter
    588. 

  588. # - add some more debug records
    589. 

  589. #
    590. 

  590. # Revision 1.7  1999/01/07 01:55:40  winter
    591. 

  591. # - add 5% increments on X10_Item
    592. 

  592. #
    593. 

  593. # Revision 1.6  1998/12/10 14:34:19  winter
    594. 

  594. # - fix empty state case
    595. 

  595. #
    596. 

  596. # Revision 1.5  1998/12/07 14:33:27  winter
    597. 

  597. # - add dim level support.  Allow for arbitrary set commands.
    598. 

  598. #
    599. 

  599. # Revision 1.4  1998/11/15 22:04:26  winter
    600. 

  600. # - add support for generic serial ports
    601. 

  601. #
    602. 

  602. # Revision 1.3  1998/09/12 22:13:14  winter
    603. 

  603. # - added HomeBase call
    604. 

  604. #
    605. 

  605. # Revision 1.2  1998/08/29 20:46:36  winter
    606. 

  606. # - allow for cm11 interface
    607. 

  607. #
    608. 

  608. #
    609. 

  609. 

  610. 1;
    611. 

  611.