[cvsnt] Using VBScript from the loginfo file

[Bo Berglund]

First,
change the loginfo line to use forward slashes instead:
 
ALL cscript.exe C:/CvsMailer/AdminScripts/VerifyLog.vbs

Then, by what I see you are expecting the log message to 
come to you "by magic"...

This is not so. Everything you want to examine you have to 
specify on the loginfo line like:

ALL cscript.exe C:/CvsMailer/AdminScripts/VerifyLog.vbs {sVv} $USER
.....

And furthermore, the log message does not come in on the 
arguments list at all. You have to grab that from the STDIN instead.

Read the CVSNT documentation for the administrative files 
to find out what you need to do.
It is available in any standard CVSNT installation as a helpfile.

Best regards,

Bo Berglund


-----Original Message-----
From: cvsnt-bounces at cvsnt.org [mailto:cvsnt-bounces at cvsnt.org] On Behalf
Of Onur Civi
Sent: den 10 januari 2006 17:54
To: cvsnt at cvsnt.org
Subject: [cvsnt] Using VBScript from the loginfo file

Hi,

 

I am trying to force all CVS users enter a log message during commits.
We are using CVSNT on Windows platform, so what I thought I could do was
to write a simple vbscript that examines the message entry and if it is
"no message", quits with a non-zero exit code. The following line is
what I have in my loginfo file.

 

ALL cscript.exe C:\\CvsMailer\\AdminScripts\\VerifyLog.vbs

 

And the following is the script text. Needless to say, it doesn't do
what I want it to do. Any help would be appreciated.

 

Thanks

 

************************************************************************
**********************************************************************

'Define the variables & constants

Const ForAppending = 8

'Define the file system object that we will use for logging the log text
passed to the script

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

    ("C:\WUTemp\Log.txt", ForAppending, True)    

'Parse the argument and assign the log text argument to a string 

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1

   objTextFile.WriteLine(objArgs(I) & vbTab)

   strLogTxt = objArgs(I)

Next

objTextFile.Close

'If the text is empty, exit with non-zero exit code, if it is not, exit
with zero exit code

If StrLogTxt = "no message" Then

            Wscript.Quit (1)

Else

            Wscript.Quit (0)

End If

_______________________________________________
cvsnt mailing list
cvsnt at cvsnt.org
http://www.cvsnt.org/cgi-bin/mailman/listinfo/cvsnt