Отображение заряда батареи Webmin

[pe4enbk]

Здравствуйте!
Ситуация такова, что "сервером" у меня выступает бук, и он часто остается без розетки - на батарее.
На нем есть вебмин. Хотел бы на глагне его прикрутить отображение заряда батареи и наличие электричества.
Как эти значения получить - понятно.
Но вот как их в вебмин вставить? Я гуглил, яндексил, но так и не докурил, где исходники страниц.
Есть у кого опыт внесения подобных изменений?




Пользователь решил продолжить мысль 15 Сентября 2013, 23:48:01:Сегодня покурил манов и написал.
Колхоз дикого разлива, ибо ни разу не программист. Пытался по красивому, функции в одно место, вывод в другое, текст в третье.. Но потом подумал, что при апдейте один фиг слетит.
Итак:

Код: [Выделить]

sudo nano /usr/share/webmin/blue-theme/right.cgi
Ctrl^W
System uptimeПосле секции аптайма и перед # Running processes вставляем следующее благолепие:

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

        # System battery
        sub get_system_battery
        {
        if(open(BAT_FULL, "/sys/class/power_supply/BAT0/charge_full") && open(BAT_NOW, "/sys/class/power_supply/BAT0/charge_now")){
                my $bat_perc = <BAT_NOW>/<BAT_FULL>*100 ;
                close(BAT_FULL);
                close(BAT_NOW);
                return int($bat_perc);
                }
        }

        sub get_system_battery_state
        {
        if(open(BAT_STATE, "/sys/class/power_supply/BAT0/status")){
                my $bat_state = <BAT_STATE> ;
                return ($bat_state);
                }
        }
        my $battery;
        my $bat_proc = get_system_battery();
        my $bat_state = get_system_battery_state();
        $battery =  $bat_state . ',' . $bat_proc . '%';
        if($battery) {
                print "<tr> <td><b>Battery state</b></td>\n";
                print "<td>$battery</td> </tr>\n";
                }

Работает на 1,650, да и на других должно бы.
Но нету проверок на отсутствие батареи, посему использовать только на ноутах, иначе пустое место будет.
Спасибо за внимание.