From 6f052b2bd92a5d88d27de4a8cb18de5cd6e5917f Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Wed, 12 Jan 2022 16:45:12 +0100
Subject: [PATCH] Update xml web page files

---
 web/htdocs/commands/xmlpage.pm   | 8 ++++----
 web/htdocs/network/triggerbox.pl | 5 +++--
 xml-db/xml-db.pl                 | 4 ++--
 3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/web/htdocs/commands/xmlpage.pm b/web/htdocs/commands/xmlpage.pm
index 561446a..78110eb 100644
--- a/web/htdocs/commands/xmlpage.pm
+++ b/web/htdocs/commands/xmlpage.pm
@@ -23,10 +23,10 @@ sub initPage {
   my $period  = $setup[$active]->{period};
   my $name    = $setup[$active]->{name};
   my ($cmdMod,$cmdAddr,$cmdReg) = split('-',$setup[$active]->{cmd});
-  my $israte  = $setup[$active]->{rate};
-  my $iscache = $setup[$active]->{cache};
-  my $isfold  = $setup[$active]->{fold};
-  my $isinline= $setup[$active]->{inline};
+  my $israte  = $setup[$active]->{rate}?"checked":"";
+  my $iscache = $setup[$active]->{cache}?"checked":"";
+  my $isfold  = $setup[$active]->{fold}?"checked":"";
+  my $isinline= $setup[$active]->{inline}?"checked":"";
   
   $getscript = $page->{getscript};
   if(!defined $getscript) {
diff --git a/web/htdocs/network/triggerbox.pl b/web/htdocs/network/triggerbox.pl
index aa00d51..83a47d6 100755
--- a/web/htdocs/network/triggerbox.pl
+++ b/web/htdocs/network/triggerbox.pl
@@ -33,8 +33,9 @@ $setup[1]->{period}  = -1;
 
 $setup[2]->{name}    = "Scalers";
 $setup[2]->{cmd}     = "TriggerBox-0xfe69-Scalers";
-$setup[2]->{period}  = -1;
-
+$setup[2]->{period}  = 1000;
+$setup[2]->{rate}  = 1;
+$setup[2]->{cache}  = 1;
 
 
 xmlpage::initPage(\@setup,$page);
diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index 73d4ac8..1b16267 100755
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -9,7 +9,7 @@ use Pod::Usage;
 use File::chdir;
 use FindBin qw($RealBin);
 use Data::Dumper;
-use Storable qw(lock_store);
+use Storable qw(store);
 
 # some default config options
 # and provide nice help documentation
@@ -98,7 +98,7 @@ sub Main {
     }
     #print DumpTree($db);
     my $cachefile = "cache/$name.entity";
-    lock_store($db, $cachefile);
+    store($db, $cachefile);
     print STDERR "Wrote $cachefile\n" if $verbose>0;
 #     print STDERR "\n",DumpTree($db,$name),"\n" if $verbose>2;
   }
-- 
2.43.0