#!/usr/bin/perl -w use strict; use CGI qw(:standard); use Time::ParseDate; use vars qw( $start_time $time_start ); use vars qw( $current_time $time_start_gmt ); use vars qw( %global_info @link_cc_max $e2e_cc_max ); use vars qw( $time_from $time_to ); use vars qw( $data_dir ); use vars qw( $show_ci ); require "Common.pl"; $show_ci = param( 'show_ci' ); GetDataDir(); GetStartTime() or DieEarly( "Error: GetStartTime()" ); $time_start_gmt = parsedate( $start_time, ZONE => "UTC" ); GetCurrentTime() or DieEarly( "Error: GetCurrentTime()" ); ReadGlobalInfo() or DieEarly( "Error: ReadGlobalInfo()" ); GetLinkCCmax() or DieEarly( "Error: GetLinkCCmax()" ); GetE2eCCmax() or DieEarly( "Error: GetE2eCCmax()" ); print "Content-type: text/html\n\n"; print < EOM my $link_selected = 0; if ( ! param( 'no_refresh' ) ) { print "\n"; } for ( my $i = 0; $i <= $global_info{"hop_num"}; $i ++ ) { if ( param( "link_$i" ) ) { $link_selected = 1; } } print < EOM GetTimePeriod(); print start_form, hidden( -name => 'data_id', -default => '' ); print < Congestion Statistics of Links EOM print " ( MT\n"; print " MTD\n"; print " QoM )\n"; print < Start time: EOM print "$start_time
\n"; my $time_elapsed = sprintf( "%2d:%02d:%02d", $current_time / 3600, $current_time % 3600 / 60, $current_time % 60 ); print "Time elapsed: $time_elapsed"; print < EOM for ( my $i = 0; $i <= $global_info{"hop_num"}; $i ++ ) { my $checked = ( param( "link_$i" ) ? 'checked' : '' ); print "$i".checkbox( -name => "link_$i", -label => '', -checked => $checked )."\n"; } print $global_info{"hop_num"} + 1, " ", submit( -value => "Update" ), "\n"; print "", checkbox( -name => 'show_ci', -label => 'Congestion intensity', -onClick => 'submit()' ), " ", checkbox( -name => 'no_refresh', -label => 'No automatic refresh', -onClick => 'submit()' ), "
", "From: ", textfield( -name => 'from', -size => 10, -maxlength => 40, -default => $start_time ), " to: ", textfield( -name => 'to', -size => 10, -maxlength => 40, -default=> 'now' ), "\n"; print "\n"; my $random_number = int( rand() * 10000000 ); my $no_refresh = ( param( 'no_refresh' ) ? "&no_refresh=on" : "" ); my $ck_show_ci = ( param( 'show_ci' ) ? "&show_ci=on" : "" ); my $count = 0; for ( my $i = 0; $i <= $global_info{"hop_num"}; $i ++ ) { if ( ! $link_selected || param( "link_$i" ) ) { $count ++; if ( PlotLinkCC( $i ) ) { print "\n"; print "\n"; print "\n"; print "

Hop: $i-".( $i + 1 )."

\n"; } if ( $count % 3 == 0 && $i != $global_info{"hop_num"} ) { print "\n"; } } } if ( $count % 3 == 0 ) { print "\n"; } if ( PlotE2eCC() ) { print "\n"; print "\n"; print "\n"; print "

End-to-end congestion intensity

\n"; } print "\n"; if ( PlotErrorMetric( 2 ) ) { print "\n"; print "\n"; print "\n"; print "

Clock skew extent

\n"; } if ( PlotErrorMetric( 3 ) ) { print "\n"; print "\n"; print "\n"; print "

Altered hop count

\n"; } if ( PlotErrorMetric( 4 ) ) { print "\n"; print "\n"; print "\n"; print "

Route alteration count

\n"; } print "\n"; print "\n"; print end_form; print < EOM # # result = PlotLinkCC( $link_no ) # sub PlotLinkCC { my ( $link_no ) = @_; if ( open( PLOT, ">", "images/link_cc.gp" ) ) { my $max_y = $link_cc_max[$link_no]; #if ( $show_ci ) { $max_y *= 100; } my $min_x = $time_start + $time_from; my $max_x = $time_start + $time_to; my $center_y = $max_y / 2; if ( $min_x == $max_x ) { $max_x += 600; } print PLOT "set x2range [$min_x:$max_x]\n"; my $increment = int( ( $max_x - $min_x ) / 1200 + 0.5 ) * 300; print PLOT "set x2tics mirror $increment\n"; my $yrange = $max_y * 1.1; if ( $yrange == 0 ) { $yrange = 0.1 }; print PLOT "set yrange [0:$yrange]\n"; print PLOT "set arrow from $min_x,$center_y to $max_x,$center_y nohead lt 2\n"; print PLOT "set ytics ( $center_y, $max_y )\n"; print PLOT "set output \"images/link_$link_no.png\"\n"; my $label = ( $show_ci ? "\"Cong. intensity\" at graph -0.17,-0.13 rotate" : "\"Congestion count\" at graph -0.17,-0.17 rotate" ); print PLOT "set label $label\n"; #my $format_y = ( $show_ci ? "%5.0f%%" : "%6.1f" ); my $format_y = ( $show_ci ? "%6.2f" : "%6.1f" ); print PLOT "set format y \"$format_y\"\n"; print PLOT <", "images/link_cc.gp" ) ) { my $max_y = $e2e_cc_max; my $min_x = $time_start + $time_from; my $max_x = $time_start + $time_to; my $center_y = $max_y / 2; if ( $min_x == $max_x ) { $max_x += 600; } print PLOT "set x2range [$min_x:$max_x]\n"; my $increment = int( ( $max_x - $min_x ) / 1200 + 0.5 ) * 300; print PLOT "set x2tics mirror $increment\n"; my $yrange = $max_y * 1.1; if ( $yrange == 0 ) { $yrange = 0.1 }; print PLOT "set yrange [0:$yrange]\n"; print PLOT "set arrow from $min_x,$center_y to $max_x,$center_y nohead lt 2\n"; print PLOT "set ytics ( $center_y, $max_y )\n"; print PLOT "set output \"images/e2e.png\"\n"; print PLOT <; close FILE; chomp( $line ); my $max_y = $line; if ( open( PLOT, ">", "images/error_metrics.gp" ) ) { my $min_x = $time_start + $time_from; my $max_x = $time_start + $time_to; my $center_y = $max_y / 2; if ( $min_x == $max_x ) { $max_x += 600; } print PLOT "set x2range [$min_x:$max_x]\n"; my $increment = int( ( $max_x - $min_x ) / 1200 + 0.5 ) * 300; print PLOT "set x2tics mirror $increment\n"; my $yrange = $max_y * 1.1; if ( $yrange == 0 ) { $yrange = 0.1 }; print PLOT "set yrange [0:$yrange]\n"; print PLOT "set arrow from $min_x,$center_y to $max_x,$center_y nohead lt 2\n"; print PLOT "set ytics ( $center_y, $max_y )\n"; print PLOT "set output \"images/error$column_no.png\"\n"; print PLOT <