mirror of
https://github.com/openbsd/xenocara.git
synced 2025-12-10 11:19:04 +00:00
9 lines
203 B
Perl
9 lines
203 B
Perl
#!/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);
|