VCP-Dest-p4.stml #25

<!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_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>

The hostname/IP address and port of the p4d to write to,
separated by a colon.  Defaults to the default P4PORT variable
as reported by the 'p4 set' command (with a final default to
"perforce:1666" if the p4 set command does not return anything).

    </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>

The username to connect to the destination p4d with.  Defaults
to the user reported by the 'p4 set' command (with a final
default to the USER environment variable if the p4 set command
does not return anything).

    </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>

The P4PASSWD needed to access the server.  Leave blank to use
the default reported by P4PASSWD.

WARNING: entering a password will cause it 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>

Where to place the transferred revisions.  This is a perforce
repository spec and must begin with "//" and a depot name
("//depot"), not a local filesystem spec or a "//client" or
"//label" spec.

    </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>