2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
fhem-mirror/fhem/contrib/deprecated/20_FRM_LCD.pm

50 lines
831 B
Perl
Raw Normal View History

##############################################
# $Id$
##############################################
package main;
use strict;
use warnings;
sub
FRM_LCD_Initialize($)
{
my ($hash) = @_;
main::LoadModule("I2C_LCD");
I2C_LCD_Initialize($hash);
$hash->{DefFn} = "FRM_LCD_Define";
$hash->{InitFn} = "FRM_LCD_Init";
};
sub
FRM_LCD_Define($$)
{
my ($hash, $def) = @_;
my @a = split("[ \t][ \t]*", $def);
shift @a;
return I2C_LCD_Define($hash,join(' ',@a));
}
sub
FRM_LCD_Init($)
{
my ($hash,$args) = @_;
my $u = "wrong syntax: define <name> FRM_LCD i2c <size-x> <size-y> [<address>]";
return $u if(int(@$args) < 3);
shift @$args;
return I2C_LCD_Init($hash,$args);
}
1;
=pod
=begin html
<a name="FRM_LCD"></a>
<h3>FRM_LCD</h3>
<ul>
deprecated, use <a href="#I2C_LCD">I2C_LCD</a>
</ul>
=end html
=cut