From: Jan Michel Date: Thu, 5 Dec 2013 17:06:10 +0000 (+0100) Subject: added scaler display and made xmlpage able to access different get scripts X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=3426816d46c01f4d8f00b03bcd6f1b38a2e2e030;p=daqtools.git added scaler display and made xmlpage able to access different get scripts --- diff --git a/web/htdocs/commands/xmlpage.pm b/web/htdocs/commands/xmlpage.pm index 841f14d..200394f 100644 --- a/web/htdocs/commands/xmlpage.pm +++ b/web/htdocs/commands/xmlpage.pm @@ -4,12 +4,11 @@ package xmlpage; my $active = 0; my @setup; - +our $getscript; sub initPage { my ($ref_setup,$page) = @_; @setup = @$ref_setup; - my ($command,$style) = split("-",$ENV{'QUERY_STRING'}); $command = "" unless defined $command; $style = "" unless defined $style; @@ -25,6 +24,10 @@ sub initPage { my $name = $setup[$active]->{name}; my ($cmdMod,$cmdAddr,$cmdReg) = split('-',$setup[$active]->{cmd}); + $getscript = $page->{getscript}; + if(!defined $getscript) { + $getscript = "../xml-db/get.pl"; + } print < @@ -81,6 +84,7 @@ print < EOF + } @@ -95,6 +99,7 @@ sub printJavaScripts {