Index: openacs-4/packages/proctoring-support/tcl/proctoring-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/Attic/proctoring-support-init.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/proctoring-support/tcl/proctoring-support-init.tcl	6 Apr 2021 14:10:56 -0000	1.1.2.1
@@ -0,0 +1,19 @@
+ad_library {
+    Startup script for proctoring-support
+}
+
+# This cache will store the checksum of the last picture that has been
+# received on behalf of a user while proctoring a specific object.
+# This is needed to implement a server-side check that detects
+# pictures being sent multiple times, e.g. when a request resulting in
+# a client timeout still gets processed by the server.
+
+set cache_name proctoring_checksums_cache
+set cache_size 1MB ; # ~ 25000 40bytes sha1 entries
+set cache_timeout 1ms
+set cache_expires [expr {2 * 60 * 60}] ; # 2 hours
+
+ns_cache_create \
+    -timeout $cache_timeout \
+    -expires $cache_expires -- $cache_name $cache_size
+