#!/usr/bin/perl -w
use Chart::Lines;
use Tie::IxHash;
open (IPA, "/usr/local/bin/ipastat -R inet-in -i /0-/23:59 -n -e |");
$line = <IPA>;
while ($line=<IPA>) {
$line =~ s/\s+/ /;
chomp $line;
my ($a101, $b101, $c101, $d101, $e101, $f101) = split (/ /, $line, 6);
#$now = `date +%H.%M`;
$obj = Chart::Lines->new(90, 200);
$myhour24 = `date +%H.%M`;
@data = ( [ '', 'inet' ],
[ $f101, $f101]);
$obj->set ('title' => 'Inet_ALL',
'legend' => 'none',
# 'graph_border' =>10,
'brush_size' => 5,
'x_ticks' => 'normal',
'x_label' => $myhour24,
# 'max_val' => $scl_max24,
# 'min_val' => $scl_min24,
# 'tick_len' => 10,
## 'skip_x_ticks' => 12,
'transparent' => 'true',
'grey_background' => 'true',
'y_label' => 'inet_in_rule_101',
'grid_lines' => 'true',
# 'spaced_bars' => 'false',
'colors' => {
'background' => [255,255,255],
'x_grid_lines' => [155,186,214],
'y_grid_lines' => [155,186,214],
'text' => [60,40,140],
'dataset1' => [130,130,130]
}
);
$obj->png ("/patch_to_site/1.png", \@data);
}
close IPA;
===============================================
Самодельная фигня , но работает.
xx.png ставиш в HTML <img src....> и смотриш
Данный пример смотрит ipastat , можно напрямую c ipfw show .
Поставить надо модули для перла см. выше.
Сдесь не справился только с осью времени , поэтому графики как градусники Ж)
Сам скрипт в крон.А вообще MRTG красивее , и те же команды прилепил туда .Короче работет и там и там.
Вариант для распечатки
Программирование под UNIX (Public)
on
12-Сен-03, 11:35 (MSK)
