Allan's Place

• 1: Home
• 2: Kissack
• 3: Radio
  • 3.1: Amateur Radio
    • 3.1.1: CW Links
  • 3.2: DE .....
    • 3.2.1: M0KIS
    • 3.2.2: 2E0EAK
    • 3.2.3: M3XPZ
    • 3.2.4: Time Line
  • 3.3: Equipment
    • 3.3.1: Yaesu FT-857D (all band/mode)
    • 3.3.2: Yaesu FT-8800 (2m/70cm)
    • 3.3.3: LDG Z-11 Pro (tuner)
    • 3.3.4: Avair AV-601 (SWR)
    • 3.3.5: MP-250A (PSU)
    • 3.3.6: DX-394 (GC Receiver)
    • 3.3.7: Armco YW-1 (SWR)
    • 3.3.8: UBC3500XLT (Scanner)
    • 3.3.9: Bremi BRL15 (tuner)
    • 3.3.10: Antennas
    • 3.3.11: Kent Key
  • 3.4: Radarbox
  • 3.5: Radio Links
• 4: Christianity
  • 4.1: My Story
  • 4.2: Christianity
  • 4.3: Jesus?
  • 4.4: I am a Christian
  • 4.5: So what?
  • 4.6: Next Steps...
• 5: Computers
  • 5.1: My Computers
  • 5.2: ICL 4130
• 6: Ipcop
  • 6.1: Introduction
  • 6.2: Link Quality
    • 6.2.1: Link Quality Addition
    • 6.2.2: Dropped packets on negative axis
    • 6.2.3: Tidier Text
  • 6.3: Alternate Graph
    • 6.3.1: Alternate Graph Style
    • 6.3.2: Flow wrt Red
    • 6.3.3: Bits per second
    • 6.3.4: Reduced Graph Width
    • 6.3.5: CPU Graph
  • 6.4: iptables gui
    • 6.4.1: Details
    • 6.4.2: iptfilter.cgi
    • 6.4.3: iptmangle.cgi
    • 6.4.4: iptnat.cgi
    • 6.4.5: Language File
  • 6.5: Hourly Graphs
    • 6.5.1: Hourly Graphs Modification
  • 6.6: Extra Traffic Graphs
    • 6.6.1: Single IPs/Subnets
    • 6.6.2: Ports
  • 6.7: Net Traffic
    • 6.7.1: Introduction
    • 6.7.2: Single IP
    • 6.7.4: Subnet/Seperate Page
  • 6.8: Shaping
    • 6.8.1: Traffic Shaping
  • 6.9: Links
• 7: About Me
• 9: Contact me

• ---

• 12: My recent experience of tiscali

Print this page

Flow wrt Red

Tested on: 1.4.21

Because the GREEN, ORANGE and EXTRA graphs refered to in/out with respect to the firewall interface, I wanted them to refer to traffic to the internet. So I amended the updateifgraph procedure in /usr/local/bin/makegraphs further.  This shows green on all graphs as data 'incoming from the internet/red zone' or more correctly 'with respect to the LANs/client PCs on the respective interfaces'.

1. Here is the replacement updateifgraph procedure
   

   sub updateifgraph { my $interface = $_[0]; my $period    = $_[1]; if ($interface eq "RED") { RRDs::graph ("$graphs/$interface-$period.png", "--start", "-1$period", "-aPNG", "-i", "-z", "-w 500", "-h 100", "--color", "SHADEA#EAE9EE", "--color", "SHADEB#EAE9EE", "--color", "BACK#EAE9EE", "-t $tr{'traffic on'} $interface ($tr{'graph per'} $tr{$period})", "-v$tr{'bytes per second'}", "DEF:incoming=$rrdlog/$interface.rrd:incoming:AVERAGE", "DEF:outgoing=$rrdlog/$interface.rrd:outgoing:AVERAGE", "CDEF:out_neg=outgoing,-1,*", "AREA:incoming#33cc33:$tr{'incoming traffic in bytes per second'}\\j", "LINE1:incoming#006600", "AREA:out_neg#ff3333:$tr{'outgoing traffic in bytes per second'}\\j", "LINE1:out_neg#990000", "GPRINT:incoming:MAX:$tr{'maximal'} $tr{'in'}\\:%8.3lf %sBps", "GPRINT:incoming:AVERAGE:$tr{'average'} $tr{'in'}\\:%8.3lf %sBps", "GPRINT:incoming:LAST:$tr{'current'} $tr{'in'}\\:%8.3lf %sBps\\j", "GPRINT:outgoing:MAX:$tr{'maximal'} $tr{'out'}\\:%8.3lf %sBps", "GPRINT:outgoing:AVERAGE:$tr{'average'} $tr{'out'}\\:%8.3lf %sBps", "GPRINT:outgoing:LAST:$tr{'current'} $tr{'out'}\\:%8.3lf %sBps\\j"); } else { RRDs::graph ("$graphs/$interface-$period.png", "--start", "-1$period", "-aPNG", "-i", "-z", "-w 500", "-h 100", "--color", "SHADEA#EAE9EE", "--color", "SHADEB#EAE9EE", "--color", "BACK#EAE9EE", "-t $tr{'traffic on'} $interface ($tr{'graph per'} $tr{$period})", "-v$tr{'bytes per second'}", "DEF:incoming=$rrdlog/$interface.rrd:incoming:AVERAGE", "DEF:outgoing=$rrdlog/$interface.rrd:outgoing:AVERAGE", "CDEF:in_neg=incoming,-1,*", "AREA:outgoing#33cc33:$tr{'incoming traffic in bytes per second'}\\j", "LINE1:outgoing#006600", "AREA:in_neg#ff3333:$tr{'outgoing traffic in bytes per second'}\\j", "LINE1:in_neg#990000", "GPRINT:outgoing:MAX:$tr{'maximal'} $tr{'in'}\\:%8.3lf %sBps", "GPRINT:outgoing:AVERAGE:$tr{'average'} $tr{'in'}\\:%8.3lf %sBps", "GPRINT:outgoing:LAST:$tr{'current'} $tr{'in'}\\:%8.3lf %sBps\\j", "GPRINT:incoming:MAX:$tr{'maximal'} $tr{'out'}\\:%8.3lf %sBps", "GPRINT:incoming:AVERAGE:$tr{'average'} $tr{'out'}\\:%8.3lf %sBps", "GPRINT:incoming:LAST:$tr{'current'} $tr{'out'}\\:%8.3lf %sBps\\j"); } $ERROR = RRDs::error; print "Error in RRD::graph for $interface: $ERROR\n" if $ERROR; }

Job Done.

This page has been viewed 808 times since Nov 2009 since Nov 2009.