CGI-Portable
view release on metacpan or search on metacpan
demos/smarthouse/DemoX10.pm view on Meta::CPAN
<P>Welcome to the Smart House of 2001 by Darren Duncan. Please choose a device
that you wish to control from the menu on the left.</P>
__endquote
last SWITCH;
}
my $rh_handler = $rh_handlers->{$current_device};
unless( ref( $rh_handler ) eq 'HASH' ) {
$globals->set_page_body( <<__endquote );
<H1>Bad Menu Choice</H1>
<P>The device you chose from the menu, '$current_device', doesn't seem to be in
the list of devices that we know about. If you entered that url manually then
please choose from the menu instead. If you did choose from the menu then there
is something wrong with your configuration file.</P>
__endquote
last SWITCH;
}
my $device_context = $globals->make_new_context();
$device_context->inc_user_path_level();
( run in 0.457 second using v1.01-cache-2.11-cpan-49f99fa48dc )