From a74dd5d95b4f067b332d7d5fa86027fb4b90d542 Mon Sep 17 00:00:00 2001
From: KRKeegan <kevin@krkeegan.com>
Date: Thu, 6 Jun 2013 19:05:13 -0700
Subject: [PATCH] Insteon:  Add Initial Support for Linking i2cs Devices in MH

No longer do you have to manually link i2cs devices.

Added: enter_linking_mode()

Places the object into linking mode as if you had held down the set button on the device.  To create a link wherein the PLM is the controller, first run the PLM voice command "initiate link as controller". Then run this command.  Finally, run the voice command "scan link table" on this device.

This will eventually be merged into a simpler one-step method, however that will require some additional coding.
---
 lib/Insteon/BaseInsteon.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/lib/Insteon/BaseInsteon.pm b/lib/Insteon/BaseInsteon.pm
index a0d50044c..186910b99 100644
--- a/lib/Insteon/BaseInsteon.pm
+++ b/lib/Insteon/BaseInsteon.pm
@@ -1050,6 +1050,33 @@ sub unlink_to_interface
         }
 }
 
+=item C<enter_linking_mode(group)>
+
+BETA -- Can be used to create the initial link with i2cs devices.  i1 devices
+will not respond to this command.  In the future, this will be incorporated into a
+one-step process -- BETA
+
+Places the object into linking mode as if you had held down the set button on 
+the device.  To create a link wherein the PLM is the controller, first run the 
+PLM voice command "initiate link as controller". Then run this command.  Finally,
+run the voice command "scan link table" on this device.
+
+The group argument is optional and not needed for group 01.
+
+Returns: nothing
+
+=cut 
+
+sub enter_linking_mode
+{
+	my ($self,$p_group) = @_;
+	my $group = $p_group;
+	$group = '01' unless $group;
+	my $extra = sprintf("%02x", $group);
+	$extra .= '0' x (30 - length $extra);
+	my $message = new Insteon::InsteonMessage('insteon_ext_send', $self, 'linking_mode', $extra);
+	$self->_send_cmd($message);
+}
 
 sub _aldb
 {