#!/usr/bin/perl

use strict;

my @lines = <>;

foreach my $line (@lines) {
  # strip leading and trailing spaces
  $line =~ s/^\s+(.+)\s+$/$1/;

  my @fields = split(/\s+/, $line);

  if($fields[0] eq "M") {
    # modified file

    my $fileName = $fields[3];
    my $version  = $fields[4];

    my($majorVersion, $minorVersion) = split(/\./, $version, 2);

    my $previousVersion = $majorVersion . "." . ($minorVersion - 1);

    system("cvs diff -r $previousVersion -r $version $fileName");
  }
}