#!/usr/bin/perl

my $RCS="cvs";

if( -d ".svn" ) {
  $RCS = "svn";
}

open CL, "<ChangeLog";

@cllines = <CL>;

$tag = shift @cllines;

while ($line = shift @cllines) {
	($line =~ /^[^\s]/) && last;
	($line =~ /^\s*$/) && next;
	$line =~ s/^\s*//;
	push @lines, $line;
	if ($line =~ /\* ([^:]+):/) {
		push @files, $1;
	}
}

#print @lines;
#print join(' ',@files);

$files = join(' ',@files);

$message = join('', @lines);
$message =~ s/'/'\\''/g;

#print ("cvs ci -m '$message' ChangeLog $files");
if ($RCS eq "cvs") {
  system ("cvs ci -m '$message' ChangeLog $files");
} else {
  system ("svn commit -m '$message' ChangeLog $files");
}