smeserver/smeserver-lib
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for e-smith-lib on Wed 12 Jul 08:58:46 BST 2023

Browse Source
This commit is contained in:
Brian Read
2023-07-12 08:58:46 +01:00
parent 6d7e97ea37
commit a527984040
98 changed files with 14369 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
root/etc/e-smith/tests/10e-smith-lib/templates_DB/10DB Normal file
View File

@@ -0,0 +1,9 @@
{ '$DB ok' if defined $DB && $DB->isa('esmith::ConfigDB') }
{ my $ok = 1;
foreach my $rec ($DB->get_all) {
my $key = $rec->key;
my $type = $rec->props <= 1 ? "SCALAR" : "HASH";
$ok = 0 unless *{$key}{$type};
}
'default vars ok' if $ok;
}