Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:lrupp
clamav
clam.tcl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File clam.tcl of Package clamav
#!/usr/bin/tclsh package require Expect proc pne {x} { if {$x != ""} { puts $x } } set x 0 set L "" set C "" log_user 0 spawn clamscan eicar_test_files expect_before -re "((L|C)\[^\r\]*)\r" { set $expect_out(2,string) $expect_out(1,string) exp_continue } eof { pne $L pne $C pne $expect_out(buffer) puts "*** clamscan died! ***" exit 1 } expect "\n"; # newline after "Loading: ..." expect "\n"; # newline after "Compiling: ..." expect_before pne $L pne $C puts "" log_user 1 expect "FOUND" { incr x exp_continue } eof if {$x ne 3} { exit 1 }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
