]> 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. $default = "no"; p4 require VCP::Dest::p4; $ui->{Dest} = VCP::Dest::p4->new; $ui->{Dest}->repo_scheme( 'p4' ); yes $ui->{Dest}->{P4_RUN_P4D} = 1; no Destination P4ROOT The directory of the destination repository, p4d will be launched here. # 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). $default = empty $ui->{Dest}->{P4_SET_OUTPUT}->{P4HOST} ? "perforce:1666" : $ui->{Dest}->{P4_SET_OUTPUT}->{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). $default = empty $ui->{Dest}->{P4_SET_OUTPUT}->{P4USER} ? $ENV{USER} : $ui->{Dest}->{P4_SET_OUTPUT}->{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: password will be echoed in plain text to the terminal. $default = "Use value of P4PASSWD environment variable" unless empty $ui->{Dest}->{P4_SET_OUTPUT}->{P4PASSWD}; $answer = $ui->{Dest}->{P4_SET_OUTPUT}->{P4PASSWD} if defined $answer and $answer eq "Use value of P4PASSWD environment variable"; $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. //depot/directory-path/... $ui->{Dest}->repo_filespec( $answer );