' 
' pktcopy - Copies  given packets from file-1 to file-2
'

 
' -----------------------
' Check usage & arguments
' -----------------------
Set Sout = WScript.StdOut
 
if WScript.Arguments.Count <> 3 then
	Sout.WriteLine "Usage: pktcopy <packets-csv> <from-filename> <to-filename>"
	WScript.Quit
end if
 
PacketsCSV    = WScript.Arguments.Item(0)
FromFile      = WScript.Arguments.Item(1)
ToFile        = WScript.Arguments.Item(2)
 
Set FromDB = CreateObject("Unsniff.Database")
Set ToDB   = CreateObject("Unsniff.Database")
Set FSO	   = CreateObject("Scripting.FileSystemObject")
 
 
FromDB.Open(FromFile)
If FSO.FileExists (ToFile) Then
	ToDB.Open(ToFile)
Else 
	ToDB.New(ToFile)
End If
 
Dim PktIdxArray 
PktIdxArray = Split(PacketsCSV, ",", -1, 1)
 
'
' Save the specified packets to the target DB
'
Set Packets = FromDB.PacketIndex
 
For I = 0 To UBound ( PktIdxArray) 
	Set Packet  = Packets(I)
	ToDB.AddPacket (Packet)
Next
 
 
FromDB.Close()
ToDB.Save()
ToDB.Close()
 
Sout.WriteLine "Saved in " & ToFile
 
 
Function Tokenize(byVal TokenString, byRef TokenSeparators())
 
	Dim NumWords, a()
	NumWords = 0
 
	Dim NumSeps
	NumSeps = UBound(TokenSeparators)
 
	Do 
		Dim SepIndex, SepPosition
		SepPosition = 0
		SepIndex    = -1
 
		for i = 0 to NumSeps-1
 
			' Find location of separator in the string
			Dim pos
			pos = InStr(TokenString, TokenSeparators(i))
 
			' Is the separator present, and is it closest to the beginning of the string?
			If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then
				SepPosition = pos
				SepIndex    = i
			End If
 
		Next
 
		' Did we find any separators?	
		If SepIndex < 0 Then
 
			' None found - so the token is the remaining string
			redim preserve a(NumWords+1)
			a(NumWords) = TokenString
 
		Else
 
			' Found a token - pull out the substring		
			Dim substr
			substr = Trim(Left(TokenString, SepPosition-1))
 
			' Add the token to the list
			redim preserve a(NumWords+1)
			a(NumWords) = substr
 
			' Cutoff the token we just found
			Dim TrimPosition
			TrimPosition = SepPosition+Len(TokenSeparators(SepIndex))
			TokenString = Trim(Mid(TokenString, TrimPosition))
 
		End If	
 
		NumWords = NumWords + 1
	loop while (SepIndex >= 0)
 
	Tokenize = a
 
End Function