blob: 5460b22dacfb2270e41583ecc5d7eb2c372dec4d (
plain)
1
2
3
4
5
6
7
8
|
#!/usr/bin/perl -T -w
# xlocksat
require "ctime.pl";
#local($hour) = `/bin/date "+%H:"`;
local($hour) = (localtime)[2];
local($saturation) = (12 - abs($hour - 12)) / 12 ;
printf("%.2f\n", $saturation);
|
