From 3426816d46c01f4d8f00b03bcd6f1b38a2e2e030 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Thu, 5 Dec 2013 18:06:10 +0100 Subject: [PATCH] added scaler display and made xmlpage able to access different get scripts --- web/htdocs/commands/xmlpage.pm | 9 +++- web/htdocs/layout/blue.css | 15 ++++++ web/htdocs/scripts/xmlpage.js | 6 +-- web/htdocs/tools/scaler.pl | 87 ++++++++++++++++++++++++++++++++++ xml-db/get.pl | 18 +++++-- 5 files changed, 126 insertions(+), 9 deletions(-) create mode 100755 web/htdocs/tools/scaler.pl 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 {