Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	13 Sep 2012 16:05:29 -0000	1.24
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	25 Sep 2012 20:50:06 -0000	1.25
@@ -54,6 +54,22 @@
     return $text
   }
 
+  #
+  #
+  # Helper for virus checks
+  #
+  ::xotcl::Object create virus
+  virus proc check {fn} {
+    if {[[::xo::cc package_id] get_parameter clamav 1]
+        && [info command ::util::which] ne ""} { 
+      set clamscanCmd [::util::which clamscan]
+      if {$clamscanCmd ne "" && [file readable $fn]} {
+	if {[catch {exec $clamscanCmd $fn }]} {return 1}
+      }
+    }
+    return 0
+  }
+
   proc copy_parameter {from to} {
     set parameter_obj [::xo::parameter get_parameter_object \
                            -parameter_name $from -package_key xowiki]