]> Launch a p4d for the destination If you would like to insert into an offline repository in a local directory, vcp can launch a 'p4d' daemon for you in that directory. It will use a random high numbered TCP port. if ( $ui->in_edit_mode ) { $default = $ui->dest->{P4_RUN_P4D} ? "yes" : "no" ; $is_current_value = 1; } else { $default = "no"; } p4 $ui->new_dest( $answer ); yes my $old = $ui->dest->{P4_RUN_P4D} ? 1 : 0; $answer = 1; $ui->dest->repo_server( undef ) if $ui->in_edit_mode and $old != $answer; $ui->dest->{P4_RUN_P4D} = $answer; no my $old = $ui->dest->{P4_RUN_P4D} ? 1 : 0; $answer = 0 ; $ui->dest->repo_server( undef ) if $ui->in_edit_mode and $old != $answer; $ui->dest->{P4_RUN_P4D} = $answer; Destination P4ROOT The directory of the destination repository, p4d will be launched here. if ( $ui->in_edit_mode ) { $default = $ui->dest->repo_server ; $is_current_value = 1; } # will set repo_server $ui->dest->ui_set_p4d_dir( $answer ); Destination P4PORT The hostname/IP address and port of the p4d to write to, separated by a colon. Defaults to the default P4PORT variable as reported by the 'p4 set' command (with a final default to "perforce:1666" if the p4 set command does not return anything). my $h = $ui->dest->p4_get_settings; if ($ui->in_edit_mode) { $default = $ui->dest->repo_server ; $is_current_value = 1; } else { $default = empty ( $h->{P4HOST} ) ? "perforce:1666" : $h->{P4HOST} ; } perforce:1666 $ui->dest->repo_server( $answer ) unless empty $answer; Destination P4USER The username to connect to the destination p4d with. Defaults to the user reported by the 'p4 set' command (with a final default to the USER environment variable if the p4 set command does not return anything). if ( $ui->in_edit_mode ) { $default = $ui->dest->repo_user; $is_current_value = 1; } else { my $h = $ui->dest->p4_get_settings; $default = empty ( $h->{P4USER} ) ? ( empty $ENV{USER} ? undef : $ENV{USER}) : $h->{P4USER} ; } $ui->dest->repo_user( $answer ) unless empty $answer; Destination P4PASSWD The P4PASSWD needed to access the server. Leave blank to use the default reported by P4PASSWD. WARNING: entering a password will cause it to be echoed in plain text to the terminal. if ($ui->in_edit_mode ) { unless ( empty $ui->dest->repo_password ) { $default = "** current password **"; $is_current_value = 1; } } else { my $h = $ui->dest->p4_get_settings; $default = "** current P4PASSWD **" unless empty $h->{P4PASSWD} ; } if ( $ui->in_edit_mode ) { $answer = $ui->dest->repo_password if $answer eq "** current password **"; } else { my $h = $ui->dest->p4_get_settings ; $answer = $h->{P4PASSWD} if $answer eq "** current P4PASSWD **"; } $ui->dest->repo_password( $answer ) unless empty $answer; Destination File Specification Where to place the transferred revisions. This is a perforce repository spec and must begin with "//" and a depot name ("//depot"), not a local filesystem spec or a "//client" or "//label" spec. if ( $ui->in_edit_mode ) { $default = $ui->dest->repo_filespec; $is_current_value = 1; } //depot/directory-path/... $ui->dest->repo_filespec( $answer );