+sub remove_files
+{
+ unlink "$main::data/$qslfn.v1j";
+ unlink "$main::local_data/$qslfn.v1j";
+}
+
+# thaw the user
+sub decode
+{
+ return $json->decode($_[0], __PACKAGE__);
+}
+
+# freeze the user
+sub encode
+{
+ return $json->encode($_[0]);
+}
+
+sub END
+{
+ if ($dbm) {
+ dbg "DXQSL ENDing";
+ finish();
+ }
+}
+