VCP-Dest-p4.stml #27

<!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 p4d for the destination</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>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->{P4_RUN_P4D} ? "yes" : "no" ;
        $is_current_value = 1;
      }
      else {
        $default = "no";
      }
    </entry-handler>

    <arc from="dest_type_prompt" guard="'p4'">
      <description>p4</description>
      <handler>
        $ui->new_dest( $answer );
      </handler>
    </arc>

    <arc to="dest_p4_p4d_dir_prompt" guard="'yes'">
      <description>yes</description>
      <handler>
        my $old = $ui->dest->{P4_RUN_P4D} ? 1 : 0;
        $answer = 1;
        $ui->dest->repo_server( undef )
          if $ui->in_edit_mode and $old != $answer;

        $ui->dest->{P4_RUN_P4D} = $answer;
      </handler>
    </arc>

    <arc to="dest_p4_host_prompt" guard="'no'">
      <description>no</description>
      <handler>
        my $old = $ui->dest->{P4_RUN_P4D} ? 1 : 0;
        $answer = 0 ;
        $ui->dest->repo_server( undef )
          if $ui->in_edit_mode and $old != $answer;
          
          $ui->dest->{P4_RUN_P4D} = $answer;
      </handler>
    </arc>
    
  </state>


  <state id="dest_p4_p4d_dir_prompt" class-ids="prompt_class">
    <name>Destination P4ROOT</name>
    <description>

The directory of the destination repository, p4d will be
launched here.
    
    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_server ;
        $is_current_value = 1;
      }
    </entry-handler>
    
    <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>Destination P4PORT</name>
    <description>

Specify the hostname/IP address and TCP port of the destination
Perforce server (p4d).  The default value is the current P4PORT
environment variable as reported by 'p4 set', or "perforce:1666"
if P4PORT is unset.

    </description>
    <entry-handler>
      my $h = $ui->dest->p4_get_settings;
      if ($ui->in_edit_mode) {
        $default = $ui->dest->repo_server ;
        $is_current_value = 1;
      }
      else {
        $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>Destination P4USER</name>
    <description>

Specify the username with which to connect to the destination
Perforce server (p4d).

If you are connecting to an existing Perforce server (p4d),
you must specify a P4USER with administrative or superuser
privileges.

If you are launching a new p4d for the destination repository,
you may specify any name for P4USER, and this user will be
created for you on the destination repository.

The default value is the current P4USER environment variable
as reported by 'p4 set', or the current USER variable if P4USER
is unset.

    </description>
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_user;
        $is_current_value = 1;
      }
      else {
        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>Destination P4PASSWD</name>
    <description>

Specify the password with which to connect to the destination
Perforce server (p4d).

If you are connecting to an existing Perforce server (p4d), you
must specify the correct password for the P4USER you are using
to connect to the server.  (If the P4USER you are using has no
password, enter any non-null P4PASSWD.)

If you are launching a new p4d for the destination repository,
enter any non-null password here.)

WARNING: Entering a password here causes the password to be echoed
in plain text to the terminal.

    </description>

    <entry-handler>

      if ($ui->in_edit_mode ) {
        unless ( empty $ui->dest->repo_password ) {
          $default = "** current password **";
          $is_current_value = 1;
        }
      }
      else {
        my $h = $ui->dest->p4_get_settings;
        $default = "** current P4PASSWD **"
          unless empty $h->{P4PASSWD} ;
      }    
    </entry-handler>

    <arc to="dest_p4_filespec_prompt" guard="&non_empty_re;">
      <handler>
        if ( $ui->in_edit_mode ) {
            $answer = $ui->dest->repo_password
                if $answer eq "** current password **";
        }
        else {
          my $h = $ui->dest->p4_get_settings ;
          $answer = $h->{P4PASSWD}
              if $answer eq "** current P4PASSWD **";
        }
        $ui->dest->repo_password( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


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

For Perforce destination servers, specify the path in Perforce
depot syntax.  Paths in Perforce depot syntax begin with "//",
and are followed by a depot name (by default, "depot").  Do not
use local filesystem specifications, client specifications, or
label specifications.

Specify the location on the destination server to place the
converted file revisions.

    </description>
    <entry-handler>  
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_filespec;
        $is_current_value = 1;
      }
    </entry-handler>


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


</machine>