https://www.thinkwiki.org/w/api.php?action=feedcontributions&feedformat=atom&user=Test
ThinkWiki - User contributions [en]
2026-04-29T07:32:56Z
User contributions
MediaWiki 1.31.12
https://www.thinkwiki.org/w/index.php?title=Talk:ThinkLight&diff=22042
Talk:ThinkLight
2006-05-01T20:12:18Z
<p>Test: </p>
<hr />
<div>[code]<br />
#!/usr/bin/perl<br />
<br />
use strict;<br />
use warnings;<br />
# $count<br />
<br />
my $count = $ARGV[0];<br />
<br />
if ( $count eq "" || $count < 1 )<br />
{<br />
$count = 1;<br />
}<br />
$|=1;<br />
<br />
for(my $i=0;$i<$count;$i++)<br />
{<br />
open(LICHT,">/proc/acpi/ibm/light");<br />
print LICHT "on\n";<br />
close(LICHT);<br />
select(undef,undef,undef,0.25);<br />
open(LICHT,">/proc/acpi/ibm/light");<br />
print LICHT "off\n";<br />
close(LICHT);<br />
select(undef,undef,undef,0.25);<br />
}<br />
<br />
[/code]</div>
Test