[cvsnt] Commitinfo: How to get name(s) of file(s) to commit?

[Johannes Kilian]

Marlon van den Berg schrieb:

>When using commitinfo, the files to be committed are passed trough standard
>input.
>  
>

Using CVSNT 2.0.52

Didn't work ..

Tried this as commitinfo script:
----------------------------------------------
use Data::Dumper;
my @files;
push(@files, <STDIN>);
print "Files in <STDIN>: @files\n";
print Dumper @files;
print "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\n";
foreach my $file (@files) {
    print "File: ".($file)."\n";
}
print "* A0: $ARGV[0] * A1: $ARGV[1] * A2: $ARGV[2] * A3: $ARGV[3] *\n";
print "*  0: $0       *  1: $1       *  2: $2       *  3: $3 *\n";
exit 1;
----------------------------------------------

Result:
-----------------------------------------------
cvs -q commit -m "no message" t01.xml (in directory 
D:\Temp\Commitinfo\Testdaten_CVS\Subdir1)
Files in <STDIN>:

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
* A0: \Test/Testdaten/Subdir1 * A1:  * A2:  * A3:  *
*  0: D:\Temp\Commitinfo\CVSRoot\checkfile.pl       *  1:        *  
2:        *  3:  *

child exited with value 1

cvs server: Pre-commit check failed
cvs [server aborted]: correct above errors first!
-------------------------------------------

Thanks

Johannes