smeserver-smeadmin
-SMEServer Koozali developed git repo for smeserver-smeadmin smecontribs
\ No newline at end of file
+SMEServer Koozali developed git repo for smeserver-smeadmin smecontribs
+
+## Wiki
+"; + $modified=1 if ($params{$key} ne $q->param("$key")); + } + + # ces 2 verifs ont ete "assouplies" pour permettre de ne mettre qu'un username local au serveur sans mettre tout l'adresse mail complete + #verification validite e-mail alertes + if (! ($q->param('AlertMailRecipient') =~ /^[\w.-]+(@[\dA-Za-z-.]+)?$/) ) + { + $verifok=0; + $str=sprintf(gettext("\"%s\" is not a valid e-mail address.\n"),$q->param("AlertMailRecipient")); + print esmith::cgi::genTextRow($q,$q->p($str)); + } + + #verification validite e-mail status + if (! ($q->param('StatusMailRecipient') =~ /^[\w.-]+(@[\dA-Za-z-.]+)?$/) ) + { + $verifok=0; + $str=sprintf(gettext("\"%s\" is not a valid e-mail address.\n"),$q->param("StatusMailRecipient")); + print esmith::cgi::genTextRow($q,$q->p($str)); + } + + #verification valeurs numeriques + foreach my $key ( 'ImgWidth', 'ImgHeight', 'LimitPppoeDisconnect', 'LimitPppoeDuration', 'LimitVpnDuration', + 'StatusInterval', 'MaxMailIn', 'MaxMailOut', 'MaxDiskSpace', 'MaxCpu', 'MaxHdTemp', + 'MaxHwTemp', 'MaxSamba', 'MaxSsh', 'MaxFtp', 'MaxVpn') + { + if (!($q->param("$key")=~/\d+/)) + { + $verifok=0; + $str=sprintf(gettext("\"%s\" is not an integer numeric value for the setting '%s'.\n"),$q->param("$key"),$key); + print esmith::cgi::genTextRow($q,$q->p($str)); + } + } + + # si on vient de desactiver les mails de status, on affiche un message + if ($params{'StatusInterval'} != 0 && $q->param('StatusInterval') == 0) + { + print esmith::cgi::genTextRow($q,$q->p(gettext("Status e-mails have been disabled.\n"))); + } + if ($modified){ + foreach my $key (keys(%params)) + { + $smeadmindb->set_prop($key,$q->param($key)); + } + } + } + else + #cas 2 :) + { + my $key=$q->param('alert'); + $modified=1 if ($params{$key} ne $q->param("$key")); + if (!($q->param("$key")=~/\d+/)) + { + $verifok=0; + $str=sprintf(gettext("\"%s\" is not an integer numeric value for the setting '%s'.\n"),$q->param("$key"),$key); + print esmith::cgi::genTextRow($q,$q->p($str)); + } + else + { + #on applique la nouvelle valeur + $params{$q->param('alert')}=$q->param("$key"); + } + $smeadmindb->set_prop($key,$q->param($key)) if ($modified); + } + + if ($verifok) + { + if ($modified) + { + + #si un param a ete change, on notifie le demon avec un -SIGHUP + # `pkill -SIGHUP smeadmind`; + #notify the deamon is not enough we want to restart it when parameters are changed + system ('service smeadmind restart 2>&1 1>/dev/null') == 0 or die 'ERROR: the service smeadmind can not be restarted'; + + print $q->table({-class =>"sme-borders"}, + $q->Tr( + $q->td( '
'),
+ $q->td( $q->div( {-class=>"success"}, gettext("New settings have been saved."))))) ;
+ }
+ else
+ {
+ print esmith::cgi::genTextRow($q,$q->p(gettext("The settings are the same, nothing has been modified.\n")));
+ }
+ }
+ else
+ {
+ print $q->table({-class =>"sme-borders"},
+ $q->Tr(
+ $q->td( '
'),
+ $q->td( $q->div( {-class=>"error"}, gettext("An error occured. Check the settings you provided."))))) ;
+ }
+
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+}
+
+
+#----------------------------------------------------------------
+#arret/demarrage du service (bourrin, oui, j'utilise pas serviceControl)
+sub svcControl
+{
+ #pour tous les champs du formulaire qu'on a recu (normalement , juste 'state', et un 'start_$service' ou 'stop_$service'
+ foreach ($q->param())
+ {
+ #si le nom du parametre est (start|stop)_$svc
+ if(/^(stop|start)_([\w-]+)$/)
+ {
+ #$_ est le nom du champ
+ #$1 est l'action
+ #$2 est le nom du service==doit etre egal a la valeur
+ #si la valeur correspond a l'action
+ if ($q->param("$_") eq "$1")
+ {
+
+ my $cmd='';
+ $cmd=`/usr/bin/systemctl $1 $2`;
+ my @res=$cmd;
+ foreach (@res)
+ { print $q->p("$_\n");}
+ }
+ else
+ #on a affaire a un petit malin qui bricole les parametres
+ {
+ print $q->p("Parametre incorrect1\n");
+ }
+ }
+ #si le nom du parametre est (enable|disable)_$svc
+ if(/^(enabled|disabled)_([\w-]+)$/)
+ {
+ #$_ est le nom du champ
+ #$1 est l'action
+ #$2 est le nom du service==doit etre egal a la valeur
+ #si la valeur correspond a l'action
+ if ($q->param("$_")."d" eq "$1")
+ {
+ my @res=`/sbin/e-smith/db configuration setprop $2 status $1`;
+ push(@res,`/sbin/e-smith/db configuration printprop $2 status`);
+ # we should restart the service here because it should be stop if disabled !!!
+ my $ordre="";
+ if ( $1 eq "enabled")
+ {$ordre="start";}
+ if ( $1 eq "disabled")
+ {$ordre="stop";}
+
+ my $cmd='';
+ if ($2=~/^(ulogd|smbd|nmbd|rsyslog)$/)#(-d "/service/$2")
+ {$cmd = `/usr/bin/sv $ordre $2`;}
+ else
+ {$cmd=`/sbin/e-smith/service $2 $ordre`;}
+ push(@res,$cmd);
+
+
+ foreach (@res)
+ { print $q->p("$_\n");}
+ }
+ else
+ #on a affaire a un petit malin qui bricole les parametres
+ {
+ print $q->p("Parametre incorrect2\n");
+ }
+ }
+
+
+
+
+
+ }
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+}
+
+
+#----------------------------------------------------------------
+#Tests de connexion aux services de SME
+sub showAdvancedTest
+{
+ #affichage de la liste des tests si le param 'service' n'est pas défini.
+ if (!defined($q->param('service')))
+ {
+ print $q->p(gettext("These differents tests may produce false positives, do not take care of them.")),
+ $q->p(gettext("Execute them only if you know what they do, and how to analyse their results.")),$q->br,
+ $q->start_table,
+ $q->Tr($q->td(gettext("Test http service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=http"},"http@\n"))),
+ $q->Tr($q->td(gettext("Test samba service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=samba"},"smbcontrol\n"))),
+ $q->Tr($q->td(gettext("Test network latency")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=ping"},"ping\n"))),
+ $q->Tr($q->td(gettext("Test ftp service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=ftp"},"telnet 21\n"))),
+ $q->Tr($q->td(gettext("Test ssh service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=ssh"},"telnet ${SshPort}\n"))),
+ $q->Tr($q->td(gettext("Test pop service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=pop"},"telnet 110\n"))),
+ $q->Tr($q->td(gettext("Test smtp service")),
+ $q->td($q->a ({href => "$progname?state=advanced&service=smtp"},"telnet 25\n"))),
+ $q->end_table;
+
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+ }
+ #on fait le test avance
+ else
+ {
+ #hack this to handle the server-only case
+ my $record;
+ $record = $smedb->get("SystemMode");
+ #on n'a une external ip que si on est en server-passerelle
+ if ($record->value =~ /servergateway/)
+ {
+ $record = $smedb->get("ExternalIP");
+ }
+ else
+ {
+ $record = $smedb->get("LocalIP");
+ }
+ my $ip =$record->value;
+
+ #test du service http => http@
+ if ($q->param('service') eq 'http')
+ {
+ print $q->p($q->b(gettext("Execution of 'http\@' (should return html source code of server's homepage):"))),$q->br;
+ foreach (`/usr/local/bin/http@ 2>&1`)
+ {
+ print escapeHTML($_),$q->br;
+ }
+ }
+ #test du service samba => smbcontrol smbd ping
+ elsif ($q->param('service') eq 'samba')
+ {
+ print $q->p($q->b(gettext("Execution of 'smbcontrol smbd ping' (samba server answers giving its PID):"))),$q->br;
+ foreach (`/usr/bin/smbcontrol smbd ping 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ #test du service http => http@
+ elsif ($q->param('service') eq 'ping')
+ {
+ print $q->p($q->b(gettext("Execution of 'ping google.fr -c 1' (latency):"))),$q->br;
+ foreach (`/bin/ping google.fr -c 1 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ elsif ($q->param('service') eq 'ftp')
+ {
+ print $q->p($q->b(sprintf(gettext("Execution of 'echo \"SYST\" | nc %s 21' (ftp opened to the external network):"),$ip))),$q->br;
+ foreach (`/bin/echo "SYST" | /usr/bin/nc $ip 21 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ elsif ($q->param('service') eq 'ssh')
+ {
+ print $q->p($q->b(sprintf(gettext("Execution of 'echo \"hello\" | nc %s %s' (ssh opened to the external network):"),$ip,$SshPort))),$q->br;
+ foreach (`/bin/echo "hello" | /usr/bin/nc $ip $SshPort 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ elsif ($q->param('service') eq 'pop')
+ {
+ print $q->p($q->b(sprintf(gettext("Execution of 'echo \"quit\" | nc %s 110' (pop server running):"),$ip))),$q->br;
+ foreach (`/bin/echo "quit" | /usr/bin/nc $ip 110 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ elsif ($q->param('service') eq 'smtp')
+ {
+ print $q->p($q->b(sprintf(gettext("Execution of 'echo \"quit\" | nc -i 2 %s 25' (smtp server running):"),$ip))),$q->br;
+ foreach (`/bin/echo "quit" | /usr/bin/nc -i 2 $ip 25 2>&1`)
+ {
+ print $q->p($_);
+ }
+ }
+ print $q->p($q->a ({href => "$progname?state=advanced"},gettext("Another test\n")));
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+ }
+}
+
+
+#----------------------------------------------------------------
+#DBI:mysql, connecte MOI
+sub connectBD
+{
+ $bd=DBI->connect ("DBI:mysql:$params{'DbName'}","$params{'DbUser'}","$params{'DbPassword'}");
+ if (!defined ($bd))
+ {
+ print $q->p("MySQL error : $DBI::errstr");
+ die (gettext("Check MySQL connection settings.\n"));
+ }
+}
+
+#----------------------------------------------------------------
+#DBI:mysql, deconnecte MOI
+sub deconnectBD
+{
+ $bd->disconnect;
+ if (!defined ($bd))
+ {
+ print $q->p("MySQL error : $DBI::errstr");
+ die (gettext("Check MySQL connection settings.\n"));
+ }
+}
+
+#----------------------------------------------------------------
+# fonction prenant une ip numerique et renvoyant une ip format a.b.c.d
+# rapide hack peut-etre efficace...
+# (en fait j'ai trouve mieux dans esmith::util::IPaddrToQuad, je repompe le
+# code pour pas avoir a loader tout esmith::util)
+sub ipnum2ipdot
+{
+ my ($addrBits) = @_;
+ return sprintf( "%d.%d.%d.%d",
+ ( $addrBits >> 24 ) & 0xff,
+ ( $addrBits >> 16 ) & 0xff,
+ ( $addrBits >> 8 ) & 0xff,
+ $addrBits & 0xff );
+}
+#----------------------------------------------------------------
+# affiche un menu deroulant pour le choix de la duree des graphes
+sub printPopupMenu
+{
+ my ($msg)=(@_);
+ my %labels=("-1h"=>gettext("one hour"),
+ "-6h"=>gettext("six hours"),
+ "-1d"=>gettext("the day"),
+ "-3d"=>gettext("three days"),
+ "-7d"=>gettext("one week"),
+ "-1m"=>gettext("one month"),
+ "-6months"=>gettext("six months"),
+ "-1y"=>gettext("one year"));
+
+ print $q->start_form,
+ $msg,
+ $q->popup_menu(-name=>'duree', -values=>['-1h','-6h','-1d','-3d','-7d','-1m','-6months','-1y'], -default=>'-1d', -labels=>\%labels),
+ $q->submit('action',"Go !"),
+ $q->hidden(-name=>'state',-default=>$q->param('state'),-override=>1),
+ $q->hidden(-name=>'service',-default=>$q->param('service'),-override=>1),
+ $q->end_form,"\n";
+}
+
+#----------------------------------------------------------------
+#cette fonction cree et affiche le graphe supervisant $svc
+# $svc = {httpd, squid, samba, afp}
+sub showSvcGraph
+{
+ my ($svc,$msg)=(@_);
+ my $start='-1d';
+ printPopupMenu($msg);
+ $start=$q->param('duree') if defined($q->param('duree'));
+
+ #creation du graphe
+ createShowGraph("","$svc$start",
+ "--title=Service $svc",
+ "--start=$start",
+ "DEF:cpu=$rrddir/$svc.rrd:cpu:AVERAGE","DEF:maxcpu=$rrddir/$svc.rrd:cpu:MAX",
+ "DEF:mem=$rrddir/$svc.rrd:mem:AVERAGE","DEF:maxmem=$rrddir/$svc.rrd:mem:MAX",
+ "DEF:nbproc=$rrddir/$svc.rrd:nbproc:AVERAGE","DEF:maxnbproc=$rrddir/$svc.rrd:nbproc:MAX",
+ "COMMENT: ", "AREA:mem#1144BB:\%Mem", "LINE2:cpu#FFDD00:\%Cpu", "LINE2:nbproc#CC1100:Nb Proc", "COMMENT:\\n",
+ "COMMENT:Max\\:", "GPRINT:maxmem:MAX:%2.2lf %%", "GPRINT:maxcpu:MAX:%2.2lf %%", "GPRINT:maxnbproc:MAX:%2lg" );
+
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+}
+
+
+
+#----------------------------------------------------------------
+#cette fonction est juste un "aiguillage" vers la fonction qui affiche le service demande
+# on passe par ici en cliquant sur les liens correspondant aux noms des services
+sub showService
+{
+ #les 4 premiers sont les services qui ont des rrds
+ #les 7 derniers sont ceux qui ont des donnees dans mysql
+ if ($q->param('service') eq 'httpd-e-smith' || $q->param('service') eq 'httpd-admin') {showHttpd();}
+ elsif ($q->param('service') eq 'squid') {showSquid();}
+ elsif ($q->param('service') eq 'smbd' || $q->param('service') eq 'smb' || $q->param('service') eq 'nmbd') {showSamba();}
+ elsif ($q->param('service') eq 'atalkd') {showAfp();}
+ elsif ($q->param('service') eq 'pptpd') {showVpn();}
+ elsif ($q->param('service') eq 'dhcpd') {showDhcpd();}
+ elsif ($q->param('service') eq 'sshd') {showSsh();}
+ elsif ($q->param('service') eq 'proftpd') {showFtp();}
+ elsif ($q->param('service') eq 'ftp') {showFtp();}
+ elsif ($q->param('service') eq 'pppoe' || $q->param('service') eq 'wan' || $q->param('service') eq 'pppd' ) {showPppoe();}
+ elsif ($q->param('service') eq 'qpsmtpd' || $q->param('service') eq 'sqpsmtpd' ) {showQpsmtpd();}
+ elsif ($q->param('service') eq 'qmail') {showQmail();}
+ elsif ($q->param('service') eq 'altqmail') {showQmail();}
+}
+
+#----------------------------------------------------------------
+#details du service httpd
+sub showHttpd
+{
+ showSvcGraph("httpd",gettext("System load for the apache web server (httpd-e-smith & httpd-admin processes) on "));
+}
+#----------------------------------------------------------------
+#details du service qmail
+sub showQmail
+{
+ my $start='-1d';
+ printPopupMenu(gettext("View graphs on "));
+ $start=$q->param('duree') if defined($q->param('duree'));
+ print $q->p($q->b($labels{"$start"}));
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+ #qmail local and remote email
+ createGraphQmail($start);
+ createGraphAltQmail($start);
+}
+#----------------------------------------------------------------
+#details du service s?qpsmtpd
+sub showQpsmtpd
+{
+ my $start='-1d';
+ printPopupMenu(gettext("View graphs on "));
+ $start=$q->param('duree') if defined($q->param('duree'));
+ print $q->p($q->b($labels{"$start"}));
+ print $q->p($q->a ({href => "$progname"},gettext("Back\n")));
+ #qpsmtpd incoming emails from outside the server( local network and internet)
+ createGraphQpsmtpd($start);
+
+}
+#----------------------------------------------------------------
+#details du service squid
+sub showSquid
+{
+ showSvcGraph("squid",gettext("System load for the transparent http/ftp proxy squid on "));
+}
+#----------------------------------------------------------------
+#details du service samba
+sub showSamba
+{
+ #voir plus bas pour explication des params
+ showDbData( [
+ [gettext("IP Address"),sub { return ipnum2ipdot(@_); } ],
+ [gettext("Login"),],
+ [gettext("Hostname"),],
+ [gettext("Start"),],
+ [gettext("End"),]
+ ],
+ \"SELECT ip,login,machine,debut,derniere_vue FROM samba ORDER BY debut DESC",
+ \gettext("Detailed list of the last times a host has connected to a samba share.\n"));
+
+ #affichage du graphe
+ showSvcGraph("samba",gettext("System load for the samba server (smbd & nmbd processes) on "));
+}
+
+#----------------------------------------------------------------
+#details du service appletalk
+sub showAfp
+{
+ #voir plus bas pour explication des params
+ showDbData( [
+ [gettext("Start"),],
+ [gettext("End"),],
+ [gettext("IP Address"),sub { return ipnum2ipdot(@_); } ],
+ [gettext("Login"),],
+ [gettext("Written data (Ko)"),],
+ [gettext("Read data (Ko)"),]
+ ],
+ \"SELECT debut,fin,ip,login,volume_read,volume_write FROM afp WHERE debut > CURDATE() - INTERVAL 7 DAY ORDER BY debut DESC",
+ \gettext("Detailed list of the last connections (on the last 7 days) to the afp service (Apple File Protocol).\n"));
+ #affichage du graphe
+ showSvcGraph("afp",gettext("System load for the appletalk server (atalkd, papd, afpd and cnid_metad processes)."));
+}
+
+#----------------------------------------------------------------
+#details du service pptpd vpn
+sub showVpn
+{
+ showDbData( [
+ [gettext("Start"),],
+ [gettext("End"),],
+ [gettext("Duration"),],
+ [gettext("Client IP address"),sub { return ipnum2ipdot(@_); } ],
+ [gettext("Client local IP address"),sub { return ipnum2ipdot(@_); } ],
+ [gettext("Incoming data (Ko)"),sub {return sprintf('%.2f',$_[0]/1024);}],
+ [gettext("Outgoing data (ko)"),sub {return sprintf('%.2f',$_[0]/1024);}],
+ [gettext("Login"),]
+ ],
+ \"SELECT debut,fin,duree,ip,vpn_clt,volume_in,volume_out,login FROM vpn ORDER BY debut DESC",
+ \gettext("Detailed list of vpn connections (Virtual Private Network).\n"));
+}
+#----------------------------------------------------------------
+#details du service dhcpd
+sub showDhcpd
+{
+ showDbData( [
+ [gettext("IP Address"),sub { return ipnum2ipdot(@_); } ],
+ [gettext("MAC Address"),],
+ [gettext("Hostname"),],
+ [gettext("Date of renewal"),]
+ ],
+ \"SELECT ip,mac,hostname,debut FROM dhcpd ORDER BY debut DESC",
+ \gettext("List of the last dhcp leases renewal (Dynamic Host Control Protocol).\n"));
+}
+#----------------------------------------------------------------
+#details du service pppoe
+sub showPppoe
+{
+# get first db entry
+my $requete="SELECT substr(debut,1,4), substr(debut,6,2) FROM pppoe WHERE debut >= CURDATE() - INTERVAL 24 MONTH ORDER BY debut ASC LIMIT 1";
+
+ #connexion a la base de donnees mySQL
+ connectBD();
+ #recuperation des donnees
+ my $rq=$bd->prepare($requete) or print $q->p(sprintf(gettext("MySQL error : Impossible to prepare SQL query \"%s\" : %s\n"),$requete,$bd->errstr));
+ $rq->execute or print $q->p(sprintf(gettext("MySQL error : Can't execute query : %s\n"),$rq->errstr));
+
+ my @debut = $rq->fetchrow_array();
+# get first db entry
+my $requete_DESC="SELECT substr(fin,1,4), substr(fin,6,2) FROM pppoe WHERE debut >= CURDATE() - INTERVAL 24 MONTH ORDER BY debut DESC LIMIT 1";
+
+ #connexion a la base de donnees mySQL
+ connectBD();
+ #recuperation des donnees
+ my $rq_DESC=$bd->prepare($requete_DESC) or print $q->p(sprintf(gettext("MySQL error : Impossible to prepare SQL query \"%s\" : %s\n"),$requete_DESC,$bd->errstr));
+ $rq_DESC->execute or print $q->p(sprintf(gettext("MySQL error : Can't execute query : %s\n"),$rq_DESC->errstr));
+
+ my @fin = $rq_DESC->fetchrow_array();
+ #$debut[1] -- if ($debut[1] == $fin[1]);
+
+ my $end_yymm = $debut[0].$debut[1];
+ my $yymm = $fin[0].$fin[1];
+ my $startMonth = $debut[1];
+ my $startYear = $debut[0];
+ my $endMonth;
+ my $endYear;
+ my $preMonth;
+ my $preYear;
+ my $i=0;
+
+print $q->p(gettext("Traffic by Month"));
+ print $q->start_table({-border=>'1'}),
+ $q->start_Tr;
+ print $q->th(gettext("year-month"));
+ print $q->th(gettext("IN (GB)"));
+ print $q->th(gettext("OUT (GB)"));
+ print $q->th(gettext("TOTAL (GB)"));
+ $q->end_Tr;
+ my $nblines = 0;
+ while ($end_yymm < $yymm || $nblines < 1) {
+ $nblines =1;
+ if ($startMonth eq '12') {
+ $endMonth = 1;
+ $endYear = $startYear + 1;
+ } else {
+ $endMonth = $startMonth + 1;
+ $endYear = $startYear;
+ }
+ ## Now that you have the end year and month incremented setup the end_yymm variable again to be picked up in the while statement:
+ $end_yymm = $startYear . ${\(length($startMonth) == 1 ? '0' : '')} . $startMonth;
+
+ if ($startMonth eq '1') {
+ $preMonth=12;
+ $preYear=$startYear-1;
+ }
+ else {
+ $preMonth=$startMonth-1;
+ $preYear= $startYear;
+ }
+ # ...... carry on with the rest of your code
+# print "**$end_yymm\n"; + + $requete="SELECT substring(`fin`,1,7) as 'month', +round(SUM(`volume_in`)/1000/1000/1000,3) as 'In (Go)' , +round(SUM(`volume_out`) /1000/1000/1000,3) as 'Out (Go)' , +round(SUM(`volume_in` + `volume_out`)/1000/1000/1000,3) as 'Total (Go)' , +SUM(TIME_TO_SEC(`duree`))/3600/24 as 'duree' +FROM `pppoe` WHERE +# mois +(`debut`> '$startYear-$startMonth-01 00:00:00' and `fin`< '$endYear-$endMonth-01 00:00:00') +# bordure +or ( `debut`> '$preYear-$preMonth-01 00:00:00' and `debut`< '$startYear-$startMonth-01 00:00:00' and `fin`> '$startYear-$startMonth-01 00:00:00') +or ( `debut`< '$endYear-$endMonth-01 00:00:00' and `fin`> '$endYear-$endMonth-01 00:00:00' and `fin`< '$endYear-$endMonth-28 00:00:00')"; + + my $rq=$bd->prepare($requete) or print $q->p(sprintf(gettext("MySQL error : Impossible to prepare SQL query \"%s\" : %s\n"),$requete,$bd->errstr)); + $rq->execute or print $q->p(sprintf(gettext("MySQL error : Can't execute query : %s\n"),$rq->errstr)); + +my @ligne = $rq->fetchrow_array(); +print $q->start_Tr; + print $q->td("$startYear-". ${\(length($startMonth) == 1 ? '0' : '')} ."$startMonth"); + print $q->td($ligne[1]); + print $q->td($ligne[2]); + print $q->td($ligne[3]); + print $q->end_Tr; + + # get ready for next loop + if ($startMonth eq '12') { + $startMonth = 1; + $startYear++; + } else { + $startMonth++ + } + + } # end the while loop +print $q->end_table; + +deconnectBD(); + + + showDbData( [ + [gettext("Start"),], + [gettext("End"),], + [gettext("Duration"),], + [gettext("IP Address"),sub { return ipnum2ipdot(@_); } ], + [gettext("Connection peer"),sub { return ipnum2ipdot(@_); } ], + [gettext("Incoming data (MB)"),sub {return sprintf('%.2f',$_[0]/1000/1000);}], + [gettext("Outgoing data (MB)"),sub {return sprintf('%.2f',$_[0]/1000/1000);}] + ], + \"SELECT debut,fin,duree,ip,peer,volume_in,volume_out,fin-debut as 'encours' FROM pppoe WHERE debut >= CURDATE() - INTERVAL 24 MONTH ORDER BY debut DESC", + \gettext("Detailed list of ADSL/PPPoE connections.\n")); +} +#---------------------------------------------------------------- +#details du service ssh +sub showSsh +{ + showDbData( [ + [gettext("Start"),], + [gettext("IP Address"),sub {return ipnum2ipdot(@_);}], + [gettext("Login"),], + [gettext("Connected ?"),sub {return (($_[0])?gettext('Yes'):gettext('No'));}] + ], + #pour cause de sprintf, la requete est dans le showDbData + \"", + \gettext("Detailed list of ssh connections (Secure SHell).\n")); +} + +#---------------------------------------------------------------- +#details du service ftp +sub showFtp +{ + #WARN ! Highly complicated !! + # @tab est un tableau a 2 dimensions, chaque "ligne" du tableau contient 2 champs : + # - le label/entete de la colonne a afficher + # - une fonction inline de modification de l'affichage de la valeur allant dans la colonne + # ( pour ce champ, il peut etre nul (d'ou le ["Start",]). + my @tab=([gettext("Start"),], + [gettext("End"),], + [gettext("Duration"),], + [gettext("IP Address"),sub {return ipnum2ipdot(@_);}], + [gettext("Login"),], + [gettext("Connected ?"),sub {return (($_[0])?gettext('Yes'):gettext('No'));}], + [gettext("Written data (Ko)"),sub {return sprintf('%.2f',$_[0]/1024);}], + [gettext("Read data (Ko)"),sub {return sprintf('%.2f',$_[0]/1024);}]); + + #appel de la fonction qui va interroger la bdd et afficher le tableau + #passage des params par REFERENCE (tab, requete et titre a afficher) + showDbData(\@tab, + \"SELECT debut,fin,duree,ip,login,connecte,volume_in,volume_out FROM ftp WHERE debut > CURDATE() - INTERVAL 7 DAY ORDER BY debut DESC", + \gettext("Detailed list of the last connections (on the last 7 days) to the ftp service (File Transfer Protocol).\n")); +} + + +#---------------------------------------------------------------- +#DOCUMENT IT OR YOU'LL BE MAD - Magnifique HACK qui est trop elegant +#Fonction qui fait la requete vers la BDD, et affiche le resultat en fonction +#du @tab passe en param qui contient les entetes de colonne et les fonctions de +#modif d'affichage. +sub showDbData +{ + #recuperation des params et DEREFERENCEMENT + my ($ref_tab,$ref_requete,$ref_title)=(@_); + my @tab=@$ref_tab; + my $requete=$$ref_requete; + my $title=$$ref_title; + + my $i=0; + #utilise uniquement si service=pppoe + my $start_next_cnx; + #utilise uniquement si service=sshd + my $interval; + + if ($q->param('service') eq 'sshd') + { + #gruika hack pour avoir le tableau sur plusieurs periodes + printPopupMenu(gettext("See the records on ")); + $interval=$q->param('duree'); + #somebody please put a SWITCH CASE !! + if ((!defined($interval)) || $interval eq '-7d') {$interval="7 DAY";} + elsif ($interval eq '-1h') {$interval="1 HOUR";} + elsif ($interval eq '-6h') {$interval="6 HOUR";} + elsif ($interval eq '-1d') {$interval="1 DAY";} + elsif ($interval eq '-3d') {$interval="3 DAY";} + elsif ($interval eq '-1m') {$interval="1 MONTH";} + elsif ($interval eq '-6months') {$interval="6 MONTH";} + elsif ($interval eq '-1y') {$interval="1 YEAR";} + $requete="SELECT debut,ip,login,ok FROM ssh WHERE debut > NOW() - INTERVAL $interval ORDER BY debut DESC"; + } + #connexion a la base de donnees mySQL + connectBD(); + #recuperation des donnees + my $rq=$bd->prepare($requete) or print $q->p(sprintf(gettext("MySQL error : Impossible to prepare SQL query \"%s\" : %s\n"),$requete,$bd->errstr)); + $rq->execute or print $q->p(sprintf(gettext("MySQL error : Can't execute query : %s\n"),$rq->errstr)); + + #affichage du debut de page + print $q->p(gettext($title)); + + #affichage des eventuelles mises en evidence + if ($q->param('service') eq 'pptpd') + { + print $q->table($q->Tr($q->td(gettext("Connections which lasted ")), + $q->td({bgcolor=>"#FF4444"},sprintf(gettext("more than %s hours are highlighted.\n"),$params{'LimitVpnDuration'})))); + } + elsif ($q->param('service') eq 'wan'|| $q->param('service') eq 'pppoe' ) + { + print $q->table($q->Tr($q->td(gettext("Connections which lasted ")), + $q->td({bgcolor=>"#FF4444"},sprintf(gettext("less than %s hours are highlighted.\n"),$params{'LimitPppoeDuration'})))), + $q->table($q->Tr($q->td(gettext("Disconnections which lasted ")), + $q->td({bgcolor=>"#9999FF"},sprintf(gettext("more than %s minutes are highlighted.\n"),$params{'LimitPppoeDisconnect'})))); + } + elsif ($q->param('service') eq 'sshd') + { + print $q->table($q->Tr($q->td(gettext("Successful ")),$q->td({bgcolor=>"#33CC00"},gettext(" root connections are highlighted.\n")))); + } + + print $q->br, + $q->start_table({-border=>'1'}), + $q->start_Tr; + #affichage des entetes du tableau + foreach (@tab) + { + #j'aimerai bien comprendre le pourquoi du comment du 1er [0] + #le $i est pour recup la "ligne" du tab passe en param + #le 2e [0] est pour recup le label, 1ere valeur de la ligne + print $q->th(gettext($_[0][$i][0])); + $i++; + } + print $q->end_Tr; + + #boucle sur les lignes / resultats de la requete SQL + while(my @ligne = $rq->fetchrow_array()) + { + $i=0; + #affichage des lignes speciales (pour pptpd,ssh et pppoe only) + + if ($q->param('service') eq 'pptpd') + { + $ligne[2]=~/(\d{2}):\d{2}:\d{2}/; + #si le nb d'heure > limite, surbrillance + print $q->start_Tr({bgcolor=>(($1 >= $params{'LimitVpnDuration'})?"#FF4444":"#FFFFFF")}); + } + elsif ($q->param('service') eq 'wan' || $q->param('service') eq 'pppoe') + { + #on interroge la bd pour voir si il y a eu une longue deconnexion + #(beaucoup plus simple que de parser les 2 dates et faire une difference, la on utilise la possibilite de calcul de diff de dates de MySQL) + $requete="select '$start_next_cnx' > '$ligne[1]' + interval $params{'LimitPppoeDisconnect'} minute"; + my $rq2=$bd->prepare($requete) or print $q->p(sprintf(gettext("MySQL error : Impossible to prepare SQL query \"%s\" : %s\n"),$requete,$bd->errstr)); + $rq2->execute or print $q->p(sprintf(gettext("MySQL error : Can't execute query : %s\n"),$rq->errstr)); + #on sauve le debut de la cnx pour faire la comparaison au debut de boucle + $start_next_cnx=$ligne[0]; + + #si on a trouve que la connexion suivante avait commence apres la fin de connexion precedente + interval defini + #alors afficher une ligne de separation + print $q->Tr($q->td({bgcolor=>"#9999FF",colspan=>"7"},sprintf(gettext("Disconnection lasted more than %s minutes"),$params{'LimitPppoeDisconnect'}))) if (($rq2->fetchrow_array)[0] eq '1'); + + #on match le nb d'heure de la duree cnx + my $curdur; + if ($ligne[2]) { + # ended connection + $ligne[2]=~/(\d{2}):\d{2}:\d{2}/; + $curdur=$1; + }else{ + # ongoing connection + $curdur=$ligne[7]/3600; + } + #si le nb d'heure < limite et different de null, surbrillance + print $q->start_Tr({bgcolor=>((($curdur < $params{'LimitPppoeDuration'}) && ($1 ne ''))?"#FF4444":"#FFFFFF")}); + } + elsif ($q->param('service') eq 'sshd') + { + #si login root && connecte, surbrillance + print $q->start_Tr({bgcolor=>(($ligne[2] eq 'root')&& $ligne[3])?"#33CC00":"#FFFFFF"}); + } + else + { + print $q->start_Tr; + } + #boucle sur les champs de la ligne + foreach (@tab) + { + #on recupere la fonction de mise en forme de la valeur + my $func=$_[0][$i][1]; + #si elle existe + if (defined ($func)) + #on l'applique a la valeur (contenue dans $ligne[$i]) + { print $q->td(&$func($ligne[$i]));} + else + #sinon, on affiche directement la valeur + { print $q->td($ligne[$i]);} + $i++; + } + print $q->end_Tr; + } + print $q->end_table, + $q->p($q->a ({href => "$progname"},gettext("Back\n"))); + deconnectBD(); +} + +#---------------------------------------------------------------- +#fonction faisant les appels a RRDs::graph +#creation de l'image, affichage d'un titre, affichage de l'image +sub createShowGraph +{ + my($title,$imgFilename,@rrdparams)=(@_); + # print "
" . join("|", @rrdparams) . "
"; + my (undef,$xsize,$ysize)=RRDs::graph ("$imgdir/$imgFilename.$params{'ImgFormat'}", + "--imgformat=$params{'ImgFormat'}", + "--width=$params{'ImgWidth'}", + "--height=$params{'ImgHeight'}", + @rrdparams); + + my $error=RRDs::error; + print $q->p(sprintf(gettext("Error at RRDs::graph(%s) : %s\n"),"$imgFilename.$params{'ImgFormat'}",$error)) if $error; + + print $q->p($title),$q->br, + $q->img({src=>"../smeadmin/$imgFilename.$params{'ImgFormat'}",alt=>"../smeadmin/$imgFilename.$params{'ImgFormat'}",width=>$xsize,height=>$ysize}); +} + + +#---------------------------------------------------------------- +#affiche les graphes avec les sensors materiels +# - temp process, mb & hdd1/2 +# - vitesse rotation ventilateur +#---------------------------------------------------------------- +sub showHardGraph +{ + my $start='-1d'; + printPopupMenu(gettext("View graphs on ")); + $start=$q->param('duree') if defined($q->param('duree')); + + print $q->p($q->b($labels{"$start"})); + + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); + + my @tab=("--title=".gettext("Temperatures"), + "--vertical-label=T°C", + "--start=$start", + "DEF:t1=$rrddir/sensors.rrd:t1:AVERAGE", "DEF:maxt1=$rrddir/sensors.rrd:t1:MAX", "DEF:mint1=$rrddir/sensors.rrd:t1:MIN", + "DEF:t2=$rrddir/sensors.rrd:t2:AVERAGE", "DEF:maxt2=$rrddir/sensors.rrd:t2:MAX", "DEF:mint2=$rrddir/sensors.rrd:t2:MIN", + "COMMENT: ", "LINE2:t1#1000FF:Temp 1 ", "LINE2:t2#00EEBB:Temp 2 ", + "COMMENT:\\n", "COMMENT:Max\\: ", "GPRINT:maxt1:MAX:%5.2lf °C", "GPRINT:maxt2:MAX:%5.2lf °C ", + "COMMENT:\\n", "COMMENT:Min\\: ", "GPRINT:mint1:MIN:%5.2lf °C", "GPRINT:mint2:MIN:%5.2lf °C ", + "COMMENT:\\n", "COMMENT:Avg\\: ", "GPRINT:t1:AVERAGE:%5.2lf °C", "GPRINT:t2:AVERAGE:%5.2lf °C ", + "COMMENT:\\n", "COMMENT:Last\\:", "GPRINT:t1:LAST:%5.2lf °C", "GPRINT:t2:LAST:%5.2lf °C ", + "COMMENT:\\n"); + + #creation du graphe des temperatures + createShowGraph(gettext("Hardware temperatures (Processor, motherboard)."),"temperature",@tab); + + #start to retrieve data for the hard disks sensors + + my $has_second_hd=1; + $has_second_hd=0 if ($params{'hd2'} eq ''); + my $has_third_hd=1; + $has_third_hd=0 if ($params{'hd3'} eq ''); + my $has_fourth_hd=1; + $has_fourth_hd=0 if ($params{'hd4'} eq ''); + my $has_fifth_hd=1; + $has_fifth_hd=0 if ($params{'hd5'} eq ''); + my $has_sixth_hd=1; + $has_sixth_hd=0 if ($params{'hd6'} eq ''); + + + my @HDtab=("--title=".gettext("Hard-disks Temperatures"), + "--vertical-label=T°C", + "--start=$start", + "DEF:thd1=$rrddir/sensors.rrd:thd1:AVERAGE", "DEF:maxthd1=$rrddir/sensors.rrd:thd1:MAX", "DEF:minthd1=$rrddir/sensors.rrd:thd1:MIN"); + push @HDtab, "DEF:thd2=$rrddir/sensors.rrd:thd2:AVERAGE", "DEF:maxthd2=$rrddir/sensors.rrd:thd2:MAX", "DEF:minthd2=$rrddir/sensors.rrd:thd2:MIN" if ($has_second_hd); + push @HDtab, "DEF:thd3=$rrddir/sensors.rrd:thd3:AVERAGE", "DEF:maxthd3=$rrddir/sensors.rrd:thd3:MAX", "DEF:minthd3=$rrddir/sensors.rrd:thd3:MIN" if ($has_third_hd); + push @HDtab, "DEF:thd4=$rrddir/sensors.rrd:thd4:AVERAGE", "DEF:maxthd4=$rrddir/sensors.rrd:thd4:MAX", "DEF:minthd4=$rrddir/sensors.rrd:thd4:MIN" if ($has_fourth_hd); + push @HDtab, "DEF:thd5=$rrddir/sensors.rrd:thd5:AVERAGE", "DEF:maxthd5=$rrddir/sensors.rrd:thd5:MAX", "DEF:minthd5=$rrddir/sensors.rrd:thd5:MIN" if ($has_fifth_hd); + push @HDtab, "DEF:thd6=$rrddir/sensors.rrd:thd6:AVERAGE", "DEF:maxthd6=$rrddir/sensors.rrd:thd6:MAX", "DEF:minthd6=$rrddir/sensors.rrd:thd6:MIN" if ($has_sixth_hd); + push @HDtab, "COMMENT: ", "LINE2:thd1#CC5500:Temp hd 1"; + push @HDtab, "LINE2:thd2#550000:Temp hd 2" if ($has_second_hd); + push @HDtab, "LINE2:thd3#1000FF:Temp hd 3" if ($has_third_hd); + push @HDtab, "LINE2:thd4#00EEBB:Temp hd 4" if ($has_fourth_hd); + push @HDtab, "LINE2:thd5#FF2222:Temp hd 5" if ($has_fifth_hd); + push @HDtab, "LINE2:thd6#FFD700:Temp hd 6" if ($has_sixth_hd); + push @HDtab, "COMMENT:\\n", "COMMENT:Max\\:", "GPRINT:maxthd1:MAX:%5.2lf °C "; + push @HDtab, "GPRINT:maxthd2:MAX:%5.2lf °C " if ($has_second_hd); + push @HDtab, "GPRINT:maxthd3:MAX:%5.2lf °C " if ($has_third_hd); + push @HDtab, "GPRINT:maxthd4:MAX:%5.2lf °C " if ($has_fourth_hd); + push @HDtab, "GPRINT:maxthd5:MAX:%5.2lf °C " if ($has_fifth_hd); + push @HDtab, "GPRINT:maxthd6:MAX:%5.2lf °C" if ($has_sixth_hd); + push @HDtab, "COMMENT:\\n", "COMMENT:Min\\: ", "GPRINT:minthd1:MIN:%5.2lf °C "; + push @HDtab, "GPRINT:minthd2:MIN:%5.2lf °C " if ($has_second_hd); + push @HDtab, "GPRINT:minthd3:MIN:%5.2lf °C " if ($has_third_hd); + push @HDtab, "GPRINT:minthd4:MIN:%5.2lf °C " if ($has_fourth_hd); + push @HDtab, "GPRINT:minthd5:MIN:%5.2lf °C " if ($has_fifth_hd); + push @HDtab, "GPRINT:minthd6:MIN:%5.2lf °C" if ($has_sixth_hd); + push @HDtab, "COMMENT:\\n", "COMMENT:Avg\\: ", "GPRINT:thd1:AVERAGE:%5.2lf °C "; + push @HDtab, "GPRINT:thd2:AVERAGE:%5.2lf °C " if ($has_second_hd); + push @HDtab, "GPRINT:thd3:AVERAGE:%5.2lf °C " if ($has_third_hd); + push @HDtab, "GPRINT:thd4:AVERAGE:%5.2lf °C " if ($has_fourth_hd); + push @HDtab, "GPRINT:thd5:AVERAGE:%5.2lf °C " if ($has_fifth_hd); + push @HDtab, "GPRINT:thd6:AVERAGE:%5.2lf °C" if ($has_sixth_hd); + push @HDtab, "COMMENT:\\n", "COMMENT:Last\\:", "GPRINT:thd1:LAST:%5.2lf °C "; + push @HDtab, "GPRINT:thd2:LAST:%5.2lf °C " if ($has_second_hd); + push @HDtab, "GPRINT:thd3:LAST:%5.2lf °C " if ($has_third_hd); + push @HDtab, "GPRINT:thd4:LAST:%5.2lf °C " if ($has_fourth_hd); + push @HDtab, "GPRINT:thd5:LAST:%5.2lf °C " if ($has_fifth_hd); + push @HDtab, "GPRINT:thd6:LAST:%5.2lf °C" if ($has_sixth_hd); + push @HDtab, "COMMENT:\\n"; + + #creation du graphe des temperatures + createShowGraph(gettext("Hard disks temperatures."),"HD temperature",@HDtab); + + #start to retrieve data for the Fan speed + + my $has_second_fan=1; + $has_second_fan=0 if ($params{'SensorsTagFan2'} eq ''); + + + my @tabfan=("--title=".gettext("Fan speed"), + "--vertical-label=".gettext("Rpm"), + "--start=$start", + "DEF:fspd=$rrddir/sensors.rrd:fspd:AVERAGE","DEF:maxfspd=$rrddir/sensors.rrd:fspd:MAX","DEF:minfspd=$rrddir/sensors.rrd:fspd:MIN"); + push @tabfan, "DEF:fspd2=$rrddir/sensors.rrd:fspd2:AVERAGE", "DEF:maxfspd2=$rrddir/sensors.rrd:fspd2:MAX", "DEF:minfspd2=$rrddir/sensors.rrd:fspd2:MIN" if ($has_second_fan); + push @tabfan, "COMMENT: ", "LINE2:fspd#1000FF:".gettext("Fan speed") . " "; + push @tabfan, "LINE2:fspd2#550000:".gettext("Fan speed"), "COMMENT:\\n" if ($has_second_fan); + push @tabfan, "COMMENT:\\n", "COMMENT:Max\\: ", "GPRINT:maxfspd:MAX:%5.0lf ".gettext("Rpm"). " "; + push @tabfan, "GPRINT:maxfspd2:MAX:%5.0lf ".gettext("Rpm") if ($has_second_fan); + push @tabfan, "COMMENT:\\n", "COMMENT:Min\\: ", "GPRINT:minfspd:MIN:%5.0lf ".gettext("Rpm"). " "; + push @tabfan, "GPRINT:minfspd2:MIN:%5.0lf ".gettext("Rpm") if ($has_second_fan); + push @tabfan, "COMMENT:\\n", "COMMENT:Avg\\: ", "GPRINT:fspd:AVERAGE:%5.0lf ".gettext("Rpm"). " "; + push @tabfan, "GPRINT:fspd2:AVERAGE:%5.0lf ".gettext("Rpm") if ($has_second_fan); + push @tabfan, "COMMENT:\\n", "COMMENT:Last\\: ", "GPRINT:fspd:LAST:%5.0lf ".gettext("Rpm"). " "; + push @tabfan, "GPRINT:fspd2:LAST:%5.0lf ".gettext("Rpm") if ($has_second_fan); + push @tabfan, "COMMENT:\\n"; + + #creation of the fan speed sensors + createShowGraph(gettext("Processor fan speed."),"fanspeed",@tabfan); + + + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); +} +#---------------------------------------------------------------- +#affiche les graphes reseau +# - sessions +# - volume brut transfert / reseau local / externe / route +# - baux dhcp +# - volume mail/spam/virus +# - latency +#---------------------------------------------------------------- +sub showNetGraph +{ + my $start='-1d'; + printPopupMenu(gettext("View graphs on ")); + $start=$q->param('duree') if defined($q->param('duree')); + print $q->p($q->b($labels{$start})); + + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); + + #sessions par netstat + createShowGraph(gettext("Number of opened tcp connections for ssh, ftp, vpn, afp and netbios protocols."),"sessions", + "--title=".gettext("Opened connections"), + "--start=$start", + "DEF:ssh=$rrddir/sessions.rrd:ssh:AVERAGE", "DEF:maxssh=$rrddir/sessions.rrd:ssh:MAX", "DEF:minssh=$rrddir/sessions.rrd:ssh:MIN", + "DEF:vpn=$rrddir/sessions.rrd:vpn:AVERAGE", "DEF:maxvpn=$rrddir/sessions.rrd:vpn:MAX", "DEF:minvpn=$rrddir/sessions.rrd:vpn:MIN", + "DEF:ftp=$rrddir/sessions.rrd:ftp:AVERAGE", "DEF:maxftp=$rrddir/sessions.rrd:ftp:MAX", "DEF:minftp=$rrddir/sessions.rrd:ftp:MIN", + "DEF:netbios=$rrddir/sessions.rrd:netbios:AVERAGE", "DEF:maxnetbios=$rrddir/sessions.rrd:netbios:MAX", "DEF:minnetbios=$rrddir/sessions.rrd:netbios:MIN", + "DEF:afp=$rrddir/sessions.rrd:afp:AVERAGE", "DEF:maxafp=$rrddir/sessions.rrd:afp:MAX", "DEF:minafp=$rrddir/sessions.rrd:afp:MIN", + "COMMENT: ","LINE2:ssh#0000FF:ssh ($SshPort)","LINE2:ftp#FF2222:ftp (21)","LINE2:vpn#AA3300:vpn (1723)", + "LINE2:netbios#33B010:netbios (139)","LINE2:afp#FFD700:afp (548)","COMMENT:\\n", + "COMMENT:Max\\: ","GPRINT:maxssh:MAX:%4.0lf ","GPRINT:maxftp:MAX:%4.0lf ","GPRINT:maxvpn:MAX:%4.0lf ", + "GPRINT:maxnetbios:MAX:%4.0lf ","GPRINT:maxafp:MAX:%4.0lf ","COMMENT:\\n", + "COMMENT:Min\\: ","GPRINT:minssh:MIN:%4.0lf ","GPRINT:minftp:MIN:%4.0lf ","GPRINT:minvpn:MIN:%4.0lf ", + "GPRINT:minnetbios:MIN:%4.0lf ","GPRINT:minafp:MIN:%4.0lf ","COMMENT:\\n", + "COMMENT:Last\\:","GPRINT:ssh:LAST:%4.0lf ","GPRINT:ftp:LAST:%4.0lf ","GPRINT:vpn:LAST:%4.0lf ", + "GPRINT:netbios:LAST:%4.0lf ","GPRINT:afp:LAST:%4.0lf ","COMMENT:\\n"); + + #baux dhcp, smbstatus:S + createShowGraph(gettext("Number of dhcp leases renewals and opened samba shares."),"dhcpsmb", + "--title=".gettext("Dhcp & Smbstatus"), + "--start=$start", + "DEF:samba=$rrddir/net.rrd:samba:AVERAGE", "DEF:maxsamba=$rrddir/net.rrd:samba:MAX", "DEF:minsamba=$rrddir/net.rrd:samba:MIN", + "DEF:dhcp=$rrddir/net.rrd:dhcp:AVERAGE", "DEF:maxdhcp=$rrddir/net.rrd:dhcp:MAX", "DEF:mindhcp=$rrddir/net.rrd:dhcp:MIN", + "COMMENT: ","LINE2:dhcp#8B4513:Dhcp","LINE2:samba#DAA520:Samba","COMMENT:\\n", + "COMMENT:Max\\: ","GPRINT:maxdhcp:MAX:%4.0lf ","GPRINT:maxsamba:MAX:%4.0lf","COMMENT:\\n", + "COMMENT:Min\\: ","GPRINT:mindhcp:MIN:%4.0lf ","GPRINT:minsamba:MIN:%4.0lf","COMMENT:\\n", + "COMMENT:Last\\:","GPRINT:dhcp:LAST:%4.0lf ","GPRINT:samba:LAST:%4.0lf","COMMENT:\\n"); + + #qmail local and remote email + createGraphQmail($start); + #qpsmtpd incoming emails from outside the server( local network and internet) + createGraphQpsmtpd($start); + + #ping latency + createShowGraph(gettext("Average and maximal ping with the selected target."),"latency", + "--title=".gettext("Target ping latency"), + "--vertical-label=s/%", + "--start=$start", + "DEF:avglatency=$rrddir/net.rrd:avglatency:AVERAGE","DEF:maxavglatency=$rrddir/net.rrd:avglatency:MAX","DEF:minavglatency=$rrddir/net.rrd:avglatency:MIN", + "DEF:maxlatency=$rrddir/net.rrd:maxlatency:AVERAGE","DEF:maxmaxlatency=$rrddir/net.rrd:maxlatency:MAX","DEF:minmaxlatency=$rrddir/net.rrd:maxlatency:MIN", + "DEF:minlatency=$rrddir/net.rrd:minlatency:AVERAGE","DEF:maxminlatency=$rrddir/net.rrd:minlatency:MAX", "DEF:minminlatency=$rrddir/net.rrd:minlatency:MIN", + "DEF:loss=$rrddir/net.rrd:loss:AVERAGE","DEF:maxloss=$rrddir/net.rrd:loss:MAX","DEF:minloss=$rrddir/net.rrd:loss:MIN", + "CDEF:adjavglatency=avglatency,$maxping,MIN","CDEF:adjmaxlatency=maxlatency,$maxping,MIN","CDEF:adjloss=loss,1000,/", + "COMMENT: ","AREA:adjmaxlatency#00008B:".gettext("Max ping"),"AREA:adjavglatency#00EE22:".gettext("Avg ping"), + "LINE1:adjloss#FF4444:".gettext("Pkt loss"),"COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxmaxlatency:MAX:%6.2lf %ss ','GPRINT:maxavglatency:MAX:%6.2lf %ss ','GPRINT:maxloss:MAX:%6.2lf %%',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minmaxlatency:MIN:%6.2lf %ss ','GPRINT:minavglatency:MIN:%6.2lf %ss ','GPRINT:minloss:MAX:%6.2lf %%',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:maxlatency:LAST:%6.2lf %ss ','GPRINT:avglatency:LAST:%6.2lf %ss ','GPRINT:loss:LAST:%6.2lf %%',"COMMENT:\\n"); + + #trafic sur l'interface cote reseau local + createShowGraph(gettext("Load on the local network interface."),"if_loc", + "--title=".gettext("Local network load"), + "--vertical-label=KB/s", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:bin=$rrddir/if_loc.rrd:bin:AVERAGE","DEF:maxbin=$rrddir/if_loc.rrd:bin:MAX","DEF:bout=$rrddir/if_loc.rrd:bout:AVERAGE","DEF:maxbout=$rrddir/if_loc.rrd:bout:MAX","DEF:minbin=$rrddir/if_loc.rrd:bin:MIN","DEF:minbout=$rrddir/if_loc.rrd:bout:MIN", + "CDEF:adj_bout=0,bout,-", + "COMMENT: ","AREA:bin#0066FF:".gettext("Incoming Kilobytes"),"AREA:adj_bout#FF6633:".gettext("Outgoing Kilobytes"),"COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxbin:MAX:%8.2lf %sKB/s','GPRINT:maxbout:MAX:%8.2lf %sKB/s',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minbin:MIN:%8.2lf %sKB/s','GPRINT:minbout:MIN:%8.2lf %sKB/s',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:bin:LAST:%8.2lf %sKB/s','GPRINT:bout:LAST:%8.2lf %sKB/s',"COMMENT:\\n"); + + #si on a une 2e interface reseay + if ($ExternalInterface ne "") + { + #trafic sur l'interface cote reseau externe + createShowGraph(gettext("Load on the external network interface (to internet)."),"if_ext", + "--title=".gettext("External network load"), + "--vertical-label=KB/s", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:bin=$rrddir/if_ext.rrd:bin:AVERAGE","DEF:maxbin=$rrddir/if_ext.rrd:bin:MAX","DEF:bout=$rrddir/if_ext.rrd:bout:AVERAGE","DEF:maxbout=$rrddir/if_ext.rrd:bout:MAX","DEF:minbin=$rrddir/if_ext.rrd:bin:MIN","DEF:minbout=$rrddir/if_ext.rrd:bout:MIN", + "CDEF:adj_bout=0,bout,-", + "COMMENT: ","AREA:bin#FF6633:".gettext("Incoming Kilobytes"),"AREA:adj_bout#0066FF:".gettext("Outgoing Kilobytes"),"COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxbin:MAX:%8.2lf %sKB/s','GPRINT:maxbout:MAX:%8.2lf %sKB/s',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minbin:MIN:%8.2lf %sKB/s','GPRINT:minbout:MIN:%8.2lf %sKB/s',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:bin:LAST:%8.2lf %sKB/s','GPRINT:bout:LAST:%8.2lf %sKB/s',"COMMENT:\\n"); + + print $q->p(gettext("Network load on the server except routing.")), + $q->ul( + $q->li(gettext("If the blue curve is :")), + $q->ul( + $q->li(gettext("positive => download from the internet")), + $q->li(gettext("negative => upload from the local network")), + ), + $q->li(gettext("If the red curve is :")), + $q->ul( + $q->li(gettext("positive => upload from the internet")), + $q->li(gettext("negative => download from the local network")) + )),$q->br; + + createShowGraph("","if_delta", + "--title=".gettext("Network load on the server"), + "--vertical-label=KB/s", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:extbin=$rrddir/if_ext.rrd:bin:AVERAGE","DEF:maxextbin=$rrddir/if_ext.rrd:bin:MAX","DEF:extbout=$rrddir/if_ext.rrd:bout:AVERAGE","DEF:maxextbout=$rrddir/if_ext.rrd:bout:MAX", + "DEF:locbin=$rrddir/if_loc.rrd:bin:AVERAGE","DEF:maxlocbin=$rrddir/if_loc.rrd:bin:MAX","DEF:locbout=$rrddir/if_loc.rrd:bout:AVERAGE","DEF:maxlocbout=$rrddir/if_loc.rrd:bout:MAX", + "CDEF:loc_srv=extbout,locbin,-","CDEF:srv_net=extbin,locbout,-", + "COMMENT: ","LINE2:loc_srv#3300FF:Server=>Net - Local=>Server","LINE2:srv_net#FF0033:Net=>Server - Server=>Local","COMMENT:\\n"); + + } + + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); + +} +#---------------------------------------------------------------- +#---------------------------------------------------------------- +#affiche les graphes systeme +# - cpu:user/system/nice +# - cpu:load1/load5/load15/total +# - cpu:runq/plist +# - cpu:uptime +# - mem:used/cached/buffer/free +# - mem:swap used/free +# - hd:du +# - hd:blkread/blkwrite +sub showSystmGraph +{ + my $start='-1d'; + printPopupMenu(gettext("View graphs on ")); + $start=$q->param('duree') if defined($q->param('duree')); + + print $q->p($q->b($labels{$start})); + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); + + #repartition user/nice/system + createShowGraph(gettext("Distribution of cpu usage for system, user and niced processes."),"cpu_usage", + "--title=".gettext("Cpu usage"), + "--vertical-label=%", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:user=$rrddir/cpu.rrd:user:AVERAGE","DEF:maxuser=$rrddir/cpu.rrd:user:MAX","DEF:minuser=$rrddir/cpu.rrd:user:MIN", + "DEF:system=$rrddir/cpu.rrd:system:AVERAGE","DEF:maxsystem=$rrddir/cpu.rrd:system:MAX","DEF:minsystem=$rrddir/cpu.rrd:system:MIN", + "DEF:nice=$rrddir/cpu.rrd:nice:AVERAGE","DEF:maxnice=$rrddir/cpu.rrd:nice:MAX","DEF:minnice=$rrddir/cpu.rrd:nice:MIN", + "COMMENT: ", "AREA:system#0066FF: System ", "STACK:nice#330066: Nice ", "STACK:user#00FF33: User", "COMMENT:\\n", + "COMMENT:Max\\: ", 'GPRINT:maxsystem:MAX:%7.2lf %%', 'GPRINT:maxnice:MAX: %7.2lf %%', 'GPRINT:maxuser:MAX: %7.2lf %%', "COMMENT:\\n", + "COMMENT:Min\\: ", 'GPRINT:minsystem:MIN:%7.2lf %%', 'GPRINT:minnice:MIN: %7.2lf %%', 'GPRINT:minuser:MIN: %7.2lf %%', "COMMENT:\\n", + "COMMENT:Avg\\: ", 'GPRINT:system:AVERAGE:%7.2lf %%', 'GPRINT:nice:AVERAGE: %7.2lf %%', 'GPRINT:user:AVERAGE: %7.2lf %%', "COMMENT:\\n", + "COMMENT:Last\\:", 'GPRINT:system:LAST:%7.2lf %%', 'GPRINT:nice:LAST: %7.2lf %%', 'GPRINT:user:LAST: %7.2lf %%',"COMMENT:\\n"); + + #load average sur 1/5 & 15mn // total cpu + createShowGraph(gettext("System load average on 1mn,5mn,15mn compared to cpu usage."),"cpu_load", + "--title=".gettext("System load / Cpu %"), + "--vertical-label={Load*10} / %", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:load1=$rrddir/cpu.rrd:load1:AVERAGE", "DEF:maxload1=$rrddir/cpu.rrd:load1:MAX", "DEF:minload1=$rrddir/cpu.rrd:load1:MIN", + "DEF:load5=$rrddir/cpu.rrd:load5:AVERAGE", "DEF:maxload5=$rrddir/cpu.rrd:load5:MAX", "DEF:minload5=$rrddir/cpu.rrd:load5:MIN", + "DEF:load15=$rrddir/cpu.rrd:load15:AVERAGE","DEF:maxload15=$rrddir/cpu.rrd:load15:MAX", "DEF:minload15=$rrddir/cpu.rrd:load15:MIN", + "DEF:total=$rrddir/cpu.rrd:total:AVERAGE", "DEF:maxtotal=$rrddir/cpu.rrd:total:MAX", "DEF:mintotal=$rrddir/cpu.rrd:total:MIN", + "CDEF:adjload1=load1,10,*", "CDEF:adjload5=load5,10,*", "CDEF:adjload15=load15,10,*", + "COMMENT: ", "AREA:total#22BB00: Cpu ","LINE1:adjload1#0000DD: Load1 ", + "LINE1:adjload5#EE2200: Load5 ","LINE1:adjload15#EEFF00: Load15 ", "COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxtotal:MAX:%7.2lf %%','GPRINT:maxload1:MAX:%7.3lf ', + 'GPRINT:maxload5:MAX: %7.3lf ', 'GPRINT:maxload15:MAX: %7.3lf ', "COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:mintotal:MIN:%7.2lf %%','GPRINT:minload1:MIN:%7.3lf ', + 'GPRINT:minload5:MIN: %7.3lf ', 'GPRINT:minload15:MIN: %7.3lf ', "COMMENT:\\n", + "COMMENT:Avg\\: ",'GPRINT:total:AVERAGE:%7.2lf %%','GPRINT:load1:AVERAGE:%7.3lf ', + 'GPRINT:load5:AVERAGE: %7.3lf ','GPRINT:load15:AVERAGE: %7.3lf ',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:total:LAST:%7.2lf %%','GPRINT:load1:LAST:%7.3lf ', + 'GPRINT:load5:LAST: %7.3lf ','GPRINT:load15:LAST: %7.3lf ',"COMMENT:\\n"); + + #process list/run queue + createShowGraph(gettext("Number of running processes on the server, and kernel run queue size."),"cpu_process", + "--title=".gettext("Number of processes / run queue size"), + "--vertical-label=Nb proc / {Rq*10}", + "--start=$start","--base=1000","--lower-limit=0", + "DEF:plist=$rrddir/cpu.rrd:plist:AVERAGE","DEF:maxplist=$rrddir/cpu.rrd:plist:MAX","DEF:minplist=$rrddir/cpu.rrd:plist:MIN", + "DEF:runq=$rrddir/cpu.rrd:runq:AVERAGE","DEF:maxrunq=$rrddir/cpu.rrd:runq:MAX","DEF:minrunq=$rrddir/cpu.rrd:runq:MIN", + "CDEF:adjrunq=runq,10,*", + "COMMENT: ", "AREA:plist#FFDD00: ".gettext("Processes"),"LINE1:adjrunq#EE3300: ".gettext("Run queue"), "COMMENT:\\n", + "COMMENT:Max\\: ", 'GPRINT:maxplist:MAX:%4.0lf ','GPRINT:maxrunq:MAX: %7.3lf ', "COMMENT:\\n", + "COMMENT:Min\\: ", 'GPRINT:minplist:MIN:%4.0lf ','GPRINT:minrunq:MIN: %7.3lf ', "COMMENT:\\n", + "COMMENT:Avg\\: ", 'GPRINT:plist:AVERAGE:%4.0lf ', 'GPRINT:runq:AVERAGE: %7.3lf ',"COMMENT:\\n", + "COMMENT:Last\\:", 'GPRINT:plist:LAST:%4.0lf ', 'GPRINT:runq:LAST: %7.3lf',"COMMENT:\\n"); + + #uptime + createShowGraph(gettext("Server uptime."),"cpu_uptime", + "--title=".gettext("Uptime"), + "--vertical-label=".gettext("Days"), + "--start=$start","--base=1000","--lower-limit=0", + "DEF:uptime=$rrddir/cpu.rrd:uptime:AVERAGE","DEF:maxuptime=$rrddir/cpu.rrd:uptime:MAX","DEF:minuptime=$rrddir/cpu.rrd:uptime:MIN", + "CDEF:adjuptime=uptime,86400,/", "CDEF:adjmaxuptime=maxuptime,86400,/", "CDEF:adjminuptime=minuptime,86400,/", + "COMMENT: ", "AREA:adjuptime#FF1100: ".gettext("Uptime"),"COMMENT:\\n", + "COMMENT:Max\\: ", 'GPRINT:adjmaxuptime:MAX: %4.1lf', "COMMENT:\\n", + "COMMENT:Min\\: ", 'GPRINT:adjminuptime:MIN: %4.1lf', "COMMENT:\\n", + "COMMENT:Last\\: ", 'GPRINT:adjuptime:LAST:%4.1lf',"COMMENT:\\n"); + + #memoire : used/cached/buffers/free + createShowGraph(gettext("Detailed usage of the server memory."),"mem", + "--title=".gettext("Memory usage"), + "--vertical-label=".gettext("Bytes"), + "--start=$start","--base=1024","--lower-limit=0", + "DEF:used=$rrddir/mem.rrd:memused:AVERAGE","DEF:maxused=$rrddir/mem.rrd:memused:MAX","DEF:minused=$rrddir/mem.rrd:memused:MIN", + "DEF:cached=$rrddir/mem.rrd:memcached:AVERAGE","DEF:maxcached=$rrddir/mem.rrd:memcached:MAX","DEF:mincached=$rrddir/mem.rrd:memcached:MIN", + "DEF:buffers=$rrddir/mem.rrd:membuffers:AVERAGE","DEF:maxbuffers=$rrddir/mem.rrd:membuffers:MAX","DEF:minbuffers=$rrddir/mem.rrd:membuffers:MIN", + "DEF:actualfree=$rrddir/mem.rrd:memactualfree:AVERAGE","DEF:maxactualfree=$rrddir/mem.rrd:memactualfree:MAX","DEF:minactualfree=$rrddir/mem.rrd:memactualfree:MIN", + "DEF:total=$rrddir/mem.rrd:memtotal:AVERAGE", + "COMMENT: ", "AREA:used#000066: ".gettext("Used"),"STACK:buffers#6633CC: ".gettext("Buffers"),"STACK:cached#339933: ".gettext("Cached"), + "STACK:actualfree#00FF99: ".gettext("Free"),"LINE1:total#FF0000: ".gettext("Total"),"COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxused:MAX:%6.2lf%sb','GPRINT:maxbuffers:MAX:%6.2lf%sb','GPRINT:maxcached:MAX:%6.2lf%sb', + 'GPRINT:maxactualfree:MAX:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minused:MIN:%6.2lf%sb','GPRINT:minbuffers:MIN:%6.2lf%sb','GPRINT:mincached:MIN:%6.2lf%sb', + 'GPRINT:minactualfree:MIN:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Avg\\: ",'GPRINT:used:AVERAGE:%6.2lf%sb','GPRINT:buffers:AVERAGE:%6.2lf%sb','GPRINT:cached:AVERAGE:%6.2lf%sb', + 'GPRINT:actualfree:AVERAGE:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:used:LAST:%6.2lf%sb','GPRINT:buffers:LAST:%6.2lf%sb','GPRINT:cached:LAST:%6.2lf%sb', + 'GPRINT:actualfree:LAST:%6.2lf%sb','GPRINT:total:LAST:%6.2lf%sb',"COMMENT:\\n"); + + #memoire : swap used/free/total + createShowGraph(gettext("Swap usage (virtual memory) on the server's hard disk."),"swap", + "--title=".gettext("Swap usage"), + "--vertical-label=".gettext("Bytes"), + "--start=$start","--base=1024","--lower-limit=0", + "DEF:used=$rrddir/mem.rrd:swapused:AVERAGE","DEF:maxused=$rrddir/mem.rrd:swapused:MAX","DEF:minused=$rrddir/mem.rrd:swapused:MIN", + "DEF:free=$rrddir/mem.rrd:swapfree:AVERAGE","DEF:maxfree=$rrddir/mem.rrd:swapfree:MAX","DEF:minfree=$rrddir/mem.rrd:swapfree:MIN", + "DEF:total=$rrddir/mem.rrd:swaptotal:AVERAGE","DEF:maxtotal=$rrddir/mem.rrd:swaptotal:MAX","DEF:mintotal=$rrddir/mem.rrd:swaptotal:MIN", + "COMMENT: ", "AREA:used#FF0033: ".gettext("Used"),"STACK:free#FF9966: ".gettext("Free"),"LINE1:total#006600: ".gettext("Total"), + "COMMENT:\\n", + "COMMENT:Max\\: ", + 'GPRINT:maxused:MAX:%6.2lf%sb','GPRINT:maxfree:MAX:%6.2lf%sb','GPRINT:maxtotal:MAX:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minused:MIN:%6.2lf%sb','GPRINT:minfree:MIN:%6.2lf%sb','GPRINT:mintotal:MIN:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Avg\\: ",'GPRINT:used:AVERAGE:%6.2lf%sb','GPRINT:free:AVERAGE:%6.2lf%sb','GPRINT:total:AVERAGE:%6.2lf%sb',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:used:LAST:%6.2lf%sb','GPRINT:free:LAST:%6.2lf%sb','GPRINT:total:LAST:%6.2lf%sb',"COMMENT:\\n"); + + #taux d'ecriture/lecture sur le disque dur + createShowGraph(gettext("Amount of raw data read/written on the hard disk."),"hd_hard", + "--title=".gettext("Data written/read"), + "--vertical-label=".gettext("Blocks/s"), + "--start=$start","--base=1024", + "DEF:read=$rrddir/hd.rrd:blckread:AVERAGE","DEF:maxread=$rrddir/hd.rrd:blckread:MAX","DEF:minread=$rrddir/hd.rrd:blckread:MIN", + "DEF:write=$rrddir/hd.rrd:blckwrite:AVERAGE","DEF:maxwrite=$rrddir/hd.rrd:blckwrite:MAX","DEF:minwrite=$rrddir/hd.rrd:blckwrite:MIN", + "CDEF:adjread=0,read,-", + "COMMENT: ", "LINE1:adjread#FF0033: ".gettext("Read"),"LINE1:write#3300FF: ".gettext("Written"),"COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxread:MAX:%6.2lf %sblk/s','GPRINT:maxwrite:MAX:%6.2lf %sblk/s',"COMMENT:\\n", + "COMMENT:Min\\: ",'GPRINT:minread:MIN:%6.2lf %sblk/s','GPRINT:minwrite:MIN:%6.2lf %sblk/s',"COMMENT:\\n", + "COMMENT:Avg\\: ",'GPRINT:read:AVERAGE:%6.2lf %sblk/s','GPRINT:write:AVERAGE:%6.2lf %sblk/s',"COMMENT:\\n", + "COMMENT:Last\\:",'GPRINT:read:LAST:%6.2lf %sblk/s','GPRINT:write:LAST:%6.2lf %sblk/s',"COMMENT:\\n"); + + #ici, hack en fonction du param du_enabled : on met toutes les infos ou juste used/free/total + #taux de remplissage du hd, place prise par log/squidcache/mysql/smefiles + my $du_enabled=$params{'UseDu'}; + my @tab=( + "--title=".gettext("Hard disk usage"), + "--vertical-label=".gettext("Bytes"), + "--start=$start","--base=1024","--lower-limit=0", + "DEF:used=$rrddir/hd.rrd:used:AVERAGE","DEF:maxused=$rrddir/hd.rrd:used:MAX","DEF:minused=$rrddir/hd.rrd:used:MIN", + "DEF:free=$rrddir/hd.rrd:free:AVERAGE","DEF:maxfree=$rrddir/hd.rrd:free:MAX","DEF:minfree=$rrddir/hd.rrd:free:MIN", + "DEF:total=$rrddir/hd.rrd:total:AVERAGE"); + push @tab, + "DEF:log=$rrddir/hd.rrd:log:AVERAGE","DEF:maxlog=$rrddir/hd.rrd:log:MAX","DEF:minlog=$rrddir/hd.rrd:log:MIN", + "DEF:squid=$rrddir/hd.rrd:squid:AVERAGE","DEF:maxsquid=$rrddir/hd.rrd:squid:MAX","DEF:minsquid=$rrddir/hd.rrd:squid:MIN", + "DEF:files=$rrddir/hd.rrd:files:AVERAGE","DEF:maxfiles=$rrddir/hd.rrd:files:MAX","DEF:minfiles=$rrddir/hd.rrd:files:MIN", + "DEF:mysql=$rrddir/hd.rrd:mysql:AVERAGE","DEF:maxmysql=$rrddir/hd.rrd:mysql:MAX","DEF:minmysql=$rrddir/hd.rrd:mysql:MIN" if ($du_enabled eq "on"); + push @tab,"COMMENT: ", "AREA:used#FF0033:".gettext("Used"),"STACK:free#44CCFF:".gettext("Free"); + push @tab,"AREA:files#23EF41:Files","STACK:squid#AA1A00:Squid", "STACK:log#11AA00:Log", "STACK:mysql#FFFF00:Mysql" if ($du_enabled eq "on"); + push @tab,"LINE1:total#0000FF:Total", "COMMENT:\\n", + "COMMENT:Max\\: ",'GPRINT:maxused:MAX:%5.1lf%sb ','GPRINT:maxfree:MAX:%5.1lf%sb '; + push @tab,'GPRINT:maxfiles:MAX:%5.1lf%sb','GPRINT:maxsquid:MAX:%5.1lf%sb','GPRINT:maxlog:MAX:%5.1lf%sb','GPRINT:maxmysql:MAX:%5.1lf%sb' if ($du_enabled eq "on"); + push @tab,"COMMENT:\\n","COMMENT:Min\\: ",'GPRINT:minused:MIN:%5.1lf%sb ','GPRINT:minfree:MIN:%5.1lf%sb '; + push @tab,'GPRINT:minfiles:MIN:%5.1lf%sb','GPRINT:minsquid:MIN:%5.1lf%sb','GPRINT:minlog:MIN:%5.1lf%sb','GPRINT:minmysql:MIN:%5.1lf%sb' if ($du_enabled eq "on"); + push @tab,"COMMENT:\\n","COMMENT:Avg\\: ",'GPRINT:used:AVERAGE:%5.1lf%sb ','GPRINT:free:AVERAGE:%5.1lf%sb '; + push @tab,'GPRINT:files:AVERAGE:%5.1lf%sb','GPRINT:squid:AVERAGE:%5.1lf%sb','GPRINT:log:AVERAGE:%5.1lf%sb','GPRINT:mysql:AVERAGE:%5.1lf%sb' if ($du_enabled eq "on"); + push @tab,"COMMENT:\\n","COMMENT:Last\\:",'GPRINT:used:LAST:%5.1lf%sb ','GPRINT:free:LAST:%5.1lf%sb '; + push @tab,'GPRINT:files:LAST:%5.1lf%sb','GPRINT:squid:LAST:%5.1lf%sb','GPRINT:log:LAST:%5.1lf%sb','GPRINT:mysql:LAST:%5.1lf%sb' if ($du_enabled eq "on"); + push @tab,'GPRINT:total:LAST:%5.1lf%sb',"COMMENT:\\n"; + + my $title=gettext("Detailed usage of disk space (squid cache, mysql databases, log files, user files..)."); + $title=gettext("Disk space usage.") if ($du_enabled eq "off"); + createShowGraph($title,"hd_usage",@tab); + + print $q->p($q->a ({href => "$progname"},gettext("Back\n"))); +} + +sub createGraphQmail { + my($start)=(@_); + #qmail entrant/sortant + createShowGraph(gettext("Number of local/remote e-mails handled by the internal mail service (including other service generated e-mails)."),"qmail", + "--title=".gettext("Local/Remote e-mails"), + "--start=$start", + "DEF:local_failure=$rrddir/qmail.rrd:local_failure:AVERAGE","DEF:maxlocal_failure=$rrddir/qmail.rrd:local_failure:MAX","DEF:minlocal_failure=$rrddir/qmail.rrd:local_failure:MIN", + "DEF:local_deferral=$rrddir/qmail.rrd:local_deferral:AVERAGE","DEF:maxlocal_deferral=$rrddir/qmail.rrd:local_deferral:MAX","DEF:minlocal_deferral=$rrddir/qmail.rrd:local_deferral:MIN", + "DEF:local_success=$rrddir/qmail.rrd:local_success:AVERAGE","DEF:maxlocal_success=$rrddir/qmail.rrd:local_success:MAX","DEF:minlocal_success=$rrddir/qmail.rrd:local_success:MIN", + "DEF:local_total=$rrddir/qmail.rrd:local_total:AVERAGE","DEF:maxlocal_total=$rrddir/qmail.rrd:local_total:MAX","DEF:minlocal_total=$rrddir/qmail.rrd:local_total:MIN", + "DEF:remote_failure=$rrddir/qmail.rrd:remote_failure:AVERAGE","DEF:maxremote_failure=$rrddir/qmail.rrd:remote_failure:MAX","DEF:minremote_failure=$rrddir/qmail.rrd:remote_failure:MIN", + "DEF:remote_deferral=$rrddir/qmail.rrd:remote_deferral:AVERAGE","DEF:maxremote_deferral=$rrddir/qmail.rrd:remote_deferral:MAX","DEF:minremote_deferral=$rrddir/qmail.rrd:remote_deferral:MIN", + "DEF:remote_success=$rrddir/qmail.rrd:remote_success:AVERAGE","DEF:maxremote_success=$rrddir/qmail.rrd:remote_success:MAX","DEF:minremote_success=$rrddir/qmail.rrd:remote_success:MIN", + "DEF:remote_total=$rrddir/qmail.rrd:remote_total:AVERAGE","DEF:maxremote_total=$rrddir/qmail.rrd:remote_total:MAX","DEF:minremote_total=$rrddir/qmail.rrd:remote_total:MIN", + "DEF:local_queue=$rrddir/qmail.rrd:local_queue:AVERAGE","DEF:maxlocal_queue=$rrddir/qmail.rrd:local_queue:MAX","DEF:minlocal_queue=$rrddir/qmail.rrd:local_queue:MIN", + "DEF:remote_queue=$rrddir/qmail.rrd:remote_queue:AVERAGE","DEF:maxremote_queue=$rrddir/qmail.rrd:remote_queue:MAX","DEF:minremote_queue=$rrddir/qmail.rrd:remote_queue:MIN", + "CDEF:adj_remote_total=0,remote_total,-", "CDEF:adj_remote_queue=0,remote_queue,-", + "CDEF:adj_remote_failure=0,remote_failure,-", "CDEF:adj_remote_deferral=0,remote_deferral,-","CDEF:adj_remote_success=0,remote_success,-", + "COMMENT:Last\\t Min\\t Avg\\t Max\\r", + "COMMENT:\\n","AREA:local_total#1ED408:".gettext("Total local e-mails"),"COMMENT:\\u","GPRINT:local_total:LAST:%4.0lf ","GPRINT:minlocal_total:MIN:%4.0lf ","GPRINT:local_total:AVERAGE:%4.0lf ","GPRINT:maxlocal_total:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ".gettext("Total remote e-mails"), "COMMENT:\\u","GPRINT:remote_total:LAST:%4.0lf ","GPRINT:minremote_total:MIN:%4.0lf ","GPRINT:remote_total:AVERAGE:%4.0lf ","GPRINT:maxremote_total:MAX:%4.0lf \\r", + + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_success#0000ff:".gettext("Remote e-mail success"), "COMMENT:\\u","GPRINT:remote_success:LAST:%4.0lf ","GPRINT:minremote_success:MIN:%4.0lf ","GPRINT:remote_success:AVERAGE:%4.0lf ","GPRINT:maxremote_success:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_deferral#ffff00:".gettext("Remote e-mail deferral").":STACK", "COMMENT:\\u","GPRINT:remote_deferral:LAST:%4.0lf ","GPRINT:minremote_deferral:MIN:%4.0lf ","GPRINT:remote_deferral:AVERAGE:%4.0lf ","GPRINT:maxremote_deferral:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_failure#ff0000:".gettext("Remote e-mail failure").":STACK", "COMMENT:\\u","GPRINT:remote_failure:LAST:%4.0lf ","GPRINT:minremote_failure:MIN:%4.0lf ","GPRINT:remote_failure:AVERAGE:%4.0lf ","GPRINT:maxremote_failure:MAX:%4.0lf \\r", + + "COMMENT:\\n","LINE2:local_queue#666666:".gettext("Local queue"),"COMMENT:\\u", "GPRINT:local_queue:LAST:%4.0lf ","GPRINT:minlocal_queue:MIN:%4.0lf ","GPRINT:local_queue:AVERAGE:%4.0lf ","GPRINT:maxlocal_queue:MAX:%4.0lf \\r", + "COMMENT:\\n","LINE2:adj_remote_queue#000000:".gettext("Remote queue"),"COMMENT:\\u", "GPRINT:remote_queue:LAST:%4.0lf ","GPRINT:minremote_queue:MIN:%4.0lf ","GPRINT:remote_queue:AVERAGE:%4.0lf ","GPRINT:maxremote_queue:MAX:%4.0lf \\r", + "COMMENT:\\n"); + + +} + +sub createGraphAltQmail { + my($start)=(@_); + #qmail entrant/sortant + createShowGraph(gettext("Number of remote e-mails handled by the alternative mail service (altqmail)."),"altqmail", + "--title=".gettext("Remote e-mails (altqmail)"), + "--start=$start", + "DEF:local_failure=$rrddir/altqmail.rrd:local_failure:AVERAGE","DEF:maxlocal_failure=$rrddir/altqmail.rrd:local_failure:MAX","DEF:minlocal_failure=$rrddir/altqmail.rrd:local_failure:MIN", + "DEF:local_deferral=$rrddir/altqmail.rrd:local_deferral:AVERAGE","DEF:maxlocal_deferral=$rrddir/altqmail.rrd:local_deferral:MAX","DEF:minlocal_deferral=$rrddir/altqmail.rrd:local_deferral:MIN", + "DEF:local_success=$rrddir/altqmail.rrd:local_success:AVERAGE","DEF:maxlocal_success=$rrddir/altqmail.rrd:local_success:MAX","DEF:minlocal_success=$rrddir/altqmail.rrd:local_success:MIN", + "DEF:local_total=$rrddir/altqmail.rrd:local_total:AVERAGE","DEF:maxlocal_total=$rrddir/altqmail.rrd:local_total:MAX","DEF:minlocal_total=$rrddir/altqmail.rrd:local_total:MIN", + "DEF:remote_failure=$rrddir/altqmail.rrd:remote_failure:AVERAGE","DEF:maxremote_failure=$rrddir/altqmail.rrd:remote_failure:MAX","DEF:minremote_failure=$rrddir/altqmail.rrd:remote_failure:MIN", + "DEF:remote_deferral=$rrddir/altqmail.rrd:remote_deferral:AVERAGE","DEF:maxremote_deferral=$rrddir/altqmail.rrd:remote_deferral:MAX","DEF:minremote_deferral=$rrddir/altqmail.rrd:remote_deferral:MIN", + "DEF:remote_success=$rrddir/altqmail.rrd:remote_success:AVERAGE","DEF:maxremote_success=$rrddir/altqmail.rrd:remote_success:MAX","DEF:minremote_success=$rrddir/altqmail.rrd:remote_success:MIN", + "DEF:remote_total=$rrddir/altqmail.rrd:remote_total:AVERAGE","DEF:maxremote_total=$rrddir/altqmail.rrd:remote_total:MAX","DEF:minremote_total=$rrddir/altqmail.rrd:remote_total:MIN", + "DEF:local_queue=$rrddir/altqmail.rrd:local_queue:AVERAGE","DEF:maxlocal_queue=$rrddir/altqmail.rrd:local_queue:MAX","DEF:minlocal_queue=$rrddir/altqmail.rrd:local_queue:MIN", + "DEF:remote_queue=$rrddir/altqmail.rrd:remote_queue:AVERAGE","DEF:maxremote_queue=$rrddir/altqmail.rrd:remote_queue:MAX","DEF:minremote_queue=$rrddir/altqmail.rrd:remote_queue:MIN", + "CDEF:adj_remote_total=0,remote_total,-", "CDEF:adj_remote_queue=0,remote_queue,-", + "CDEF:adj_remote_failure=0,remote_failure,-", "CDEF:adj_remote_deferral=0,remote_deferral,-","CDEF:adj_remote_success=0,remote_success,-", + "COMMENT:Last\\t Min\\t Avg\\t Max\\r", + "COMMENT:\\n","AREA:local_total#1ED408:".gettext("Total local e-mails"),"COMMENT:\\u","GPRINT:local_total:LAST:%4.0lf ","GPRINT:minlocal_total:MIN:%4.0lf ","GPRINT:local_total:AVERAGE:%4.0lf ","GPRINT:maxlocal_total:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ".gettext("Total remote e-mails"), "COMMENT:\\u","GPRINT:remote_total:LAST:%4.0lf ","GPRINT:minremote_total:MIN:%4.0lf ","GPRINT:remote_total:AVERAGE:%4.0lf ","GPRINT:maxremote_total:MAX:%4.0lf \\r", + + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_success#0000ff:".gettext("Remote e-mail success"), "COMMENT:\\u","GPRINT:remote_success:LAST:%4.0lf ","GPRINT:minremote_success:MIN:%4.0lf ","GPRINT:remote_success:AVERAGE:%4.0lf ","GPRINT:maxremote_success:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_deferral#ffff00:".gettext("Remote e-mail deferral").":STACK", "COMMENT:\\u","GPRINT:remote_deferral:LAST:%4.0lf ","GPRINT:minremote_deferral:MIN:%4.0lf ","GPRINT:remote_deferral:AVERAGE:%4.0lf ","GPRINT:maxremote_deferral:MAX:%4.0lf \\r", + "COMMENT:\\n","COMMENT: ","AREA:adj_remote_failure#ff0000:".gettext("Remote e-mail failure").":STACK", "COMMENT:\\u","GPRINT:remote_failure:LAST:%4.0lf ","GPRINT:minremote_failure:MIN:%4.0lf ","GPRINT:remote_failure:AVERAGE:%4.0lf ","GPRINT:maxremote_failure:MAX:%4.0lf \\r", + + "COMMENT:\\n","LINE2:local_queue#666666:".gettext("Local queue"),"COMMENT:\\u", "GPRINT:local_queue:LAST:%4.0lf ","GPRINT:minlocal_queue:MIN:%4.0lf ","GPRINT:local_queue:AVERAGE:%4.0lf ","GPRINT:maxlocal_queue:MAX:%4.0lf \\r", + "COMMENT:\\n","LINE2:adj_remote_queue#000000:".gettext("Remote queue"),"COMMENT:\\u", "GPRINT:remote_queue:LAST:%4.0lf ","GPRINT:minremote_queue:MIN:%4.0lf ","GPRINT:remote_queue:AVERAGE:%4.0lf ","GPRINT:maxremote_queue:MAX:%4.0lf \\r", + "COMMENT:\\n"); + + +} + +sub createGraphQpsmtpd { + my($start)=(@_); + #qpsmtpd + #check_basicheaders:check_goodrcptto:clamav:karma:tls_failed:rhsbl:check_earlytalker:resolvable_fromhost:dnsbl:fcrdns:spf:check_spamhelo:uribl:dmarc:total_denied:spam_denied:other_denied:spam_queued:queued:total + createShowGraph(gettext("Number of incoming e-mail connections to qpsmtpd services (outside of server incoming e-mails) and amount of spam/viruses filtered."),"qpsmtpd", + "--title=".gettext("Incoming qpsmtpd connections spam/virus/e-mails"), + "--start=$start", + "DEF:check_basicheaders=$rrddir/qpsmtpd.rrd:check_basicheaders:AVERAGE","DEF:maxcheck_basicheaders=$rrddir/qpsmtpd.rrd:check_basicheaders:MAX","DEF:mincheck_basicheaders=$rrddir/qpsmtpd.rrd:check_basicheaders:MIN", + "DEF:check_goodrcptto=$rrddir/qpsmtpd.rrd:check_goodrcptto:AVERAGE","DEF:maxcheck_goodrcptto=$rrddir/qpsmtpd.rrd:check_goodrcptto:MAX","DEF:mincheck_goodrcptto=$rrddir/qpsmtpd.rrd:check_goodrcptto:MIN", + "DEF:clamav=$rrddir/qpsmtpd.rrd:clamav:AVERAGE","DEF:maxclamav=$rrddir/qpsmtpd.rrd:clamav:MAX","DEF:minclamav=$rrddir/qpsmtpd.rrd:clamav:MIN", + "DEF:karma=$rrddir/qpsmtpd.rrd:karma:AVERAGE","DEF:maxkarma=$rrddir/qpsmtpd.rrd:karma:MAX","DEF:minkarma=$rrddir/qpsmtpd.rrd:karma:MIN", + "DEF:tls_failed=$rrddir/qpsmtpd.rrd:tls_failed:AVERAGE","DEF:maxtls_failed=$rrddir/qpsmtpd.rrd:tls_failed:MAX","DEF:mintls_failed=$rrddir/qpsmtpd.rrd:tls_failed:MIN", + "DEF:auth_failed=$rrddir/qpsmtpd.rrd:auth_failed:AVERAGE","DEF:maxauth_failed=$rrddir/qpsmtpd.rrd:auth_failed:MAX","DEF:minauth_failed=$rrddir/qpsmtpd.rrd:auth_failed:MIN", + "DEF:rhsbl=$rrddir/qpsmtpd.rrd:rhsbl:AVERAGE","DEF:maxrhsbl=$rrddir/qpsmtpd.rrd:rhsbl:MAX","DEF:minrhsbl=$rrddir/qpsmtpd.rrd:rhsbl:MIN", + "DEF:check_earlytalker=$rrddir/qpsmtpd.rrd:check_earlytalker:AVERAGE","DEF:maxcheck_earlytalker=$rrddir/qpsmtpd.rrd:check_earlytalker:MAX","DEF:mincheck_earlytalker=$rrddir/qpsmtpd.rrd:check_earlytalker:MIN", + "DEF:resolvable_fromhost=$rrddir/qpsmtpd.rrd:resolvable_fromhost:AVERAGE","DEF:maxresolvable_fromhost=$rrddir/qpsmtpd.rrd:resolvable_fromhost:MAX","DEF:minresolvable_fromhost=$rrddir/qpsmtpd.rrd:resolvable_fromhost:MIN", + "DEF:dnsbl=$rrddir/qpsmtpd.rrd:dnsbl:AVERAGE","DEF:maxdnsbl=$rrddir/qpsmtpd.rrd:dnsbl:MAX","DEF:mindnsbl=$rrddir/qpsmtpd.rrd:dnsbl:MIN", + "DEF:fcrdns=$rrddir/qpsmtpd.rrd:fcrdns:AVERAGE","DEF:maxfcrdns=$rrddir/qpsmtpd.rrd:fcrdns:MAX","DEF:minfcrdns=$rrddir/qpsmtpd.rrd:fcrdns:MIN", + "DEF:spf=$rrddir/qpsmtpd.rrd:spf:AVERAGE","DEF:maxspf=$rrddir/qpsmtpd.rrd:spf:MAX","DEF:minspf=$rrddir/qpsmtpd.rrd:spf:MIN", + "DEF:check_spamhelo=$rrddir/qpsmtpd.rrd:check_spamhelo:AVERAGE","DEF:maxcheck_spamhelo=$rrddir/qpsmtpd.rrd:check_spamhelo:MAX","DEF:mincheck_spamhelo=$rrddir/qpsmtpd.rrd:check_spamhelo:MIN", + "DEF:uribl=$rrddir/qpsmtpd.rrd:uribl:AVERAGE","DEF:maxuribl=$rrddir/qpsmtpd.rrd:uribl:MAX","DEF:minuribl=$rrddir/qpsmtpd.rrd:uribl:MIN", + "DEF:dmarc=$rrddir/qpsmtpd.rrd:dmarc:AVERAGE","DEF:maxdmarc=$rrddir/qpsmtpd.rrd:dmarc:MAX","DEF:mindmarc=$rrddir/qpsmtpd.rrd:dmarc:MIN", + "DEF:total_denied=$rrddir/qpsmtpd.rrd:total_denied:AVERAGE","DEF:maxtotal_denied=$rrddir/qpsmtpd.rrd:total_denied:MAX","DEF:mintotal_denied=$rrddir/qpsmtpd.rrd:total_denied:MIN", + "DEF:spam_denied=$rrddir/qpsmtpd.rrd:spam_denied:AVERAGE","DEF:maxspam_denied=$rrddir/qpsmtpd.rrd:spam_denied:MAX","DEF:minspam_denied=$rrddir/qpsmtpd.rrd:spam_denied:MIN", + "DEF:other_denied=$rrddir/qpsmtpd.rrd:other_denied:AVERAGE","DEF:maxother_denied=$rrddir/qpsmtpd.rrd:other_denied:MAX","DEF:minother_denied=$rrddir/qpsmtpd.rrd:other_denied:MIN", + + "DEF:spam_queued=$rrddir/qpsmtpd.rrd:spam_queued:AVERAGE","DEF:maxspam_queued=$rrddir/qpsmtpd.rrd:spam_queued:MAX","DEF:minspam_queued=$rrddir/qpsmtpd.rrd:spam_queued:MIN", + "DEF:queued=$rrddir/qpsmtpd.rrd:queued:AVERAGE","DEF:maxqueued=$rrddir/qpsmtpd.rrd:queued:MAX","DEF:minqueued=$rrddir/qpsmtpd.rrd:queued:MIN", + "DEF:total=$rrddir/qpsmtpd.rrd:total:AVERAGE","DEF:maxtotal=$rrddir/qpsmtpd.rrd:total:MAX","DEF:mintotal=$rrddir/qpsmtpd.rrd:total:MIN", + "CDEF:total_accepted=queued,spam_queued,+", + "COMMENT:Last\\t Min\\t Avg\\t Max\\r", + + "COMMENT:\\n","COMMENT:".gettext("Total"),"COMMENT:\\u","GPRINT:total:LAST:%4.0lf ","GPRINT:mintotal:MIN:%4.0lf ","GPRINT:total:AVERAGE:%4.0lf ","GPRINT:maxtotal:MAX:%4.0lf \\r", + "COMMENT:".gettext("Total accepted e-mails"),"COMMENT:\\u","GPRINT:total_accepted:LAST:%4.0lf ","GPRINT:total_accepted:MIN:%4.0lf ","GPRINT:total_accepted:AVERAGE:%4.0lf ","GPRINT:total_accepted:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:spam_queued#8fd487:".gettext("Accepted e-mails")."\\: ".gettext("spam queued"),"COMMENT:\\u","GPRINT:spam_queued:LAST:%4.0lf ","GPRINT:minspam_queued:MIN:%4.0lf ","GPRINT:spam_queued:AVERAGE:%4.0lf ","GPRINT:maxspam_queued:MAX:%4.0lf \\r", + "COMMENT:\\n","AREA:queued#1ED408:".gettext("Accepted e-mails")."\\: ".gettext("queued").":STACK","COMMENT:\\u","GPRINT:queued:LAST:%4.0lf ","GPRINT:minqueued:MIN:%4.0lf ","GPRINT:queued:AVERAGE:%4.0lf ","GPRINT:maxqueued:MAX:%4.0lf \\r", + + "COMMENT:\\n", "COMMENT:".gettext("Total denied e-mails"),"COMMENT:\\u","GPRINT:total_denied:LAST:%4.0lf ","GPRINT:mintotal_denied:MIN:%4.0lf ","GPRINT:total_denied:AVERAGE:%4.0lf ","GPRINT:maxtotal_denied:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:check_spamhelo#007a7a:".gettext("Denied e-mails")."\\: ".gettext("check_spamhelo").":STACK","COMMENT:\\u","GPRINT:check_spamhelo:LAST:%4.0lf ","GPRINT:mincheck_spamhelo:MIN:%4.0lf ","GPRINT:check_spamhelo:AVERAGE:%4.0lf ","GPRINT:maxcheck_spamhelo:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:other_denied#666666:".gettext("Denied e-mails")."\\: ".gettext("other reasons").":STACK","COMMENT:\\u","GPRINT:other_denied:LAST:%4.0lf ","GPRINT:minother_denied:MIN:%4.0lf ","GPRINT:other_denied:AVERAGE:%4.0lf ","GPRINT:maxother_denied:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:tls_failed#990099:".gettext("Denied e-mails")."\\: ".gettext("tls failed").":STACK","COMMENT:\\u","GPRINT:tls_failed:LAST:%4.0lf ","GPRINT:mintls_failed:MIN:%4.0lf ","GPRINT:tls_failed:AVERAGE:%4.0lf ","GPRINT:maxtls_failed:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:auth_failed#FFA500:".gettext("Denied e-mails")."\\: ".gettext("auth failed").":STACK","COMMENT:\\u","GPRINT:auth_failed:LAST:%4.0lf ","GPRINT:minauth_failed:MIN:%4.0lf ","GPRINT:auth_failed:AVERAGE:%4.0lf ","GPRINT:maxauth_failed:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:spf#00004f:".gettext("Denied e-mails")."\\: ".gettext("spf").":STACK","COMMENT:\\u","GPRINT:spf:LAST:%4.0lf ","GPRINT:minspf:MIN:%4.0lf ","GPRINT:spf:AVERAGE:%4.0lf ","GPRINT:maxspf:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:resolvable_fromhost#ff99ff:".gettext("Denied e-mails")."\\: ".gettext("resolvable_fromhost").":STACK","COMMENT:\\u","GPRINT:resolvable_fromhost:LAST:%4.0lf ","GPRINT:minresolvable_fromhost:MIN:%4.0lf ","GPRINT:resolvable_fromhost:AVERAGE:%4.0lf ","GPRINT:maxresolvable_fromhost:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:karma#ffff00:".gettext("Denied e-mails")."\\: ".gettext("karma").":STACK","COMMENT:\\u","GPRINT:karma:LAST:%4.0lf ","GPRINT:minkarma:MIN:%4.0lf ","GPRINT:karma:AVERAGE:%4.0lf ","GPRINT:maxkarma:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:check_basicheaders#ff00ff:".gettext("Denied e-mails")."\\: ".gettext("check_basicheaders").":STACK","COMMENT:\\u","GPRINT:check_basicheaders:LAST:%4.0lf ","GPRINT:mincheck_basicheaders:MIN:%4.0lf ","GPRINT:check_basicheaders:AVERAGE:%4.0lf ","GPRINT:maxcheck_basicheaders:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:check_goodrcptto#00ffff:".gettext("Denied e-mails")."\\: ".gettext("check_goodrcptto").":STACK","COMMENT:\\u","GPRINT:check_goodrcptto:LAST:%4.0lf ","GPRINT:mincheck_goodrcptto:MIN:%4.0lf ","GPRINT:check_goodrcptto:AVERAGE:%4.0lf ","GPRINT:maxcheck_goodrcptto:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:uribl#4c004c:".gettext("Denied e-mails")."\\: ".gettext("uribl").":STACK","COMMENT:\\u","GPRINT:uribl:LAST:%4.0lf ","GPRINT:minuribl:MIN:%4.0lf ","GPRINT:uribl:AVERAGE:%4.0lf ","GPRINT:maxuribl:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:rhsbl#7f7f7f:".gettext("Denied e-mails")."\\: ".gettext("rhsbl").":STACK","COMMENT:\\u","GPRINT:rhsbl:LAST:%4.0lf ","GPRINT:minrhsbl:MIN:%4.0lf ","GPRINT:rhsbl:AVERAGE:%4.0lf ","GPRINT:maxrhsbl:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:dnsbl#0000ff:".gettext("Denied e-mails")."\\: ".gettext("dnsbl").":STACK","COMMENT:\\u","GPRINT:dnsbl:LAST:%4.0lf ","GPRINT:mindnsbl:MIN:%4.0lf ","GPRINT:dnsbl:AVERAGE:%4.0lf ","GPRINT:maxdnsbl:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:check_earlytalker#7c7cff:".gettext("Denied e-mails")."\\: ".gettext("check_earlytalker").":STACK","COMMENT:\\u","GPRINT:check_earlytalker:LAST:%4.0lf ","GPRINT:mincheck_earlytalker:MIN:%4.0lf ","GPRINT:check_earlytalker:AVERAGE:%4.0lf ","GPRINT:maxcheck_earlytalker:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:fcrdns#827f00:".gettext("Denied e-mails")."\\: ".gettext("fcrdns").":STACK","COMMENT:\\u","GPRINT:fcrdns:LAST:%4.0lf ","GPRINT:minfcrdns:MIN:%4.0lf ","GPRINT:fcrdns:AVERAGE:%4.0lf ","GPRINT:maxfcrdns:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:dmarc#7f0000:".gettext("Denied e-mails")."\\: ".gettext("dmarc").":STACK","COMMENT:\\u","GPRINT:dmarc:LAST:%4.0lf ","GPRINT:mindmarc:MIN:%4.0lf ","GPRINT:dmarc:AVERAGE:%4.0lf ","GPRINT:maxdmarc:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:spam_denied#DAA520:".gettext("Denied e-mails")."\\: ".gettext("spam denied").":STACK","COMMENT:\\u","GPRINT:spam_denied:LAST:%4.0lf ","GPRINT:minspam_denied:MIN:%4.0lf ","GPRINT:spam_denied:AVERAGE:%4.0lf ","GPRINT:maxspam_denied:MAX:%4.0lf \\r", + "COMMENT:\\n", "AREA:clamav#ff0000:".gettext("Denied e-mails")."\\: ".gettext("virus").":STACK","COMMENT:\\u","GPRINT:clamav:LAST:%4.0lf ","GPRINT:minclamav:MIN:%4.0lf ","GPRINT:clamav:AVERAGE:%4.0lf ","GPRINT:maxclamav:MAX:%4.0lf \\r", + "COMMENT:\\n"); + +} diff --git a/root/usr/bin/smeadmind b/root/usr/bin/smeadmind new file mode 100755 index 0000000..ed3a970 --- /dev/null +++ b/root/usr/bin/smeadmind @@ -0,0 +1,1702 @@ +#!/usr/bin/perl -w +# Smeadmin - demon perl collectant les statistiques du systeme +# Copyright (C) 2006 +# This file is distributed under the GPL license. +# Landry Breuil
Documentation Smeadmin
+
+ Author : Landry Breuil
+ Creation date of this doc : 30/01/2006
+ Corresponding version of Smeadmin : 1.1.0-1
+ Sme6admin was tested with SME : 7b5, 7pre1
+
+
Why this contrib ? :
+
The aim is to see globally what happens on the server, without using the administrative ssh shell. The homepage of the contrib is in the SME server-manager, in the tab Smeadmin. This contrib is an evolution of sme6admin for SME7, and has been mostly rewritten.
+
Description of the different pages : +
-
+ List of the informations provided by the main page of the contrib :
+
-
+ Some links to the pages containings the graphs (see below), and a link to the configuration page of Smeadmin.
+ The result of the command
netstat which permits to see the opened tcp connexions on the server. The outgoing/incoming connexions are highlighted.
+ The result of the command w which permits to see the list of the users connected to a shell on the server, from where, since when, and what was their last command.
+ The status of the main services running on the server, with the associated number of unix processes. The right button allows to stop/start a service. (it corresponds to the command service xxx stop/start )
+ Some of the services' name are links to pages containing more details on the chosen service. + The result of the command
netstat --listen -tp showing the list of processes listening on a socket.
+ The date of the last antivirus database update, and the number of viruses/signatures known by ClamAV.
+ + Graph page on the harware state contains : +
-
+ A graph with the temperatures of the cpu and motherboard, detected by lm_sensors, and those of the hard disks, detected by hddtemp.
+ A graph with the cpu fan speed.
+
(You must notice that these values depends entirely of the support of your hardware by lm_sensors and hddtemp. You have to CONFIGURE correctly Smeadmin first if you want the graphs to fill.) +
You can have these graphs on various durations, following the links on top of the page. +
+ Graph page on the network use contains : +
-
+ A graph on the opened network sessions. It monitors the ftp, ssh, netbios, afp and vpn connexions. Theses curves corresponds to the number of opened tcp connexions on the ports 21,22,139,548 and 1723.
+ A graph with the number of dhcp leases renewal and samba connexions. It permits to view the local network activity. The samba connexions differs from the netbios connexions here because a client host can be connected simultaneously to many samba shares, this makes only one netbios connexion and many samba "connexions".
+ A graph with the amount of incoming/outgoing e-mails on the server (the values are stacked). By default, it only counts the e-mails accounts of the server's main domain, the virtual domains, and the e-mails fetched by fetchmail on local mailboxes. You can add domains and e-mail adresses by configuring Smeadmin, but only the mails passing through SME's e-mail server will be counted. There is also the number of rejected spam by Spamassassin and the number of viruses filtered by ClamAV.
+ A graph showing the ping latency with the default gateway to internet. The ping target is configurable, as it may be useful if you are not directly on the web (ie. in
server-only mode) to test the latency on an external host. If the ping is greater than 200ms, the value is bounded to have a readable graph. (If you had a 4s ping latency, you would have had a peak on the graph and nothing around.)
+ Two graphs with the amount of raw network flow on the server. Frequently, the amount of data incoming on the external network interface corresponds to the outgoing data on the internal network interface, it is flow relayed by the server to the local network. On the third graph you can see the amount of data which is not a relayed flow. If the server is in server-only mode, only one graph is displayed, as you have only one NIC.
+ + Graph page on the system use contains : +
-
+ A graph on the % cpu use, with the ratio between system, user and niced processes.
+ A graph on the system load, in comparison to the total % cpu use.
+ A graph on the number of processes running on the server, with the size of the run queue.
+ A graph with the server uptime.
+ A graph on the server RAM use.
+ A graph on the server swap use.
+ A graph with the amount of raw data written/read on the hard disk.
+ A graph on the disk space use, detailed with the size of special directories of SME Server :
/var/log (log files), /home/e-smith/files (user files and ibays), /var/spool/squid (Squid cache), /var/lib/mysql (MySQL databases), and finally the available free space on the hard disk. You can desactivate the computing of directories'size, because on large hard disks, it may take a LOT of time. If so, you would have only available disk space displayed on the graph.
+ + Advanced tests page : +
This page is used when you want to check if a service responds really when you send a request. +
If you click on the links, you can check the httpd, smbd, nmbd, popd, sshd, ftpd, smtpfront-qmail services, and the ping to the outside (google.fr here). + +
+
+ Configuration page of Smeadmin : +
This last page permits to configure the
smeadmind daemon, and to set some web interface settings. The configuration is saved in a plain-text file. The settings are :
+ -
+ Recipient and frequency of status e-mails. If you put 0 for the frequency, status e-mails are disabled.
+
MySQL connection settings. You may change these values only if you have modified corresponding MySQL settings first. +
Network interface names. Normally, these settings are autodetected, though you may have to change them. (You may have a third wireless NIC, and you want to monitor it in place of another NIC...). You can add external mail domains to count, but they will be matched only if the mails pass through SME's internal mail system. +
Miscellaneous web interface settings. (graphs size & format,...) +
Hardware sensors settings. Remember first to check if your hardware is supported by lm_sensors and hddtemp, and then check if these settings are correct before bugging me with "My temp graphs are empty ? WTF ? Your program sucks !" +
Recipient of alert e-mails. and bounds for the alerts. If you put 0, the alert is disabled. The possible bounds are : the hardware temperatures, the number of ssh/ftp/vpn/netbios connexions, the disk space, cpu and memory use, and the number of incoming/outgoing e-mails. +
+ Details page on httpd / httpd-admin service : +
It is a graph with the number, % cpu use, and size of memory allocated for the httpd processes. + +
+
+ Details page on sshd service : +
You have the list of the last administrative connexions. Successful root connexions are highlighted, and all failed connexions attempts are shown. + +
+
+ Details page on squid service : +
It is a graph with the number, % cpu use, and size of memory allocated for the squid processes. + +
+
+ Details page on pppoe service : +
It shows the history of the ADSL connexions, with the start, end, duration, ip assigned and amount of data transferred. Connexions which lasted less than 4 hours, and disconnexions that lasted more than one minute are highlighted. These two parameters can be changed in the configuration page of Smeadmin. Thus, you can see the reliability/stability of the internet link. + +
+
+ Details page on dhcpd service : +
You have the date of the lasts dhcp leases renewal by local network hosts, theirs MAC/IP address, and theirs hostname (assigned by the server). Thus you can see which workstation was recently powered on, and since when a workstation has not been seen on the local network. + +
+
+ Details page on pptpd service : +
It presents the list of the vpn connexions on the server, with the start, end, duration, client IP/login, and amount of data transferred. Connexions which lasted more than 2 hours are highlighted.This parameter can be changed in the configuration page of Smeadmin. + +
+
+ Details page on smb/nmb service : +
First, you have the history of the last connexions from a triplet (host/ip/user) to a samba share on the server, and the approximative duration (to 5 minutes). +
Then there is the graph showing the number, % cpu use and size of memory allocated to the samba processes. +
Thus you can analyse which hosts use frequently the samba service. + +
+
+ Details page on atalk service : +
In the same way, this page shows first the history of the last connexions to the Apple file share system on the system, with the amount of data transferred. +
Then it shows the graph with the number, % cpu use and size of memory allocated to the afp system processes (papd, afpd, netatalk). +
Thus you can view which hosts use the atalk share system. + +
+
+ Details page on proftpd service : +
This page shows the list of the connexions to the ftp service, successful or not. You have the IP of the client, its login and the amount of data transferred. + +
List of files installed/created by the RPM :
+
+
+
+
+
/etc/e-smith/events/actions/smeadmin-parselog
+
/etc/e-smith/events/logrotate/S15smeadmin-parselog
+
/etc/e-smith/web/functions/smeadmin
+
/etc/e-smith/web/panels/manager/cgi-bin/smeadmin
+
/etc/e-smith/web/panels/manager/html/smeadmin/smeadmin.conf
+
/etc/rc.d/init.d/smeadmind
+
/etc/rc.d/rc0.d/K03smeadmind
+
/etc/rc.d/rc1.d/K03smeadmind
+
/etc/rc.d/rc2.d/K03smeadmind
+
/etc/rc.d/rc3.d/S97smeadmind
+
/etc/rc.d/rc4.d/S97smeadmind
+
/etc/rc.d/rc5.d/S97smeadmind
+
/etc/rc.d/rc6.d/K03smeadmind
+
/etc/rc.d/rc7.d/S97smeadmind
+
/usr/bin/smeadmind
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_mysql.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_rrd.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_smedb.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-doc-fr.html
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-doc-en.html
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-fr.po
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-en.po
+
/usr/share/doc/smeserver-smeadmin-1.1.0/tables.sql
+
/usr/share/locale/en/LC_MESSAGES/smeadmin.mo
+
/usr/share/locale/fr/LC_MESSAGES/smeadmin.mo
+
List of the directories used :
+
| File/directory | Contains |
|---|---|
/var/log/smeadmin.log | daemon's trace and errors |
/var/tmp/ | temporary logs'place. |
/var/lib/smeadmin/ | RRDs files handling datas for the graphs. |
/etc/e-smith/web/panels/manager/html/smeadmin/ | generated graphs and configuration file. |
(The daemons puts all the graphs in a subdirectory of the
server-manager, thus the panel is attainable through a SSH tunnel.)
+
+
+A little more details : +
-
+ The status and alert e-mails are sent with smeadmin-daemon@mydomain as sender, you can use it as a filter in your mail-reader.
+ An alert e-mail reminds the fixed bound, the current value, and a short explanation for the alert. You have a direct link to the bound configuration webpage.
+ A status e-mail sends the number of opened connexions to the services, the 10 last lines of
/var/log/messages, the output of netstat --numeric-hosts -tup (detailed list of all opened and active network connections), and the status of samba, httpd and sshd services. If you don't receive it, there is probably a problem on the server (Server off, qmail stopped, pppoe down,...)
+service smeadmind status
+If it is off, you can have a idea of its problem in the log file
/var/log/smeadmin.log. If you encounter problems restarting it, execute rm -f /var/run/smeadmin.pid before retrying.
+It is run at the boot of the server. On the
logrotate event, the system sends a SIGUSR1 unix signal to force the daemon to parse the logs which will be archived.
+
+
+ Changelog :
+
* Web Feb 01 2006 : v1.1.0 - one year after last major release.
+
- Renamed to smeserver-smeadmin.
+
- Only compatible with SME 7 from now. (Only if a get a LOT of requests, i'll port the new functions to sme6admin.)
+
- Major global rewrite, a LOT of code cleaning.
+
- The settings are now in a configuration file.
+
- A LOT of things are now configurable (more setups are supported).
+
- Added SME7-specific services.
+
- Added a link to configure the bound in an alert e-mail.
+
- Added the output of 'netstat -tlp' and 'w' to the main page.
+
+
* Mon Oct 03 2005 : v1.0.5 by Cyril
+
- Correction of some bugs to run the daemon on sme7.
+
- A lot of things are buggy(events not correctly detected) on sme7.
+
+
* Tue Feb 01 2005 : v1.0.4
+
- Change to gettext for all the text outputs.
+
- English translation for the panel and the text of e-mails.
+
- File .po included for french and english language.
+
+
* Tue Sep 14 2004 : v1.0.3
+
- Added afp on the session graph.
+
- Modified the network traffic graphs.
+
- Modified the raw data write/read graph.
+
- Added network traffic (all but relayed) graph.
+
- Improvement of UI and short_status (easter-egg ;)).
+
- Corrected ftp anonymous client bug.
+
- Possibility to disable alerts.
+
- Clean /var/tmp on logrotate.
+
+
* Thu Aug 26 2004 : v1.0.2
+
- Compatibility with 5.6 Ok.
+
- Take care of US locale (0.0 => 0,0).
+
- Added temperature for second hard disk.
+
- Corrected bugs.
+
- Improvement of the postinstall and preuninstall scripts to enable rpm upgrade.
+
+
* Mon Aug 9 2004 : v1.0.1
+
- Added the configuration of delay between 2 status e-mails.
+
- Improvement of the compatibility with SME 5.6.
+
+
* Fri Aug 6 2004 : v1.0.0
+
+All complaint, bug reports, requests, remarks, thanks are welcome at landry at firewall - services dot com, especially if the english translation of the doc/UI/howto is BAD. I NEED a feedback from the users to improve smeadmin. A big thanks goes to rv, who supported me during the creation of smeadmin, and Shad Lords for his sysmon, i've used some of his ideas.
+
+
+
diff --git a/root/usr/share/doc/smeserver-smeadmin/smeadmin-doc-fr.html b/root/usr/share/doc/smeserver-smeadmin/smeadmin-doc-fr.html
new file mode 100644
index 0000000..bd70786
--- /dev/null
+++ b/root/usr/share/doc/smeserver-smeadmin/smeadmin-doc-fr.html
@@ -0,0 +1,214 @@
+
+
+
+
+
+
Documentation Smeadmin
+
+ Auteur : Landry Breuil
+ Date de création de cette doc : 29/01/2006
+ Version de Smeadmin correspondante : 1.1.0-1
+ Versions de SME testées avec Smeadmin : 7b5, 7pre1
+
+
Pourquoi cette contrib ? :
+
Pouvoir voir en un coup d'oeil ce qu'il se passe sur le serveur sans avoir à utiliser la console d'administration par ssh. L'accueil de la contrib est accessible dans le server-manager d'SME à l'onglet Smeadmin. Cette contrib est l'évolution de sme6admin pour SME7, et à été réécrite presque totalement.
+
Description des différentes pages : +
-
+Liste des informations fournies par la page d'accueil de la contrib :
+
-
+ Des liens vers les pages comportants les graphes d'activité du système expliqués juste après, ainsi qu'un lien vers la page permettant de configurer smeadmin.
+ Le résultat de la commande
netstat qui permet de voir quelles sont les connexions tcp ouvertes sur le serveur. On distingue les connexions vers l'exterieur/interieur.
+ Le résultat de la commande w qui permet de voir les utilisateurs connectés directement sur le serveur, depuis quand, à partir d'où et quelle était la dernière commande lancée.
+ Le status des principaux services tournant sur le système, avec le nombre de processus unix associés. Le bouton à droite permet d'arrêter/démarrer un service. (Ce qui correspond à la commande service xx stop/start)
+ Certains des noms des services sont des liens vers des pages comportants plus de dtails sur le service en question. + Le résultat de la commande
netstat --listen -tp qui permet de voir la liste des processus en attente de connexion.
+ On à ensuite la date de la dernière mise à jour de la base de virus de ClamAV, ainsi que le nombre de virus contre lesquels on est protégés.
+
+Page de graphes sur l'état du matériel : +
-
+ Un graphe comportant les températures du processeur et de la carte mère detectées par lm_sensors, ainsi que celle des disques durs avec hddtemp.
+ Un graphe avec la vitesse de rotation du ventilateur du processeur.
+
(Il faut noter que ces valeurs dépendent entièrement du support de votre matériel par lm_sensors et hddtemp. De plus, il faut configurer correctement Smeadmin + si l'on veut que les graphes se remplissent.) +
On peut avoir ces graphes sur différentes durées en suivant les liens du haut de la page. +
Page de graphes sur l'utilisation du réseau : +
-
+Un graphe sur les sessions réseau ouvertes. On monitore les connexions ftp, ssh, netbios, afp et vpn. Ces courbes correspondent au nombre de connexions tcp ouvertes sur ces services aux ports 21,22,139,548 et 1723.
+Un graphe avec le nombre de renouvellement de bails dhcp et le nombre de connexions samba. Il permet de mesurer l'utilisation du réseau local. Les connexions samba diffèrent ici des connexions netbios par le fait qu'un poste client peut être connecté à plusieurs partages samba en même temps, cela ne donne qu'une connexion netbios et plusieurs "connexions" samba.
+Un graphe avec le nombre de mails entrant/sortant (valeurs empilées) sur le serveur. Par défaut, on ne gère que les e-mails arrivant sur le domaine principal du serveur, sur les domaines virtuels du serveur, ainsi que les mails relayés par fetchmail sur des boites locales. On peut ajouter des domaines en configurant Smeadmin, mais les e-mails ne seront détectés que s'ils transitent par le serveur de messagerie de SME. On a aussi le nombre de spams rejetés par Spamassassin et le nombre de virus filtrés par ClamAV.
+Un graphe montrant le temps de réponse de la passerelle par défaut vers internet. La cible du ping est configurable, car il peut être utile lorsqu'on n'est pas "en frontal" sur internet de tester la latence avec un quelconque autre site, et pas avec la passerelle par défaut. Si le ping dépasse 200ms, on bride la valeur pour que le graphe reste "lisible". (ie, si on a un ping de 4s, on aurait un pic sur le graphe et rien à coté.)
+Deux graphes montrant le volume du trafic réseau brut passant par le serveur. Souvent, le volume entrant sur l'interface externe correspond au volume sortant sur l'interface interne, c'est tout le trafic relayé par la passerelle vers le réseau local. On peut voir sur un troisième graphe le traffic qui n'est pas du routage. Si l'on est en
server-only, un seul graphe est affiché.
+Page de graphes sur l'utilisation du système : +
-
+Un premier graphe sur la proportion de processus systémes, utilisateurs et nicés dans le % d'utilisation du cpu.
+Un deuxième sur le load du système par rapport au % total d'utilisation du cpu.
+Un troisième sur le nombre de processus tournant sur le serveur, ainsi que la taille de la file d'attente des process.
+Enfin, un quatrième sur l'uptime du cpu.
+Ensuite, un graphe sur l'occupation de la mémoire vive du serveur.
+Et un graphe sur la taille et l'occupation de la mémoire virtuelle ou swap.
+Puis un graphe sur le volume brut de données érites/lues sur le disque dur du serveur.
+Enfin, un graphe sur l'occupation disque de composantes importantes de SME: les répertoires
/var/log (les fichiers journaux), /home/e-smith/files (les fichiers des utilisateurs et les ibays), /var/spool/squid (la taille du cache du proxy Squid), /var/lib/mysql (la taille des bases de données MySQL) ainsi que l'espace restant encore disponible sur le disque dur. On peut désactiver le calcul de l'occupation disque sur ces répertoires, car sur certaines configurations, cela peut prendre beaucoup de temps et ralentir le fonctionnement général du serveur. On n'aura alors sur le graphe que l'espace disponible par rapport à l'espace total.
+Page de tests avancés : +
Cette page va servir à vérifier qu'un service répond vraiment lorsque on lui envoie un requête. +
En cliquant sur les diffèrents liens, on peut tester les services httpd, smbd, nmbd, popd, sshd, ftpd, smtpfont-qmail ainsi que le temps de réponse du serveur à un ping. + +
Page de configuration de Smeadmin : +
Cette page permet de configurer le démon
smeadmind ainsi que certains paramètres de l'interface web. La configuration est stockée dans un fichier texte. Les options sont les suivantes :
+-
+ Destinataire des messages de status, ainsi que leur fréquence. Si on met 0, ils sont désactivés.
+
Paramètres de connexion à MySQL. On ne doit modifier ces valeurs que si on a modifié les valeurs correspondantes dans MySQL. +
Noms des interfaces réseaux. Logiquement, ces valeurs sont auto-détectées, mais on peut avoir besoin de les changer (p.ex 3ème interface réseau en Wi-Fi à surveiller..). On peut ajouter des domaines de courrier externes, mais il ne seront pris en compte que si les messages transitent par le serveur de messagerie de SME. +
Diverses options pour l'interface web. +
Options pour les senseurs. Bien vérifier que son matériel est supporté ou pas par lm_sensors et hddtemp, et que ces options sont correctement renseignées avant de dire "mon graphe de température ne se remplit pas". +
Destinataire des messages d'alertes, et limites pour le déclenchement des alertes. Les limites possibles sont : la température du matériel, le nombre de connexions ssh/ftp/vpn/netbios, l'utilisation du disque dur, du processeur, de la mémoire et le nombre d'email sortant/rentrant. Si l'on met 0 pour une alerte, elle est désactivée. +
Page de détail du service httpd / httpd-admin : +
On dispose d'un graphe détaillant le % cpu, la taille de la mémoire vive alloués à des processus httpd, ainsi que leur nombre. + +
Page de détail du service sshd : +
On donne la liste des derniès connexions administratives. On met en évidence les connexions root réssies, ainsi que toutes les tentatives de connexions infructueuses. + +
Page de détail du service squid : +
On à un graphe détaillant le % cpu, la taille de la mémoire vive alloués à des processus squid correspondant au proxy transparent, ainsi que leur nombre. + +
Page de détail du service pppoe : +
Elle présente l'historique des dernières connexions ADSL par pppoe, avec le début, l'ip attribuée, ainsi que la date de fin, la durée et le volume transféré durant la connexion. On met en évidence les connexions de moins de 4 heures, et les déconnexions de plus d'une minute. Ces deux paramètres peuvent être changés dans la page de configuration de Smeadmin. Ainsi, on peut observer la fiabilité/stabilité de la connexion à Internet. + +
Page de détail du service dhcpd : +
On dispose ici de la date des derniers renouvellements de baux par les postes du réseau local, ainsi que de leurs adresses MAC, leurs IPs, et leurs nom DNS attribué par le serveur. On peut ainsi voir quelle stations ont été allumées récemment. + +
Page de détail du service pptpd : +
On a la liste des connexions vpn effectuées sur le serveur, avec les dates de début et de fin, la durée, l'IP du client vpn, son login et le volume transféré. On met en évidence les connexions de plus de 2 heures, ce paramètre peut être changé dans la page de configuration de Smeadmin. + +
Page de détail du service smb/nmb : +
Cette page propose tout d'abord l'historique des dernières connexions d'un triplet (machine/ip/personne) à un des partages réseau samba du serveur, ainsi que la durée approximative à cinq minutes. +
Ensuite elle propose le graphe détaillant le % cpu, la taille de la mémoire vive alloués aux processus gèrant samba, ainsi que leur nombre. +
On peut ainsi observer quels sont les postes qui utilisent fréquemment le service samba du serveur. + +
Page de détail du service atalk : +
De la même manière cette page propose tout d'abord l'historique des dernières connexions d'une machine au service de partage de fichier avec les Macintosh du serveur avec le détail des volumes de transferts de fichiers. +
Ensuite elle propose le graphe détaillant le % cpu, la taille de la mémoire vive alloués aux processus gèrant ce service (papd, afpd, netatalk), ainsi que leur nombre. +
On peut ainsi observer quels sont les postes qui utilisent fréquemment le service atalk du serveur. + +
Page de détail du service proftpd : +
Cette page montre la liste de connexions au service ftp du serveur, réussies ou non. Elle détaille l'adresse IP du client, son login et le volume transféré. + +
Liste des fichiers installés/crées par le RPM :
+
+
+
+
/etc/e-smith/events/actions/smeadmin-parselog
+
/etc/e-smith/events/logrotate/S15smeadmin-parselog
+
/etc/e-smith/web/functions/smeadmin
+
/etc/e-smith/web/panels/manager/cgi-bin/smeadmin
+
/etc/e-smith/web/panels/manager/html/smeadmin/smeadmin.conf
+
/etc/rc.d/init.d/smeadmind
+
/etc/rc.d/rc0.d/K03smeadmind
+
/etc/rc.d/rc1.d/K03smeadmind
+
/etc/rc.d/rc2.d/K03smeadmind
+
/etc/rc.d/rc3.d/S97smeadmind
+
/etc/rc.d/rc4.d/S97smeadmind
+
/etc/rc.d/rc5.d/S97smeadmind
+
/etc/rc.d/rc6.d/K03smeadmind
+
/etc/rc.d/rc7.d/S97smeadmind
+
/usr/bin/smeadmind
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_mysql.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_rrd.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/create_smedb.sh
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-doc-fr.html
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-doc-en.html
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-fr.po
+
/usr/share/doc/smeserver-smeadmin-1.1.0/smeadmin-en.po
+
/usr/share/doc/smeserver-smeadmin-1.1.0/tables.sql
+
/usr/share/locale/en/LC_MESSAGES/smeadmin.mo
+
/usr/share/locale/fr/LC_MESSAGES/smeadmin.mo
+
Liste des répertoires utilisés :
+
| Fichier/répertoire | Contient |
|---|---|
/var/log/smeadmin.log | la trace du démon. |
/var/tmp/ | stockage temporaire des logs. |
/var/lib/smeadmin/ | les fichiers RRDs stockant les données pour les graphes. |
/etc/e-smith/web/panels/manager/html/smeadmin/ | les graphes générés et de la configuration. |
(Le programme stocke tous les graphes dans un sous-répertoire du
server-manager ainsi l'interface est accessible via un tunnel SSH.)
+
+Un petit peu plus de détails : +
-
+les e-mails d'alertes et de status sont envoyés avec le nom smeadmin-daemon@mondomaine en expéditeur, pour être bien vus dans le lecteur de mail.
+Un e-mail d'alerte rappelle la limite qui avait été fixée, la valeur courante, ainsi qu'une explication possible de la cause de l'alerte. De plus, on a un lien vers l'interface web pour configurer directement la limite.
+Un e-mail de status envoie les 10 dernières lignes de
/var/log/messages, le nombre de connexions ouvertes sur les services critiques, la sortie de netstat --numeric-hosts -tpu (la liste détaillée de toutes les connexions réseau actives) ainsi que le status des services samba, http et ssh. Si on ne le reçoit pas, c'est un bon indice d'un fonctionnement anormal. (Serveur éteint, qmail arreté, pas de connexion ADSL ...)
+service smeadmind status
+S'il est arreté, un début d'explication peut être trouvé dans son fichier journal
/var/log/smeadmin.log. Si vous avez des problèmes pour le redémarrer, faites rm -f /var/run/smeadmin.pid avant de réessayer.
+Il se lance automatiquement au démarrage du serveur. Lors d'un évenement
logrotate, le système lui envoie un signal unix SIGUSR1 pour le forcer à lire les journaux qui vont être archivés.
+
+
+ Changelog :
+
* Web Feb 01 2006 : v1.1.0 - un an pile aprs la derniere version majeure.
+
- Renommage en smeserver-smeadmin.
+
- Uniquement compatible avec SME 7 à partir de maintenant. (Sauf si BEAUCOUP de demandes => extension de compatibilité.)
+
- Réécriture majeure, GROS nettoyage du code.
+
- Passage des options dans un fichier de configuration.
+
- BEAUCOUP plus de choses configurables. Gère plus de configurations correctement.
+
- Ajout de services spécifiques SME7.
+
- Ajout d'un lien pour configurer la limite dans les mails d'alerte.
+
- Ajout du 'netstat -tlp' et du 'w' dans la page d'accueil.
+
+
* Mon Oct 03 2005 : v1.0.5 by Cyril
+
- Correction de certains bugs pour pouvoir le lancer sur sme7.
+
- Beaucoup de choses fonctionnent anormalement (événements non détectés) sur sme7.
+
+
* Tue Feb 01 2005 : v1.0.4
+
- Passage à gettext pour toutes les sorties texte.
+
- Traduction anglaise pour le panel et le texte des e-mails.
+
- Fichier .po inclus pour les langue française et anglaise.
+
+
* Tue Sep 14 2004 : v1.0.3
+
- Ajout de afp sur le graphe des sessions.
+
- Modification des graphes de traffic réseau.
+
- Modification du graphe ecriture/lecture disque.
+
- Ajout graphe trafic serveur hors routage.
+
- Amlioration UI et short_status (easter-egg ;)).
+
- Correction bug client ftp anonymous.
+
- Possibilité de désactiver les alertes.
+
- Nettoyage /var/tmp au logrotate.
+
+
* Thu Aug 26 2004 : v1.0.2
+
- Compatibilité avec la 5.6 Ok.
+
- Prise en compte de la locale US (0.0 => 0,0).
+
- Ajout température hd2.
+
- Correction bugs.
+
- Amélioration des scripts postinstall et preuninstall pour rendre possible l'upgrade.
+
+
* Mon Aug 9 2004 : v1.0.1
+
- Ajout de la configuration du temps entre 2 mails de status.
+
- Amélioration de la compatibilité avec SME 5.6.
+
+
* Fri Aug 6 2004 : v1.0.0
+
+Toutes les requêtes, questions et rapports d'erreurs sont bienvenus, et peuvent être envoyées à landry at firewall - services point com.
+
+
diff --git a/root/usr/share/doc/smeserver-smeadmin/tables-update.sql b/root/usr/share/doc/smeserver-smeadmin/tables-update.sql
new file mode 100644
index 0000000..833dbb3
--- /dev/null
+++ b/root/usr/share/doc/smeserver-smeadmin/tables-update.sql
@@ -0,0 +1,19 @@
+USE `smeadmin`;
+
+
+-- Modify one error in table construction
+ALTER TABLE `pppoe` CHANGE `ip` `ip` INT( 10 ) UNSIGNED NOT NULL DEFAULT '0'
+;
+-- Update size of some fields
+ALTER TABLE `pppoe` CHANGE `volume_in` `volume_in` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ,
+CHANGE `volume_out` `volume_out` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ;
+
+ALTER TABLE `vpn` CHANGE `volume_in` `volume_in` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ,
+CHANGE `volume_out` `volume_out` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ;
+
+ALTER TABLE `ftp` CHANGE `volume_in` `volume_in` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ,
+CHANGE `volume_out` `volume_out` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ;
+
+ALTER TABLE `afp` CHANGE `volume_write` `volume_write` INT( 20 ) UNSIGNED NULL DEFAULT NULL ,
+CHANGE `volume_read` `volume_read` BIGINT( 20 ) UNSIGNED NULL DEFAULT NULL ;
+
diff --git a/root/usr/share/doc/smeserver-smeadmin/tables.sql b/root/usr/share/doc/smeserver-smeadmin/tables.sql
new file mode 100644
index 0000000..c5eba5b
--- /dev/null
+++ b/root/usr/share/doc/smeserver-smeadmin/tables.sql
@@ -0,0 +1,95 @@
+-- Creation de la base
+
+CREATE DATABASE IF NOT EXISTS `smeadmin` DEFAULT CHARACTER SET latin1;
+
+USE `smeadmin`;
+
+
+-- Ces tables vont garder l'historique
+-- des connexions aux services sensibles
+
+
+-- Structure de la table samba
+
+create table samba (
+ ip int unsigned not null,
+ login varchar(10) not null,
+-- service varchar(10) not null,
+ machine varchar(30) not null,
+ debut datetime,
+ derniere_vue datetime,
+ primary key (ip,login,machine) );
+
+-- Structure de la table afp
+
+create table afp (
+ ip int unsigned not null,
+ debut datetime not null,
+ fin datetime,
+ pid_afpd int unsigned not null,
+ login varchar(10),
+ volume_read bigint(20) unsigned,
+ volume_write bigint(20) unsigned,
+ primary key (debut) );
+
+-- Structure de la table dchpd
+
+create table dhcpd (
+ ip int unsigned not null,
+ mac varchar(18) not null,
+ hostname varchar(30),
+ debut datetime,
+-- encours bool,
+ primary key (ip) );
+
+-- Structure de la table ftp
+
+create table ftp (
+ debut datetime not null,
+ fin datetime,
+ duree time,
+ ip int unsigned not null,
+ pid_proftpd int unsigned not null,
+ login varchar(10),
+ connecte bool,
+ volume_in bigint(20) unsigned,
+ volume_out bigint(20) unsigned,
+ primary key (debut) );
+
+-- Structure de la table pppoe
+
+create table pppoe (
+ debut datetime not null,
+ fin datetime,
+ duree time,
+ pid_pppd int unsigned not null,
+ ip int unsigned not null,
+ peer int unsigned not null,
+ volume_in bigint(20) unsigned,
+ volume_out bigint(20) unsigned,
+ primary key (debut) );
+
+-- Structure de la table ssh
+
+create table ssh (
+ debut datetime not null,
+ ip int unsigned not null,
+ login varchar(10) not null,
+ ok bool,
+ primary key (debut) );
+
+-- Structure de la table vpn
+
+create table vpn (
+ debut datetime not null,
+ fin datetime,
+ duree time,
+ ip int unsigned,
+ vpn_clt int unsigned,
+ vpn_srv int unsigned not null,
+ volume_in bigint unsigned,
+ volume_out bigint unsigned,
+ login varchar(10),
+ pid_pptpd int(20) unsigned not null,
+ pid_pppd int(20) unsigned,
+ primary key (debut) );
diff --git a/root/usr/share/doc/smeserver-smeadmin/update-mysql.sh b/root/usr/share/doc/smeserver-smeadmin/update-mysql.sh
new file mode 100755
index 0000000..445abc3
--- /dev/null
+++ b/root/usr/share/doc/smeserver-smeadmin/update-mysql.sh
@@ -0,0 +1,19 @@
+#!/bin/bash
+
+
+#table creation
+mysql smeadmin < /usr/share/doc/smeserver-smeadmin/tables-update.sql 2>err
+if [ $? -ne 0 ]
+then
+ echo -n "Error in the modification of the tables : "
+ cat err
+else
+ echo -e "Modification of tables :\t\t\t[OK]"
+fi
+
+rm -f err
+
+#validation des modifications
+mysqladmin flush-privileges
+
+
diff --git a/smeserver-smeadmin.spec b/smeserver-smeadmin.spec
new file mode 100644
index 0000000..d28241d
--- /dev/null
+++ b/smeserver-smeadmin.spec
@@ -0,0 +1,244 @@
+# $Id: smeserver-smeadmin.spec,v 1.17 2019/12/07 04:05:41 jpp Exp $
+# Authority: vip-ire
+# Name: Daniel Berteaud
+#
+
+Summary: A graphical monitor, alert raising, and services supervision tool for your SME Server.
+%define name smeserver-smeadmin
+Name: %{name}
+%define version 1.6
+%define release 15
+Version: %{version}
+Release: %{release}%{?dist}
+License: GPL
+Group: Networking/Daemons
+Source: %{name}-%{version}.tar.xz
+
+BuildRoot: /var/tmp/%{name}-%{version}-%{release}-buildroot
+BuildArchitectures: noarch
+
+BuildRequires: e-smith-devtools
+BuildRequires: gettext
+
+Requires: e-smith-base
+Requires: smeserver-release >= 10
+Requires: rrdtool-perl
+Requires: rrdtool
+Requires: hddtemp
+Requires: sysstat
+Requires: lm_sensors
+#Obsoletes: smeserver-sme8admin
+
+AutoReqProv: no
+%description
+The main part of smeadmin is a daemon which gathers informations from logs
+and other tools like systat, it then feed a mysql database and create RRD
+graphs about your system state.
+This daemon can also send periodics mails (with some logs), and alerts mails
+based on configurable thresolds.
+
+A panel is also available in the server-manager, with which you can access gathered
+data, display the RRD graphs and configure the service.
+
+This contrib is a bit inspired by e-smith-sysmon from Shad Lords.
+
+%prep
+%setup
+
+%build
+perl createlinks
+%{__mkdir_p} root/etc/e-smith/web/panels/manager/html/smeadmin
+%{__mkdir_p} root/usr/share/locale/en_US/LC_MESSAGES
+
+xgettext --from-code UTF-8 -F --no-wrap -L perl \
+ -o root/usr/share/locale/en_US/LC_MESSAGES/smeadmin.po \
+ root/etc/e-smith/web/functions/smeadmin \
+ root/usr/bin/smeadmind
+
+/sbin/e-smith/generate-lexicons
+
+%install
+rm -rf $RPM_BUILD_ROOT
+(cd root ; find . -depth -print | cpio -dump $RPM_BUILD_ROOT)
+rm -f %{name}-%{version}-filelist
+/sbin/e-smith/genfilelist $RPM_BUILD_ROOT \
+--file /usr/bin/smeadmind 'attr(755,root,root)' \
+--file /usr/share/doc/smeserver-smeadmin/add_ds_to_rrd.pl 'attr(755,root,root)' \
+ > %{name}-%{version}-filelist
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%pre
+
+%preun
+
+%post
+
+%postun
+
+%files -f %{name}-%{version}-filelist
+%defattr(-,root,root)
+
+%changelog
+* Sat Sep 07 2024 cvs2git.sh aka Brian Read