Talk:ThinkLight

From ThinkWiki
Revision as of 23:35, 1 May 2006 by Adamg (Talk | contribs)

Jump to: navigation, search

[code]

  1. !/usr/bin/perl

use strict; use warnings;

  1. $count

my $count = $ARGV[0];

if ( ! defined($count) || $count < 1 )

       {
       $count = 1;
       }

$|=1;

for(my $i=0;$i<$count;$i++) { open(LICHT,">/proc/acpi/ibm/light"); print LICHT "on\n"; close(LICHT); select(undef,undef,undef,0.25); open(LICHT,">/proc/acpi/ibm/light"); print LICHT "off\n"; close(LICHT); select(undef,undef,undef,0.25); }

[/code]