use DXDebug;
use strict;
-use vars qw(%u $dbm $filename %valid $lastoperinterval);
+use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime);
%u = ();
$dbm = undef;
$filename = undef;
$lastoperinterval = 30*24*60*60;
+$lasttime = 0;
# hash of valid elements and a simple prompt
%valid = (
use strict;
+#
+# periodic processing
+#
+sub process
+{
+ if ($main::systime > $lasttime + 15) {
+ $dbm->sync;
+ $lasttime = $main::systime;
+ }
+}
+
#
# close the system
#
delete $self->{annok} if $self->{annok};
delete $self->{dxok} if $self->{dxok};
$u{$call} = $self->encode();
- $dbm->sync;
}
#
for ($dbm->get_dup($call)) {
$dbm->del_dup($call, $_);
}
- $dbm->sync;
}
#
$self->put();
}
+#
+# sync the database
+#
+
+sub sync
+{
+ $dbm->sync;
+}
+
#
# return a list of valid elements
#