GenEthic bot graphics

#!/usr/bin/perl my $xsize = 400; my $ysize = 100; use strict; if ( $ARGV[1] eq '' ) { syntax(); } if ( !-x "$ARGV[0]" ) { print STDERR "ERROR: $ARGV[0] file not found or wrong permissions (execute needed)\n"; syntax(); } if ( !-r "$ARGV[1]" ) { print STDERR "ERROR $ARGV[1] file not found or wrong permission (read needed)\n"; syntax(); } my $path = ''; open(CONFIG,"$ARGV[1]"); while() { chop; if ( /^PATH( | )+(.*)$/ ) { $path = $2; } } close(CONFIG); if ( !$path ) { print STDERR "ERROR: cannot find 'PATH' directive in $ARGV[1]\n"; exit 1; } elsif ( !-d "$path/mrtg" ) { print STDERR "ERROR: $path/mrtg doesnt exist or is not a directory. please create it.\n"; exit 1; } if ( !-w "$path/etc" ) { print STDERR "ERROR: cannot create new file in $path/etc please check the permissions.\n"; exit 1; } open(MRTG,">$path/etc/mrtg.conf"); open(HTML,">$path/mrtg/index.html"); print HTML < GenEthic bot graphics

GenEthic graphics

LOCAL USERS

GLOBAL USERS

UNKNOWN USERS

CHANNELS

USERS CONNECTING/DISCONNECTING

CPU

EOF print MRTG < PageFoot[\$]: BodyTag[_]: Target[cpu]: `cat $path/mrtg/cpu.dat` Title[cpu]: CPU PageTop[cpu]:

CPU

MaxBytes[cpu]: 100 AbsMax[cpu]: 100 WithPeak[cpu]: wmy XSize[cpu]: $xsize YSize[cpu]: $ysize Options[cpu]: growright, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[cpu]: CPU ShortLegend[cpu]: cpu Target[local_users]: `cat $path/mrtg/local_users.dat` Title[local_users]: LOCAL USERS PageTop[local_users]:

LOCAL USERS

MaxBytes[local_users]: 16384 AbsMax[local_users]: 100000 WithPeak[local_users]: wmy XSize[local_users]: $xsize YSize[local_users]: $ysize Options[local_users]: growright, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[local_users]: LOCAL USERS ShortLegend[local_users]: users Target[global_users]: `cat $path/mrtg/global_users.dat` Title[global_users]: GLOBAL USERS PageTop[global_users]:

GLOBAL USERS

MaxBytes[global_users]: 200000 AbsMax[global_users]: 1000000 WithPeak[global_users]: wmy XSize[global_users]: $xsize YSize[global_users]: $ysize Options[global_users]: growright, noinfo, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[global_users]: GLOBAL USERS ShortLegend[global_users]: users Target[unknown_users]: `cat $path/mrtg/unknown_users.dat` Title[unknown_users]: UNKNOWN USERS PageTop[unknown_users]:

UNKNOWN USERS

MaxBytes[unknown_users]: 150 AbsMax[unknown_users]: 3000 WithPeak[unknown_users]: wmy XSize[unknown_users]: $xsize YSize[unknown_users]: $ysize Options[unknown_users]: growright, noinfo, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[unknown_users]: UNKNOWN USERS ShortLegend[unknown_users]: users Target[channel]: `cat $path/mrtg/channel.dat` Title[channel]: CHANNELS PageTop[channel]:

CHANNELS

MaxBytes[channel]: 50000 AbsMax[channel]: 200000 WithPeak[channel]: wmy XSize[channel]: $xsize YSize[channel]: $ysize Options[channel]: growright, noinfo, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[channel]: CHANNELS ShortLegend[channel]: channels Target[users_diff]: `cat $path/mrtg/users_diff.dat` Title[users_diff]: USERS CONNECTING/DISCONNECTING PageTop[users_diff]:

USERS CONNECTING/DISCONNECTING

MaxBytes[users_diff]: 500 AbsMax[users_diff]: 10000 WithPeak[users_diff]: wmy XSize[users_diff]: $xsize YSize[users_diff]: $ysize Options[users_diff]: growright, noinfo, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer YLegend[users_diff]: USERS MOVE ShortLegend[users_diff]: users EOF my %data; open(LOG,"$path/var/genethic.log"); while() { chop; my ($name,$value)=split(/:/); $data{$name} = $value; if ( $name =~ /^RPING_(.*)$/ ) { my $hub = $1; print HTML <RPING $hub

EOF print MRTG <RPING $hub MaxBytes[rping_$hub]: 1000 AbsMax[rping_$hub]: 1000000 WithPeak[rping_$hub]: wmy XSize[rping_$hub]: $xsize YSize[rping_$hub]: $ysize Options[rping_$hub]: growright, noinfo, nopercent, gauge, absolute, unknaszero, withzeroes, nobanner, nolegend, integer, noo YLegend[rping_$hub]: RPING ShortLegend[rping_$hub]: ms EOF } elsif ( $name =~ /^IF_(.*)_BYTES_I$/ ) { my $ifname = $1; print HTML <TRAFFIC $ifname

PACKETS $ifname

EOF print MRTG <TRAFFIC $ifname MaxBytes[traffic_$ifname]: 1310720 AbsMax[traffic_$ifname]: 13107200 WithPeak[traffic_$ifname]: wmy XSize[traffic_$ifname]: $xsize YSize[traffic_$ifname]: $ysize Options[traffic_$ifname]: growright, noinfo, nopercent, unknaszero, withzeroes, nobanner, nolegend, bits YLegend[traffic_$ifname]: TRAFFIC $ifname Target[packets_$ifname]: `cat $path/mrtg/packets_$ifname.dat` Title[packets_$ifname]: PACKETS $ifname PageTop[packets_$ifname]:

PACKETS $ifname

MaxBytes[packets_$ifname]: 100000 AbsMax[packets_$ifname]: 1000000 WithPeak[packets_$ifname]: wmy XSize[packets_$ifname]: $xsize YSize[packets_$ifname]: $ysize Options[packets_$ifname]: growright, noinfo, nopercent, unknaszero, withzeroes, nobanner, nolegend YLegend[packets_$ifname]: PACKETS $ifname ShortLegend[packets_$ifname]: p/s EOF } } close(MRTG); print HTML "\n\n"; close(HTML); my $name; foreach $name ( keys %data ) { my $filename = $name; $filename =~ tr/[A-Z]/[a-z]/; my $i = 0; my $o = 0; if ( $name =~ /^IF_(.*)_BYTES_(I|O)$/ ) { my $ifname = $1; $i = $data{"IF_$ifname\_BYTES_I"}; $o = $data{"IF_$ifname\_BYTES_O"}; $filename = "traffic_$ifname"; } elsif ( $name =~ /^IF_(.*)_PACKETS_(I|O)$/ ) { my $ifname = $1; $i = $data{"IF_$ifname\_PACKETS_I"}; $o = $data{"IF_$ifname\_PACKETS_O"}; $filename = "packets_$ifname"; } elsif ( $name =~ /^USERS_(MORE|LESS)$/ ) { $i = $data{USERS_MORE}; $o = $data{USERS_LESS}; $filename = "users_diff"; } else { $i = $data{$name}; $o = $data{$name}; } open(DAT,">$path/mrtg/$filename.dat"); print DAT "$i\n$o\n0\n0\n"; close(DAT); } open(MRTG,"$ARGV[0] $path/etc/mrtg.conf 2>&1 |"); while() { if ( /Use of uninitialized value/ ) { # ignore } else { print "MRTG: $_"; } } close(MRTG); sub syntax { print STDERR "syntax : $0 /path/to/mrtg /path/to/genethic/configfile.conf\n"; print STDERR "example: $0 /usr/local/bin/mrtg /home/genethic/etc/genethic.conf\n"; exit 1; }