From df3a088dfe0c788e8d9495b76e93c0f7c9698619 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Tue, 9 Jul 2013 15:57:14 +0200 Subject: [PATCH] added temperature to network map --- web/htdocs/commands/nettrace.pl | 9 +++++---- web/htdocs/network/map.htm | 3 ++- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/web/htdocs/commands/nettrace.pl b/web/htdocs/commands/nettrace.pl index fa15ca4..7396b29 100755 --- a/web/htdocs/commands/nettrace.pl +++ b/web/htdocs/commands/nettrace.pl @@ -11,10 +11,10 @@ use Data::Dumper; die("can not connect to trbnet-daemon on the $ENV{'DAQOPSERVER'}"); } - +my $temps = trb_register_read(0xffff,0); my $boards = trb_read_uid(0xffff); -my $types = trb_register_read(0xffff,0x42); -my $ctime = trb_register_read(0xffff,0x40); +my $types = trb_register_read(0xffff,0x42); +my $ctime = trb_register_read(0xffff,0x40); my @store; foreach my $id (sort keys %{$boards}) { @@ -33,6 +33,7 @@ foreach my $id (sort keys %{$boards}) { $o->{ctime} = $ctime->{$addr}; $o->{type} = $types->{$addr}; $o->{addr} = $addr; + $o->{temp} = $temps->{$addr}; push (@store,$o); } } @@ -46,7 +47,7 @@ sub printlist { my @o; foreach my $b (@store) { if ($b->{parent} == $parent) { - push(@o,sprintf("%04x#%d#%d#%04x#%d#%s&",$b->{parent},$b->{port},$layer,$b->{addr},$b->{type},time2str('%Y-%m-%d %H:%M',$b->{ctime}))); + push(@o,sprintf("%04x#%d#%d#%04x#%d#%s#%.1f&",$b->{parent},$b->{port},$layer,$b->{addr},$b->{type},time2str('%Y-%m-%d %H:%M',$b->{ctime}),($b->{temp}>>20)/16)); $o[-1] .= printlist($b->{addr},$layer+1); } } diff --git a/web/htdocs/network/map.htm b/web/htdocs/network/map.htm index 26241bc..a1ab203 100644 --- a/web/htdocs/network/map.htm +++ b/web/htdocs/network/map.htm @@ -28,7 +28,7 @@ function update(data) { var b = data.split("&"); var c = {}; var lastlevel = 1; - o = "BoardHardwareAddOnDesignCompile Time"; + o = "BoardHardwareAddOnDesignCompile TimeTemperature"; for(j=0;j