#!/usr/bin/perl

@log = `cvs log 2> /dev/null`;
@versions = ();
$flag = 0;

foreach (@log) {

    if (/^keyword/) {
	$flag = 0;
    }
    elsif ($flag == 1) {
	s/:(.*)//;
	push (@versions, $_);
    }
    elsif (/^symbolic names:$/) {
	$flag = 1;
    }
}

@newversions = ();
$prev = "";

foreach (sort @versions) {
    (/^$prev$/) || push(@newversions, $_);
    $prev = $_;
    
}

print "VERSIONS:\n";
print @newversions;
