]> Source CVSROOT The CVSROOT to read revisions from. Defaults to the CVSROOT environment variable. if ( $ui->in_edit_mode ) { $default = $ui->source->repo_server; $is_current_value = 1; } else { $default = empty $ENV{CVSROOT} ? undef : $ENV{CVSROOT}; } cvs $ui->new_source( $answer ); cvsroot spec $ui->{Source}->repo_server( $answer ) unless empty $answer; Source CVS filespec Enter the cvs filespec of the file(s) to copy. This must start with a CVS module name and end in a filename, directory name, or "..." wildcard: module/... module/file module/path/to/subdir/... module/path/to/subdir/file if ( $ui->in_edit_mode ) { $default = $ui->source->repo_filespec; $is_current_value = 1; } module/filepath/... $ui->{Source}->repo_filespec( $answer ); Source 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 its own. Leave blank to allow VCP to use a temporary directory. if ( $ui->in_edit_mode ) { $default = $ui->source->{CVS_WORK_DIR} ; $is_current_value = 1; } $ui->{Source}->ui_set_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. if ($ui->in_edit_mode ) { $default = $ui->source->{CVS_K_OPTION} ? "yes" : "no" ; $is_current_value = 1; } else { $default = "no"; } yes $ui->{Source}->{CVS_K_OPTION} = "b"; no Use cvs executable This forces VCP to use the cvs executable rather than read local CVSROOT directories directly. This is slower, but may be used to work around any limitations that might crop up in VCP's RCS file parser. $default = "no"; yes $ui->{Source}->{CVS_USE_CVS} = 1; no Source cvs 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 ); } Source cvs 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;