---

Class Relations

• class: ::xotcl::Object

::xotcl::Object create ::xowiki::virus

Methods (to be applied on the object)

• check (scripted)

  if {0 && [[::xo::cc package_id] get_parameter:boolean clamav 1]
      && [info commands ::util::which] ne ""} {
    set clamscanCmd [::util::which clamdscan]
    foreach fn $fns {
      if {$clamscanCmd ne "" && [ad_file readable $fn]} {
        if {[catch {exec $clamscanCmd $fn 2>@1} result]} {
          ns_log warning "[self] virus found:\n$result"
          return 1
        }
      }
    }
  }
  return 0

---