ophub 改进我家云风扇脚本增加风扇关闭，启动功能

25627***

关联：

我家云ChainedboxProL1最新固件ophub使用方案详解

20240428 增加风扇关闭功能，在冬天气温比较低时，如果风扇还旋转，因为热胀冷缩轴承非常容易磨损，天气冷的时候是风扇损坏率较高的时候。


脚本是我用曾经大二c语言基础 和 GPT3.5 和力啃下来的。

个人见解：ophub我家云用的f大的调速脚本，脚本我没看的太懂，我的理解是根据温度的匀速调速脚本，但是我家云的情况不太一样，我家云主板上的散热器是一块厚铝合金，实际目的是为了增加cpu的热容，使温度不易跳变，由于平时cpu使用频率也很低，温度更多是来自环境温度和硬盘温度，所以我之前的使用爱好是cpu温度低风扇不开启可保证寿命，温度高于65低于75度，风扇低速、低噪音运行，缓慢抽走我家云内热风就行，没有必要强制降低cpu温度，当cpu突破75度，风扇全速运行，强制散热。由于cpu重负载情况不多，所以风扇很少全速开启。这套逻辑使用下来非常满意；


替换/user/bin/pwm-fan.pl

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. ################################################################################
   
6. # 参数我已经修改完善，没有特殊情况勿改
   
7. # 参数调整区 风扇按照固定占空比启动后10s，根据cpu温度调整转速，低于$temp_low风扇停转，高于$temp_fanOn风扇启动。
   
8. # 速度最小值(满速是99),如果太小可能进入死区，风扇不转，需配合下面提示调整
   
9. my $speed_min = 15;
   
10. 
    
11. # 速度最大值(满速是99)
    
12. my $speed_max = 99;
    
13. 
    
14. # 温度低限(摄氏度): 小于等于此温度风扇停转
    
15. my $temp_low = 50;
    
16. 
    
17. # 风扇启动温度低限(摄氏度): 大于于等于此值按启动风扇散热
    
18. my $temp_fanOn = 65;
    
19. 
    
20. # 风扇启动占空比参数(%): 风扇启动时使用固定占空比：风扇启动占空比参数，设置要点:保证能启动同时风扇噪音不要过大
    
21. my $duty_cycle_on = 3;
    
22. 
    
23. # 温度最高限(摄氏度): 大于此值按最高速率转动
    
24. my $temp_high = 75;
    
25. 
    
26. # 调速间隔(秒)
    
27. my $interval = 10;
    
28. ################################################################################
    
29. #用到的变量，下面参数勿动
    
30. # 风扇状态位: 0为关闭，1为开启
    
31. my $fanclose_temp = 0;
    
32. 
    
33. # 风扇首次启动: 0为风扇运转中，1风扇从关闭到开启是第一次运行
    
34. my $fan_up = 0;
    
35. 
    
36. # 风扇切换温度转换值
    
37. my $coeff_temp = 0;
    
38. 
    
39. ################################################################################
    
40. 
    
41. my $fixed_speed = $ARGV[0];
    
42. my $period = 25000;
    
43. &init;
    
44. if( ($fixed_speed ne "") &&
    
45.     ($fixed_speed =~ m/^[0-9]{1,3}$/) ) {
    
46.     # 如果命令行参数为 0-100 的整数,则按指定的固定速率调速
    
47.     &set_fixed_speed($fixed_speed);
    
48. } else {
    
49.     # 否则自动调速
    
50.     while(1) {
    
51.         &auto_speed;
    
52.         sleep($interval);   
    
53.     }
    
54. }
    
55. exit 0;
    
56. 
    
57. ###############################################################################
    
58. sub get_soc_temp {
    
59.     my @fnames=(
    
60.           '/sys/devices/virtual/thermal/thermal_zone0/temp',
    
61.           '/sys/devices/platform/scpi/scpi:sensors/hwmon/hwmon0/temp1_input',
    
62.        );
    
63.     my $fh;
    
64.     my $temp = 50;
    
65.     for my $fname (@fnames) {
    
66.         if( -f $fname ) {
    
67.             open $fh, "<", $fname;
    
68.             $temp = <$fh> / 1000.0;
    
69.             close $fh;
    
70.             return $temp;
    
71.         }
    
72.     }
    
73.     return $temp;
    
74. }
    
75. 
    
76. sub init {
    
77. 
    
78.     $speed_max = 100  if ($speed_max > 100);
    
79.     $speed_min = 0  if($speed_min < 0);
    
80. 
    
81.     my $fh;
    
82.     `rmmod pwm_fan 2>/dev/null`;
    
83. 
    
84.     open $fh, ">", "/sys/class/pwm/pwmchip0/export";
    
85.     print $fh "0\n";
    
86.     close $fh;
    
87. 
    
88.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/period";
    
89.     print $fh "$period\n";
    
90.     close $fh;
    
91. 
    
92.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/polarity";
    
93.     print $fh "normal\n";
    
94.     close $fh;
    
95. 
    
96.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/enable";
    
97.     print $fh "1\n";
    
98.     close $fh;
    
99. }
    
100. 
     
101. sub set_fixed_speed {
     
102.     my $fixed_speed = shift;
     
103. 
     
104.     # 最大值0.99
     
105.     my $coeff_speed = ($fixed_speed / 100.0) > 1 ?  0.99 : ($fixed_speed / 100.0);
     
106. 
     
107.     #0.1-0.19 定义为死区
     
108.     $coeff_speed = 0.20 if $coeff_speed > 0 and $coeff_speed < 0.2;
     
109. 
     
110.     my $duty_cycle = int($coeff_speed * $period);
     
111. 
     
112.     open my $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/duty_cycle";
     
113.     print $fh "$duty_cycle\n";
     
114.     close $fh;
     
115. }
     
116. 
     
117. sub auto_speed {
     
118.     my $temp = &get_soc_temp;
     
119.     #my $coeff_temp;
     
120.     if($temp <= $temp_low) {
     
121.         $coeff_temp = 0;
     
122.         $fanclose_temp = 0;
     
123.         #$fanclose_temp = 1; #去掉此行代码前的#测试风扇是否可以维持旋转，测试完毕行代码前加#
     
124.         } elsif($temp > $temp_high) {
     
125.                 $coeff_temp = 1;
     
126.                 $fanclose_temp = 1;
     
127.                 } elsif(($temp > $temp_fanOn)&&($fanclose_temp == 0)){
     
128.                      $fan_up = 1;
     
129.                      $fanclose_temp = 1;
     
130.                      }else {
     
131.                             $coeff_temp = ($temp - $temp_low) / ($temp_high - $temp_low);
     
132.                             }
     
133. 
     
134.     my $coeff_speed_min = $speed_min / $speed_max  * ($speed_max / 100);
     
135.     my $coeff_speed = $coeff_temp;
     
136.     $coeff_speed = ($coeff_speed_min + $coeff_speed) > 0.99 ? 0.99 : ($coeff_speed_min + $coeff_speed);
     
137.    
     
138.     my $duty_cycle = int($coeff_speed * $period);
     
139. 
     
140.     if($fanclose_temp == 0) {
     
141.         $duty_cycle = 0;
     
142.         }elsif(($fanclose_temp == 1)&&($fan_up == 1)){
     
143.                 $duty_cycle = $duty_cycle_on ;
     
144.                 $fan_up = 0; #风扇以启动，清零首次标志位
     
145.                 }else{
     
146.                 }
     
147.    
     
148.     open my $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/duty_cycle";
     
149.     print $fh "$duty_cycle\n";
     
150.     close $fh;
     
151. }
     

复制代码

Dan***

非常感谢，试用一下