@@ -58,7 +58,7 @@
'title' => "$Lang::tr{'hardware graphs'}",
'enabled' => 1,
};
- $substatus->{'61.entropy'} = {
+ $substatus->{'62.entropy'} = {
'caption' => "$Lang::tr{'entropy'}",
'uri' => '/cgi-bin/entropy.cgi',
'title' => "$Lang::tr{'entropy graphs'}",
new file mode 100644
@@ -0,0 +1,16 @@
+etc/fcron.cyclic/update-squid-graph
+srv/web/ipfire/cgi-bin/sgraph.cgi
+srv/web/ipfire/html/sgraph
+srv/web/ipfire/html/sgraph/logo.png
+usr/bin/squid-graph
+usr/local/bin/update-squid-graph.sh
+var/ipfire/addon-lang/squid-graph.de.pl
+var/ipfire/addon-lang/squid-graph.en.pl
+var/ipfire/addon-lang/squid-graph.es.pl
+var/ipfire/addon-lang/squid-graph.fr.pl
+var/ipfire/addon-lang/squid-graph.it.pl
+var/ipfire/addon-lang/squid-graph.nl.pl
+var/ipfire/addon-lang/squid-graph.pl.pl
+var/ipfire/addon-lang/squid-graph.ru.pl
+var/ipfire/addon-lang/squid-graph.tr.pl
+var/ipfire/menu.d/EX-squid-graph.menu
@@ -1692,7 +1692,6 @@
'no filter pass' => 'Legen Sie hier die Standardklassen fest durch die nicht-gefilterte Pakete gehen.',
'no fritzdsl driver' => 'Kein Fritz!DSL-Treiber vorhanden. Bitte hochladen.',
'no hardware random number generator' => 'Dieses System hat keine Entropiequelle.',
-'no information available' => 'Keine Informationen verfügbar.',
'no log selected' => 'kein Protokoll ausgewählt',
'no modem selected' => 'Kein Modem ausgewählt',
'no set selected' => 'Es wurde kein Satz ausgewählt',
@@ -1934,7 +1933,6 @@
'proto' => 'Proto',
'protocol' => 'Protokoll:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Diagramme zur Proxyauslastung',
'proxy admin password' => 'Cache Administrator Passwort',
'proxy cachemgr' => 'Cachemanager aktivieren',
'proxy errmsg filedescriptors' => 'Ungültiger Anzahl Filedescriptoren',
@@ -2157,7 +2155,6 @@
'ssnetwork status' => 'Netzwerk-Status',
'sspasswords' => 'Passwörter',
'ssport forwarding' => 'Port-Weiterleitung',
-'ssproxy graphs' => 'Proxy-Diagramme',
'sssystem status' => 'System-Status',
'sstraffic' => 'Net-Traffic',
'sstraffic graphs' => 'Netzwerk-Diagramme',
@@ -1724,7 +1724,6 @@
'no filter pass' => 'Enter the standard class for non-filtered packets.',
'no fritzdsl driver' => 'No Fritz!DSL driver. Please upload.',
'no hardware random number generator' => 'This system has no source for entropy.',
-'no information available' => 'No information available.',
'no log selected' => 'No log selected',
'no modem selected' => 'No modem selected',
'no set selected' => 'No set was selected',
@@ -1970,7 +1969,6 @@
'proto' => 'Proto',
'protocol' => 'Protocol:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Proxy access graphs',
'proxy admin password' => 'Cache administrator password',
'proxy cachemgr' => 'Activate cachemanager',
'proxy errmsg filedescriptors' => 'Wrong amount of filedescriptors',
@@ -2199,7 +2197,6 @@
'ssnetwork status' => 'Network Status',
'sspasswords' => 'Passwords',
'ssport forwarding' => 'Port Forwarding',
-'ssproxy graphs' => 'Proxy Graphs',
'sssystem status' => 'System Status',
'sstraffic' => 'Net-Traffic',
'sstraffic graphs' => 'Traffic Graphs',
@@ -1256,7 +1256,6 @@
'no eciadsl synch.bin file' => 'No existe archi ECI ADSL synch.bin. Favor de cargarlo',
'no filter pass' => 'Introduzca la clase estándar para paquetes no filtrados.',
'no fritzdsl driver' => 'No hay drivers Fritz!DSL. Favor de cargarlos',
-'no information available' => 'No hay información disponible',
'no log selected' => 'No ha seleccionado registro log',
'no modem selected' => 'No ha seleccionado módem',
'no set selected' => 'Ningún conjunto se ha seleccionado',
@@ -1437,7 +1436,6 @@
'proto' => 'Proto',
'protocol' => 'Protocolo:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Gráficas de acceso al proxy',
'proxy admin password' => 'Password Administrador de Caché',
'proxy cachemgr' => 'Activar Cachemanager',
'proxy errmsg filedescriptors' => 'Cantidad incorrecta de descriptores de archivos',
@@ -1647,7 +1645,6 @@
'ssnetwork status' => 'Estado de la red',
'sspasswords' => 'Contraseñas',
'ssport forwarding' => 'Reenvío de puertos',
-'ssproxy graphs' => 'Gráficas de proxy',
'sssystem status' => 'Status del sistema',
'sstraffic' => 'Net-traffic',
'sstraffic graphs' => 'Gráficas de tráfico',
@@ -1247,7 +1247,6 @@
'no eciadsl synch.bin file' => 'aucunfichier ECI ADSL synch.bin. Veuillez le charger.',
'no filter pass' => 'Entrez la classe standard pour les paquets non filtrés.',
'no fritzdsl driver' => 'Aucun pilote Fritz!DSL. Veuillez le charger.',
-'no information available' => 'Aucune information disponible.',
'no log selected' => 'Aucun rapport sélectionné',
'no modem selected' => 'Aucun modem sélectionné',
'no set selected' => 'Aucun jeu sélectionné',
@@ -1443,7 +1442,6 @@
'proto' => 'Proto',
'protocol' => 'Protocole',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Graphiques des accès proxy',
'proxy admin password' => 'Mot de passe admnistrateur du Cache',
'proxy cachemgr' => 'Activer le gestionnaire de cache',
'proxy errmsg filedescriptors' => 'Mauvais montant de fichier descripteurs',
@@ -1652,7 +1650,6 @@
'ssnetwork status' => 'Statut réseau',
'sspasswords' => 'Mots de passe',
'ssport forwarding' => 'Transfert de port',
-'ssproxy graphs' => 'Graphiques du proxy',
'sssystem status' => 'Statut système',
'sstraffic' => 'Trafic réseau',
'sstraffic graphs' => 'Graphiques du trafic',
@@ -1592,7 +1592,6 @@
'no filter pass' => 'Enter the standard class for non-filtered packets.',
'no fritzdsl driver' => 'No Fritz!DSL driver. Please upload.',
'no hardware random number generator' => 'This system has no source for entropy.',
-'no information available' => 'No information available.',
'no log selected' => 'No log selected',
'no modem selected' => 'No modem selected',
'no set selected' => 'No set was selected',
@@ -1827,7 +1826,6 @@
'proto' => 'Proto',
'protocol' => 'Protocolo',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Proxy access graphs',
'proxy admin password' => 'Cache administrator password',
'proxy cachemgr' => 'Attiva cachemanager',
'proxy errmsg filedescriptors' => 'Wrong amount of filedescriptors',
@@ -2052,7 +2050,6 @@
'ssnetwork status' => 'Network Status',
'sspasswords' => 'Passwords',
'ssport forwarding' => 'Port Forwarding',
-'ssproxy graphs' => 'Proxy Graphs',
'sssystem status' => 'Stato del sistema',
'sstraffic' => 'Traffico di rete',
'sstraffic graphs' => 'Traffic Graphs',
@@ -1555,7 +1555,6 @@
'no filter pass' => 'Geef de standaard-klasse voor niet-gefilterde pakketten.',
'no fritzdsl driver' => 'Geen Fritz!DSL driver. Bestand uploaden a.u.b.',
'no hardware random number generator' => 'Dit systeem heeft geen mogelijkheden voor entropie.',
-'no information available' => 'Geen informatie beschikbaar.',
'no log selected' => 'Geen log geselecteerd',
'no modem selected' => 'Geen modem geselecteerd',
'no set selected' => 'Geen set geselecteerd',
@@ -1780,7 +1779,6 @@
'proto' => 'Proto',
'protocol' => 'Protocol:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Proxy toegangsgrafieken',
'proxy admin password' => 'Cache beheerder wachtwoord',
'proxy cachemgr' => 'Activeer cachebeheer',
'proxy errmsg filedescriptors' => 'Verkeerd aantal bestandsindicators',
@@ -2000,7 +1998,6 @@
'ssnetwork status' => 'Netwerkstatus',
'sspasswords' => 'Wachtwoorden',
'ssport forwarding' => 'Poort doorsturen',
-'ssproxy graphs' => 'Proxy grafieken',
'sssystem status' => 'Systeemstatus',
'sstraffic' => 'Netwerkgebruik',
'sstraffic graphs' => 'Verkeersgrafieken',
@@ -1255,7 +1255,6 @@
'no eciadsl synch.bin file' => 'Brak pliku ECI ADSL synch.bin. Proszę o jego wgranie.',
'no filter pass' => 'Proszę wprowadzić standardową klasę dla pakietów niefiltrowanych.',
'no fritzdsl driver' => 'Brak sterownika Fritz!DSL. Proszę o jego wgranie.',
-'no information available' => 'Brak dostępnych informacji.',
'no log selected' => 'Nie wybrano logu',
'no modem selected' => 'Nie wybrano modemu',
'no set selected' => 'Nie wybrano ustawienia',
@@ -1449,7 +1448,6 @@
'proto' => 'Proto',
'protocol' => 'Protokół:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Wykresy dostępu do Proxy',
'proxy admin password' => 'Hasło administratora Cache',
'proxy cachemgr' => 'Aktywuj cachemanager',
'proxy errmsg filedescriptors' => 'Niepoprawna wartość w polu filedescriptors',
@@ -1659,7 +1657,6 @@
'ssnetwork status' => 'Stan sieci',
'sspasswords' => 'Hasła',
'ssport forwarding' => 'Przekierowanie portów',
-'ssproxy graphs' => 'Wykresy Proxy',
'sssystem status' => 'Stan systemu',
'sstraffic' => 'Net-Traffic',
'sstraffic graphs' => 'Wykresy ruchu',
@@ -1247,7 +1247,6 @@
'no eciadsl synch.bin file' => 'No ECI ADSL synch.bin file. Please upload.',
'no filter pass' => 'Задайте стандартный класс для нефильтруемых пакетов.',
'no fritzdsl driver' => 'No Fritz!DSL driver. Please upload.',
-'no information available' => 'No information available.',
'no log selected' => 'No log selected',
'no modem selected' => 'No modem selected',
'no set selected' => 'No set was selected',
@@ -1444,7 +1443,6 @@
'proto' => 'Proto',
'protocol' => 'Протокол:',
'proxy' => 'Proxy',
-'proxy access graphs' => 'Proxy access graphs',
'proxy admin password' => 'Cache administrator password',
'proxy cachemgr' => 'Включить менеджер кэша',
'proxy errmsg filedescriptors' => 'Wrong amount of filedescriptors',
@@ -1654,7 +1652,6 @@
'ssnetwork status' => 'Статус сети',
'sspasswords' => 'Пароли',
'ssport forwarding' => 'Перенаправление портов',
-'ssproxy graphs' => 'Proxy Graphs',
'sssystem status' => 'Статус системы',
'sstraffic' => 'Сетевой трафик',
'sstraffic graphs' => 'Traffic Graphs',
@@ -1660,7 +1660,6 @@
'no filter pass' => 'Olmayan filtre paketleri için standart sınıfı girin.',
'no fritzdsl driver' => 'Fritz!DSL sürücüsü yok. Lütfen yükleyin.',
'no hardware random number generator' => 'Bu sistemin entropi için kaynağı yok.',
-'no information available' => 'Herhangi bir bilgi bulunmamaktadır.',
'no log selected' => 'Günlük seçilmedi',
'no modem selected' => 'Modem seçilmedi',
'no set selected' => 'Hiçbir ayar seçilmedi',
@@ -1902,7 +1901,6 @@
'proto' => 'Kural',
'protocol' => 'Kural ',
'proxy' => 'Vekil sunucu',
-'proxy access graphs' => 'Vekil sunucu erişim grafiği',
'proxy admin password' => 'Önbellek yönetici parolası',
'proxy cachemgr' => 'Önbellek yöneticisini aktifleştir',
'proxy errmsg filedescriptors' => 'Dosya tanimlayıcı sayısı yanlış miktarda',
@@ -2131,7 +2129,6 @@
'ssnetwork status' => 'Ağ Durumu',
'sspasswords' => 'Parola',
'ssport forwarding' => 'Bağlantı Noktası Yönlendirme',
-'ssproxy graphs' => 'Vekil Sunucu Grafikleri',
'sssystem status' => 'Sistem Durumu',
'sstraffic' => 'Ağ-Trafiği',
'sstraffic graphs' => 'Trafik Grafiği',
new file mode 100644
@@ -0,0 +1,90 @@
+###############################################################################
+# #
+# IPFire.org - A linux based firewall #
+# Copyright (C) 2007-2017 IPFire Team <info@ipfire.org> #
+# #
+# This program is free software: you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or #
+# (at your option) any later version. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with this program. If not, see <http://www.gnu.org/licenses/>. #
+# #
+###############################################################################
+
+###############################################################################
+# Definitions
+###############################################################################
+
+include Config
+
+VER = 3.2
+
+THISAPP = squid-graph-$(VER)
+DIR_APP = $(DIR_SRC)/$(THISAPP)
+TARGET = $(DIR_INFO)/$(THISAPP)
+PROG = squid-graph
+PAK_VER = 1
+
+DEPS = ""
+
+###############################################################################
+# Top-level Rules
+###############################################################################
+
+install : $(TARGET)
+
+check :
+
+download :
+
+md5 :
+
+dist:
+ @$(PAK)
+
+###############################################################################
+# Installation Details
+###############################################################################
+
+$(TARGET) : $(patsubst %,$(DIR_DL)/%,$(objects))
+ @$(PREBUILD)
+ @rm -rf $(DIR_APP) && mkdir $(DIR_APP) && cp -R $(DIR_SRC)/src/squid-graph/ $(DIR_APP)
+ cd $(DIR_APP)
+
+# Install GUI
+ install -v -m 755 $(DIR_APP)/squid-graph/sgraph.cgi \
+ /srv/web/ipfire/cgi-bin/sgraph.cgi
+
+# Create sgraph dir, install logo.png
+ -mkdir -p /srv/web/ipfire/html/sgraph
+ install -v -m 644 $(DIR_APP)/squid-graph/logo.png \
+ /srv/web/ipfire/html/sgraph/logo.png
+
+# Install main program
+ install -v -m 755 $(DIR_APP)/squid-graph/squid-graph \
+ /usr/bin/squid-graph
+
+# Install update script
+ install -v -m 755 $(DIR_APP)/squid-graph/update-squid-graph.sh \
+ /usr/local/bin/update-squid-graph.sh
+
+# Create symlink for five-minute-update-interval
+ ln -sf /usr/local/bin/update-squid-graph.sh /etc/fcron.cyclic/update-squid-graph
+
+# Install language files
+ install -v -m 004 $(DIR_APP)/squid-graph/squid-graph.*.pl \
+ /var/ipfire/addon-lang/
+
+# Install menu entry
+ install -v -m 644 $(DIR_APP)/squid-graph/EX-squid-graph.menu \
+ /var/ipfire/menu.d/EX-squid-graph.menu
+
+ @rm -rf $(DIR_APP)
+ @$(POSTBUILD)
@@ -877,6 +877,7 @@ buildipfire() {
lfsmake2 perl-Net-IP
lfsmake2 wio
lfsmake2 iftop
+ lfsmake2 squid-graph
}
buildinstaller() {
new file mode 100644
@@ -0,0 +1,31 @@
+#!/bin/bash
+############################################################################
+# #
+# This file is part of the IPFire Firewall. #
+# #
+# IPFire is free software; you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation; either version 2 of the License, or #
+# (at your option) any later version. #
+# #
+# IPFire is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with IPFire; if not, write to the Free Software #
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
+# #
+# Copyright (C) 2007 IPFire-Team <info@ipfire.org>. #
+# #
+############################################################################
+#
+. /opt/pakfire/lib/functions.sh
+
+extract_files
+
+# Update language-cache
+/usr/local/bin/update-lang-cache
+
+chown nobody.nobody /var/ipfire/menu.d/EX-squid-graph.menu
new file mode 100644
@@ -0,0 +1,28 @@
+#!/bin/bash
+############################################################################
+# #
+# This file is part of the IPFire Firewall. #
+# #
+# IPFire is free software; you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation; either version 2 of the License, or #
+# (at your option) any later version. #
+# #
+# IPFire is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with IPFire; if not, write to the Free Software #
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
+# #
+# Copyright (C) 2007 IPFire-Team <info@ipfire.org>. #
+# #
+############################################################################
+#
+. /opt/pakfire/lib/functions.sh
+
+remove_files
+
+/usr/local/bin/update-lang-cache
new file mode 100644
@@ -0,0 +1,26 @@
+#!/bin/bash
+############################################################################
+# #
+# This file is part of the IPFire Firewall. #
+# #
+# IPFire is free software; you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation; either version 2 of the License, or #
+# (at your option) any later version. #
+# #
+# IPFire is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with IPFire; if not, write to the Free Software #
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
+# #
+# Copyright (C) 2007 IPFire-Team <info@ipfire.org>. #
+# #
+############################################################################
+#
+. /opt/pakfire/lib/functions.sh
+./uninstall.sh
+./install.sh
new file mode 100644
@@ -0,0 +1,6 @@
+ $substatus->{'61.squid-graph'} = {
+ 'caption' => "$Lang::tr{'ssproxy graphs'}",
+ 'uri' => '/cgi-bin/sgraph.cgi',
+ 'title' => "$Lang::tr{'ssproxy graphs'}",
+ 'enabled' => 1,
+ };
new file mode 100644
GIT binary patch
literal 3933
zcmW+(c|6qX_y5dh7&G>4S;mqpiNRzd%V!Xiec!$<Lw04!5-Da7*$0(Dm>VVgG+B~j
zgl5W~BE>~Yii^@>_nZ6s=Xsv<$9cWZ>pADVmkdXHD-22&1pol%6v@IF03e#Yw>m$R
zclK{OQg|0UkZ4B)fF>>hk@=Mu%S4~_jCKhRh`#J|$sZv4h5PzrPhIp0^mq36@r#dq
z>2Cx8LaV1Nh^}$(eaX^@O0oo69pJ}WVzvH|WiU6Ka40@_^vVWI1RPoRSTHFOw(3@A
z5EkEWB1urV$XF1V4b>ntdLE|+;pJ{10SMk3k_!!i+K)NAzXj7wXZAb0)_3E^y0jgv
ze06%2dY3xB?ax$H5a76-Z97L}5Xc!%t)v)IG91bYamcLf=^_lIVq$Y=J0e~Cn{;)I
zxXQs9k{~LKBhaO|ytBW3q~nUZ&Nm432Eu`UNqT{KcpEAMuIyJRCYc)i++JCzn2?-z
z8rC?^(X35BXWZegS?WH}6lxP8(|3?1PD(sGFEj_md}6KcZEwA9OS#8YV|?BE^Hs@l
zu&JYzivHLmxJYI=fdvf0L+{KB#~cM6Pq-r(G^gK)SBaByX`Fug>~NuZQn?(TVaD=E
zr7+n=U^cdRYkoO(wYoz|8GMn~A7yYf6j9I!>r1**@ne7ZPd*Jc`No_Y{I!3`FF*;S
zkk@Y7q^<G*fu%45&B(T}F=Lezrm9ZKm!K6!IP+whI~sTB?|b@>uV70VSJX@l$anWs
zZZdIteAd4Mq(CW1DaB2DM23BJBgR9caffnWnr=KBFFZL3es>6+!j<JT9SU$-kE}5m
zR|bM)RSRKue1>_9qS0RJ=D$mg_#b9@3wGN2CR&_C$;cjuy3>1|9l4sn_BkEl+k#2u
z6|aK5I292x?+kb2V@7e|LJ=8}ldVZ-=OGua?_G=9oS7(M8*MHvgzP*4p!_y!@P$L9
zT<EwF8;ZX7Y_0<(%>ljQN+_Seur@Eo^HmGM2kewXr%4z-*I_A^;8CIr0%+JyynA2>
z;muL56|Q;aRT!2?ug;yZWRz01kP9*lLcSi~NGTWy!*qYUfVcVkdId`xhlI)lc=1Q5
z<YqNWv7EHTa+-mso)Y|NDLbR4=)*<*kuvs{h{sz3O$AjDU{s!!XgakXTzsrCb7eLC
z#JN_EPS)b3$yUhuFCXSK7+b_QN$2O!PvpY%{iNxW>X)V4mTbu_!asFWx96uU7)=5J
zW)#5pxi<zHg~h$fkHS`s{*sw0Nmd8#S+w86xESTXycirxG8>PyEo0-Ymqt?Y{L~mx
z8r(3CbNPTmAE*sp!a5pzHv%YVUD%CB)Q}qwWgkcvoS7T+zL^czhtuCu)y}(7X8gzv
zLNzu>ui{};{Y>1`qHEKoFbjBT2|HwN{mMDA5M0f=b1j8Ebz;^8xGgv}<U(=7GpD(1
zF4uns@vYk#*C;qJkiC4B+s;R?+uz?C(pXJCrvd^xJ`Dm&!J?sGkU>bMV|ul!eO3tL
z3VC<!pcPEuwQgz~XAz*hlrK=kK68<?<Ag9jypDK#+q9b~u*?+=K0I=VH=<^;%|TRw
z`ax`&CFv)vqzvm1SLi}>rP1dW6(j}59Qx}?wZ@c8Q!SnCcz-SC-ly+gLz)a-Y#)+|
z?3ZdS;)Kr4Tqc-kjUXhIyA&1S?hCeZW>=l8im&5e3X0n=Ei`q!)_ET~C}+93@r#Eg
z;^P_!XAg2t99axG9xifh_IH8e<1rT8;oDBkW$`NilNBJ}d;Z||IhN?6Hkk&|dl5cm
ze1svvj3m8Y<72L(G^!I5!MaPtL9vM6DSm$`hfWX$DW8qc_5RHR1xRRX(#+X>A1E_$
z!-u+3!9m9N{Dy89X3LpHFEJxaJWy3rK4aNiiLBjuWfjNOuM>X-u{PJ`=?A+MLqB5P
z4>XqA+MEB3COlQjJiUU8%zE_d{rsq)2&n0qb(X9EyYITUSUCIrg<TLVn%l1E`5NY;
zw+A`Jh&}C95^LuY5irJC31l8Gmm>|)=`8J$6q>B?MG{~6E`<g1IUd5{Z>-J|b&r-j
zWYenG0d&=N@4xzmUZmZ1S>a|K>4NUA8B?vHjreOa>A@M`^UsP!U-phq!-j?5taey?
zMJ@(1x$pO%K3N+>oiKX&YoZL3R4zXsTOoMC99nlwxeT7+-@I~A4oJw5Q#-_dC0P_p
z0iK%}qL$}?gh;TGIBnp$K+T(0NjuB7YwAk95633n|6i0un99@nOs81xTu8WhuD#3&
zd%*#@MI>6C%)Dw@My0s6vv*)^ON8U%tl&P8LIEWM%<Ip5`Wrgi%|8dIYzu*9;_lP-
zZ~d*uebpElA&+*pe(nZM4`=Bq^;DbMx5A=STF`+&(=^2W3N7T{FMTrSE?0}|*+J|7
zq24m84nCYT)!x*h$KTpUER1@AsBkx!uip%BT);KKV~JGx^YtizM*|*NLhqL0mPWYv
zhunA2IwA5Es2ab!qgXw}8uL8gP@_su=ET6JVY8?W2}|aaVoJc3o3nGgKxhv}*B6a;
zXnuv^PepakfBSqlM`4$5P*LIe==8nc($Ycb`?t@W*jpO%^G09T+x{UzH>T{G+m{9;
z_AIYjg;3v$etzaYa=iVD^ho#2Z>gR5#7tN5&We@2-A`EFG-_V%R1AONf(H)XWwa3E
zUPY5zl34O|Co1HIn*x^N$sgN@-NYENXOYDd3$dk$ua3kmQ(C7;Csg3Hiqo~sWJXTh
z4#GWU<pSd}?ZX4l4+-p%jq7h9d@-D(wN%x|YC9Ai)p=x%u+lt;`(O&(qnv`rmmteq
zMvw{Ra?hXa0P490E@oM_T+OPN|LRELv!8-Rv4bc1xVA5DlO#{+X?29zXKAnkbt%X6
z(~0_z9*+*MyO<o+In*?P!hHHtZK9<E!+c3w*<=|DO`vf-6|3+srqo+X%vO$@3~yf_
zhFZ<Z6!7q_iioh)VKx>i_<1Wjhzm{CwUgRx`5%gUoPk8@2PmWr)XX*&;nJfh*8&vQ
zejcvMp-fp`zlrcnH>a{@-r0;obB6j)^Ix`#DQvGV?S%X<o9(WA2Ea`xc?S>Q7i0U+
z{90XiA-ng!P3>83Vuf-bDO;-?B>VQ4rX1><5L^-uGiB^{6It>{<tQzL2TD%{GPx$W
z##bUdhRx1}iYtoD)!Jgu|5+1Ks49jZ{xSLuLi#Q&Q<+`|ub#Jxv$Vs`6F$Yfqotps
zUF@xopwuY7_NjbD)~vEOFHNJ?N2Z|FDwW7#=@W%1;<(5Rh>c`y!{faE`o-I@d@Cyx
zE#0k{&|~53E9CQe8CJ6A&g9^y|HPZmerZv-*%qKP4O{*JF;C$H8u%X86hG3oJr$mQ
zB%}U9(%Ev3#>Jes+5n_CH75Ed<PXVEwX9oDK-B@dZ4e|-!lN~2z-*q0Kz_1EDdV-!
z=|dmSJ@|#J?6NST`0+7fk|GcOnBVbZsszqudpp0lq|{T6CKW2vbPkZtiQ*a8GqFc^
zh=l#zH+Sc=40iua=Qz}zQP;#AhOqS&n3$c_9{D}Gi)Vl?-IFIzM(=N{%RlNn*vB3L
z?yGk`sHENEyYm9Ui2JKqmap9z;g<GJS)TWw{$>$k)TTNMn-W^LVO$qKy^8V`?b*0~
zec58jgDnf_4nqb8)}BEB`Ih2}pvME9tqX*emNOe2^PnD83x4z#pEka`OrRQ=2BLAy
zr=0qAYS@C{<jI1!BFG+dw7%X$frKB>bevy(sH4BBrKCN15pv|VcBy%nVngLe@KA9>
zw&_e4Z^@XT6n7!-#Bi`TDq6|+iNjHes3&=8voqn081`>fCiGKtn6KN<jVE1{X5Y_0
zjPwW92mXH`hQ$+2N1+2~+Esp83PdVhlSw6#WzANkAnONl@-T6&aIQV~sj{jmd&!ca
z>8SF9qJc{XTnu<hP_AyXH@g$s@(6p#SJLU)hIhqqY0uur1{-So&oNm7;~=>EVL)oO
zW;AO}7VVr5wNvSQhWdGo(4)!a$2e+NS@#}`gr8+IW&UYVP&J@=kqSA1UwIVCW6(;g
z5;c<}$x_Mt$ESOE3QQ`JmTz-sHd^swLPLN3q$|t>B6#?90==tI8>Y=@u#iOZW0zri
zGY-vr@t5d5cV(Lwq-)NgY|pZHGA1XW?$PX8fOSL0q>0})1ndLFTpvFf^v!>GeIgx<
z!n)+sibFqHE9#Cr_&rO%a|&y&7N`F|pM}&sn?b6)$H)SfTuyCKRWf&E7a(+9tgjA>
zn27EppVkXUeN<>@hd80V{0OrGWj&86J&)HubY88!{NRDRFf~vYJi|)rLdJSX;I#9f
z$$#QZCU!nJ&z3#VPKWVh7l{sWLv$*km~zb^`6a?L0UWQ~+1`Yd!<8CLPCv?uSl<`(
zjyLa#<R@eJzAh;nB%}i5C82knP_?krm1~uhCzSry-I=x`(;<5@P@yx{J}(RcqUCq7
zHP7HP^z;B|V@@pk%~=!6*tP_}`=%p)6!T#o+02zjT0t5h%)dE`QK)yOsUB&(jWcU=
zHIdy)i9n~h{qwnhTwPc4W;WFN{oAgURq}*gvTGU$h=7%W1KAdA&Aa_lF%sO3$J_`!
zQV8^qW0jekrcg5uJV)>|M#si2m4SvkCgb=Z4mr&jXc+yF5C6i0#~^Z=l3BXa=>&X`
z<$spRGyaxO-vJ6BdoedR*$Kx6uoO$ZIdy3S49!#032HlvOlTp-4-{cZl<=1*1vz`>
z^xYHl5-Fs*VH7yCf1vJGzW%dqP#09)l^re40c#6GzyT{>Q$V)OFH^OIxbq5rhYXM=
zSO7hu_R3l3-O`R71A9j$$hDkWvAmZ-LhMgs(PBg^vF3czFV8_vZ4v3i_d3;o43iZ&
z6##8rTB}P$v8s|+m*<*={<y2n)y!^hIkDo78+gp1@kSZ)VM&#Q!wImUKO+x1;Q0K&
zEd0n3BiT`FH~b%TIjEq)%OsWF#UA$4v9W6&0Mp(E$vzw(cvH&>LXF(9zEvXPpzf1{
z@MS4?kHg1HBAN}X#duCr(s`buab50`k&`pgC!}}A%+iM7+3;djA=&<<JD9fVTCaC%
zP}-uzHameEwwi7GUtiW!(Um+Z#gPFc2Yz1cBB4rn^q(=+0(dR4J&v;M24Fl1Pjt=V
p8QSb*D$gq8GkI;0CIcd5;BV1iMZbf;|7WCuQzz{$8qLVb{|7ra_8|ZO
literal 0
HcmV?d00001
new file mode 100644
@@ -0,0 +1,72 @@
+#!/usr/bin/perl
+###############################################################################
+# #
+# IPFire.org - A linux based firewall #
+# Copyright (C) 2017 IPFire Team <info@ipfire.org> #
+# #
+# This program is free software: you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or #
+# (at your option) any later version. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with this program. If not, see <http://www.gnu.org/licenses/>. #
+# #
+###############################################################################
+
+use strict;
+
+# enable only the following on debugging purpose
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
+
+require '/var/ipfire/general-functions.pl';
+require "${General::swroot}/lang.pl";
+require "${General::swroot}/header.pl";
+
+my @graphs = ();
+
+&Header::showhttpheaders();
+
+my $dir = "/srv/web/ipfire/html/sgraph";
+my $sgraphdir = "/srv/web/ipfire/html/sgraph";
+
+&Header::openpage($Lang::tr{'ssproxy graphs'}, 1, '');
+
+&Header::openbigbox('100%', 'left');
+
+&Header::openbox('100%', 'left', $Lang::tr{'proxy access graphs'} . ":" );
+
+if (open(IPACHTML, "$sgraphdir/index.html"))
+{
+ my $skip = 1;
+ while (<IPACHTML>)
+ {
+ $skip = 1 if /^<HR>$/;
+ if ($skip)
+ {
+ $skip = 0 if /<H1>/;
+ next;
+ }
+ s/<IMG SRC=([^"'>]+)>/<img src='\/sgraph\/$1' alt='Graph' \/>/;
+ s/<HR>/<hr \/>/g;
+ s/<BR>/<br \/>/g;
+ s/<([^>]*)>/\L<$1>\E/g;
+ s/(size|align|border|color)=([^'"> ]+)/$1='$2'/g;
+ print;
+ }
+ close(IPACHTML);
+}
+else {
+ print $Lang::tr{'no information available'}; }
+
+&Header::closebox();
+
+&Header::closebigbox();
+
+&Header::closepage();
new file mode 100644
@@ -0,0 +1,1280 @@
+#!/usr/bin/perl
+
+#####################################################################
+#
+# Squid Graph version 3.2
+# http://squid-graph.sourceforge.net
+#
+# This program is distributed under the GNU General Public License
+# See gpl.txt for full license information
+#
+#####################################################################
+
+use strict;
+use GD;
+
+require '/var/ipfire/general-functions.pl';
+require "${General::swroot}/lang.pl";
+#require "${General::swroot}/header.pl";
+
+
+# Program version (DO NOT TOUCH THIS)
+my $VER = "3.2 release";
+
+# Enable console logging? (1 = on, 0 = off)
+my $CONSOLELOG = 0;
+
+# "Global" variables (DO NOT TOUCH THESE)
+my %config; # configuration details here
+my %color; # colours configuration
+
+# Define graph colours [RRR,GGG,BBB]
+$color{'bg'} = ['F5','F5','F5']; # graph background color
+$color{'fg'} = ['00','00','00']; # graph foreground color
+$color{'gr'} = ['33','33','99']; # graph total line color
+$color{'hit'} = ['99','33','33']; # graph hit line color
+$color{'miss'} = ['33','99','33']; # graph miss line color
+$color{'ims'} = ['99','33','99']; # graph ims hit line color
+$color{'hbg'} = ['FF','FF','FF']; # html report background color
+
+############ DO NOT EDIT ANYTHING BELOW THIS LINE ##############
+
+# Forward subroutine declaration
+sub main(); # main program body
+sub error($); # error(string: $msg);
+sub warning($); # warning(string: $msg);
+sub console_log($); # console_log(string: $msg);
+sub parse_argv(); # requires defined %config
+sub config_check(); # requires defined %config
+sub create_gd(); # returns $imgAccess, $graphAccess;
+sub write_img($$); # write image to file
+sub plot($$\$\@\@\@\@); # plot($type,$gdimg,@totalData,@hitData,@missData,$imsData);
+sub hr_units($); # hr_units(int: $num);
+sub hr_bytes($); # hr_bytes(int: $num);
+sub hr_digits($$); # hr_digits(int: $num, char: $units);
+sub dec_truncate($$); # dec_truncate($num,$decplaces);
+sub comma_sep($); # comma_sep($num);
+sub help(); # help(string: $helpCmd);
+
+# Parse and check arguments
+parse_argv();
+if (config_check()) {
+ main();
+}
+else {
+ error("Configuration check failed.");
+}
+
+# Main subroutine
+sub main() {
+
+ #
+ # NOTES
+ #
+ # Graph stats: Total, Hit, Miss, IMS/Err
+ # TCP, UDP
+ # Access, Transfer
+ #
+
+ my ($have_tcp, $have_udp) = (0,0);
+ my $have_cumulative = 0;
+ my $have_transfer = 1;
+ my $logStart = 0;
+ my $title = "Squid Graph Logfile Analysis Report";
+ my $graphLength = 60*60*24; # Graph is 24 hours long
+ my $progStart = $^T;
+ my $progSpeed = 0;
+ my $duration = 0;
+ my $lineCounter = 0;
+ my $errorLines = 0;
+
+ # Statistics data
+ my @tcpAccessTotal;
+ my @tcpAccessHit;
+ my @tcpAccessMiss;
+ my @tcpAccessIMS;
+ my @tcpTransferTotal;
+ my @tcpTransferHit;
+ my @tcpTransferMiss;
+ my @tcpTransferIMS;
+ my @tcpTimeTotal;
+ my @tcpTimeHit;
+ my @tcpTimeMiss;
+ my @tcpTimeIMS;
+ my @udpAccessTotal;
+ my @udpAccessHit;
+ my @udpAccessMiss;
+ my @udpTransferTotal;
+ my @udpTransferHit;
+ my @udpTransferMiss;
+ my @udpTimeTotal;
+ my @udpTimeHit;
+ my @udpTimeMiss;
+
+ # Image objects
+ my ($tcpAccessImg, $tcpTransferImg, $tcpTimeImg);
+ my ($udpAccessImg, $udpTransferImg, $udpTimeImg);
+
+ # Stats counter
+ my $i = 0;
+
+ console_log("Squid-graph $VER OK. Program started.");
+ console_log("Graph domain is $graphLength seconds.");
+
+ # Report title specified
+ if (exists $config{'title'}) {
+ $title = $config{'title'};
+ }
+ console_log("Setting report title to \"$title\".");
+
+ # Determine if cumulative graps were configured
+ if (exists $config{'cumulative'}) {
+ console_log("Configured for cumulative curves.");
+ $have_cumulative = 1;
+ }
+ else {
+ console_log("Configured for default histograms.");
+ }
+
+ # Determine if TCP or UDP configured
+ if (exists $config{'tcp-only'}) {
+ console_log('Configured have_tcp.');
+ ($have_tcp, $have_udp) = (1,0);
+ }
+ elsif (exists $config{'udp-only'}) {
+ console_log('Configured have_udp.');
+ ($have_tcp, $have_udp) = (0,1);
+ }
+ else {
+ console_log('Configured have_tcp and have_udp.');
+ ($have_tcp, $have_udp) = (1,1);
+ }
+
+ # Determine have_transfer
+ if (exists $config{'no-transfer-duration'}) {
+ console_log("Transfer duration graph(s) disabled.");
+ $have_transfer = 0;
+ }
+ elsif ($have_cumulative) {
+ console_log("Transfer duration graph(s) automatically disabled.");
+ $have_transfer = 0;
+ }
+ else {
+ console_log("Transfer duration graph(s) enabled.");
+ }
+
+ # Was --start or --end specified?
+ if (exists $config{'start'}) {
+ $logStart = $config{'start'};
+ }
+ elsif (exists $config{'end'}) {
+ $logStart = $config{'end'} - $graphLength;
+ }
+ else {
+ $logStart = time() - $graphLength;
+ }
+ console_log("Configured start time to $logStart.");
+
+ # Are we ready?
+ console_log("Reading STDIN for logfile input.");
+
+ foreach (<STDIN>) {
+ # Increment line counter
+ $lineCounter++;
+
+ # Activity log
+ #console_log("Read $lineCounter lines from STDIN.") if ($lineCounter%80000 == 0);
+
+ # Split the line
+ my @logParts = split(' ');
+
+ # Check if lines are erroneous, i.e. incorrect number of parts
+ if ($#logParts != 9) {
+ $errorLines++;
+ console_log("Invalid log data at line $lineCounter. Error #$errorLines.");
+ }
+
+ # Skip irrelevant lines
+ elsif (($logParts[0] >= $logStart) && ($i < 288)) {
+
+ # Gets the x value correct
+ while ($logStart + (300 * ($i + 1)) < $logParts[0]) { $i++; }
+
+ # Declare vars
+ my $isTCP = 0;
+ my $isUDP = 0;
+ my $isHit = 0;
+ my $isMiss = 0;
+
+ # Is this a hit or miss?
+ $isHit = 1 if ($logParts[3] =~ /HIT/);
+ $isMiss = 1 if ($logParts[3] =~ /MISS/);
+
+ # Protocol check
+ if ($logParts[3] =~ /TCP/) { $isTCP = 1 if ($have_tcp); }
+ elsif ($logParts[3] =~ /UDP/) { $isUDP = 1 if ($have_udp); }
+
+ # Unknown protocol? Can't be!
+ else {
+ $errorLines++;
+ console_log("Invalid log data at line $lineCounter. Error #$errorLines.");
+ }
+
+ # Collect data
+ if ($isTCP) {
+ $tcpAccessTotal[$i]++;
+ $tcpTransferTotal[$i] += $logParts[4];
+ $tcpTimeTotal[$i] += $logParts[1]/1000;
+ if ($isHit) {
+ $tcpAccessHit[$i]++;
+ $tcpTransferHit[$i] += $logParts[4];
+ $tcpTimeHit[$i] += $logParts[1]/1000;
+ if ($logParts[3] =~ /IMS/) {
+ $tcpAccessIMS[$i]++;
+ $tcpTransferIMS[$i] += $logParts[4];
+ }
+ }
+ elsif ($isMiss) {
+ $tcpAccessMiss[$i]++;
+ $tcpTransferMiss[$i] += $logParts[4];
+ $tcpTimeMiss[$i] += $logParts[1]/1000;
+ }
+ }
+ elsif ($isUDP) {
+ $udpAccessTotal[$i]++;
+ $udpTransferTotal[$i] += $logParts[4];
+ $udpTimeTotal[$i] += $logParts[1]/1000;
+ if ($isHit) {
+ $udpAccessHit[$i]++;
+ $udpTransferHit[$i] += $logParts[4];
+ $udpTimeHit[$i] += $logParts[1]/1000;
+ }
+ elsif ($isMiss) {
+ $udpAccessMiss[$i]++;
+ $udpTransferMiss[$i] += $logParts[4];
+ $udpTimeMiss[$i] += $logParts[1]/1000;
+ }
+ }
+
+ # Undefine vars
+ undef $isTCP;
+ undef $isUDP;
+ undef $isHit;
+ undef $isMiss;
+ }
+
+ undef @logParts;
+ }
+
+ # Calculate transfer duration averages
+ if ($have_transfer) {
+ # Activity log
+ console_log("Calculating averages for TCP/UDP transfer duration.");
+
+ # Start looping
+ my $i;
+ for ($i = 0; $i < 288; $i++) {
+ if ($have_tcp) {
+ $tcpTimeTotal[$i] = ($tcpAccessTotal[$i] == 0)?0:$tcpTimeTotal[$i]/$tcpAccessTotal[$i];
+ $tcpTimeHit[$i] = ($tcpAccessHit[$i] == 0)?0:$tcpTimeHit[$i]/$tcpAccessHit[$i];
+ $tcpTimeMiss[$i] = ($tcpAccessMiss[$i] == 0)?0:$tcpTimeMiss[$i]/$tcpAccessMiss[$i];
+ }
+ if ($have_udp) {
+ $udpTimeTotal[$i] = ($udpAccessTotal[$i] == 0)?0:$udpTimeTotal[$i]/$udpAccessTotal[$i];
+ $udpTimeHit[$i] = ($udpAccessHit[$i] == 0)?0:$udpTimeHit[$i]/$udpAccessHit[$i];
+ $udpTimeMiss[$i] = ($udpAccessMiss[$i] == 0)?0:$udpTimeMiss[$i]/$udpAccessMiss[$i];
+ }
+ }
+ undef $i;
+ }
+
+ # Cumulate the data
+ if ($have_cumulative) {
+ # Activity log
+ console_log("Cumulating log data for TCP/UDP graphs.");
+
+ # Start looping
+ my $i;
+ for ($i = 0; $i < 288; $i++) {
+ if ($have_tcp) {
+ $tcpAccessTotal[$i + 1] += $tcpAccessTotal[$i];
+ $tcpAccessHit[$i + 1] += $tcpAccessHit[$i];
+ $tcpAccessMiss[$i + 1] += $tcpAccessMiss[$i];
+ $tcpAccessIMS[$i + 1] += $tcpAccessIMS[$i];
+ $tcpTransferTotal[$i + 1] += $tcpTransferTotal[$i];
+ $tcpTransferHit[$i + 1] += $tcpTransferHit[$i];
+ $tcpTransferMiss[$i + 1] += $tcpTransferMiss[$i];
+ $tcpTransferIMS[$i + 1] += $tcpTransferIMS[$i];
+ }
+ if ($have_udp) {
+ $udpAccessTotal[$i + 1] += $udpAccessTotal[$i];
+ $udpAccessHit[$i + 1] += $udpAccessHit[$i];
+ $udpAccessMiss[$i + 1] += $udpAccessMiss[$i];
+ $udpTransferTotal[$i + 1] += $udpTransferTotal[$i];
+ $udpTransferHit[$i + 1] += $udpTransferHit[$i];
+ $udpTransferMiss[$i + 1] += $udpTransferMiss[$i];
+ }
+ }
+ undef $i;
+ }
+
+ # Done parsing, now calculate some stats
+ $duration = time() - $progStart;
+ $duration = 1 if ($duration <= 0);
+ $progSpeed = dec_truncate($lineCounter/$duration,2);
+
+ # Do some console logging
+ console_log("Done reading $lineCounter lines from logfile on STDIN. ($errorLines $Lang::tr{'errors'})");
+ console_log("Analysis duration is $duration seconds, $progSpeed lines/sec.");
+
+ # Create image objects
+ if ($have_tcp) {
+ console_log('Creating TCP image objects.');
+ $tcpAccessImg = create_gd();
+ $tcpTransferImg = create_gd();
+ $tcpTimeImg = create_gd() if ($have_transfer);
+ }
+ if ($have_udp) {
+ console_log('Creating UDP image objects.');
+ $udpAccessImg = create_gd();
+ $udpTransferImg = create_gd();
+ $udpTimeImg = create_gd() if ($have_transfer);
+ }
+
+ # Plot the graphs
+ my $c;
+ my @nullArr;
+ $c = 'C' if ($have_cumulative);
+ if ($have_tcp) {
+ console_log("Plotting graph of TCP accesses.");
+ plot("TA$c", $logStart, $tcpAccessImg,@tcpAccessTotal,@tcpAccessHit,@tcpAccessMiss,@tcpAccessIMS);
+ console_log("Plotting graph of TCP transfers.");
+ plot("TX$c", $logStart, $tcpTransferImg,@tcpTransferTotal,@tcpTransferHit,@tcpTransferMiss,@tcpAccessIMS);
+ if ($have_transfer) {
+ console_log("Plotting graph of TCP transfer duration.");
+ plot("TD", $logStart, $tcpTimeImg,@tcpTimeTotal,@tcpTimeHit,@tcpTimeMiss,@nullArr);
+ }
+ }
+ if ($have_udp) {
+ console_log("Plotting graph of UDP accesses.");
+ plot("UA$c", $logStart, $udpAccessImg,@udpAccessTotal,@udpAccessHit,@udpTransferMiss,@nullArr);
+ console_log("Plotting graph of UDP transfers.");
+ plot("UX$c", $logStart, $udpTransferImg,@udpTransferTotal,@udpTransferHit,@udpTransferMiss,@nullArr);
+ if ($have_transfer) {
+ console_log("Plotting graph of UDP transfer duration.");
+ plot("UD", $logStart, $udpTimeImg,@udpTimeTotal,@udpTimeHit,@udpTimeMiss,@nullArr);
+ }
+ }
+ undef @nullArr;
+ undef $c;
+
+ # Graph plotted! Now we save it
+ if ($have_tcp) {
+ write_img($tcpAccessImg,'tcp-access.png');
+ write_img($tcpTransferImg,'tcp-transfer.png');
+ write_img($tcpTimeImg,'tcp-duration.png') if ($have_transfer);
+ }
+ if ($have_udp) {
+ write_img($udpAccessImg,'udp-access.png');
+ write_img($udpTransferImg,'udp-transfer.png');
+ write_img($udpTimeImg,'udp-duration.png') if ($have_transfer);
+ }
+
+ # Time to gather additional statistics which are not on the graph :)
+ console_log("Gathering additional statistics.");
+
+ my $tcpAccessTotals = 0;
+ my $tcpAccessAverage = 0;
+
+ my $tcpAccessMissTotals = 0;
+ my $tcpAccessMissPercentage = 0;
+ my $tcpAccessMissAverage = 0;
+
+ my $tcpAccessHitTotals = 0;
+ my $tcpAccessHitPercentage = 0;
+ my $tcpAccessHitAverage = 0;
+
+ my $tcpAccessIMSTotals = 0;
+ my $tcpAccessIMSPercentage = 0;
+ my $tcpAccessIMSAverage = 0;
+
+ my $tcpTransferTotals = 0;
+ my $tcpTransferAverage = 0;
+
+ my $tcpTransferHitTotals = 0;
+ my $tcpTransferHitPercentage = 0;
+ my $tcpTransferHitAverage = 0;
+
+ my $tcpTransferMissTotals = 0;
+ my $tcpTransferMissPercentage = 0;
+ my $tcpTransferMissAverage = 0;
+
+ my $tcpTransferIMSTotals = 0;
+ my $tcpTransferIMSPercentage = 0;
+ my $tcpTransferIMSAverage = 0;
+
+ my $tcpTimeTotals = 0;
+ my $tcpTimeAverage = 0;
+ my $tcpTimeHitTotals = 0;
+ my $tcpTimeHitAverage = 0;
+ my $tcpTimeMissTotals = 0;
+ my $tcpTimeMissAverage = 0;
+
+ my $udpAccessTotals = 0;
+ my $udpAccessAverage = 0;
+
+ my $udpAccessMissTotals = 0;
+ my $udpAccessMissPercentage = 0;
+ my $udpAccessMissAverage = 0;
+
+ my $udpAccessHitTotals = 0;
+ my $udpAccessHitPercentage = 0;
+ my $udpAccessHitAverage = 0;
+
+ my $udpTransferTotals = 0;
+ my $udpTransferAverage = 0;
+
+ my $udpTransferMissTotals = 0;
+ my $udpTransferMissPercentage = 0;
+ my $udpTransferMissAverage = 0;
+
+ my $udpTransferHitTotals = 0;
+ my $udpTransferHitPercentage = 0;
+ my $udpTransferHitAverage = 0;
+
+ my $udpTimeTotals = 0;
+ my $udpTimeAverage = 0;
+ my $udpTimeHitTotals = 0;
+ my $udpTimeHitAverage = 0;
+ my $udpTimeMissTotals = 0;
+ my $udpTimeMissAverage = 0;
+
+
+ # Get the totals
+
+ if ($have_cumulative) {
+ if ($have_tcp) {
+ $tcpAccessTotals = $tcpAccessTotal[$#tcpAccessTotal];
+ $tcpAccessHitTotals = $tcpAccessHit[$#tcpAccessHit];
+ $tcpAccessMissTotals = $tcpAccessMiss[$#tcpAccessMiss];
+ $tcpAccessIMSTotals = $tcpAccessIMS[$#tcpAccessIMS];
+
+ $tcpTransferTotals = $tcpTransferTotal[$#tcpTransferTotal];
+ $tcpTransferHitTotals = $tcpTransferHit[$#tcpTransferHit];
+ $tcpTransferMissTotals = $tcpTransferMiss[$#tcpTransferMiss];
+ $tcpTransferIMSTotals = $tcpTransferIMS[$#tcpTransferIMS];
+ }
+ if ($have_udp) {
+ $udpAccessTotals = $udpAccessTotal[$#udpAccessTotal];
+ $udpAccessHitTotals = $udpAccessHit[$#udpAccessHit];
+ $udpAccessMissTotals = $udpAccessMiss[$#udpAccessMiss];
+
+ $udpTransferTotals = $udpTransferTotal[$#udpTransferTotal];
+ $udpTransferHitTotals = $udpTransferHit[$#udpTransferHit];
+ $udpTransferMissTotals = $udpTransferMiss[$#udpTransferMiss];
+ }
+
+ }
+ else {
+ my $i;
+ for ($i = 0; $i < 288; $i++) {
+ if ($have_tcp) {
+ $tcpAccessTotals += $tcpAccessTotal[$i];
+ $tcpAccessHitTotals += $tcpAccessHit[$i];
+ $tcpAccessMissTotals += $tcpAccessMiss[$i];
+ $tcpAccessIMSTotals += $tcpAccessIMS[$i];
+
+ $tcpTransferTotals += $tcpTransferTotal[$i];
+ $tcpTransferHitTotals += $tcpTransferHit[$i];
+ $tcpTransferMissTotals += $tcpTransferMiss[$i];
+ $tcpTransferIMSTotals += $tcpTransferIMS[$i];
+
+ if ($have_transfer) {
+ $tcpTimeTotals += $tcpTimeTotal[$i];
+ $tcpTimeHitTotals += $tcpTimeHit[$i];
+ $tcpTimeMissTotals += $tcpTimeMiss[$i];
+ }
+ }
+
+ if ($have_udp) {
+ $udpAccessTotals += $udpAccessTotal[$i];
+ $udpAccessHitTotals += $udpAccessHit[$i];
+ $udpAccessMissTotals += $udpAccessMiss[$i];
+
+ $udpTransferTotals += $udpTransferTotal[$i];
+ $udpTransferHitTotals += $udpTransferHit[$i];
+ $udpTransferMissTotals += $udpTransferMiss[$i];
+
+ if ($have_transfer) {
+ $udpTimeTotals += $udpTimeTotal[$i];
+ $udpTimeHitTotals += $udpTimeHit[$i];
+ $udpTimeMissTotals += $udpTimeMiss[$i];
+ }
+ }
+ }
+ undef $i;
+ }
+
+ # Calculate averages and percentages
+
+ sub percentage($$) {
+ my $val = shift;
+ my $tot = shift;
+ return dec_truncate(($tot == 0)?0:(($val/$tot) * 100),2);
+ };
+
+ if ($have_tcp) {
+ $tcpAccessAverage = dec_truncate($tcpAccessTotals/24,2);
+ $tcpAccessHitAverage = dec_truncate($tcpAccessHitTotals/24,2);
+ $tcpAccessMissAverage = dec_truncate($tcpAccessMissTotals/24,2);
+ $tcpAccessIMSAverage = dec_truncate($tcpAccessIMSTotals/24,2);
+
+ $tcpTransferAverage = hr_bytes($tcpTransferTotals/24);
+ $tcpTransferHitAverage = hr_bytes($tcpTransferHitTotals/24);
+ $tcpTransferMissAverage = hr_bytes($tcpTransferMissTotals/24);
+ $tcpTransferIMSAverage = hr_bytes($tcpTransferIMSTotals/24);
+
+ $tcpAccessHitPercentage = percentage($tcpAccessHitTotals,$tcpAccessTotals);
+ $tcpAccessMissPercentage = percentage($tcpAccessMissTotals,$tcpAccessTotals);
+
+ $tcpTransferHitPercentage = percentage($tcpTransferHitTotals,$tcpTransferTotals);
+ $tcpTransferMissPercentage = percentage($tcpTransferMissTotals,$tcpTransferTotals);
+
+ if ($have_transfer) {
+ $tcpTimeAverage = dec_truncate($tcpTimeTotals/288,2);
+ $tcpTimeHitAverage = dec_truncate($tcpTimeHitTotals/288,2);
+ $tcpTimeMissAverage = dec_truncate($tcpTimeMissTotals/288,2);
+ }
+ }
+
+ if ($have_udp) {
+ $udpAccessAverage = dec_truncate($udpAccessTotals/24,2);
+ $udpAccessHitAverage = dec_truncate($udpAccessHitTotals/24,2);
+ $udpAccessMissAverage = dec_truncate($udpAccessMissTotals/24,2);
+
+ $udpTransferAverage = hr_bytes($udpTransferTotals/24);
+ $udpTransferHitAverage = hr_bytes($udpTransferHitTotals/24);
+ $udpTransferMissAverage = hr_bytes($udpTransferMissTotals/24);
+
+ $udpAccessHitPercentage = percentage($udpAccessHitTotals,$udpAccessTotals);
+ $udpAccessMissPercentage = percentage($udpAccessMissTotals,$udpAccessTotals);
+
+ $udpTransferHitPercentage = percentage($udpTransferHitTotals,$udpTransferTotals);
+ $udpTransferMissPercentage = percentage($udpTransferMissTotals,$udpTransferTotals);
+
+ if ($have_transfer) {
+ $udpTimeAverage = dec_truncate($udpTimeTotals/288,2);
+ $udpTimeHitAverage = dec_truncate($udpTimeHitTotals/288,2);
+ $udpTimeMissAverage = dec_truncate($udpTimeMissTotals/288,2);
+ }
+ }
+
+ # Some tiny date/time conversions
+ my $progStartTime = localtime($progStart);
+ my $logStartTime = localtime($logStart);
+ my $logEndTime = localtime($logStart + 86400);
+
+ # Colours
+ my $bgcolor = "$color{'hbg'}[0]$color{'hbg'}[1]$color{'hbg'}[2]";
+ my $fgcolor = "$color{'fg'}[0]$color{'fg'}[1]$color{'fg'}[2]";
+ my $grcolor = "$color{'gr'}[0]$color{'gr'}[1]$color{'gr'}[2]";
+ my $hitcolor = "$color{'hit'}[0]$color{'hit'}[1]$color{'hit'}[2]";
+ my $misscolor = "$color{'miss'}[0]$color{'miss'}[1]$color{'miss'}[2]";
+ my $imscolor = "$color{'ims'}[0]$color{'ims'}[1]$color{'ims'}[2]" if ($have_tcp);
+
+ # Make some things more redable to the human eye
+ if ($have_tcp) {
+ $tcpAccessTotals = dec_truncate($tcpAccessTotals,2);
+ $tcpAccessHitTotals = dec_truncate($tcpAccessHitTotals,2);
+ $tcpAccessMissTotals = dec_truncate($tcpAccessMissTotals,2);
+ $tcpAccessIMSTotals = dec_truncate($tcpAccessIMSTotals,2);
+ $tcpTransferTotals = hr_bytes($tcpTransferTotals);
+ $tcpTransferHitTotals = hr_bytes($tcpTransferHitTotals);
+ $tcpTransferMissTotals = hr_bytes($tcpTransferMissTotals);
+ $tcpTransferIMSTotals = hr_bytes($tcpTransferIMSTotals);
+ }
+ if ($have_udp) {
+ $udpAccessTotals = dec_truncate($udpAccessTotals,2);
+ $udpAccessHitTotals = dec_truncate($udpAccessHitTotals,2);
+ $udpAccessMissTotals = dec_truncate($udpAccessMissTotals,2);
+ $udpTransferTotals = hr_bytes($udpTransferTotals);
+ $udpTransferHitTotals = hr_bytes($udpTransferHitTotals);
+ $udpTransferMissTotals = hr_bytes($udpTransferMissTotals);
+ }
+
+
+ console_log("Writing index.html file.");
+
+ open(IDX, ">$config{'output-dir'}/index.html") ||
+ error("Can't write to file $config{'output-dir'}/index.html. Check directory permissions?");
+
+ print IDX "<HTML>\n";
+ print IDX "<HEAD>\n";
+ print IDX "<TITLE>$title</TITLE>\n";
+ print IDX "</HEAD>\n";
+ print IDX "<BODY BGCOLOR=\"#$bgcolor\" TEXT=\"#$fgcolor\">\n";
+ print IDX "<H1>$title</H1>\n";
+ print IDX "<BR>\n";
+
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'generated'}:</B></TD><TD style=padding-left:5px>$progStartTime</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'lines analyzed'}:</B></TD><TD style=padding-left:5px>$lineCounter $Lang::tr{'lines'} ($errorLines $Lang::tr{'errors'})</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'analysis duration'}:</B></TD><TD style=padding-left:5px>$duration $Lang::tr{'seconds'}</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'analysis speed'}:</B></TD><TD style=padding-left:5px>$progSpeed $Lang::tr{'lines sec'}</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'graph start'}:</B></TD><TD style=padding-left:5px>$logStartTime</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'graph end'}:</B></TD><TD style=padding-left:5px>$logEndTime</TD></TR>\n";
+ print IDX "<TR><TD><B>$Lang::tr{'graph domain'}:</B></TD><TD style=padding-left:5px>24 $Lang::tr{'hours'} ($Lang::tr{'24hseconds'})</TD></TR>\n";
+ print IDX "</TABLE>\n";
+
+ sub generate_html_row($$$) {
+ my $color = shift;
+ my $key = shift;
+ my $value = shift;
+ my $ret;
+
+ $ret = "<TR>";
+ $ret .= "<TD ALIGN=RIGHT><FONT SIZE=-1 COLOR=#$color><B>$key:</B></FONT></TD>";
+ $ret .= "<TD style=padding-left:5px ALIGN=LEFT><FONT SIZE=-1>$value</FONT></TD>";
+ $ret .= "</TR>\n";
+
+ undef $color;
+ undef $key;
+ undef $value;
+
+ return $ret;
+ }
+
+ if ($have_tcp) {
+ print IDX "<BR><HR><BR>\n";
+ print IDX "<H3>$Lang::tr{'graph of tcp accesses'}</H3>\n" if (!$have_cumulative);
+ print IDX "<H3>$Lang::tr{'cumulative graph of tcp accesses'}</H3>\n" if ($have_cumulative);
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=tcp-access.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'total accesses'}",$tcpAccessTotals);
+ print IDX generate_html_row($grcolor,"$Lang::tr{'average accesses'}","$tcpAccessAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'total cache hits'}",$tcpAccessHitTotals);
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'average cache hits'}","$tcpAccessHitAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'percent cache hits'}","$tcpAccessHitPercentage %");
+ print IDX generate_html_row($imscolor,"$Lang::tr{'total cache ims hits'}",$tcpAccessIMSTotals);
+ print IDX generate_html_row($imscolor,"$Lang::tr{'average cache ims hits'}","$tcpAccessIMSAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'total cache misses'}",$tcpAccessMissTotals);
+ print IDX generate_html_row($misscolor,"$Lang::tr{'average cache misses'}","$tcpAccessMissAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'percent cache misses'}","$tcpAccessMissPercentage %");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ print IDX "<H3>$Lang::tr{'graph of tcp transfers'}</H3>\n" if (!$have_cumulative);
+ print IDX "<H3>$Lang::tr{'cumulative graph of tcp transfers'}</H3>\n" if ($have_cumulative);
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=tcp-transfer.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'total transfers'}",$tcpTransferTotals);
+ print IDX generate_html_row($grcolor,"$Lang::tr{'average transfers'}","$tcpTransferAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'total cache hits'}",$tcpTransferHitTotals);
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'average cache hits'}","$tcpTransferHitAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'percent cache hits'}","$tcpTransferHitPercentage %");
+ print IDX generate_html_row($imscolor,"$Lang::tr{'total cache ims hits'}",$tcpTransferIMSTotals);
+ print IDX generate_html_row($imscolor,"$Lang::tr{'average cache ims hits'}","$tcpTransferIMSAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'total cache misses'}",$tcpTransferMissTotals);
+ print IDX generate_html_row($misscolor,"$Lang::tr{'average cache misses'}","$tcpTransferMissAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'percent cache misses'}","$tcpTransferMissPercentage %");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ if ($have_transfer) {
+ print IDX "<H3>$Lang::tr{'graph of average tcp transfer duration'}</H3>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=tcp-duration.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'avg transfer duration'}","$tcpTimeAverage $Lang::tr{'seconds'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'avg cache hit duration'}","$tcpTimeHitAverage $Lang::tr{'seconds'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'avg cache miss duration'}","$tcpTimeMissAverage $Lang::tr{'seconds'}");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ }
+ }
+
+ if ($have_udp) {
+ print IDX "<BR><HR><BR>\n";
+ print IDX "<H3>$Lang::tr{'graph of udp accesses'}</H3>\n" if (!$have_cumulative);
+ print IDX "<H3>$Lang::tr{'cumulative graph of udp accesses'}</H3>\n" if ($have_cumulative);
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=udp-access.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'total accesses'}",$udpAccessTotals);
+ print IDX generate_html_row($grcolor,"$Lang::tr{'average accesses'}","$udpAccessAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'total cache hits'}",$udpAccessHitTotals);
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'average cache hits'}","$udpAccessHitAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'percent cache hits'}","$udpAccessHitPercentage %");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'total cache misses'}",$udpAccessMissTotals);
+ print IDX generate_html_row($misscolor,"$Lang::tr{'average cache misses'}","$udpAccessMissAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'percent cache misses'}","$udpAccessMissPercentage %");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ print IDX "<H3>$Lang::tr{'graph of udp transfers'}</H3>\n" if (!$have_cumulative);
+ print IDX "<H3>$Lang::tr{'cumulative graph of udp transfers'}</H3>\n" if ($have_cumulative);
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=udp-transfer.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'total transfers'}",$udpTransferTotals);
+ print IDX generate_html_row($grcolor,"$Lang::tr{'average transfers'}","$udpTransferAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'total cache hits'}",$udpTransferHitTotals);
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'average cache hits'}","$udpTransferHitAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'percent cache hits'}","$udpTransferHitPercentage %");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'total cache misses'}",$udpTransferMissTotals);
+ print IDX generate_html_row($misscolor,"$Lang::tr{'average cache misses'}","$udpTransferMissAverage $Lang::tr{'per hour'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'percent cache misses'}","$udpTransferMissPercentage %");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ if ($have_transfer) {
+ print IDX "<H3>$Lang::tr{'graph of average udp transfer duration'}</H3>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX "<TR>\n";
+ print IDX "<TD><IMG SRC=udp-duration.png></TD>\n";
+ print IDX "<TD>\n";
+ print IDX "<TABLE BORDER=0>\n";
+ print IDX generate_html_row($grcolor,"$Lang::tr{'avg transfer duration'}","$udpTimeAverage $Lang::tr{'seconds'}");
+ print IDX generate_html_row($hitcolor,"$Lang::tr{'avg cache hit duration'}","$udpTimeHitAverage $Lang::tr{'seconds'}");
+ print IDX generate_html_row($misscolor,"$Lang::tr{'avg cache miss duration'}","$udpTimeMissAverage $Lang::tr{'seconds'}");
+ print IDX "</TABLE>\n";
+ print IDX "</TD>\n";
+ print IDX "</TR>\n";
+ print IDX "</TABLE>\n";
+ }
+ }
+
+ print IDX <<EOF;
+
+<BR>
+<HR>
+<BR>
+
+<A HREF="http://squid-graph.sourceforge.net/"><IMG SRC="logo.png" BORDER="0"></A>
+<BR>
+version $VER
+
+</BODY>
+
+</HTML>
+EOF
+ close(IDX);
+
+ console_log("Done.");
+ console_log("Remember to copy logo.png found in your Squid Graph images/ directory to $config{'output-dir'}!");
+
+}
+
+# Error output
+sub error($) {
+ my $LOG = shift;
+ die "ERROR: $LOG Exiting.\n";
+}
+
+# Warning output
+sub warning($) {
+ my $LOG = shift;
+ print STDERR "WARNING: $LOG\n";
+ undef $LOG;
+}
+
+# Just for console logging
+sub console_log($) {
+ if ($CONSOLELOG) {
+ my $TIME = localtime(time());
+ my $LOG = shift;
+ print "[$TIME] $LOG\n";
+ undef $LOG;
+ }
+}
+
+# Help
+sub help() {
+print <<EOF;
+
+Squid Graph $VER Help ($^O, perl $])
+
+Usage examples:
+ squid-graph [options] < logfile.log
+ cat logfile.log | squid-graph [options]
+ tail -n 10000 logfile.log | squid-graph [options]
+
+Command line options (options marked * are compulsary):
+
+ * --output-dir=output-dir (or -o=output-dir)
+ Specifies the directory which stores the output files.
+
+ --start=start-time (or -s=start-time)
+ Specifies the graph start time in seconds since 1970.
+ When not specified, 24 hours before the current time is
+ used as default.
+
+ --end=end-time (or -e=end-time)
+ Specifies the graph end time in seconds since 1970.
+ When not specified, the current time is used as default.
+
+ --title="report-title"
+ Specifies the report title. When not specified, "Squid
+ Graph Logfile Analysis Report" is used as default.
+
+ --tcp-only
+ Specifies that only TCP access and transfer graphs are
+ generated. When not specified, both TCP and UDP graphs
+ are generated.
+
+ --udp-only
+ Specifies that only UDP access and transfer graphs are
+ generated. When not specified, both TCP and UDP graphs
+ are generated.
+
+ --cumulative (or -c)
+ Enables generation of cumulative graphs instead of the
+ default histograms.
+
+ --no-transfer-duration (or -d)
+ Disables plotting of average transfer duration graph(s).
+
+ --no-console-log (or -n)
+ Disables logging of messages to console.
+
+ --help (or -h)
+ Displays this help message.
+
+For more info, please visit http://squid-graph.sourceforge.net/
+
+EOF
+exit;
+}
+
+# Parse command line arguments
+sub parse_argv() {
+
+ # no arguments?
+ if ($#ARGV == -1) {
+ &help;
+ }
+
+ # scan command line arguments
+ foreach (@ARGV) {
+ my @parms = split(/=/);
+
+ if (($parms[0] eq "--help") || ($parms[0] eq "-h")) {
+ help();
+ }
+ elsif (($parms[0] eq "--no-console-log") || ($parms[0] eq "-n")) {
+ $CONSOLELOG = 0;
+ }
+ elsif (($parms[0] eq "--output-dir") || ($parms[0] eq "-o")) {
+ if ($parms[1] eq "") {
+ error("Output directory cannot be blank.");
+ }
+ elsif (-e $parms[1]) {
+ $config{'output-dir'} = $parms[1];
+ }
+ else {
+ error("Output directory $parms[1] does not exist.");
+ }
+ }
+ elsif (($parms[0] eq "--start") || ($parms[0] eq "-s")) {
+ if ($parms[1] eq "") {
+ warning("Starting time cannot be blank. Using defaults.");
+ }
+ else {
+ $config{'start'} = $parms[1];
+ }
+ }
+ elsif (($parms[0] eq "--end") || ($parms[0] eq "-e")) {
+ if ($parms[1] eq "") {
+ warning("End time cannot be blank. Using defaults.");
+ }
+ else {
+ $config{'end'} = $parms[1];
+ }
+ }
+ elsif ($parms[0] eq "--title") {
+ if ($parms[1] eq "") {
+ warning("Title cannot be blank. Using defaults.");
+ }
+ else {
+ $config{'title'} = $parms[1];
+ }
+ }
+ elsif ($parms[0] eq "--tcp-only") { $config{'tcp-only'} = 1; }
+ elsif ($parms[0] eq "--udp-only") { $config{'udp-only'} = 1; }
+ elsif (($parms[0] eq "--cumulative") || ($parms[0] eq "-c")) { $config{'cumulative'} = 1; }
+ elsif (($parms[0] eq "--no-transfer-duration") || ($parms[0] eq "-d")) { $config{'no-transfer-duration'} = 1; }
+ elsif (($parms[0] eq "--no-console-log") || ($parms[0] eq "-n")) { $CONSOLELOG = 0; }
+ else {
+ warning("Unknown argument $_ from command line.");
+ }
+
+ undef @parms;
+ }
+}
+
+# Checks configuration validity
+sub config_check() {
+ my $noerror = 1;
+
+ if ($config{'output-dir'} eq "") {
+ warning("Output directory not configured.");
+ $noerror = 0;
+ }
+ else {
+ # Remove trailing slash in output dir
+ my $tmp = $config{'output-dir'};
+ if (chop($tmp) eq "/") {
+ chop($config{'output-dir'});
+ }
+ }
+
+ if ((exists $config{'start'}) && (exists $config{'end'})) {
+ warning("Cannot specify both --start and --end values. Use either --start OR --end.");
+ $noerror = 0;
+ }
+
+ if ((exists $config{'udp-only'}) && (exists $config{'tcp-only'})) {
+ warning("Both --udp-only and --tcp-only specified. Are you nuts? That's the default!");
+ $noerror = 0;
+ }
+
+ if (($config{'output-dir'} =~ /^\/tmp/) ||
+ ($config{'output-dir'} eq '.') ||
+ ($config{'output-dir'} =~ /^\.\//) ||
+ ($config{'output-dir'} =~ /^\/dev/)) {
+ warning("Are you sure you want to output your files to \"$config{'output-dir'}\"? Continuing anyway...");
+ }
+
+ return $noerror;
+}
+
+# Create blank GD Images
+sub create_gd() {
+ my $IMG;
+ my $width = 370;
+ my $height = 240;
+
+ $IMG = new GD::Image($width,$height);
+ $IMG->interlaced('true');
+ $IMG->rectangle(0,0,$width-1,$height-1,
+ $IMG->colorAllocate(hex($color{'bg'}[0]),hex($color{'bg'}[1]),hex($color{'bg'}[2])));
+
+ undef $width;
+ undef $height;
+
+ return $IMG;
+}
+
+# Write images
+sub write_img($$) {
+ my $IMG = shift;
+ my $filename = shift;
+
+ console_log("Writing to file $config{'output-dir'}/$filename");
+ open(GD, ">$config{'output-dir'}/$filename") ||
+ error("Cannot write to file $config{'output-dir'}/$filename. Check directory permissions?");
+ binmode GD;
+ print GD $IMG->png();
+ close(GD);
+}
+
+sub plot($$\$\@\@\@\@) {
+ my $type = shift;
+ my $logStart = shift;
+ my $imgRef = shift;
+ my $totalRef = shift;
+ my $hitRef = shift;
+ my $missRef = shift;
+ my $imsRef = shift;
+ my ($isTCP, $isUDP) = (0,0);
+ my $isCum = 0;
+ my ($width, $height) = $$imgRef->getBounds();
+ my $font = gdSmallFont;
+ my $fontWidth = $font->width();
+ my $fontHeight = $font->height();
+
+ # Check type options
+ $isCum = 1 if ($type =~ /C/);
+ $isTCP = 1 if ($type =~ /T/);
+ $isUDP = 1 if ($type =~ /U/);
+
+ # Colour tables
+ my $fgcolor = $$imgRef->colorAllocate(hex($color{'fg'}[0]),hex($color{'fg'}[1]),hex($color{'fg'}[2]));
+ my $grcolor = $$imgRef->colorAllocate(hex($color{'gr'}[0]),hex($color{'gr'}[1]),hex($color{'gr'}[2]));
+ my $hitcolor = $$imgRef->colorAllocate(hex($color{'hit'}[0]),hex($color{'hit'}[1]),hex($color{'hit'}[2]));
+ my $misscolor = $$imgRef->colorAllocate(hex($color{'miss'}[0]),hex($color{'miss'}[1]),hex($color{'miss'}[2]));
+ my $imscolor = $$imgRef->colorAllocate(hex($color{'ims'}[0]),hex($color{'ims'}[1]),hex($color{'ims'}[2]));
+
+ # Dotted brush
+ $$imgRef->setStyle($fgcolor,gdTransparent,gdTransparent);
+
+ #
+ # NOTES
+ #
+ # graph area w/h = 288/200
+ # graph area l/t = 62/20
+ # graph area eff = 62,20,350,220
+ #
+
+ # Draw the border
+ $$imgRef->rectangle(0,0,$width-1,$height-1,$fgcolor);
+
+ # Draw the title at the left side
+ my $title;
+ $title = "Cumulative " if ($isCum);
+ $title = "Average " if ($type =~ /D/);
+ $title .= "TCP " if ($isTCP);
+ $title .= "UDP " if ($isUDP);
+ $title .= "Accesses" if ($type =~ /A/);
+ $title .= "Transfers (bytes)" if ($type =~ /X/);
+ $title .= "Transfer Duration (secs)" if ($type =~ /D/);
+ my $titlewidth = ($fontWidth * length($title));
+ my $titlestart = ((($height - $titlewidth) / 2) + $titlewidth);
+ $$imgRef->stringUp($font,5,$titlestart,$title,$fgcolor);
+ undef $titlewidth;
+ undef $titlestart;
+ undef $title;
+
+ # Determine the maximal and per pixel size of the graph
+ my ($graphMax) = sort {$b <=> $a} @$totalRef;
+ if ((sort {$b <=> $a} @$hitRef)[0] > $graphMax) {
+ $graphMax = (sort {$b <=> $a} @$hitRef)[0];
+ }
+ if ((sort {$b <=> $a} @$missRef)[0] > $graphMax) {
+ $graphMax = (sort {$b <=> $a} @$missRef)[0];
+ }
+ # Over-estimate max by 0.5%
+ $graphMax = ($graphMax < 1)?1:$graphMax * 1.05;
+ my $dotSize = $graphMax / 200;
+
+ # Plot the graph
+ my $i;
+ my $lastTotalPos = 0;
+ my $lastHitPos = 0;
+ my $lastMissPos = 0;
+ my $lastIMSPos = 0;
+ for ($i = 0; $i < 288; $i++) {
+ my $totalPos = int($$totalRef[$i] / $dotSize);
+ my $hitPos = int($$hitRef[$i] / $dotSize);
+ my $missPos = int($$missRef[$i] / $dotSize);
+ my $imsPos;
+ $imsPos = int($$imsRef[$i] / $dotSize) if ($isTCP);
+
+ # Draw in sequence. Drawing later will make line appear "on-top"
+ $$imgRef->line($i + 62, 219 - $lastIMSPos, $i + 63, 219 - $imsPos, $imscolor) if ($isTCP);
+ $$imgRef->line($i + 62, 219 - $lastMissPos, $i + 63, 219 - $missPos, $misscolor);
+ $$imgRef->line($i + 62, 219 - $lastHitPos, $i + 63, 219 - $hitPos, $hitcolor);
+ $$imgRef->line($i + 62, 219 - $lastTotalPos, $i + 63, 219 - $totalPos, $grcolor);
+
+ $lastTotalPos = $totalPos;
+ $lastHitPos = $hitPos;
+ $lastMissPos = $missPos;
+ $lastIMSPos = $imsPos if ($isTCP);
+ undef $totalPos;
+ undef $hitPos;
+ undef $missPos;
+ undef $imsPos;
+ }
+ undef $i;
+ undef $lastTotalPos;
+ undef $lastHitPos;
+ undef $lastMissPos;
+ undef $lastIMSPos;
+
+ # Draw the graph plotting area bounding boxes and quarter markings
+ $$imgRef->line(62,70,350,70,gdStyled);
+ $$imgRef->line(62,120,350,120,gdStyled);
+ $$imgRef->line(62,170,350,170,gdStyled);
+ $$imgRef->rectangle(62,20,350,220,$fgcolor);
+
+ # Label the vertical (Y) axis
+ my $Q = $graphMax/4;
+ my $Q1 = hr_digits($graphMax,hr_units($graphMax));
+ my $Q2 = hr_digits($Q * 3,hr_units($graphMax));
+ my $Q3 = hr_digits($Q * 2,hr_units($graphMax));
+ my $Q4 = hr_digits($Q * 1,hr_units($graphMax));
+
+ $$imgRef->string($font,58-(length($Q1)*$fontWidth),20-($fontHeight/2),"$Q1",$fgcolor);
+ $$imgRef->string($font,58-(length($Q2)*$fontWidth),70-($fontHeight/2),"$Q2",$fgcolor);
+ $$imgRef->string($font,58-(length($Q3)*$fontWidth),120-($fontHeight/2),"$Q3",$fgcolor);
+ $$imgRef->string($font,58-(length($Q4)*$fontWidth),170-($fontHeight/2),"$Q4",$fgcolor);
+
+ $$imgRef->line(59,20,62,20,$fgcolor);
+ $$imgRef->line(59,70,62,70,$fgcolor);
+ $$imgRef->line(59,120,62,120,$fgcolor);
+ $$imgRef->line(59,170,62,170,$fgcolor);
+
+ # Write down the max value
+ # The max was overestimated. We shall get it again.
+ my ($graphMax) = sort {$b <=> $a} @$totalRef;
+ if ((sort {$b <=> $a} @$hitRef)[0] > $graphMax) {
+ $graphMax = (sort {$b <=> $a} @$hitRef)[0];
+ }
+ if ((sort {$b <=> $a} @$missRef)[0] > $graphMax) {
+ $graphMax = (sort {$b <=> $a} @$missRef)[0];
+ }
+ $graphMax = dec_truncate($graphMax,1);
+ $$imgRef->string($font,350-(length("Max: $graphMax") * $fontWidth),(20-$fontHeight)/2+1,"Max: $graphMax",$fgcolor);
+
+ undef $Q;
+ undef $Q1;
+ undef $Q2;
+ undef $Q3;
+ undef $Q4;
+
+ undef $dotSize;
+ undef $graphMax;
+
+ # Label the horizontal (X) axis
+ my $i = 0;
+ my $alt = 0;
+ for ($i = 0; $i < 288; $i++) {
+ my ($sec, $min, $hour) = localtime($logStart + (300 * $i));
+ if (($min > 57) || ($min < 3)) {
+ $$imgRef->line(63 + $i, 20, 63 + $i, 220, gdStyled);
+ $$imgRef->line(63 + $i, 220, 63 + $i, 223, $fgcolor);
+ if ($alt) {
+ $$imgRef->string($font,63+$i-((length($hour) * $fontWidth)/2),224,"$hour",$fgcolor);
+ $alt = 0;
+ }
+ else { $alt = 1; }
+ }
+ undef $sec;
+ undef $min;
+ undef $hour;
+
+ }
+
+ undef $i;
+ undef $alt;
+
+
+ # Undefine all the vars used
+ undef $type;
+ undef $logStart;
+ undef $imgRef;
+ undef $totalRef;
+ undef $hitRef;
+ undef $missRef;
+ undef $imsRef;
+ undef $isTCP;
+ undef $isUDP;
+ undef $width;
+ undef $height;
+ undef $fgcolor;
+ undef $grcolor;
+ undef $hitcolor;
+ undef $misscolor;
+ undef $imscolor;
+
+}
+
+
+sub dec_truncate($$) {
+ my $num = shift;
+ my $dp = shift;
+ if ($dp eq '') {
+ $dp = 1;
+ }
+ my $power = 10;
+ my $i = 0;
+ for ($i = 1; $i < $dp; $i++) {
+ $power = $power * 10;
+ }
+ return int($num * $power)/$power;
+}
+
+sub comma_sep($) {
+ my $num = shift;
+ my $len = length($num);
+ my @str = split('', "$num");
+ my $val;
+ my $i;
+ for ($i = $len - 1; $i >= 0; $i--) {
+ if ((($len - $i - 1)%3 == 0) && ($i > 0) && ($i < $len - 1)) {
+ $val = "$str[$i]\,$val"
+ }
+ else {
+ $val = "$str[$i]$val";
+ }
+ }
+ undef $i;
+ undef $len;
+ undef $num;
+ undef @str;
+ return $val;
+}
+
+sub hr_units($) {
+ my $num = shift;
+ if ($num >= 1000000000) {
+ return 'G';
+ }
+ elsif ($num >= 1000000) {
+ return 'M';
+ }
+ elsif ($num >= 1000) {
+ return 'K';
+ }
+ else {
+ return '';
+ }
+}
+
+# hr_digits(int: $num, char: $units);
+sub hr_digits($$) {
+ my $num = shift;
+ my $unit = shift;
+ my $val = dec_truncate($num,1);
+
+ $val = dec_truncate($num/1000000000,1) if ($unit eq 'G');
+ $val = dec_truncate($num/1000000,1) if ($unit eq 'M');
+ $val = dec_truncate($num/1000,1) if ($unit eq 'K');
+
+ return "$val$unit";
+}
+
+sub hr_bytes($) {
+ my $num = shift;
+ my $val;
+ if ($num > 1000000000) {
+ $val = dec_truncate($num/1000000000,1);
+ return "$val Gb";
+ }
+ elsif ($num > 1000000) {
+ $val = dec_truncate($num/1000000,1);
+ return "$val Mb";
+ }
+ elsif ($num > 1000) {
+ $val = dec_truncate($num/1000,1);
+ return "$val Kb";
+ }
+ else {
+ $val = dec_truncate($num,1);
+ return "$val bytes";
+ }
+}
+
+# Undefine "global" vars
+undef %config;
+undef %color;
+undef $CONSOLELOG;
+undef $VER;
new file mode 100644
@@ -0,0 +1,49 @@
+%tr = (
+%tr,
+
+'24hseconds' => '86400 Sekunden',
+'analysis duration' => 'Analyse - Dauer',
+'analysis speed' => 'Analyse - Geschwindigkeit',
+'average accesses' => 'Zugriffe - Durchschnitt',
+'average cache hits' => 'Cache-Treffer - Durchschnitt',
+'average cache ims hits' => 'Cache-IMS-Treffer - Durchschnitt',
+'average cache misses' => 'Cache verfehlt - Durchschnitt',
+'average transfers' => 'Transfers - Durchschnitt',
+'avg cache hit duration' => 'Cache-Dauer (Treffer)',
+'avg cache miss duration' => 'Cache-Dauer (verfehlt)',
+'avg transfer duration' => 'Transfer-Dauer',
+'cumulative graph of tcp accesses' => 'TCP-Zugriffe (Zusammenfassung)',
+'cumulative graph of tcp transfers' => 'TCP-Transfers (Zusammenfassung)',
+'cumulative graph of udp accesses' => 'UDP-Zugriffe (Zusammenfassung)',
+'cumulative graph of udp transfers' => 'UDP-Transfers (Zusammenfassung)',
+'errors' => 'Fehler',
+'generated' => 'Erstellt',
+'graph domain' => 'Diagramm - Zeitraum',
+'graph end' => 'Diagramm - Ende',
+'graph of average tcp transfer duration' => 'TCP-Transfer-Dauer (Durchschnitt)',
+'graph of average udp transfer duration' => 'UDP-Transfer-Dauer (Durchschnitt)',
+'graph of tcp accesses' => 'TCP-Zugriffe (alle 5 Minuten)',
+'graph of tcp transfers' => 'TCP-Transfers (alle 5 Minuten)',
+'graph of udp accesses' => 'UDP-Zugriffe (alle 5 Minuten)',
+'graph of udp transfers' => 'UDP-Transfers (alle 5 Minuten)',
+'graph start' => 'Diagramm - Start',
+'hours' => 'Stunden',
+'lines analyzed' => 'Analysierte Zeilen<br />(access.log)',
+'lines sec' => 'Zeilen/Sekunde',
+'lines' => 'Zeilen',
+'no information available' => 'Keine Informationen verfügbar.',
+'percent cache hits' => 'Cache-Treffer - Prozent',
+'percent cache misses' => 'Cache verfehlt - Prozent',
+'per hour' => 'pro Stunde',
+'proxy access graphs' => 'Diagramme zur Proxyauslastung',
+'seconds' => 'Sekunde(n)',
+'ssproxy graphs' => 'Proxy-Diagramme',
+'total accesses' => 'Zugriffe - gesamt',
+'total cache hits' => 'Cache-Treffer - gesamt',
+'total cache ims hits' => 'Cache-IMS-Treffer - gesamt',
+'total cache misses' => 'Cache verfehlt - gesamt',
+'total transfers' => 'Transfers - gesamt',
+
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,49 @@
+%tr = (
+%tr,
+
+'24hseconds' => '86400 seconds',
+'analysis duration' => 'Analysis Duration',
+'analysis speed' => 'Analysis Speed',
+'average accesses' => 'Average Accesses',
+'average cache hits' => 'Average Cache Hits',
+'average cache ims hits' => 'Average Cache IMS Hits',
+'average cache misses' => 'Average Cache Misses',
+'average transfers' => 'Average Transfers',
+'avg cache hit duration' => 'Avg. Cache Hit Duration',
+'avg cache miss duration' => 'Avg. Cache Miss Duration',
+'avg transfer duration' => 'Avg. Transfer Duration',
+'cumulative graph of tcp accesses' => 'TCP Accesses - cumulative',
+'cumulative graph of tcp transfers' => 'TCP Transfers - cumulative',
+'cumulative graph of udp accesses' => 'UDP Accesses - cumulative',
+'cumulative graph of udp transfers' => 'UDP Transfers - cumulative',
+'errors' => 'error(s)',
+'generated' => 'Generated',
+'graph domain' => 'Graph Domain',
+'graph end' => 'Graph End',
+'graph of average tcp transfer duration' => 'Average TCP Transfer Duration',
+'graph of average udp transfer duration' => 'Average UDP Transfer Duration',
+'graph of tcp accesses' => 'TCP Accesses (5 minute total)',
+'graph of tcp transfers' => 'TCP Transfers (5 minute total)',
+'graph of udp accesses' => 'UDP Accesses (5 minute total)',
+'graph of udp transfers' => 'UDP Transfers (5 minute total)',
+'graph start' => 'Graph Start',
+'hours' => 'hours',
+'lines analyzed' => 'Lines analyzed<br />(access.log)',
+'lines sec' => 'lines/sec',
+'lines' => 'lines',
+'no information available' => 'No information available.',
+'percent cache hits' => '% Cache Hits',
+'percent cache misses' => '% Cache Misses',
+'per hour' => 'per hour',
+'proxy access graphs' => 'Proxy access graphs',
+'seconds' => 'second(s)',
+'ssproxy graphs' => 'Proxy Graphs',
+'total accesses' => 'Total Accesses',
+'total cache hits' => 'Total Cache Hits',
+'total cache ims hits' => 'Total Cache IMS Hits',
+'total cache misses' => 'Total Cache Misses',
+'total transfers' => 'Total Transfers',
+
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,10 @@
+%tr = (
+%tr,
+
+'no information available' => 'No hay información disponible',
+'proxy access graphs' => 'Gráficas de acceso al proxy',
+'ssproxy graphs' => 'Gráficas de proxy',
+
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'Aucune information disponible.',
+'proxy access graphs' => 'Graphiques des accès proxy',
+'ssproxy graphs' => 'Graphiques du proxy',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'No information available.',
+'proxy access graphs' => 'Proxy access graphs',
+'ssproxy graphs' => 'Proxy Graphs',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'Geen informatie beschikbaar.',
+'proxy access graphs' => 'Proxy toegangsgrafieken',
+'ssproxy graphs' => 'Proxy grafieken',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'Brak dostępnych informacji.',
+'proxy access graphs' => 'Wykresy dostępu do Proxy',
+'ssproxy graphs' => 'Wykresy Proxy',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'No information available.',
+'proxy access graphs' => 'Proxy access graphs',
+'ssproxy graphs' => 'Proxy Graphs',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,9 @@
+%tr = (
+%tr,
+
+'no information available' => 'Herhangi bir bilgi bulunmamaktadır.',
+'proxy access graphs' => 'Vekil sunucu erişim grafiği',
+'ssproxy graphs' => 'Vekil Sunucu Grafikleri',
+);
+
+#EOF
new file mode 100644
@@ -0,0 +1,8 @@
+#!/bin/bash
+
+###
+### Squid-Graphs
+###
+if [ -e "/var/log/squid/access.log" ]; then
+ /usr/bin/squid-graph --no-console-log --tcp-only --output-dir=/srv/web/ipfire/html/sgraph < /var/log/squid/access.log >/dev/null 2>&1;
+fi