########################################
#
#  
#DISCLAIMER:THE MATERIAL AND/OR SOFTWARE IS PROVIDED 'AS IS'.  RATIONAL AND ITS THIRD PARTY LICENSORS DISCLAIM ALL REPRESENTATIONS OR WARRANTIES EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, THE WARRANTY OF MERCHANTABILITY, NON-INFRINGEMENT, TITLE OR FITNESS FOR A PARTICULAR PURPOSE OR ARISING OUT OF THE COURSE OF DEALING, USAGE OR TRADE PRACTICE, CONTENT OF THE MATERIAL OR SOFTWARE.  RATIONAL MAKES NO WARRANTIES OR REPRESENTATIONS REGARDING THE ACCURACY OR COMPLETENESS OF THE MATERIAL AND/OR SOFTWARE PROVIDED OR THAT IT WILL MEET LICENSEE'S REQUIREMENTS OR THAT THE MATERIAL AND/OR SOFTWARE WILL BE ERROR FREE.  IN NO EVENT SHALL RATIONAL OR ITS LICENSORS BE LIABLE TO LICENSEE OR A THIRD PARTY FOR ANY INDIRECT, DIRECT, NEGLIGENCE, SPECIAL, OR CONSEQUENTIAL DAMAGES INCLUDING LOST PROFITS, LOST DATA AND THE LIKE ARISING OUT OF OR IN CONNECTION WITH THIS RECEIPT OF MATERIAL AND/OR SOFTWARE EVEN IF RATIONAL HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
#
########################################
# Create this trigger with a command like this
# cleartool mktrtype -element -all -eltype text_file -preop checkin -exec "ccperl \\server\share\pre_ci.pl" INSERT_INFO

$PN="$ENV{'CLEARCASE_PN'}";
$VER="$ENV{'CLEARCASE_ID_STR'}";
$USER="$ENV{'CLEARCASE_USER'}";
$CT="$ENV{'CLEARCASE_COMMENT'}";

open (OUTFILE1, ">$PN.temp") ||
	die ("Cannot open output file $PN.temp\n");

print OUTFILE1 ("#_ClearCase_Info\n");
print OUTFILE1 ("#_ClearCase_Info    Filename: $PN\n");
print OUTFILE1 ("#_ClearCase_Info    Comment : $CT\n");
print OUTFILE1 ("#_ClearCase_Info    Version : $VER\n");
print OUTFILE1 ("#_ClearCase_Info    Author  : $USER\n");
print OUTFILE1 ("#_ClearCase_Info\n");

open (INFILE1, $PN) ||
	die ("Cannot open input file $PN.\n");

$line1 = <INFILE1>;

while ($line1 ne "") {
	@field = split(' ', $line1);
	if ($field[0] ne "#_ClearCase_Info") {
		print OUTFILE1 ("$line1");
	}
	$line1 = <INFILE1>;
}

close (OUTFILE1);
close (INFILE1);

rename ( "$PN.temp" , "$PN" );

exit 0;