]> cvsroot Enter the cvsroot spec. Leave empty to use the CVSROOT environment variable if set. cvs require VCP::Source::cvs; $ui->{Source} = VCP::Source::cvs->new; $ui->{Source}->repo_scheme( 'cvs' ); cvsroot spec $ui->{Source}->repo_server( $answer ); cvs filespec Enter the cvs filespec. This must be in the form "module/filespec". The filespec may contain trailing wildcards, like "a/b/..." to extract an entire directory tree. $ui->{Source}->repo_filespec( $answer ); Enter CVS working directory Enter the CVS working directory (Optional). VCP::Source::cvs will cd to this directory before calling cvs, and won't initialize a CVS workspace of it's own (normally, VCP::Source::cvs does a "cvs checkout" in a temporary directory). $ui->{Source}->{CVS_WORK_DIR} = $answer unless empty $answer; Force binary checkout? Pass the -kb option to cvs, to force a binary checkout. This is useful when you want a text file to be checked out with Unix linends, or if you know that some files in the repository are not flagged as binary files and should be. $ui->{Source}->{CVS_K_OPTION} = "b"; Use cvs? (rather than reading local repositories directly) Use cvs rather than a direct read of local repositories. This is slower, but the option is present in case there are repositories vcp has trouble reading directly. $ui->{Source}->{CVS_USE_CVS} = 1; cvs log revision specification Passed to "cvs log" as a "-r" revision specification. This corresponds to the "-r" option for the rlog command, not either of the "-r" options for the cvs command. See rlog(1) man page for the format. unless( empty $answer ) { $ui->{Source}->rev_spec( $answer ); $ui->{Source}->force_missing( defined $ui->{Source}->rev_spec ); } cvs log date specification Passed to 'cvs log' as a "-d" date specification. See rlog(1) man page for the format. $ui->{Source}->date_spec( $answer ) unless empty $answer; $ui->{Source}->init;