#!/usr/bin/perl -w use strict; use CGI qw(:standard); use vars qw( $start_time $time_start ); use vars qw( $data_dir ); require "Common.pl"; GetDataDir(); GetStartTime() or DieEarly( "Error: GetStartTime()" ); print "Content-type: text/html\n\n"; print < EOM if ( ! param( 'no_refresh' ) ) { print "\n"; } print < EOM print start_form, hidden( -name => 'data_id', -default => '' ); print < Long term congestion distribution EOM print " ( MT\n"; print " MTD\n"; print " QoM )\n"; print < Start time: EOM print $start_time; print < EOM system( "cat", "$data_dir/hop_info_head" ); my $no_refresh = ( param( 'no_refresh' ) ? "no_refresh=on" : "" ); print "", checkbox( -name => 'no_refresh', -label => 'No automatic refresh', -onClick => 'submit()' ), " Per-link congestion statistics\n", "\n"; my $random_number = int( rand() * 10000000 ); if ( PlotLCD( "10sec" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 10 seconds

\n"; } if ( PlotLCD( "30sec" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 30 seconds (updated every 10 seconds)

\n"; } if ( PlotLCD( "1min" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 1 minute (updated every 10 seconds)

\n"; } if ( PlotLCD( "3min" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 3 minutes (updated every 1 minute)

\n"; } if ( PlotLCD( "10min" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 10 minutes (updated every 1 minute)

\n"; } if ( PlotLCD( "30min" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 30 minutes (updated every 10 minutes)

\n"; } if ( PlotLCD( "1hour" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 1 hour (updated every 10 minutes)

\n"; } if ( PlotLCD( "3hour" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 3 hours (updated every 1 hour)

\n"; } if ( PlotLCD( "6hour" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 6 hours (updated every 1 hour)

\n"; } if ( PlotLCD( "12hour" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 12 hours (updated every 3 hours)

\n"; } if ( PlotLCD( "24hour" ) ) { print "\n"; print "\n"; print "\n"; print "

Recent 24 hours (updated every 3 hours)

\n"; } print "\n"; print "

\n"; system( "cat", "$data_dir/hop_info", "$data_dir/pairing" ); print end_form; print < EOM # # result = PlotLCD( $filename ) # sub PlotLCD { my ( $filename ) = @_; my $path = "$data_dir/$filename"; if ( open( MAX, "<", "$path.max" ) ) { chop( my $line = ); my ( $max_x, $max_y, $plot_time ) = split( /\t/, $line ); close MAX; if ( open( PLOT, ">", "images/LCD.gp" ) ) { my $center_y = $max_y / 2; $plot_time = sprintf( "%2d:%02d:%02d", $plot_time / 3600, $plot_time % 3600 / 60, $plot_time % 60 ); print PLOT "set label \"$plot_time\" at graph -0.2,-0.3 tc lt 2\n"; print PLOT "set xrange [0:$max_x]\n"; my $yrange = $max_y * 1.1; if ( $yrange == 0 ) { $yrange = 1 }; print PLOT "set yrange [0:$yrange]\n"; print PLOT "set arrow from 0,$center_y to $max_x,$center_y nohead lt 2\n"; print PLOT "set xtics ( 0"; for ( my $i = 2; $i <= $max_x; $i +=2 ) { print PLOT ", $i"; } print PLOT " )\n"; print PLOT "set x2tics mirror ( 1"; for ( my $i = 3; $i <= $max_x; $i +=2 ) { print PLOT ", $i"; } print PLOT " )\n"; print PLOT "set ytics ( $center_y, $max_y )\n"; print PLOT "set format y \"%7.1f\"\n"; print PLOT "set output \"images/$filename.png\"\n"; print PLOT <