3 # list files under CVS control
4 # $Id: lscvs,v 1.2 2002/12/13 15:42:42 kripke Exp $
10 open( FH, $dir.'CVS/Entries' );
14 my ($type,$name,$version,$date,$opt,$tagdate) = split( /\// );
17 print join("\t",$dir.$name,$version,$date,$x),"\n";
19 print $dir.$name,"\n";
21 } elsif ( 'D' eq $type ) {
22 dodir( $dir.$name.'/' ) if $r && $name;
23 # "`D' on a line all by itself indicates that the program
24 # which wrote the `Entries' file does record subdirectories"
26 print STDERR "uknown type '$type' in $dir ",
27 join("\t",$name,$version,$date,$x),"\n";