a8bf3ed72f
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@110 2b470e98-0d58-463d-a4d8-8e2adae1ed80
21 lines
247 B
Perl
21 lines
247 B
Perl
package main;
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
|
|
sub
|
|
Utils_Initialize($$)
|
|
{
|
|
my ($hash) = @_;
|
|
}
|
|
|
|
sub
|
|
time_str2num($)
|
|
{
|
|
my ($str) = @_;
|
|
my @a = split("[- :]", $str);
|
|
return mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);
|
|
}
|
|
|
|
1;
|