fhem-mirror/FHEM/98_uptime.pm
betateilchen d6148f9aef 98_uptime.pm: commandref updated
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@14706 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2017-07-13 17:22:27 +00:00

80 lines
1.8 KiB
Perl

=for comment
# $Id$
This script free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
any later version.
The GNU General Public License can be found at
http://www.gnu.org/copyleft/gpl.html.
A copy is found in the textfile GPL.txt and important notices to the license
from the author is found in LICENSE.txt distributed with these scripts.
This script is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
=cut
package main;
use strict;
use warnings;
sub uptime_Initialize($$) {
my %hash = (
Fn => "CommandUptime",
Hlp => ",show FHEM uptime",
);
$cmds{uptime} = \%hash;
}
sub CommandUptime($$) {
my ($cl,$param) = @_;
my @args = split("[ \t]+", $param);
$args[0] = defined($args[0]) ? lc($args[0]) : "";
my $diff = time - $fhem_started;
return $diff if(lc($args[0]) eq 'raw');
my ($d,$h,$m,$ret);
($d,$diff) = _upT_Div($diff,86400);
($h,$diff) = _upT_Div($diff,3600);
($m,$diff) = _upT_Div($diff,60);
$ret = "";
$ret .= "$d days, " if($d > 1);
$ret .= "1 day, " if($d == 1);
$ret .= sprintf("%02s:%02s:%02s", $h, $m, $diff);
return $ret;
}
sub _upT_Div($$) {
my ($p1,$p2) = @_;
return (int($p1/$p2), $p1 % $p2);
}
1;
=pod
=item command
=item summary show FHEM uptime
=item summary_DE zeigt FHEM Laufzeit an
=begin html
<a name="uptime"></a>
<h3>uptime</h3>
<ul>
<code>uptime [raw]</code><br/>
<br/>
uptime shows FHEM uptime since last FHEM (re-)start.<br/>
if called with optional parameter "raw" only seconds will be shown,<br/>
without any fomatting.<br/>
</ul>
=end html
=cut