#! /usr/bin/perl -w

use Shell;

@cvsoutput = cvs("update","-d","2>","/dev/null");

use Term::ANSIColor;

foreach $cvsoutput (@cvsoutput) {
	$first=substr($cvsoutput,0,1);
	
	use Switch;	

	switch ($first)
	{
		case "?"	{}
		case "M"	{print color("blue"),$cvsoutput,color("reset");}
		case "U"	{print color("red"), $cvsoutput,color("reset");}
		case "P"	{print color("red"), $cvsoutput,color("reset");}
		case "C"	{print color("yellow"), $cvsoutput,color("reset");}
		case "c"	{}
		case /./	{}
	}
}