Update xml web page files

diff --git a/web/htdocs/commands/xmlpage.pm b/web/htdocs/commands/xmlpage.pm
index 561446a59213476636481fd79fb7b50ea68ba75b..78110eb5ff0afca32491060b5e123fc068e168e6 100644 (file)
--- 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 aa00d51db0119c483ceb4ed6ec374a75858828a7..83a47d6e0b42d1fd2a33db34e3e383dbdee628c9 100755 (executable)
--- 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 73d4ac80dfc4a0e3f35ad7bbc028035445fe102d..1b16267436a51fafa44b1372d05299c456ee83f0 100755 (executable)
--- 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;
   }