]> Source SSDIR Enter the directory containing the SRCSAFE.INI file for the SourceSafe source repository. if ( $ui->in_edit_mode ) { $default = $ui->source->repo_server; $is_current_value = 1; } else { $default = empty( $ENV{SSDIR} ) ? undef : $ENV{SSDIR}; } vss $ui->new_source( $answer ); $ui->source->repo_server( $answer ) unless empty $answer; Source SSUSER Enter the user name (SSUSER) required to access the SourceSafe server. The default value is the current environment's SSUSER, or "Admin", if SSUSER is unset. if ( $ui->in_edit_mode ) { $default = $ui->source->repo_user; $is_current_value = 1; } else { $default = empty( $ENV{SSUSER} ) ? "Admin" : $ENV{SSUSER} ; } $ui->source->repo_user( $answer ) unless empty $answer; Source SSPWD If a password (SSPWD) is needed to access the SourceSafe server, enter the password here. The default value is the current SSPWD if one is set. WARNING: Entering a password here causes the password to be echoed in plain text to the terminal. if ( $ui->in_edit_mode ) { unless ( empty $ui->source->repo_password ) { $default = "** current password **"; $is_current_value = 1; } } else { $default = "** current SSPWD **" unless empty $ENV{SSPWD}; } if ( $ui->in_edit_mode ) { $answer = $ui->source->repo_password if $answer eq "** current password **"; } else { $answer = $ENV{SSPWD} if $answer eq "** current SSPWD **"; } $ui->source->repo_password( $answer ) unless empty $answer; Source VSS filespec Enter the vss filespec of the file(s) to copy, with or without a leading "$/" or "/" (all names are taken as absolute). To copy more than one file, use a "..." or "*" wildcard: ... Copy entire repository project1/... Copy entire project project1/file Copy one file project1/dir/... Copy a subdirectory project1/dir/file*.bas Copy a set of files if ( $ui->in_edit_mode ) { $default = $ui->source->repo_filespec; $is_current_value = 1; } else { $default = "..."; } $ui->source->repo_filespec( $answer ); Issue "ss undocheckout" as needed If set to "yes", VCP undoes user checkout operations when it encounters a "File [file] is checked out by [user]" error. These errors can occur when VCP scans metadata for checked-out files when deleted versions of the same file also exist. Issue "ss undocheckout" commands as needed? if ( $ui->in_edit_mode ) { $default = $ui->source->{VSS_UNDOCHECKOUT} ? "yes" : "no"; $is_current_value = 1; } else { $default = "no"; } yes $ui->source->{VSS_UNDOCHECKOUT} = 1; no $ui->source->{VSS_UNDOCHECKOUT} = 0;