";
print "| "; print " | ";
print " "; # Output button for saved graph print " | ";
print "|
| "; print " | ";
print "\n"; printf " Report: %-28s Sample Time: %-4s\n", $report_title, $sample_time; printf " Start Time: %-28s End Time: %-28s\n", $start_flows, $end_flows; print_formatted_parameters(%FORM,$html_file); printf "Detail Lines: %-28s Graph Multiplier: %-28s\n", $detail_lines, $graph_multiplier; printf " Include if: %-28s\n", $flow_select_manner; print " | ";
print ""; print " |
\n"; print HTML "
| "; print HTML " | ";
print HTML " "; print HTML " "; printf HTML " Report: %-28s Sample Time: %-4s\n", $report_title, $sample_time; printf HTML " Start Time: %-28s End Time: %-28s\n", $start_flows, $end_flows; $html_file = "$work_directory/$save_filename"; print_formatted_parameters(%FORM,$html_file); printf HTML "Detail Lines: %-28s Graph Multiplier: %-28s\n", $detail_lines, $graph_multiplier; printf HTML " Include if: %-28s\n", $flow_select_manner; print HTML "\n"; print HTML " | ";
print HTML ""; print HTML " |
"; print HTML ""; if ($resolve_addresses eq "Y") { printf "%-9s %-9s %6s %-25s %-6s %-25s %-6s %14s %7s\n\n", "Start", "End", "Len", "Source Host", "Port", "Destination Host", "Port", "Total Bytes", "Mbps"; printf HTML "%-9s %-9s %6s %-25s %-6s %-25s %-6s %14s %7s\n\n", "Start", "End", "Len", "Source Host", "Port", "Destination Host", "Port", "Total Bytes", "Mbps"; } else { printf "%-9s %-9s %6s %-20s %-6s %-20s %-6s %14s %7s\n\n", "Start", "End", "Len", "Source Host", "Port", "Destination Host", "Port", "Total Bytes", "Mbps"; printf HTML "%-9s %-9s %6s %-20s %-6s %-20s %-6s %14s %7s\n\n", "Start", "End", "Len", "Source Host", "Port", "Destination Host", "Port", "Total Bytes", "Mbps"; } foreach $big_flow (@biggest_flows) { $big_flow = substr($big_flow,23,120); } @biggest_flows = sort(@biggest_flows); for ($m=0;$m<=$detail_lines;$m++) { if ($biggest_flows[$m] eq "") { next; } ($big_flow_key,$big_flow_bits,$big_flow_length) = split(/&/,$biggest_flows[$m]); if ($big_flow_length < 1) { $big_flow_length = 1; } $big_flow_rate = ($big_flow_bits / $big_flow_length) / 1000000; $big_flow_bytes = int ($big_flow_bits / 8); $formatted_bytes = format_number($big_flow_bytes); ($s_epoch,$s_tm,$e_tm,$sip,$sp,$dip,$dp) = split(/;/,$big_flow_key); if ($resolve_addresses eq "Y") { $sip = dig($sip); $dip = dig($dip); } if ($resolve_addresses eq "Y") { printf "%-9s %-9s %6.1f %-25.25s %-6s %-25.25s %-6s %14s %7.3f\n", $s_tm, $e_tm, $big_flow_length, $sip, $sp, $dip, $dp, $formatted_bytes, $big_flow_rate; printf HTML" %-9s %-9s %6.1f %-25.25s %-6s %-25.25s %-6s %14s %7.3f\n", $s_tm, $e_tm, $big_flow_length, $sip, $sp, $dip, $dp, $formatted_bytes, $big_flow_rate; } else { printf "%-9s %-9s %6.1f %-20.20s %-6s %-20.20s %-6s %14s %7.3f\n", $s_tm, $e_tm, $big_flow_length, $sip, $sp, $dip, $dp, $formatted_bytes, $big_flow_rate; printf HTML "%-9s %-9s %6.1f %-20.20s %-6s %-20.20s %-6s %14s %7.3f\n", $s_tm, $e_tm, $big_flow_length, $sip, $sp, $dip, $dp, $formatted_bytes, $big_flow_rate; } } } print "\n"; print HTML "\n"; print ""; print HTML "