VCP-Dest-p4.stml #20

<!DOCTYPE author [
  <!ENTITY yes_re "qr/\Ay(es)?\z/i" >
  <!ENTITY no_re "qr/\Ano?\z/i" >
  <!ENTITY non_empty_re "qr/./" >
]>

<machine id="VCP::Dest::p4" xmlns="http://slaysys.com/StateML/1.0">

  <!-- ================ TRANSITIONS =================== -->

  <state id="dest_p4_run_p4d_prompt" class-ids="prompt_class">
    <name>Launch a private p4d in a local directory</name>
    <description>
    
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.

    </description>
    <entry-handler>
      $default = "no";
    </entry-handler>

    <arc from="dest_prompt" guard="'p4'">
      <description>p4</description>

      <handler>
        require VCP::Dest::p4;
        $ui->{Dest} = VCP::Dest::p4->new;
        $ui->{Dest}->repo_scheme( 'p4' );
      </handler>
    </arc>

    <arc to="dest_p4_p4d_dir_prompt" guard="&yes_re;">
      <description>yes</description>
      <handler>$ui->{Dest}->{P4_RUN_P4D} = 1;</handler>
    </arc>

    <arc to="dest_p4_host_prompt" guard="&no_re;">
      <description>no</description>
    </arc>
  </state>


  <state id="dest_p4_p4d_dir_prompt" class-ids="prompt_class">
    <name>Directory to run p4d in</name>
    <description>

Enter the directory to launch the p4d in.  VCP will then check that
this is a valid directory.
    
    </description>

    <arc to="dest_p4_user_prompt" guard="&non_empty_re;">
      <handler>
        # will set repo_server
        $ui->{Dest}->ui_set_p4d_dir( $answer );
      </handler>
    </arc>
  </state>


  <state id="dest_p4_host_prompt" class-ids="prompt_class">
    <name>P4 Host name, including port</name>
    <description>

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.

    </description>
    <entry-handler>
      my $h = $ui->{Dest}->p4_get_settings;
      $default = empty $h->{P4HOST} ? "perforce:1666" : $h->{P4HOST} ;
    </entry-handler>

    <arc to="dest_p4_user_prompt" guard="&non_empty_re;">
      <description>perforce:1666</description>
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="dest_p4_user_prompt" class-ids="prompt_class">
    <name>P4 user id</name>
    <description>

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.

    </description>
    <entry-handler>
      my $h = $ui->{Dest}->p4_get_settings;
      $default = empty $h->{P4USER} ? ( empty $ENV{USER} ? undef : $ENV{USER} ) : $h->{P4USER} ;
    </entry-handler>

    <arc to="dest_p4_password_prompt" guard="&non_empty_re;">
      <handler>
        $ui->{Dest}->repo_user( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="dest_p4_password_prompt" class-ids="prompt_class">
    <name>Password</name>
    <description>

If a password (P4PASSWD) is needed to access the server, enter it here.

WARNING: password will be echoed in plain text to the terminal.

    </description>
    <entry-handler>
      my $h = $ui->{Dest}->p4_get_settings;
      $default = "Use value of P4PASSWD environment variable"
          unless empty $h->{P4PASSWD};
    </entry-handler>

    <arc to="dest_p4_filespec_prompt" guard="&non_empty_re;">
      <handler>
        my $h = $ui->{Dest}->p4_get_settings;
        $answer = $h->{P4PASSWD}
            if defined $answer and $answer eq "Use value of P4PASSWD environment variable";
        $ui->{Dest}->repo_password( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="dest_p4_filespec_prompt" class-ids="prompt_class">
    <name>Destination spec</name>
    <description>

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.

    </description>

    <arc to="convert" guard="qr#\A//#">
    <description>//depot/directory-path/...</description>
    <handler>
      $ui->{Dest}->repo_filespec( $answer );
    </handler>
  </arc>
  </state>


</machine>