On Wed, Jul 21, 2004 at 03:33:20PM -0500, Matthew Strait wrote: > Hello. I've been using radeontool on my Dell D600 with good results. > After I noticed that your script never lets you see the screensaver at > all, I hacked it a bit so that it would. With the version below, you get > one minute of pretty screensaver. (I don't really speak Perl, so forgive > the goto, etc.) > > Thanks for your work! > > -matthew > > #!/usr/bin/perl -w > use strict; > > delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; > $ENV{'PATH'} = > '/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/local/sbin'; > > $<=0; # become root not just effective root > > open(XS,"/usr/X11R6/bin/xscreensaver-command -watch|") or die; > above: > while() { > if(/^UNBLANK/i) > { > system("radeontool light on"); > } > elsif(/^BLANK/i) > { > system("sleep 60"); > while() > { > if(! /^UNBLANK/i){ > system("radeontool light off"); > } > goto above; > } > } > }