Sinon, ici, un script perl pour couper le ventilo :
As a bonus you can paste the following perl one liner into the terminal to control the fan, just change the bold value at the end. Possible values are 0x1F to turn it off, 0x20 for maximum speed and 0x00 to reset it to its default behaviour. It's not a very convenient way, but it works.
sudo perl -e 'use POSIX; $i=IOPORTS; sysopen($i,"/dev/port",O_RDWR); sub i{sysseek $i,$_[0],0; sysread $i,$res,1; return unpack("C",$res)} sub o{sysseek $i,$_[1],0; syswrite $i,pack("C",$_[0]),1} sub w{$k=0; while((i($_[0])&0x02)&&($k<100)){sleep(.01); $k++} return -($k==100)} sub e{o(0x81,0x66); if(!w(0x66)){o($_[0],0x62)} if(!w(0x66)){o($_[1],0x62)}} e(0x55,0x1F); close($i);'
[^] # Re: Et sinon, content de ton One ?
Posté par Zorro . En réponse au journal Mes 3 minutes de honte. Évalué à 3.
As a bonus you can paste the following perl one liner into the terminal to control the fan, just change the bold value at the end. Possible values are 0x1F to turn it off, 0x20 for maximum speed and 0x00 to reset it to its default behaviour. It's not a very convenient way, but it works.
sudo perl -e 'use POSIX; $i=IOPORTS; sysopen($i,"/dev/port",O_RDWR); sub i{sysseek $i,$_[0],0; sysread $i,$res,1; return unpack("C",$res)} sub o{sysseek $i,$_[1],0; syswrite $i,pack("C",$_[0]),1} sub w{$k=0; while((i($_[0])&0x02)&&($k<100)){sleep(.01); $k++} return -($k==100)} sub e{o(0x81,0x66); if(!w(0x66)){o($_[0],0x62)} if(!w(0x66)){o($_[1],0x62)}} e(0x55,0x1F); close($i);'Trouvé ici :
http://macles.blogspot.com/2008/08/reading-internal-thermal-(...)
Je l'ai pas encore essayé, car je me demande si couper le ventilo d'un processeur est une bonne idée...