calstats-0.1.2/0040755000000000000000000000000010020422643012023 5ustar rootrootcalstats-0.1.2/TODO0100644000000000000000000000065410020422641012513 0ustar rootrootBugs: - fping - some ICMP messages are written on console - nmap - some messages are written on console - ping in debian woody/stable doesn't support -w option Todo: - OSPF line generation - email notification in case of some node's failure - add ability to generate more picture (different parameters) from one state file without need to ping it more times - change structure of .config file calstats-0.1.2/INSTALL0100644000000000000000000000127110020422621013046 0ustar rootrootRequirements: ping, nmap or fping awk PHP (with GD library) How to install: unpack the archive move calstats directory to /usr/local (or somewhere you want to use it in) change path and directories in 'gen_stats' if you have nmap installed change STATS_TYPE from 'ping' to 'nmap' (www.insecure.org/nmap/) for faster stats generation if you have fping installed change STATS_TYPE from 'ping' to 'fping' (www.fping.com) for faster stats generation run 'gen_stats' to test the configuration edit 'data/*' files to match your configuration (sample files are included, look at README) add 'gen_stats' to cron if you want to generate statistics periodically calstats-0.1.2/ChangeLog0100644000000000000000000000472710020401021013567 0ustar rootrootcalstats-0.1.2 - changed default path to /usr/local/calstats - fixed bug if there was more than one free line in .comp file (thanks to Norick for bugreport) - changed file structure - from now, there are only 2 scripts - gen_stats (bash) and calstats.php (you don't have to change paths in more files) - added ability to place comments into .comp, .link and .legend files (thanks to Danny for suggestion) - added ability to change background color (thanks to Jointer for suggestion) - added ability to remove image border (thanks to Jointer for suggestion) calstats-0.1.1 - added support for moving legend location - documentation improved to show how to make multiple lines between two computers calstats-0.1.0 - completely rewriten CaLStats core - added support for passive objects. if you assign 127.0.0.1 ip address to some object calstats will not retreive its state and marks it gray without showing ip address - added support for multiple lines between computers (thanks to Jonas Frey for suggestion) - lines width are now more scalable - link colors changed - added support for ip address and packet latency hiding (thanks to Jonas Frey for suggestion) calstats-0.0.8 - added host packet latency information (thanks to Jonas Frey for suggestion) - added computer boxes automatic width setting (thanks to Jonas Frey for suggestion) - added 'Last check at' to the title bar (optional) (thanks to Jonas Frey for suggestion) - changed default box height calstats-0.0.7 - added support for different link colors (thanks to Woody for suggestion) - added legend calstats-0.0.6 - fixed bug when using nmap 3.x (thanks to Daniel Fraga for bug report) calstats-0.0.5 - changed strucure of *.link files for multiple computers in one link support (sorry for this, but it will be better in this format, because of faster access to the data file) (thanks to Jon Greaves for suggestion) - added nmap (www.insecure.org/nmap/) support calstats-0.0.4 - added fping (www.fping.com) support (thanks to Daniel Fraga for suggestion) calstats-0.0.3 - added documentation - searhing for *.config, instead of *.comp files in data directory - awk is now used instead of gawk calstats-0.0.2 - added ability to change width and height of box with computer - machine scanning should be faster (thx to aquarius for help) - fixed bug with displaying minutes/seconds < 10 calstats-0.1.2/README0100644000000000000000000000027507707625577012741 0ustar rootrootCaLStats Computer and Line Statistics (c)2003 by Jan Krupa (krupaj@mobilnews.cz) You can find more information on: http://www.mobilnews.cz/honza/ See doc/index.html for more information. calstats-0.1.2/calstats/0040755000000000000000000000000010020414211013631 5ustar rootrootcalstats-0.1.2/calstats/data/0040755000000000000000000000000010020402073014545 5ustar rootrootcalstats-0.1.2/calstats/data/test1.comp0100644000000000000000000000035507713236032016504 0ustar rootrootServer1;192.168.1.1;1;250;120; %Server2;192.168.1.2;1;100;120; $Router1;1.2.3.4;1;250;50; !iGW;5.6.7.8;1;400;50; Client1;192.168.1.10;0;250;190; Client2;192.168.1.11;0;400;190; Client3;192.168.1.12;0;400;120; Storage;127.0.0.1;0;100;50; calstats-0.1.2/calstats/data/test1.config0100644000000000000000000000003210020400620016760 0ustar rootrootTest1;500;230;3;1;FFFFFF; calstats-0.1.2/calstats/data/test1.legend0100644000000000000000000000010507721226245017001 0ustar rootroot1;WiFi Link; 51;Optic Link; 40;Ethernet 10mbit; 41;Ethernet 100mbit; calstats-0.1.2/calstats/data/test1.link0100644000000000000000000000020307721226102016467 0ustar rootroot41;Storage;Server2;Server1;Router1; 0;Router1;iGW; 51;Router1;iGW; 40;Server1;Client1; 40;192.168.1.1;Client2; 40;Server1;Client3; calstats-0.1.2/calstats/data/test1.state0100644000000000000000000000022307713236072016664 0ustar rootroot192.168.1.1;1;1.10; 192.168.1.2;1;1.40; 1.2.3.4;1;1.40; 5.6.7.8;1;5.70; 192.168.1.10;1;2.30; 192.168.1.11;1;2.70; 192.168.1.12;0;0; 127.0.0.1;1;1; calstats-0.1.2/calstats/out/0040755000000000000000000000000007671632744014477 5ustar rootrootcalstats-0.1.2/calstats/out/test1.png0100644000000000000000000000561310020412577016225 0ustar rootrootPNG  IHDRa N6++caВtXt\gYiܗ,[,͗ ~)g ;#_q?CsXH rp{y&{YI`lܗC˗9oДC> Kק); 2[ꀹuXe@x㡄)<8.d>8%B趌4N4niXK޶$Y>,:o.&k%=U#tc `9fdy[ԺμރsAh=Pn7<䶼 wx~3~*v^t~{rn^-b_–q=t\xh2vx>*Y[@#[)PU$KzpZPPR&@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@Wios*.8W*I_9@ mFA/>CVnNbxςB7;Ȇƪ-ߨؿ*5 ^tٱkCSv c+a=;ym tV~l䪤C[@^I^m؊cI/ __]eQo׷p)ЍfV]~Y)$TTtxM~z tNhs$Q ;U9Б]oڻyv~:os֤@+:7gu/8gΌlS _ з# "[??!42]=_2]++++++++++++++++++++++++++++++++++++++++TtOAJ+-."i/@o/@<[.E6i^t?i5mChǠEWgĻOŚg`/PV\m==ݵ[nYb~^k茬O򠇯/>P$]}g-v xE0OO[B# 8.CKΤD?R@?֜+@:@Owm {Bb'Mߒ"~1+\-QZЫ-E&AvΧ/#H_mjWЫ-ݚw5B>maIKP; UҒ57asRuLWmzH3m!mz(/%݆\u^c)v٦B'&XHe3o UoŖMa&r-yTt6_^Ž\1ܜj3]e=@=U)@j"C4?"Hd!'M1@O\y&4=gIz6S`ܭ&;lys^z;WeqO^zu6 2v@oսznCmzát4`<z yx&f]5۸$C߇MR\(`ݽ U6wc@E3gX{Bg1}eIo=|W%=nU=:/_|A޲zqu I3,6k1ʂnZv\O2tWJ^@ӦGS W~_vlJQWȝ:t/SoiwIlWGm/j]_HTޑ!@ лW/ztm r*|/8W5:!GJ#wOoQY@U;j9{kV6B|5}gxyOwxyA/}5y95Iߒ"lJteeV޷نПCk}r| =JvNf:I)a4߶?9Mn[Hθw] ӜVmBwUFC~gn_eg[Ndwl;`BqU }۰nSzjsߑ3/EU\6=~Ok⯍ >ZOǕMr5+>͙;r^^fo^zAxJ#`h+t5dh+?2p1CϗxА>]١V@ k!J~qOU@C >LVX}# u V,@W%tFNӫ5*vs]tH]Uhj M-@ר#!tt RrJM^qIENDB`calstats-0.1.2/calstats/tmp/0040755000000000000000000000000007671626247014471 5ustar rootrootcalstats-0.1.2/calstats/calstats.php0100600000000000000000000003623710020412175016167 0ustar rootroot 1) { $l_tmp_chr = substr($in_s1, (strlen($in_s1)-2), 1); } for ($j1 = 0; ($j1 < (substr($in_s1, (strlen($in_s1)-1), 1) + 1)); $j1++) { $l_tmp_pat = $l_tmp_pat . $l_tmp_chr; } return $l_tmp_pat; } function assign_color($im, $in_col, $image_bgc) { // Assign defined color to line $ln_color=ImageColorExact($im, 180, 180, 180); switch ($in_col) { case '-' : $ln_color = ImageColorExact($im, $image_bgc[0], $image_bgc[1], $image_bgc[2]); break; case 1 : $ln_color = ImageColorExact($im, 0, 0, 0); break; case 2 : $ln_color = ImageColorExact($im, 180, 0, 0); break; case 3 : $ln_color = ImageColorExact($im, 0, 180, 0); break; case 4 : $ln_color = ImageColorExact($im, 0, 0, 180); break; case 5 : $ln_color = ImageColorExact($im, 180, 0, 180); break; // magenta case 6 : $ln_color = ImageColorExact($im, 180, 180, 0); break; // yellow case 7 : $ln_color = ImageColorExact($im, 0, 180, 180); break; // white blue case 8 : $ln_color = ImageColorExact($im, 255, 0, 0); break; case 9 : $ln_color = ImageColorExact($im, 0, 255, 0); break; } return $ln_color; } function placeAP ($im, $x1, $y1, $ap_name, $ap_ip, $ap_type, $ap_state, $ap_lat) { // Place computer on the map $ap_showip = 1; if ($ap_ip == "127.0.0.1") { $ap_showip = 0; } // ! ... hide ip and packet latency information // $ ... hide ip // % ... hide packet latency information $ap_name_show = $ap_name; if ( (substr($ap_name, 0, 1) == "!") || (substr($ap_name, 0, 1) == "$") ) { $ap_showip = 0; $ap_name_show = substr($ap_name, 1, (strlen($ap_name)-1)); } $ap_lat_show = $ap_lat; if ( (substr($ap_name, 0, 1) == "!") || (substr($ap_name, 0, 1) == "%") ) { $ap_lat_show = 0; $ap_name_show = substr($ap_name, 1, (strlen($ap_name)-1)); // not needed if ! (already done in previous step) } $ap_xsize = 100; $ap_ysize = 35; if ($ap_showip == 0) { $ap_ysize=17; } $ap_name_size = ImageFontWidth(3)*strlen($ap_name_show); $ap_ip_size = ImageFontWidth(2)*strlen($ap_ip); $ap_lat_size = ImageFontWidth(2)*strlen(round($ap_lat_show))+6; if ($ap_lat_show == 0) { $ap_lat_size = 1; } if (($ap_name_size + $ap_lat_size + 10) > ($ap_xsize)) { $ap_xsize = $ap_name_size + $ap_lat_size+10; /* if (($ap_ip_size + 10) > $ap_xsize) { $ap_xsize = $ap_ip_size + 10; } */ } switch ($ap_state) { case 0 : $ap_color = ImageColorExact($im, 255, 0, 0); $ap_color2=ImageColorExact($im, 255, 140, 140); break; case 1 : $ap_color = ImageColorExact($im, 0, 255, 0); $ap_color2=ImageColorExact($im, 140, 255, 140); break; case 2 : $ap_color = ImageColorExact($im, 180, 180, 180); $ap_color2=ImageColorExact($im, 220, 220, 220); break; } ImageRectangle($im, ($x1-($ap_xsize/2)), ($y1-($ap_ysize/2)), ($x1+($ap_xsize/2)), ($y1+($ap_ysize/2)), ImageColorExact($im, 0, 0, 0)); ImageFilledRectangle($im, ($x1-($ap_xsize/2-1)), ($y1-($ap_ysize/2-1)), ($x1+($ap_xsize/2-$ap_lat_size)), ($y1-($ap_ysize/2-16)), $ap_color); if ($ap_showip == 1) { ImageLine($im, ($x1-($ap_xsize/2-1)), ($y1-($ap_ysize/2-17)), ($x1+($ap_xsize/2-1)), ($y1-($ap_ysize/2-17)), ImageColorExact($im, 140, 140, 140)); } if ($ap_lat_show !=0 ) { ImageFilledRectangle($im, ($x1+($ap_xsize/2-$ap_lat_size+2)), ($y1-($ap_ysize/2-1)), ($x1+($ap_xsize/2-1)), ($y1-($ap_ysize/2-16)), $ap_color2); ImageLine($im, ($x1+($ap_xsize/2-$ap_lat_size+1)), ($y1-($ap_ysize/2-1)), ($x1+($ap_xsize/2-$ap_lat_size+1)), ($y1-($ap_ysize/2-16)),ImageColorExact($im, 140, 140, 140)); ImageString($im, 2, ($x1+($ap_xsize/2)-$ap_lat_size+4), $y1-($ap_ysize/2-2), round($ap_lat_show), ImageColorExact($im, 0, 0, 0)); } ImageFilledRectangle($im, ($x1-($ap_xsize/2-1)), ($y1-($ap_ysize/2-18)), ($x1+($ap_xsize/2-1)), ($y1+($ap_ysize/2-1)), ImageColorExact($im, 220, 220, 220)); for ($i=1; $i<=$ap_type; $i++) { ImageRectangle($im, ($x1-($ap_xsize/2)-$i), ($y1-($ap_ysize/2)-$i), ($x1+($ap_xsize/2)+$i), ($y1+($ap_ysize/2)+$i), ImageColorExact($im, 0, 0, 0)); } ImageString($im, 3, ($x1-($ap_name_size/2)-($ap_lat_size/2)+2), $y1-($ap_ysize/2-2), $ap_name_show, ImageColorExact($im, 0, 0, 0)); if ($ap_showip == 1) { ImageString($im, 2, ($x1-strlen($ap_ip)*3), ($y1+1), $ap_ip, ImageColorExact($im, 0, 0, 0)); } } function placeLN($im, $x1, $y1, $x2, $y2, $lnd, $image_bgc) { // Place link onto map // Find out how to draw lines $ln_dir = 0; // 0 = horizontal, 1 = verical $tmp_x = abs($x1 - $x2); $tmp_y = abs($y1 - $y2); if ($tmp_x > $tmp_y) { $ln_dir = 1; } if ($ln_dir == 0) { // Horizontal $tmp_s1 = $x1 - round(strlen($lnd) / 2); for ($ix1 = $tmp_s1; $ix1 < ($tmp_s1 + strlen($lnd)); $ix1++) { ImageLine($im, $ix1, $y1, ($x2 - $x1 + $ix1), $y2, assign_color($im, substr($lnd, ($ix1 - $tmp_s1), 1), $image_bgc)); } } else { // Vertical $tmp_s1 = $y1 - round(strlen($lnd) / 2); for ($ix1 = $tmp_s1; $ix1 < ($tmp_s1 + strlen($lnd)); $ix1++) { ImageLine($im, $x1, $ix1, $x2, ($y2 - $y1 + $ix1), assign_color($im, substr($lnd, ($ix1 - $tmp_s1), 1), $image_bgc)); } } } // ------------------------------------------------------------------------ $image_filename = $argv[1]; // Basic definitions $calstats_version = "0.1.2"; $calstats_id = "CaLStats"; $image_date_lu = "Last update "; // Date $a_date = getdate(); $a_date_minutes = $a_date['minutes']; if ($a_date_minutes < 10) { $a_date_minutes = "0" . $a_date_minutes; } $a_date_seconds = $a_date['seconds']; if ($a_date_seconds < 10) { $a_date_seconds = "0" . $a_date_seconds; } $image_date = $image_date_lu . $a_date['mday'] . " " . $a_date['month'] . " " . $a_date['year'] . " " . $a_date['hours'] . ":" . $a_date_minutes . ":" . $a_date_seconds; // --- Load config file - begin ------------------------------------------- $file_in = fopen($image_filename . ".config", "r"); if (!$file_in) { exit; } $fin_line=rtrim(fgets($file_in, 1024)); $image_title = strtok($fin_line, ";"); $image_xsize = strtok(";"); $image_ysize = strtok(";"); $image_legend = strtok(";"); // legend location $image_border = strtok(";"); // display border $image_bg = strtok(";"); // image background AABBCC if ($image_bg == "") $image_bg="FFFFFF"; $image_bgc[0] = hexdec($image_bg[0].$image_bg[1]); $image_bgc[1] = hexdec($image_bg[2].$image_bg[3]); $image_bgc[2] = hexdec($image_bg[4].$image_bg[5]); fclose($file_in); // --- Load config file - end --------------------------------------------- // --- Load computer data - begin ----------------------------------------- $file_in = fopen($image_filename . ".comp", "r"); if (!$file_in) { exit; } $comp_num = 0; while (!feof($file_in)) { $fin_line=rtrim(fgets($file_in, 1024)); $a_comp[$comp_num][0] = strtok($fin_line, ";"); // name $a_comp[$comp_num][1] = strtok(";"); // ip $a_comp[$comp_num][2] = strtok(";"); // type $a_comp[$comp_num][3] = strtok(";"); // x1 $a_comp[$comp_num][4] = strtok(";"); // y1 if ( ($a_comp[$comp_num][3]!=0) && ($a_comp[$comp_num][4]!=0) && ($a_comp[$comp_num][0][0]!='#') ) $comp_num++; } fclose($file_in); // --- Load computer data - end ------------------------------------------- // --- Load links data - begin -------------------------------------------- $link_show = 1; if (file_exists($image_filename . ".link")) { $file_in = fopen($image_filename . ".link", "r"); if (!$file_in) { exit; } $link_num = 0; while (!feof($file_in)) { $fin_line=rtrim(fgets($file_in, 1024)); $link_tmp_type = strtok($fin_line, ";"); // link_type $a_link[$link_num][0] = $link_tmp_type; $link_tmp = strtok(";"); while ($link_tmp != "") { $a_link[$link_num][0] = $link_tmp_type; $a_link[$link_num][3] = 0; // was it drawed on the screen $a_link[$link_num][1] = $link_tmp; // comp $link_tmp = strtok(";"); $a_link[$link_num][2] = $link_tmp; // comp if ( ($link_tmp != "") && ($a_link[$link_num][0][0]!='#') ) $link_num++; } } fclose($file_in); } else { $link_show=0; } // --- Load links data - end ---------------------------------------------- // --- Load legend data - begin ------------------------------------------- $legend_show = 1; if (file_exists($image_filename . ".legend")) { $file_in = fopen($image_filename . ".legend", "r"); if (!$file_in) { exit; } $legend_num = 0; while (!feof($file_in)) { $fin_line=rtrim(fgets($file_in, 1024)); $a_legend[$legend_num][0] = strtok($fin_line, ";"); // name $a_legend[$legend_num][1] = strtok(";"); // ip if ($a_legend[$legend_num][0][0]!='#') $legend_num++; } $legend_num--; fclose($file_in); } else { $legend_show = 0; } // --- Load legend data - end --------------------------------------------- // --- Load links state - begin ------------------------------------------- $file_in = fopen($image_filename . ".state", "r"); if (!$file_in) { exit; } $state_num = 0; while (!feof($file_in)) { $fin_line=rtrim(fgets($file_in, 1024)); $a_state[$state_num][0] = strtok($fin_line, ";"); // ip $a_state[$state_num][1] = strtok(";"); // available $a_state[$state_num][2] = strtok(";"); // packet loss $state_num++; } $state_num--; fclose($file_in); // --- Load links state - end --------------------------------------------- Header("Content-type: image/png"); $im = ImageCreate($image_xsize, $image_ysize); $im_white = ImageColorAllocate($im, 255, 255, 255); $im_black = ImageColorAllocate($im, 0, 0, 0); $im_bg = ImageColorAllocate($im, $image_bgc[0], $image_bgc[1], $image_bgc[2]); $im_gray1 = ImageColorAllocate($im, 140, 140, 140); $im_gray2 = ImageColorAllocate($im, 180, 180, 180); $im_gray3 = ImageColorAllocate($im, 200, 200, 200); $im_gray4 = ImageColorAllocate($im, 220, 220, 220); $im_gray5 = ImageColorAllocate($im, 240, 240, 240); $im_red = ImageColorAllocate($im, 255, 0, 0); $im_green = ImageColorAllocate($im, 0, 255, 0); $im_blue = ImageColorAllocate($im, 0, 0, 255); $im_red2 = ImageColorAllocate($im, 180, 0, 0); $im_green2 = ImageColorAllocate($im, 0, 180, 0); $im_blue2 = ImageColorAllocate($im, 0, 0, 180); $im_magenta2 = ImageColorAllocate($im, 180, 0, 180); $im_yellow2 = ImageColorAllocate($im, 180, 180, 0); $im_wblue2 = ImageColorAllocate($im, 0, 180, 180); $im_red3 = ImageColorAllocate($im, 255, 140, 140); $im_green3 = ImageColorAllocate($im, 140, 255, 140); $im_blue3 = ImageColorAllocate($im, 140, 140, 255); ImageFilledRectangle($im, 0, 0, ($image_xsize-1), 15, $im_black); ImageFilledRectangle($im, 0, 16, ($image_xsize-1), ($image_ysize-1), $im_bg); if ($image_border == 1) ImageRectangle($im, 0, 0, ($image_xsize-1), ($image_ysize-1), $im_black); ImageString($im, 3, 5, 1, $image_title, $im_white); ImageString($im, 2, ($image_xsize-ImageFontWidth(2)*strlen($image_date)-5), 1, $image_date, $im_gray4); ImageStringUp($im, 1, ($image_xsize-10), ($image_ysize-5), $calstats_id . " " . $calstats_version, $im_gray2); // Place links if ($link_show == 1) { for ($i1 = 0; ($i1 < $link_num); $i1++) { if ($a_link[$i1][3] == 0) { $l_pat = return_link_str1($a_link[$i1][0]); $a_link[$i1][3] = 1; $i_l1 = return_ap_index($a_comp, $comp_num, $a_link[$i1][1]); $i_l2 = return_ap_index($a_comp, $comp_num, $a_link[$i1][2]); for ($i2 = ($i1 + 1); ($i2 < $link_num); $i2++) { $i_l3_tmp = return_ap_index($a_comp, $comp_num, $a_link[$i2][1]); $i_l4_tmp = return_ap_index($a_comp, $comp_num, $a_link[$i2][2]); if ( (($i_l1 == $i_l3_tmp) && ($i_l2 == $i_l4_tmp)) || (($i_l1 == $i_l4_tmp) && ($i_l2 == $i_l3_tmp)) ) { $l_pat = $l_pat . "----" . return_link_str1($a_link[$i2][0]); $a_link[$i2][3] = 1; } } placeLN($im, $a_comp[$i_l1][3], $a_comp[$i_l1][4], $a_comp[$i_l2][3], $a_comp[$i_l2][4], $l_pat, $image_bgc); } } } // Place computers for ($i1=0; ($i1 < $comp_num); $i1++) { $comp_tmp1 = return_ip_state($a_state, $state_num, 0, $a_comp[$i1][1]); $comp_tmp2 = return_ip_state($a_state, $state_num, 1, $a_comp[$i1][1]); if ($a_comp[$i1][1] == "127.0.0.1") { $comp_tmp1 = 2; $comp_tmp2 = 0; } PlaceAP($im, $a_comp[$i1][3], $a_comp[$i1][4], $a_comp[$i1][0], $a_comp[$i1][1], $a_comp[$i1][2], $comp_tmp1, $comp_tmp2); } // Draw legend if ( ($legend_show == 1) && ($image_legend != 0) ) { $l_num_string = 0; for ($i1 = 0; ($i1 < $legend_num); $i1++) { if (strlen($a_legend[$i1][1]) > $l_num_string) { $l_num_string = strlen($a_legend[$i1][1]); } } if ( ($image_legend == 1) || ($image_legend == 3) ) { $l_xloc = 12; } else { $l_xloc = ($image_xsize-37-($l_num_string*ImageFontWidth(2))); } if ( ($image_legend == 1) || ($image_legend == 2) ) { $l_yloc = 27; } else { $l_yloc = ($image_ysize-12-($legend_num*15)); } ImageRectangle($im, $l_xloc, ($l_yloc-2), ($l_xloc+25+($l_num_string*ImageFontWidth(2))), ($l_yloc + ($legend_num*15) + 1), $im_gray3); ImageFilledRectangle($im, ($l_xloc+1), ($l_yloc-1), ($l_xloc+24+($l_num_string*ImageFontWidth(2))), ($l_yloc + ($legend_num*15)), $im_gray5); for ($i1 = 0; ($i1 < $legend_num); $i1++) { placeLN($im, ($l_xloc+5), ($l_yloc+7), ($l_xloc+15), ($l_yloc+7), return_link_str1($a_legend[$i1][0]), 2); ImageString($im, 2, ($l_xloc+20), ($l_yloc), $a_legend[$i1][1], $im_black); $l_yloc+=15; } } ImagePng ($im); ImageDestroy($im); ?> calstats-0.1.2/calstats/gen_stats0100755000000000000000000000476710020414170015565 0ustar rootroot#!/bin/sh # (c)2003 by Jan Krupa (krupaj@mobilnews.cz) # http://www.mobilnews.cz/honza/ # -- Configuration --------------------------------------------------- # CaLStats directory and data paths STATS_PATH=/usr/local/calstats STATS_PATH_DATA=$STATS_PATH/data STATS_PATH_OUT=$STATS_PATH/out STATS_PATH_TMP=$STATS_PATH/tmp # Program paths PHP_PATH=/usr/bin/php4 PING_PATH=ping NMAP_PATH=nmap FPING_PATH=fping # STATS_TYPE - ping, fping or nmap STATS_TYPE=ping # Don't change anything bellow this line if you are not sure what # you are doing ;) # -------------------------------------------------------------------- for LINE in `ls -1 $STATS_PATH_DATA | grep .config`; do a_file=`echo $LINE | awk -F. '{ printf "%s", $1 }'` file_comp=$STATS_PATH_DATA/$a_file.comp file_state=$STATS_PATH_DATA/$a_file.state # Get computer states if [ $STATS_TYPE = "fping" ]; then ping_host_all="" for LINE in `cat $file_comp`; do ping_host=`echo -n $LINE | awk -F\; '{ printf "%s", $2 }'` ping_host_all="${ping_host_all} ${ping_host}" done $FPING_PATH -e $ping_host_all | awk -F\ '{ printf "%s;", $1; if ($3=="alive") printf "1;%s;\n", substr($4, 2, (length($4)-1)); else printf "0;0;\n"; }' > $file_state fi if [ $STATS_TYPE = "ping" ]; then for LINE in `cat $file_comp`; do ping_host=`echo -n $LINE | awk -F\; '{ printf "%s", $2 }'`; ping_lat=\;`$PING_PATH -c 1 -w 2 $ping_host | grep rtt | awk -F\ '{ printf "%s", $4 }' | awk -F\/ ' { printf "%s", $2 }'`; if [ "$ping_lat" = ";" ]; then ping_lat=\;`$PING_PATH -c 1 -w 2 $ping_host | grep rtt | awk -F\ '{ printf "%s", $4 }' | awk -F\/ ' { printf "%s", $2 }'`; fi if [ "$ping_lat" = ";" ]; then echo $ping_host\;0\;0\;; > $file_state else echo $ping_host\;1$ping_lat\;; > $file_state fi done fi if [ $STATS_TYPE = "nmap" ]; then ping_host_all="" for LINE in `cat $file_comp`; do ping_host=`echo -n $LINE | awk -F\; '{ printf "%s", $2 }'` ping_host_all="${ping_host_all} ${ping_host}" done $NMAP_PATH -vnsP $ping_host_all | awk -F\ '{ if ($1=="Host") { if (match($2, /\(/) == 0) { printf "%s;", $2; } else { printf "%s;", substr($2, 2, (length($2)-2)); } if ($6=="up.") printf "1;0;\n"; else printf "0;0;\n"; } }' > $file_state fi # Create picture to temporary location $PHP_PATH -q $STATS_PATH/calstats.php $STATS_PATH_DATA/$a_file > $STATS_PATH_TMP/$a_file.png # Move picture to output location mv -f $STATS_PATH_TMP/$a_file.png $STATS_PATH_OUT done calstats-0.1.2/LICENSE0100644000000000000000000000015707674325504013053 0ustar rootrootYou can use, distribute and modify this program as you wish, but you must include my copyright notice with it. calstats-0.1.2/doc/0040755000000000000000000000000010020421373012567 5ustar rootrootcalstats-0.1.2/doc/index.html0100644000000000000000000001405310020421372014563 0ustar rootroot CaLStats documentation CaLStats documentation
Computer and Links Statistics

Example - Test1 Image description

Basic information
First of all check out CaLStats homepage if there is newer version available:
http://www.mobilnews.cz/honza/en_prog_linux_calstats.php

Every site stat consist of three to five files. So our testing example will consist of those files:
test1.config - configuration file
test1.comp - list of computers
test1.link - list of links between computers (optional)
test1.legend - legend (optional)
test1.state - actual state of computers (generated by CaLStats)

You need to create .config and .comp files for every site stat. You can place as many sites as you want into data directory. Then just run gen_stats and stats will be gererated. If you want up to date stats, insert gen_stats into cron daemon (for example every 5-10 minutes).

Installation

These programs must be available in the system: awk, PHP (with GD library)
  • unpack the archive
  • move calstats directory to /usr/local (or somewhere you want to use it in)
  • change path, directories and configuration in 'gen_stats'
  • if you have fping installed change STATS_TYPE from 'ping' to 'fping' (www.fping.com) for faster stats generation
  • if you have nmap installed change STATS_TYPE from 'ping' to 'nmap' (www.insecure.org/nmap/) for faster stats generation
  • run 'gen_stats' to test the configuration
  • edit 'data/*' files to match your configuration (sample files are included)
  • add 'gen_stats' to cron if you want to generate statistics periodically
Packet latency information is supported only if you are using ping or fping.

*.config files
title;x_size;y_size;legend_location;border;background_color;

legend_location:
0 ... no legend
1 ... top left
2 ... top right
3 ... bottom left
4 ... bottom right

border:
0 ... off
1 ... on

You can leave background_color field blank if you want white background.

Example - test1.config
Test1;500;230;3;1;FFFFFF;
*.comp files
computer_name;ip_address;computer_importance(0-5);x_location;y_location;

You can add those characters before computer name:
! - IP address and packet latency information will not be showed
$ - IP address will not be showed
% - packet latency information will not be showed

If you assign IP address 127.0.0.1 to some computer, it will be showed as passive object without any availability information.

You can add comments to data file by placing # in the beginning of the line.

Example - test1.comp
Server1;192.168.1.1;1;250;120;
%Server2;192.168.1.2;1;100;120;
$Router1;1.2.3.4;1;250;50;
!iGW;5.6.7.8;1;400;50;
Client1;192.168.1.10;0;250;190;
Client2;192.168.1.11;0;400;190;
Client3;192.168.1.12;0;400;120;
Storage;127.0.0.1;0;100;50;
*.link files
link_importance(0-5);source_ip;destination_ip;
link_importance(0-5);source_name;destination_name;
link_importance(0-5);source_ip;destination_name;
link_importance(0-5);source_name;destination_ip;

First number means color (if >10), second number means link importance.
COLOR 0, COLOR 1, COLOR 2, COLOR 3, COLOR 4, COLOR 5, COLOR 6, COLOR 7, COLOR 8, COLOR 9

You can add comments to data file by placing # in the beginning of the line.

Example - test1.link
41;Storage;Server2;Server1;Router1;
0;Router1;iGW;
51;Router1;iGW;
40;Server1;Client1;
40;192.168.1.1;Client2;
40;Server1;Client3;
*.legend files
link_importance;link_importance_legend;

You can add comments to data file by placing # in the beginning of the line.

Example - test1.legend
1;WiFi Link;
51;Optic Link;
40;Ethernet 10mbit;
41;Ethernet 100mbit;
*.state files
ip_address;number_of_pings_received(if >0 => computer is green, otherwise red);latency;

Example - test1.state
192.168.1.1;1;1.10;
192.168.1.2;1;1.40;
1.2.3.4;1;1.40;
5.6.7.8;1;5.70;
192.168.1.10;1;2.30;
192.168.1.11;1;2.70;
192.168.1.12;0;0;
127.0.0.1;1;1;
(c)2003 by Jan Krupa.

 calstats-0.1.2/doc/test1.png0100644000000000000000000000561310020412577014345 0ustar rootrootPNG  IHDRa N6++caВtXt\gYiܗ,[,͗ ~)g ;#_q?CsXH rp{y&{YI`lܗC˗9oДC> Kק); 2[ꀹuXe@x㡄)<8.d>8%B趌4N4niXK޶$Y>,:o.&k%=U#tc `9fdy[ԺμރsAh=Pn7<䶼 wx~3~*v^t~{rn^-b_–q=t\xh2vx>*Y[@#[)PU$KzpZPPR&@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@W(@Wios*.8W*I_9@ mFA/>CVnNbxςB7;Ȇƪ-ߨؿ*5 ^tٱkCSv c+a=;ym tV~l䪤C[@^I^m؊cI/ __]eQo׷p)ЍfV]~Y)$TTtxM~z tNhs$Q ;U9Б]oڻyv~:os֤@+:7gu/8gΌlS _ з# "[??!42]=_2]++++++++++++++++++++++++++++++++++++++++TtOAJ+-."i/@o/@<[.E6i^t?i5mChǠEWgĻOŚg`/PV\m==ݵ[nYb~^k茬O򠇯/>P$]}g-v xE0OO[B# 8.CKΤD?R@?֜+@:@Owm {Bb'Mߒ"~1+\-QZЫ-E&AvΧ/#H_mjWЫ-ݚw5B>maIKP; UҒ57asRuLWmzH3m!mz(/%݆\u^c)v٦B'&XHe3o UoŖMa&r-yTt6_^Ž\1ܜj3]e=@=U)@j"C4?"Hd!'M1@O\y&4=gIz6S`ܭ&;lys^z;WeqO^zu6 2v@oսznCmzát4`<z yx&f]5۸$C߇MR\(`ݽ U6wc@E3gX{Bg1}eIo=|W%=nU=:/_|A޲zqu I3,6k1ʂnZv\O2tWJ^@ӦGS W~_vlJQWȝ:t/SoiwIlWGm/j]_HTޑ!@ лW/ztm r*|/8W5:!GJ#wOoQY@U;j9{kV6B|5}gxyOwxyA/}5y95Iߒ"lJteeV޷نПCk}r| =JvNf:I)a4߶?9Mn[Hθw] ӜVmBwUFC~gn_eg[Ndwl;`BqU }۰nSzjsߑ3/EU\6=~Ok⯍ >ZOǕMr5+>͙;r^^fo^zAxJ#`h+t5dh+?2p1CϗxА>]١V@ k!J~qOU@C >LVX}# u V,@W%tFNӫ5*vs]tH]Uhj M-@ר#!tt RrJM^qIENDB`calstats-0.1.2/doc/calstats_help1.png0100644000000000000000000001122507710531507016217 0ustar rootrootPNG  IHDR*tEXtCreation Time/KtIME9 PX pHYs  ~YPLTEｽ猌ZZ11!!眜ss))BBcc便ބﵵJJ{{!!!{{{RRcccJJJ)))99999RRRssskkkkkBBBﭭZZZ111甔sRRք!){RRks9Bsk9R91!R)ks!k{B!ZcRsc19BBZ)՛wIDATxOBOpIbb'18Ď&M4֬{hצۺ}C’8ɧ'^ #Ww_NbTI%*fUbVY%*fUbVYe:=zV*JkU1unV`Uo7Lٰ,hZoIըZm }}`)oWK5Fj*T LT~mg/ FQUw_>a$U?D4f\Ġt h2ԮJ[+'#Ѩ14*Ӿ;m9e$Uׄv7^Jf$ /1պ M7bDB$QuGHV9B8H+"U7&$E} bNce Jo<꤯G]ݰ)P3A ŦŪ#AT 8&nsF˾l/MHE 깔lr j@;|v4P JRH{P(YD3SV_=<7GU3YIPIjEjs)`ďn/:ښL[` z:nR˧6{;x[% \\'!#[ФW!zx lI'`z  xqK&HwC7kȏ焖 8rofܟg})EU׹fFX5yJv[uOPn@Aj:C ՈktP=H ?NTf6r {>5oL5K <=gwHX|:'tTMqQMv/]1؎3DSsFU Qa$j# ǼQa)V%* #Eqg~qiaj'χ'_ZB-,ofd3W#~TQCL}rN.32Gf;hF{#Sp(#~TQ)9Qo'G/P[8A>=\1Fz9M&y=|:H/0K38#T G}r Kfdf'=w}L r[qF5hD=~OC[@}LcPм@p܋,$̀X(QY~Ś¹Uȝ x>'l$fg/}kF([6:5+[pPJBUp:7O  UF¨ЯiQ02n@} >.D**ye]U?(#󝸺|(`ֱEϷLFxD?5}O1_p RnxPd(R QX0RoQPoIqߙp[*^'~yL ҇O| Z (:O3~[ )P/,߾-* !P!X?9fxX B:?ŏ_ ų}oy[cPz _oT+p?/E/_WE\/ ӕF5AgWWT?|I6sAO^Vƣo?}qMP_W^_8`% Gk,\Q t#ߪA>`DUZZTU*QJTS{`_?]EY?꣚2"7?})~Gu   Q*ױb` `(Kt }~oG :*_}MP$e[xHܿ= 纠b)U T*QJT%R=XHյBJ!UbVY%*fUbVY%*fUbVY%*fUbVY%*fUbVY%*fUbe:&4;NVE]DT&Τ۪¡j52wv:et:@kw{P | R|XRM} K(T)ԯyU{hbXB8Ќ'pG(MLUiPSAMЌ 2rUׄ6ӝf 8TB!P!I^7 '5F"B:jTJTA'p`U7)*ybNTqwoTc Uި:QW7E*gT]HpKȐdƜU|QUlWx\vTmfkjQF6 pcۇBUB6 3u<}PT9*v4T4=T/N&jql&m`2CE^<DTef)N/lF.6`lFU[PUTN3: .w jU)"NmM&[GҭS_yQvNTicjlfBMgxtv WN>z5R#3bA?ރi8Qv^:,hOjR K*ȅv6r _WU˜ڀ=Svh ;$ϢZl*q j>5X}gQePeeL~25!/vBTLGeFՃCU Җek;|- wA TI@< p Wvs '}v[`m0iV<.SrrI"'\-=|IJiBuyP?jp^' _7p ౷bRQ2d"%&8O - N鞷HeHTUE9|tX}!!D@% uP B5UMPllk>iXBŖ-^rTًsZ|*VF?1 U LAa-TyԳxM_T ǪGˌY|QIu-yGeR*Km:dKOR W2UnU@%4)'IS%PIY% 7@wxg_P|T8YJLj:@w{K:D-*I2'ErHGEJ[# .*@z#$]&PP̞dDnhP%nQ(T(Z=\ T$->