]> Launch a private p4d in a local directory 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. p4 require VCP::Dest::p4; $ui->{Dest} = VCP::Dest::p4->new; $ui->{Dest}->repo_scheme( 'p4' ); yes $ui->{Dest}->{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->{Dest}->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->{Dest}->p4_get_settings; $default = empty $h->{P4HOST} ? "perforce:1666" : $h->{P4HOST} ; perforce:1666 $ui->{Dest}->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->{Dest}->p4_get_settings; $default = empty $h->{P4USER} ? ( empty $ENV{USER} ? undef : $ENV{USER} ) : $h->{P4USER} ; $ui->{Dest}->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->{Dest}->p4_get_settings; $default = "Use value of P4PASSWD environment variable" unless empty $h->{P4PASSWD}; my $pw; my $h = $ui->{Dest}->p4_get_settings; $pw = $h->{P4PASSWD} if $pw eq "Use value of P4PASSWD environment variable"; $ui->{Dest}->repo_password( $pw ) unless empty $pw; Destination spec The destination spec is a perforce repository spec and must begin with // and a depot name ("//depot"), not a local filesystem spec or a client spec. //depot/directory-path/... $ui->{Dest}->repo_filespec( $answer );