91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
# Install exit handler to cleanup
rename exit _exit
proc exit args {
cleanup
_exit {*}$args
}
# Run tcpdump
set exit 1
set npf_failed 0
if {[catch {
## Create directory
file delete -force -- $dstdir
file mkdir $dstdir
|
>
>
|
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
# Install exit handler to cleanup
rename exit _exit
proc exit args {
cleanup
_exit {*}$args
}
twapi::set_console_control_handler exit
# Run tcpdump
set exit 1
set npf_failed 0
if {[catch {
## Create directory
file delete -force -- $dstdir
file mkdir $dstdir
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
error "npf did not start"
}
} npf_err]} {
set npf_failed 1
}
## Launch tcpdump with the apropriate parameters
exec -- [file join $filesdir tcpdump.exe] {*}$argv >&@ stdout
set exit 0
} err]} {
if {$npf_failed} {
puts "NPF Failed: $npf_err"
}
# Cleanup
catch {
::twapi::stop_service npf
}
catch {
::twapi::delete_service npf
}
catch {
file delete -force -- $dstdir
}
|
|
>
<
<
|
|
>
<
<
<
<
<
<
<
<
<
<
<
<
<
|
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
error "npf did not start"
}
} npf_err]} {
set npf_failed 1
}
## Launch tcpdump with the apropriate parameters
set tcpdumpexe [file join $filesdir tcpdump.exe]
exec -- $tcpdumpexe {*}$argv >&@ stdout
set exit 0
} err]} {
if {$npf_failed} {
puts "NPF Failed: $npf_err"
puts "Failed: $err"
}
set exit 1
}
# Terminate
exit $exit
|