]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
jspc29 / daqtools.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f00f9b1)
added title and backlink to xml generated pages
authorJan Michel <j.michel@gsi.de>
Wed, 16 Oct 2013 11:21:59 +0000 (13:21 +0200)
committerJan Michel <j.michel@gsi.de>
Wed, 16 Oct 2013 11:21:59 +0000 (13:21 +0200)
web/htdocs/commands/xmlpage.pm patch | blob | history
web/htdocs/network/trbnet.pl patch | blob | history

diff --git a/web/htdocs/commands/xmlpage.pm b/web/htdocs/commands/xmlpage.pm
index 3ad93bd970b0721269603a69bea1dc860c47e20e..72b312019b8867df6d9276ac81cc3ccf714b8892 100644 (file)
--- a/web/htdocs/commands/xmlpage.pm
+++ b/web/htdocs/commands/xmlpage.pm
@@ -21,7 +21,7 @@ sub getView {
 
 
 sub initPage {
-  my ($ref_setup) = @_;
+  my ($ref_setup,$page) = @_;
   @setup = @$ref_setup;
   
   my ($command,$style) = split("-",$ENV{'QUERY_STRING'});
@@ -37,7 +37,7 @@ sub initPage {
   print <<EOF;
 <HTML>
 <HEAD>
-<title>TrbNet Overview</title>
+<title>$page->{title}</title>
 <link href="../layout/styles.css" rel="stylesheet" type="text/css"/>
 <link href="../layout/blue.css" rel="stylesheet" title="Light Blue" type="text/css"/>
 EOF
@@ -45,7 +45,7 @@ EOF
   print qq(
 </HEAD>
 <BODY>
-<h2>TrbNet Overview</h2>
+<h2><a href="$page->{link}">).$page->{title}.qq(</a></h2>
 <div id="overview">
 <div class="header">);
 
diff --git a/web/htdocs/network/trbnet.pl b/web/htdocs/network/trbnet.pl
index 63c8adf7d2bbf25c45324e2f47687b3722eb1c13..62754b109e7a0c87fcf637438e393a5f0298f12d 100755 (executable)
--- a/web/htdocs/network/trbnet.pl
+++ b/web/htdocs/network/trbnet.pl
@@ -10,6 +10,11 @@ use CGI::Carp qw(fatalsToBrowser);
 use lib qw|../commands htdocs/commands|;
 use xmlpage;
 
+my $page;
+
+$page->{title} = "TrbNet Status Register";
+$page->{link}  = "../";
+
 my @setup;
 $setup[0]->{name}    = "StatusRegisters";
 $setup[0]->{cmd}     = "TrbNet-0xffff-StatusRegisters";
@@ -22,7 +27,7 @@ $setup[1]->{refresh} = 1;
 $setup[1]->{period}  = 0;
 
 
-xmlpage::initPage(\@setup);
+xmlpage::initPage(\@setup,$page);
  
 
  
All DAQ software snippets, former ./trb3