blob: 614a1bcb74852b9dc81ca47e9fb6bdf1edd34452 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/bin/sh
case "$1" in
on)
xset s 300 5
xset dpms 600 600 600
;;
off)
xset s off
xset dpms 0 0 0
;;
q)
xset q | perl -nlE'print if ((/^(:?Screen Saver|DPMS)/.../^[^\s]/) && /^(:?Screen Saver|DPMS|\s)/)'
;;
*)
echo "$(basename "$0"): unknown argument '$1'" >&2
exit 1
;;
esac
|