home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / subversion_old_version.vbs40 < prev    next >
Encoding:
Text File  |  2004-10-12  |  990 b   |  42 lines
  1. 'checks if subversion version is
  2. 'not older than 1.0.5
  3.  
  4. Function Main
  5.  
  6. Dim objSocket As Object
  7. Dim i As Integer
  8. Dim strSend As String
  9. Dim strData As String
  10. Dim bResult As Boolean
  11. Dim objRegexp As Object
  12.  
  13.     vResult = false
  14.     ip = getparameter("ComputerIP")
  15.     port = "3690"
  16.     cr = Chr(13) +  Chr(10)
  17.     rem _ip
  18.     Socket.SetTimeout 5000,5000
  19.     Set objRegexp = CreateObject("Vbscript.regexp")
  20.             objRegexp.ignorecase = true
  21.  
  22.     Set objSocket = Socket.OpenTCP (ip,port)
  23.     If Not objSocket is Nothing Then 
  24.         strData = objSocket.recv(1024)
  25.             If InStr( strData,"( success ( 1")>0 Then
  26.             
  27.             '//host/svn/gfireposi should be a valid repository
  28.             strSend = "( 2 ( edit-pipeline ) 24:svn://host/svn/gfireposi ) "
  29.             objSocket.Send(strSend)
  30.             strData = objSocket.recv(1024)
  31.                      objRegexp.pattern = ".*subversion-1\.0\.[0-4][^0-9].*"
  32.                 If objRegexp.test(strData) Then
  33.                 bResult=true
  34.                     End  If         
  35.                 End If
  36.         objSocket.Close    
  37.     End If
  38.  
  39.     main = bResult
  40.  
  41. End Function
  42.