|
|
||
|
Drogi użytkowniku,
Wykres zamieszczony poniżej pokazuje użycie łącza internetowego wygenerowane przez Twój komputer w ciągu ostatniego miesiąca:
|
||
|
|
||
|
|
||
Dziękujemy za zaufanie.
|
||
|
|
||
|
Estimat usuari,
Tot seguit us presentem les dades de l'informe mensual corresponent al tràfic d'Internet produït pel vostre ordinador:
|
||
|
|
||
|
|
||
Aprofitem l'avinentesa per agraïr-vos la vostra confiança.
|
||
|
|
||
|
Cher utilisateur,
Le graphique ci-après montre le trafic Internet généré par votre ordinateur durant le dernier mois :
|
||
|
|
||
|
|
||
Merci de votre confiance.
|
||
|
|
||
|
Geachte gebruiker,
Onderstaande grafiek toont het gegenereerde internetverkeer door uw computer in de afgelopen maand:
|
||
|
|
||
|
|
||
Hartelijk dank voor uw vertrouwen.
|
||
|
|
||
|
Vážený používateľ,
graf uvedený nižšie ukazuje využitie Internetu na Vašom počítači počas posledného mesiaca:
|
||
|
|
||
|
|
||
Ďakujeme za Vašu dôveru.
|
||
|
|
||
|
Sehr geehrter Benutzer,
Die Grafiken zeigen Ihnen den Internetdatendurchsatz ihres Computers im letzten Monat:
|
||
|
|
||
|
|
||
Vielen Dank für Ihre Aufmerksamkeit.
|
||
|
|
||
|
Dear user,
The graph presented below shows the Internet traffic generated by your computer during the last month:
|
||
|
|
||
|
|
||
Thank you for your confidence.
|
||
|
|
||
|
亲爱的用户，
下面这张图片显示的是上个月您的计算机网络流量：
|
||
|
|
||
|
|
||
感谢您的耐心等待。
|
||
|
|
||
|
Gentile utente,
Il grafico seguente mostra il traffico internet generato dal tuo computer durante l'ultimo mese:
|
||
|
|
||
|
|
||
Ti ringraziamo per averci scelto!
|
||
| \n"; print " " . $host[$n] . "\n"; print " | \n"; } print "
| \n"; print " \n"; print " | \n"; } print "
| \n"; print " " . $host[$n] . "\n"; print " | \n"; } $n++; } print "
| \n"; print " \n"; print " | \n"; } $n++; } print "
| \n"; print " \n"; print " $foot_url[$n]\n"; print " | \n"; } } $n++; } $n = $n - $multihost->{graphs_per_row}; print "
| \n"; print " " . $host[$cgi->{val}] . "\n"; print " | \n"; print "
| \n"; print " \n"; print " | \n"; print "
| \n"; print " \n"; print " $foot_url[$cgi->{val}]\n"; print " | \n"; } print "
| \n"); push(@output, " $title\n"); push(@output, " | \n"); push(@output, "
FATAL: Monitorix is unable to continue!
=======================================
File 'monitorix.conf.path' was not found.
Please make sure that 'base_dir' option is correctly configured and this
CGI (monitorix.cgi) is located in the 'base_dir'/cgi/ directory.
And don't forget to restart Monitorix for the changes to take effect!
EOF
die "FATAL: File 'monitorix.conf.path' was not found!";
}
# load main configuration file
my $conf = new Config::General(
-ConfigFile => $config_path,
-SplitPolicy => $split_policy,
);
%config = $conf->getall;
# load additional configuration files
if($config{include_dir} && opendir(DIR, $config{include_dir})) {
my @files = grep { !/^[.]/ } readdir(DIR);
closedir(DIR);
foreach my $c (sort @files) {
next unless -f $config{include_dir} . "/$c";
next unless $c =~ m/\.conf$/;
my $conf_inc = new Config::General(
-ConfigFile => $config{include_dir} . "/$c",
-SplitPolicy => $split_policy,
);
my %config_inc = $conf_inc->getall;
while(my ($key, $val) = each(%config_inc)) {
if(ref($val) eq "HASH") {
# two level options (a subsection)
while(my ($key2, $val2) = each(%{$val})) {
# delete first this whole subsection
delete($config{$key}->{$key2});
if(ref($val2) eq "HASH") {
# three level options (a subsubsection)
while(my ($key3, $val3) = each(%{$val2})) {
$config{$key}->{$key2}->{$key3} = $val3;
delete $config_inc{$key}->{$key2}->{$key3};
}
next;
}
$config{$key}->{$key2} = $val2;
delete $config_inc{$key}->{$key2};
}
next;
}
# graph_name option is special
#if($key eq "graph_name") {
# $config{graph_name} .= ", $val";
# delete $config_inc{graph_name};
# next;
#}
# one level options
$config{$key} = $val;
delete $config_inc{$key};
}
}
}
$config{url} = ($config{url_prefix_proxy} || "");
if(!$config{url}) {
$config{url} = ($ENV{HTTPS} || ($config{httpd_builtin}->{https_url} || "n") eq "y") ? "https://" . $ENV{HTTP_HOST} : "http://" . $ENV{HTTP_HOST};
$config{hostname} = $config{hostname} || $ENV{SERVER_NAME};
if(!($config{hostname})) { # called from the command line
$config{hostname} = "127.0.0.1";
$config{url} = "http://127.0.0.1";
}
}
$config{url} .= $config{base_url};
our $mode = defined(param('mode')) ? param('mode') : '';
our $graph = param('graph');
our $when = param('when');
our $color = param('color');
our $val = defined(param('val')) ? param('val') : '';
our $silent = defined(param('silent')) ? param('silent') : '';
if($mode ne "localhost") {
($mode, $val) = split(/\./, $mode);
}
# this should disarm all XSS and Cookie Injection attempts
my $OK_CHARS='-a-zA-Z0-9_'; # a restrictive list of valid chars
$graph =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
$mode =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
$when =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
$color =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
$val =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
$silent =~ s/[^$OK_CHARS]/_/go; # only $OK_CHARS are allowed
#$graph =~ s/\&/&/g;
#$graph =~ s/\/>/g;
#$graph =~ s/\"/"/g;
#$graph =~ s/\'/'/g;
#$graph =~ s/\(/(/g;
#$graph =~ s/\)/)/g;
#$graph =~ s/\////g;
if(lc($config{httpd_builtin}->{enabled}) ne "y") {
print("Content-Type: text/html\n");
print("\n");
}
# get the current OS and kernel version
my $release;
($config{os}, undef, $release) = uname();
if(!($release =~ m/^(\d+)\.(\d+)/)) {
die "FATAL: unable to get the kernel version.";
}
$config{kernel} = "$1.$2";
$colors{graph_colors} = ();
$colors{warning_color} = "--color=CANVAS#880000";
# keep backwards compatibility for v3.2.1 and less
if(ref($config{theme}) ne "HASH") {
delete($config{theme});
}
if(!$config{theme}->{$color}) {
$color = "white";
$config{theme}->{$color}->{main_bg} = "FFFFFF";
$config{theme}->{$color}->{main_fg} = "000000";
$config{theme}->{$color}->{title_bg} = "777777";
$config{theme}->{$color}->{title_fg} = "CCCC00";
$config{theme}->{$color}->{graph_bg} = "CCCCCC";
$config{theme}->{$color}->{gap} = "000000";
}
if($color eq "black") {
push(@{$colors{graph_colors}}, "--color=CANVAS#" . $config{theme}->{$color}->{canvas});
push(@{$colors{graph_colors}}, "--color=BACK#" . $config{theme}->{$color}->{back});
push(@{$colors{graph_colors}}, "--color=FONT#" . $config{theme}->{$color}->{font});
push(@{$colors{graph_colors}}, "--color=MGRID#" . $config{theme}->{$color}->{mgrid});
push(@{$colors{graph_colors}}, "--color=GRID#" . $config{theme}->{$color}->{grid});
push(@{$colors{graph_colors}}, "--color=FRAME#" . $config{theme}->{$color}->{frame});
push(@{$colors{graph_colors}}, "--color=ARROW#" . $config{theme}->{$color}->{arrow});
push(@{$colors{graph_colors}}, "--color=SHADEA#" . $config{theme}->{$color}->{shadea});
push(@{$colors{graph_colors}}, "--color=SHADEB#" . $config{theme}->{$color}->{shadeb});
push(@{$colors{graph_colors}}, "--color=AXIS#" . $config{theme}->{$color}->{axis})
if defined($config{theme}->{$color}->{axis});
}
$colors{bg_color} = $config{theme}->{$color}->{main_bg};
$colors{fg_color} = $config{theme}->{$color}->{main_fg};
$colors{title_bg_color} = $config{theme}->{$color}->{title_bg};
$colors{title_fg_color} = $config{theme}->{$color}->{title_fg};
$colors{graph_bg_color} = $config{theme}->{$color}->{graph_bg};
$colors{gap} = $config{theme}->{$color}->{gap};
($tf{twhen}) = ($when =~ m/^\d+(hour|day|week|month|year)$/);
($tf{nwhen} = $when) =~ s/$tf{twhen}// unless !$tf{twhen};
$tf{nwhen} = 1 unless $tf{nwhen};
$tf{twhen} = "day" unless $tf{twhen};
$tf{when} = $tf{nwhen} . $tf{twhen};
# toggle this to 1 if you want to maintain old (2.3-) Monitorix with Multihost
if($config{backwards_compat_old_multihost}) {
$tf{when} = $tf{twhen};
}
# make sure that some options are correctly defined
if(!$config{global_zoom}) {
$config{global_zoom} = 1;
}
if(!$config{image_format}) {
$config{image_format} = "PNG";
}
our ($res, $tc, $tb, $ts);
if($tf{twhen} eq "day") {
($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (3600, 'h', 24, 1);
}
if($tf{twhen} eq "week") {
($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (108000, 'd', 7, 1);
}
if($tf{twhen} eq "month") {
($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (216000, 'd', 30, 1);
}
if($tf{twhen} eq "year") {
($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (5184000, 'd', 365, 1);
}
if($RRDs::VERSION > 1.2) {
push(@version12, "--slope-mode");
push(@version12, "--font=LEGEND:7:");
push(@version12, "--font=TITLE:9:");
push(@version12, "--font=UNIT:8:");
if($RRDs::VERSION >= 1.3) {
push(@version12, "--font=DEFAULT:0:Mono");
}
if($tf{twhen} eq "day") {
push(@version12, "--x-grid=HOUR:1:HOUR:6:HOUR:6:0:%R");
}
push(@version12_small, "--font=TITLE:8:");
push(@version12_small, "--font=UNIT:7:");
if($RRDs::VERSION >= 1.3) {
push(@version12_small, "--font=DEFAULT:0:Mono");
}
}
if(!$silent) {
my $title;
my $str;
my @output;
my $piwik_code = "";
my ($piwik_url, $piwik_sid, $piwik_img);
# Piwik tracking code
if(lc($config{piwik_tracking}->{enabled}) eq "y") {
$piwik_url = $config{piwik_tracking}->{url} || "";
$piwik_sid = $config{piwik_tracking}->{sid} || "";
$piwik_img = $config{piwik_tracking}->{img} || "";
$piwik_code = <<"EOF";
EOF
}
print("\n");
print("\n");
print(" \n");
print(" $config{title} \n");
print(" \n");
print(" \n");
if($config{refresh_rate}) {
print(" \n");
}
print(" \n");
print(" \n");
print(" \n");
print(" \n");
print(" $piwik_code\n");
print(" \n");
push(@output, " \n");
push(@output, " \n");
if(lc($config{enable_mainmenu_button} || "") eq "y") {
push(@output, " ⌂\n");
}
if(lc($config{enable_back_button} || "") eq "y") {
push(@output, " ◀\n");
}
if(($val ne "all" || $val ne "group") && $mode ne "multihost") {
push(@output, " Host: \n");
}
if($val =~ m/group(\d+)/) {
my $gnum = $1;
my $gname = (split(',', $config{multihost}->{remotegroup_list}))[$gnum];
$gname = trim($gname);
push(@output, " $gname \n");
}
push(@output, " \n");
if($mode eq "localhost" || $mode eq "traffacct") {
$title = $config{hostname};
} elsif($mode eq "multihost") {
if($graph ne "all") {
my ($g1, $g2) = ($graph =~ /(_\D+).*?(\d)$/);
if($g1 eq "_port") {
$title = $config{graphs}->{$g1};
$g2 = trim((split(',', $config{port}->{list}))[$g2]);
$title .= " " . $g2;
$g2 = (split(',', $config{port}->{desc}->{$g2}))[0];
$title .= " (" . trim($g2) . ")";
} else {
$g2 = "" if $g1 eq "_proc"; # '_procn' must be converted to '_proc'
$title = $config{graphs}->{$g1 . $g2};
}
} else {
$title = $graph eq "all" ? "all graphs" : $graph;
}
}
$title =~ s/ / /g;
my $twhen = $tf{nwhen} > 1 ? "$tf{nwhen} $tf{twhen}" : $tf{twhen};
$twhen .= "s" if $tf{nwhen} > 1;
if($mode ne "multihost" || $graph ne "all" || $val eq "all") {
print @output;
print(" $title \n");
print(" \n");
print(" last $twhen \n");
print(" \n");
print("
\n");
print encode('utf-8', " " . strftime("%a %b %e %H:%M:%S %Z %Y", localtime) . "
\n");
}
}
$cgi{colors} = \%colors;
$cgi{tf} = \%tf;
$cgi{version12} = \@version12;
$cgi{version12_small} = \@version12_small;
$cgi{graph} = $graph;
$cgi{when} = $when;
$cgi{color} = $color;
$cgi{val} = $val;
$cgi{silent} = $silent;
if($mode eq "localhost") {
my %outputs; # a hash of arrays
my @readers; # array of file descriptors
my @writers; # array of file descriptors
my $children = 0;
foreach (split(',', $config{graph_name})) {
my $gn = trim($_);
my $g = "";
if($graph ne "all") {
($g) = ($graph =~ m/^_*($gn)\d*$/);
next unless $g;
}
if(lc($config{graph_enable}->{$gn}) eq "y") {
my $cgi = $gn . "_cgi";
eval "use $gn qw(" . $cgi . ")";
if($@) {
print(STDERR "WARNING: unable to load module '$gn. $@'\n");
next;
}
if($graph eq "all" || $gn eq $g) {
no strict "refs";
if(lc($config{enable_parallelizing} || "") eq "y") {
pipe($readers[$children], $writers[$children]);
$writers[$children]->autoflush(1);
if(!fork()) {
my $child;
close($readers[$children]);
pipe(CHILD_RDR, PARENT_WTR);
PARENT_WTR->autoflush(1);
if(!($child = fork())) {
# child
my @output;
close(CHILD_RDR);
@output = &$cgi($gn, \%config, \%cgi);
print(PARENT_WTR @output);
close(PARENT_WTR);
exit(0);
}
# parent
my @output;
close(PARENT_WTR);
@output = ;
close(CHILD_RDR);
waitpid($child, 0);
my $fd = $writers[$children];
print($fd @output);
close($writers[$children]);
exit(0);
}
close($writers[$children]);
$children++;
} else {
my @output = &$cgi($gn, \%config, \%cgi);
print @output;
}
}
}
}
if(lc($config{enable_parallelizing} || "") eq "y") {
my $n;
my @output;
for($n = 0; $n < $children; $n++) {
my $fd = $readers[$n];
@output = <$fd>;
close($readers[$n]);
@{$outputs{$n}} = @output;
waitpid(-1, 0); # wait for each child
print @{$outputs{$n}} if $outputs{$n};
}
}
} elsif($mode eq "multihost") {
multihost(\%config, \%colors, \%cgi);
} elsif($mode eq "traffacct") {
eval "use $mode qw(traffacct_cgi)";
if($@) {
print(STDERR "WARNING: unable to load module '$mode'. $@\n");
exit;
}
traffacct_cgi($mode, \%config, \%cgi);
}
if(!$silent) {
if($mode ne "multihost" || $graph ne "all" || $val eq "all") {
print("\n");
print(" \n");
print("\n");
print(" \n");
print(" ![](" . $config{url} . "/" . $config{logo_bottom} . ")
\n");
print("
\n");
print("Copyright © 2005-2022 Jordi Sanfeliu\n");
}
print(" \n");
print("\n");
print("\n");
}
0;
monitorix-3.14.0/monitorix 0000755 0001750 0000144 00000067126 14171503161 015020 0 ustar mikaku users #!/usr/bin/env perl
#
# Monitorix - A lightweight system monitoring tool.
#
# Copyright (C) 2005-2022 by Jordi Sanfeliu
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
require 5.006;
use strict;
use warnings;
use FindBin qw($Bin);
use lib $Bin . "/lib", "/usr/lib/monitorix";
use Monitorix;
use POSIX qw(WNOHANG LC_TIME setlocale uname pause setsid);
use Config::General;
use Getopt::Std;
use Cwd qw(abs_path);
# Force a standard locale
$ENV{LANG} = "";
setlocale(LC_TIME, "C");
$SIG{'INT' } = 'INT_handler';
$SIG{'ABRT'} = 'INT_handler';
$SIG{'QUIT'} = 'INT_handler';
$SIG{'TRAP'} = 'INT_handler';
$SIG{'STOP'} = 'INT_handler';
$SIG{'TERM'} = 'INT_handler';
$SIG{'HUP' } = 'HUP_handler';
use constant VERSION => "3.14.0";
use constant RELDATE => "18-Jan-2022";
my @suppsys = ("Linux", "FreeBSD", "OpenBSD", "NetBSD");
our %config;
our %options;
sub INT_handler {
my ($signal) = @_;
logger("SIG$signal caught.");
flush_accounting_rules(\%config, $options{d}) unless $options{u};
if(lc($config{httpd_builtin}->{enabled} || "") eq "y") {
kill(15, $config{httpd_pid});
}
logger("Exiting.");
exit(0);
}
sub HUP_handler {
my ($signal) = @_;
my $myself = (caller(0))[3];
return if $options{n}; # only continue if it's a daemon
my (undef, undef, $uid) = getpwnam($config{httpd_builtin}->{user});
my (undef, undef, $gid) = getgrnam($config{httpd_builtin}->{group});
logger("SIG$signal caught.");
# upon receiving SIGHUP a new logfile is opened
if($config{log_file}) {
close(STDOUT);
close(STDERR);
open(STDOUT, ">> $config{log_file}") || logger("Can't write to LOG: $!");
open(STDERR, ">> $config{log_file}") || logger("Can't write to LOG: $!");
chmod(0600, $config{log_file});
logger("$myself: opening a new log file.");
}
# restart HTTP built-in
if(lc($config{httpd_builtin}->{enabled} || "") eq "y") {
if(defined($config{httpd_pid})) {
require HTTPServer;
kill(15, $config{httpd_pid});
kill(9, $config{httpd_pid});
httpd_setup(\%config, $options{u});
logger("Restarted HTTP built-in server (pid $config{httpd_pid}).") if (defined($config{httpd_pid}));
}
}
}
sub daemonize {
if($config{log_file}) {
open(STDIN, "< /dev/null") || die "Can't read /dev/null: $!";
open(STDOUT, ">> $config{log_file}") || die "Can't write to LOG: $!";
}
umask(022) || die "Unable to umask 022: $!";
exit if fork(); # parent exits
(setsid() != -1) || die "Can't start a new session: $!";
if($config{log_file}) {
open(STDERR, ">> $config{log_file}") || die "Can't write to LOG: $!";
}
}
sub usage {
print(STDERR << "EOF");
Usage: monitorix -c configfile [-p pidfile] [-d none | graph[,graph] | all ] [-v] [-n] [-u] [-s splitpolicy]
EOF
exit(1);
}
sub create_index {
my $myself = (caller(0))[3];
my $n;
my $gname;
my $piwik_code = "";
my ($piwik_url, $piwik_sid, $piwik_img);
my $text_when_all;
my $value_when_all;
my $when_all_code = "";
# keep backwards compatibility for v3.2.1 and less
if(ref($config{theme}) ne "HASH") {
logger("$myself: WARNING: the option is not valid. Please consider upgrading your configuration file. Defaulting to white theme.");
delete($config{theme});
$config{theme}->{white}->{main_bg} = "FFFFFF";
$config{theme}->{white}->{main_fg} = "000000";
$config{theme}->{white}->{title_bg} = "777777";
$config{theme}->{white}->{title_fg} = "CCCC00";
$config{theme}->{white}->{graph_bg} = "CCCCCC";
$config{theme_color} = "white";
}
my $theme = $config{theme_color} || "white";
if(!$config{theme}->{$theme}) {
logger("$myself: ERROR: invalid value in 'theme_color' option. Defaulting to white theme.");
$theme = $config{theme_color} = "white";
}
# Default option in 'Graph' list when 'All' is selected in 'Hostname' list.
#
# The following small JavaScript function is intended to avoid to select to view
# accidentally (unless explicitly selected by the user) a huge amount of remote
# images that will hang the browser for a while.
$text_when_all = $config{multihost}->{default_option_when_all} || "";
$text_when_all = "System load" if !$text_when_all;
my @match = grep { $config{graphs}{$_} eq $text_when_all } keys %{$config{graphs}};
$value_when_all = $match[0] || "";
if(!$value_when_all) {
logger("$myself: ERROR: invalid value in 'default_option_when_all' option ('$text_when_all').");
$value_when_all = "_system1";
}
$when_all_code = <<"EOF";
EOF
# Piwik tracking code
if(lc($config{piwik_tracking}->{enabled} || "") eq "y") {
$piwik_url = $config{piwik_tracking}->{url} || "";
$piwik_sid = $config{piwik_tracking}->{sid} || "";
$piwik_img = $config{piwik_tracking}->{img} || "";
$piwik_code = <<"EOF";
EOF
}
# force to only one trailing slash
(my $base_url = $config{base_url}) =~ s/\/*$/\//;
(my $base_cgi = $config{base_cgi}) =~ s/\/*$/\//;
if(!open(OUT, "> $config{base_dir}/index.html")) {
die "Unable to create '${config{base_dir}}index.html': $!";
}
my $css = sprintf("%scss/%s.css", $base_url, $theme);
print(OUT <
$config{title}
$piwik_code
$when_all_code
v@{[VERSION]}