]> 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. $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 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 ); # 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. $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; perforce:1666 $ui->{Dest}->repo_server( $answer ) unless empty $answer; Use default P4USER value Use the default for the p4 user, which is the P4USER environment variable, if present; or the login user if not. $prompt .= "(" . $ui->{Dest}->p4_default_user . ")"; yes $ui->{Dest}->repo_user( $ui->{Dest}->p4_default_user ); no P4 user id Enter the p4 user id value needed to access the server, or leave blank if none needed. $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. $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 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 );