#!/usr/bin/perl -w

use strict;

my $file = shift;
my $rev = shift;

$rev  || die "\nUSAGE: $0 [FILE] [REV]\n";

print "\nAre you sure you want to replace the contents of $file \nwith those in rev $rev?\n\n";
print "$file status now is:\n";

system("cvs status $file");


print "\nPress [ENTER] to continue or CTRL+C to bail";

my $pause = <STDIN>;

print "\n\nOverwriting $file!\n";

system("mv -f $file $file.sc_save.$rev");
system("cvs update -p -r $rev $file > $file");