view release on metacpan or  search on metacpan

demos/smarthouse/config.pl  view on Meta::CPAN

# SmartHouse - A Web-based X10 Device Controller in Perl.
# This demo is based on a college lab assignment.  It doesn't actually 
# control any hardware, but is a simple web interface for such a program 
# should one want to extend it in that manner.  This is meant to show how 
# CGI::Portable can be used in a wide variety of environments, not just 
# ordinary database or web sites.  If you wanted to extend it then you 
# should use modules like ControlX10::CM17, ControlX10::CM11, or 
# Device::SerialPort.  On the other hand, if you want a very complete 
# (and complicated) Perl solution then you can download Bruce Winter's 
# free open-source MisterHouse instead at "http://www.misterhouse.net".

my $rh_prefs = {
	handlers => {
		bed_lamp => {
			menu_name => 'Bed Room Lamp',
			mod_name => 'DemoLM465',
			mod_prefs => { address => 'A2', },
		},
		shop_lamp => {
			menu_name => 'Workshop Light',
			mod_name => 'DemoLM465',
			mod_prefs => { address => 'A5', },
		},
		living_lamp => {
			menu_name => 'Living Room Lamp',
			mod_name => 'DemoLM465',
			mod_prefs => { address => 'A6', },
		},
	},
};