' VB Script Document
option explicit

Const TemporaryFolder = 2

Function AddNewFolder(folderName)
   Dim fso, f, fc, nf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetSpecialFolder(TemporaryFolder)
   Set fc = f.SubFolders
   Set nf = fc.Add(folderName)
End Function

Function RemoveNewFolder(folderName)
   Dim fso, f, fc, nf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetSpecialFolder(TemporaryFolder)
   Set nf = fso.GetFolder(f.path+"\"+folderName)
   nf.delete
End Function

Dim rdf 
Dim replacement,replacement2,Version,WinRAR,Shell,tmpFolder,path,fso, Temp,n
Dim Args
'---------------------------------------'
'версия'
Version="1.5"
'путь'
WinRAR="C:\Progra~1\WinRAR\winrar.exe"
'---------------------------------------'

Set Shell = WScript.CreateObject("WScript.Shell")

Set Args = WScript.Arguments

replacement = "</em:targetApplication>" & vbCrLf & vbCrLf & _
              "<!-- Flock -->" & vbCrLf & _
            "<em:targetApplication>" & vbCrLf & _
            "  <Description>" & vbCrLf & _
            "    <em:id>{a463f10c-3994-11da-9945-000d60ca027b}</em:id>" & vbCrLf & _
            "    <em:maxVersion>" + Version + "</em:maxVersion>" & vbCrLf & _
            "    <em:minVersion>" + Version + "</em:minVersion>" & vbCrLf & _
            "  </Description>" & vbCrLf & _
            "</em:targetApplication>" & vbCrLf & vbCrLf

replacement2 = "</targetApplication>" & vbCrLf & vbCrLf & _
            "<!-- Flock -->" & vbCrLf & _
            "<targetApplication>" & vbCrLf & _
            "  <RDF:Description>" & vbCrLf & _
            "    <id>{a463f10c-3994-11da-9945-000d60ca027b}</id>" & vbCrLf & _
            "    <maxVersion>" + Version + "</maxVersion>" & vbCrLf & _
            "    <minVersion>" + Version + "</minVersion>" & vbCrLf & _
            "  </RDF:Description>" & vbCrLf & _
            "</targetApplication>" & vbCrLf & vbCrLf
            
if Args.count=0 then
msgbox "No arguments  /quit",vbExclamation,"Flocker"
wscript.quit 0
end if

Set fso = CreateObject("Scripting.FileSystemObject")
Set Temp = fso.GetSpecialFolder(TemporaryFolder)

tmpFolder="flc666"
Dim F,i,ext,newfile

for n=0 to Args.count-1
  if fso.FolderExists(Temp.path+"\"+tmpFolder) then RemoveNewFolder tmpFolder

  AddNewFolder tmpFolder

  path=WinRaR+" x -y "+chr(34)+Args(n)+chr(34)+" "+chr(34)+Temp.path+"\"+tmpFolder+chr(34)

  Shell.run path,0,true

  Set F = FSO.OpenTextFile(Temp.path+"\"+tmpFolder+"\install.rdf", 1)
  Do Until F.AtEndOfStream
    i=F.Readline
    rdf = rdf & i & vbCrLf
  Loop
  F.close

  If InStr(rdf, "</em:targetApplication>" & vbCrLf) = 0 Then
    MsgBox "This extension will not work with Flock. E-mail the author and ask them to update the extension."
  Else
    rdf = Replace(rdf, "</em:targetApplication>" & vbCrLf, replacement, 1, -1, 1)
    rdf = Replace(rdf, "</targetApplication>" & vbCrLf, replacement2, 1, -1, 1)
    Set F = FSO.OpenTextFile(Temp.path+"\"+tmpFolder+"\install.rdf", 2)
    F.write rdf
    F.close
  end if

  Set ext = fso.GetFile(Args(n))
  newfile = Replace(Args(n), ".xpi", "_flock.xpi")
  ext.Copy newfile,true

  path=WinRaR+" u -ep1 "+chr(34)+newfile+chr(34)+" "+chr(34)+Temp.path+"\"+tmpFolder+"\"+chr(34)

  Shell.run path,0,true
next