[gst-devel] cicl

[David Schleef]

I've been using this script for a while to automatically check
in the first ChangeLog entry.  It contains no error checking,
so don't use it incorrectly.

I create ChangeLog entries using prepare-ChangeLog.pl, then edit
the entry to remove files that I don't want checked in, and add
appropriate information.  I then run 'cicl' (the script below) in
the same directory as the ChangeLog, and each file listed in the
first ChangeLog entry is checked in, as well as the ChangeLog
itself.



dave...

-------------- next part --------------
#!/usr/bin/perl

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(' ', at files);

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

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

#print ("cvs ci -m '$message' ChangeLog $files");
system ("cvs ci -m '$message' ChangeLog $files");