UpTime в веб-админке

[nops]

Всем здрасте!
Вот тут мне захотелось реализовать такую фишку: Сделать в админке блок с аптаймом сервера.
если вот в консоли

Код:

uptime
11:27AM  up 1 day, 15:59, 1 user, load averages: 0.21, 0.17, 0.17

вот и хочется сделать вывод и в админке так же.
Как такое можно реализовать?!
P.S. Не задавайте вопросов типа: "зачем оно надо?" или "Зайди в консоль и посмотри..." Хочу именно  админке и только для админов.

[ser970]

вариантов море

$up = `cat /proc/uptime | awk ' {print $1}'`;

или так

use Shell;
$up= uptime();

[versus]

Поставь заббикс и спи спокойно

[nops]

да нет, забикс мне не надо, это просто фишка, не несущая никакого функционала;)
Вопрос в другом, куда воткнуть то, что вы посоветовали...

[0xbad0c0d3]

Смотря где это должно отображаться... Туда и втыкать

[nops]

вот когда админка открывается, там вверху меню, вот либо под ним, либо справа от него....
Это куда вставить?

[0xbad0c0d3]

cgi-bin/adm/adm.pl

[nops]

Вы определенно издеваетесь. куда именно?!

[ser970]

вы просили как
вам показали.
сказали куда.
причем абсолютно верные ответы.
ну а писать за вас никто не будет.
за удовольствие нужно платить а не возмущаться.
даже не зная перла - открыв файл можно проанализировать - попробовать и за 1-2 часа получить результат

[nops]

хорошо, спасибо. Завтра попробую:)

[nops]

Итак.
Решение найдено. Отдельное спасибо Redmen
Открываем файл adm.pl
В самом верху, после:

#!/usr/bin/perl
# ------------------- NoDeny ------------------
# Copyright (с) Volik Stanislav, 2008, 2009
# Read license http://nodeny.com.ua/license.txt
# ---------------------------------------------
$VER=49.32;

use Time::HiRes qw( gettimeofday tv_interval );
use Time::localtime;
use DBI;

Вставляем следующее:

use Shell;
use POSIX qw(floor);

sub ptime {
$var = `sysctl -n kern.boottime | awk '{print \$4}'`;
                $var =~ s/,//g;
                $vary = `date +%s`; chomp($vary);
                $varx = $vary - $var;
                $varx = sprintf("%2d", $varx);
                $vard = floor($varx / 86400);
                $varx %= 86400;
                $varh = floor($varx / 3600);
                $varx %= 3600;
                $varm = floor($varx / 60);
                if($vard eq 0) { $vard = ''; } elsif($vard >= 1) { $vard = $vard.'д '; }
                if($varh eq 0) { $varh = ''; } elsif($varh >= 1) { $varh = $varh.'ч '; }
                if($varm eq 0) { $varm = ''; } elsif($varm >= 1) { $varm = $varm.'м '; }
                return $vard.$varh.$varm;
}

ВАЖНО: Не пропустите закрытие ковычек в конце, я пропустил и выдало 500-ю ошибку!
далее тут же ищем следующее:

$OUT.=&Table('width100',
   &tag('tr',
      &tag('td',&ahref("$scrpt0&a=mytune","<img src='$Adm_pic'>")).
      &tag('td','&nbsp;',"width='16%'").
      &tag('td',$out,"align=center valign=top").
      &tag('td','&nbsp;',"width='16%'").
      &tag('td','Адм:'.$br.$Display_admin)
   ).

Вместо этого вписываем:

$OUT.=&Table('width100',
   &tag('tr',
      &tag('td',&ahref("$scrpt0&a=mytune","<img src='$Adm_pic'>")).
     &tag('td','UpTime:'.$br.&ptime,"align=center width='8%'").
       &tag('td','&nbsp;',"width='8%'").
      &tag('td',$out,"align=center valign=top").
      &tag('td','&nbsp;',"width='16%'").
      &tag('td','Админ:'.$br.$Display_admin)
   ).

(выделил строчки, которые изменяются)
В итоге сохраняем и пробуем. В левом верхнем углу, справа от аватары появится значение аптайма.

[Александр (AleksHr)]

А как вставить например по центру, там где пишет Здравствуйте, такой то админ, под ним как раз.

[nops]

В этом случае Uptime сервера будет показываться только на одной странице, на главной так сказать, в меню указано как знак параграфа.
Покопайте файл /usr/local/nodeny/web/title.pl
 
Нашел для Вас решение:
Открываем файл:

Код:

/usr/local/nodeny/web/title.pl

находим строчку:

Код:

$OUT.=&div( 'row2',&Printf('[br]Здравствуйте, [filtr|bold][br2]',$Aname || 'администратор' ) );

Дописываем ниже:

Код:

$OUT.=&div( 'row2',&Printf('Сервер работает уже: [filtr|bold][br2]',&ptime ) );

Наслаждайтесь.
 
P.S. Знающие и понимающие в перле люди, не пинайте, это реально самое первое, что написал на перле, хоть и по аналогии:-D

[ser970]

sub ptime {
$var = `sysctl -n kern.boottime | awk '{print \$4}'`;
                $var =~ s/,//g;
                $vary = `date +%s`; chomp($vary);
                $varx = $vary - $var;
                $varx = sprintf("%2d", $varx);
                $vard = floor($varx / 86400);
                $varx %= 86400;
                $varh = floor($varx / 3600);
                $varx %= 3600;
                $varm = floor($varx / 60);
                if($vard eq 0) { $vard = ''; } elsif($vard >= 1) { $vard = $vard.'д '; }
                if($varh eq 0) { $varh = ''; } elsif($varh >= 1) { $varh = $varh.'ч '; }
                if($varm eq 0) { $varm = ''; } elsif($varm >= 1) { $varm = $varm.'м '; }
                return $vard.$varh.$varm;
}

@up=split/\,/,uptime();
ну и вывод переменой $up[0]; 

12:21PM  up 212 days

на

[poxy.]

ИМХО - изврат, есть системы мониторинга, а биллинг, это биллинг.