39 lines
593 B
Tcl
39 lines
593 B
Tcl
|
#!/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
|
||
|
|
}
|