]> Launch a p4d for the source In order to convert to a Perforce (p4) destination repository, you must have a Perforce server (p4d) running and accessible to VCP. If you do not have a p4d running, select "yes". VCP will automatically start a p4d daemon listening on a random high- numbered TCP port. This daemon will create an offline Perforce repository in a local directory that you specify. If you already have a p4d server running, and you want to store your converted repository in this server, select "no". You will be prompted for the P4PORT of the server. Launch a new p4d for the destination repository? if ( $ui->in_edit_mode ) { $default = $ui->source->{P4_RUN_P4D} ? "yes" : "no" ; $is_current_value = 1; } else { $default = "no"; } Perforce $ui->new_source( $answer ); yes my $old = $ui->source->{P4_RUN_P4D} ? 1 : 0; $answer = 1; $ui->source->repo_server( undef ) if $ui->in_edit_mode and $old != $answer; $ui->source->{P4_RUN_P4D} = $answer; no my $old = $ui->source->{P4_RUN_P4D} ? 1 : 0; $answer = 0; $ui->source->repo_server( undef ) if $ui->in_edit_mode and $old != $answer; $ui->source->{P4_RUN_P4D} = $answer; Source P4ROOT The directory of the source repository. The source p4d will be launched here. if ( $ui->in_edit_mode ) { $default = $ui->source->repo_server ; $is_current_value = 1; } # will set repo_server $ui->source->ui_set_p4d_dir( $answer ) ; Source P4PORT Enter the name and port of the p4d to read from, separated by a colon. Defaults to what is in config file, then the P4HOST environment variable if set or "perforce:1666" if not. my $h = $ui->source->p4_get_settings; if ( $ui->in_edit_mode ) { $default = $ui->source->repo_server ; $is_current_value = 1; } else { $default = empty $h->{P4HOST} ? "perforce:1666" : $h->{P4HOST} ; } perforce:1666 $ui->source->repo_server( $answer ) unless empty $answer; Source P4USER Enter the P4USER value needed to access the server. Defaults to the P4USER value reported by p4 set (with a final default to the USER environment variable if p4 set does not return anything). if ( $ui->in_edit_mode ) { $default = $ui->source->repo_user; $is_current_value = 1; } else { my $h = $ui->source->p4_get_settings; $default = empty $h->{P4USER} ? ( empty $ENV{USER} ? undef : $ENV{USER} ) : $h->{P4USER} ; } $ui->source->repo_user( $answer ) unless empty $answer; Source P4PASSWD If a password (P4PASSWD) is needed to access the server, enter it here. Defaults to the current P4PASSWD if one is set. WARNING: entering a password will cause it 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 { my $h = $ui->source->p4_get_settings; $default = "** current P4PASSWD **" unless empty $h->{P4PASSWD} ; } if ( $ui->in_edit_mode ) { $answer = $ui->source->repo_password if $answer eq "** current password **"; } else { my $h = $ui->source->p4_get_settings; $answer = $h->{P4PASSWD} if $answer eq "** current P4PASSWD **"; } $ui->source->repo_password( $answer ) unless empty $answer; Source File specification If you want to copy a portion of the source repository, enter a p4 filespec starting with the depot name. Do not enter any revision or change number information. if ( $ui->in_edit_mode ) { $default = $ui->source->repo_filespec; $is_current_value = 1; } //depot/directory-path/... $ui->source->repo_filespec( $answer );