]> Launch a p4d for the source If you would like to extract from 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::Source::p4; $ui->{Source} = VCP::Source::p4->new; $ui->{Source}->repo_scheme( 'p4' ); yes $ui->{Source}->{P4_RUN_P4D} = 1; no Source P4ROOT The directory of the source repository. The source p4d will be launched here. # 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 the P4HOST environment variable if set or "perforce:1666" if not. my $h = $ui->{Source}->p4_get_settings; $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). 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. WARNING: password will be echoed in plain text to the terminal. my $h = $ui->{Source}->p4_get_settings; $default = "Use value of P4PASSWD environment variable" unless empty $h->{P4PASSWD}; my $h = $ui->{Source}->p4_get_settings; $answer = $h->{P4PASSWD} if defined $answer and $answer eq "Use value of P4PASSWD environment variable"; $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. //depot/directory-path/... $ui->{Source}->repo_filespec( $answer );