]> Launch a private p4d in a local directory 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. p4 require VCP::Source::p4; $ui->{Source} = VCP::Source::p4->new; $ui->{Source}->repo_scheme( 'p4' ); yes $ui->{Source}->{P4_RUN_P4D} = 1; no Directory to run p4d in Enter the directory to launch the p4d in. VCP will then check that this is a valid directory. # will set repo_server $ui->{Source}->ui_set_p4d_dir( $answer ); P4 Host name, including port 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; P4 user id Enter the user_id (P4USER) value needed to access the server. Defaults to the P4USER environment variable, if present; or the login user if not. 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; Password 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 $pw; my $h = $ui->{Source}->p4_get_settings; $pw = $h->{P4PASSWD} if $pw eq "Use value of P4PASSWD environment variable"; $ui->{Source}->repo_password( $pw ) unless empty $pw; Files to copy 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 );