#!/bin/bash
#
# (c) Lorenzo Canovi (KUBiC Labs, CH) <packager@kubiclabs.com>
# for copyright see /usr/share/doc/ku-base/copyright
#
# original idea from 'updick', by Franco Lanza, 2014
#
uptime | perl -ne "/(\d+) d/;print 8,q(=)x\$1,\"D\n\""
exit 0
