#!/opt/psh/bin/psh
#ident @(#)snoop2tcpdump	1.2

set infile [lindex $argv 0]
set outfile [lindex $argv 1]
if {$infile == "" || $outfile == ""} {
	puts "usage: snoop2tcpdump input-file output-file"
	exit 1
}

popen file in $infile r
popen file out $outfile wtcpdump

pinit file pkt

set i 0
while {[in.read pkt] != "eof"} {
	out.write pkt
	incr i
}
puts "$i packets converted"

pclose file in
pclose file out
