+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]);
+}
+