package VCP::UIMachines; =begin hackers DO NOT EDIT!!! GENERATED FROM ui_machines/vcp_ui.tt2 by /usr/local/bin/stml AT Thu May 22 17:40:04 2003 =end hackers =head1 NAME VCP::UIMachines - State machines for user interface =head1 SYNOPSIS Called by VCP::UI =head1 DESCRIPTION The user interface module L is a framework that bolts the implementation of the user interface to a state machine representing the user interface. Each state in this state machine is a method that runs the state and returns a result (or dies to exit the program). =cut use strict; use VCP::Debug qw( :debug ); =head1 API =over =item new Creates a new user interface object. =cut sub new { my $class = ref $_[0] ? ref shift : shift; my $self = bless { @_ }, $class; } =item run Executes the user interface. =cut sub run { my $self = shift; my ( $ui ) = @_; $self->{STATE} = "init"; while ( defined $self->{STATE} ) { debug "UI entering state $self->{STATE}" if debugging; no strict "refs"; $self->{STATE} = $self->{STATE}->( $ui ); } return; } =back =head2 Interactive Methods =over =cut use strict; =item init Initialize the machine Next state: source_prompt =cut sub init { return 'source_prompt'; } =item source_prompt: Source SCM type Enter the kind of repository to copy data from. Valid answers: cvs => source_cvs_cvsroot_prompt p4 => source_p4_run_p4d_prompt =cut sub source_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Source SCM type END_PROMPT chomp $prompt; my @valid_anwsers = ( [ 'cvs', 'cvs', 'source_cvs_cvsroot_prompt' ], [ 'p4', 'p4', 'source_p4_run_p4d_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the kind of repository to copy data from. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_prompt: Destination SCM type Enter the kind of repository to copy data to. Valid answers: p4 => dest_p4_run_p4d_prompt cvs => dest_cvs_cvsroot_prompt =cut sub dest_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Destination SCM type END_PROMPT chomp $prompt; my @valid_anwsers = ( [ 'p4', 'p4', 'dest_p4_run_p4d_prompt' ], [ 'cvs', 'cvs', 'dest_cvs_cvsroot_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the kind of repository to copy data to. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item convert Run VCP with the options entered =cut sub convert { return undef; } =item dest_p4_run_p4d_prompt: Launch a private p4d in a local directory If you are working with an offline repository in a local directory, vcp can launch a p4d in that directory on a random hi-numbered TCP port for you. Valid answers: yes => dest_p4_p4d_dir_prompt no => dest_p4_host_prompt =cut sub dest_p4_run_p4d_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Launch a private p4d in a local directory END_PROMPT chomp $prompt; my @valid_anwsers = ( [ 'yes', qr/\Ay(es)?\z/i, 'dest_p4_p4d_dir_prompt' ], [ 'no', qr/\Ano?\z/i, 'dest_p4_host_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); If you are working with an offline repository in a local directory, vcp can launch a p4d in that directory on a random hi-numbered TCP port for you. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_p4d_dir_prompt: Directory to run p4d in Enter the directory to launch the p4d in. VCP will test to see if this is a valid directory when you hit Enter. Valid answers: => dest_p4_user_prompt =cut sub dest_p4_p4d_dir_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Directory to run p4d in END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', sub { -d $_ ? 1 : die qw{'$_' is not a valid directory} }, 'dest_p4_user_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the directory to launch the p4d in. VCP will test to see if this is a valid directory when you hit Enter. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_host_prompt: P4 Host name, including port Enter the name and port of the p4d to read from, separated by a colon. Leave empty to use the p4's default of the P4HOST environment variable if set or "perforce:1666" if not. Valid answers: => dest_p4_user_prompt =cut sub dest_p4_host_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; P4 Host name, including port END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'dest_p4_user_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the name and port of the p4d to read from, separated by a colon. Leave empty to use the p4's default of the P4HOST environment variable if set or "perforce:1666" if not. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_user_prompt: P4 user id Enter the user_id (P4USER) value needed to access the server. Leave empty to use p4's default P4USER logic. ??? Valid answers: => dest_p4_password_prompt =cut sub dest_p4_user_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; P4 user id END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'dest_p4_password_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the user_id (P4USER) value needed to access the server. Leave empty to use p4's default P4USER logic. ??? END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_password_prompt: 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. Valid answers: => dest_p4_filespec_prompt =cut sub dest_p4_password_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Password END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'dest_p4_filespec_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); If a password (P4PASSWD) is needed to access the server, enter it here. WARNING: password will be echoed in plain text to the terminal. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_filespec_prompt: Files to copy 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. There should be a trailing "/..." specified. Valid answers: //... => dest_p4_change_branch_rev_prompt =cut sub dest_p4_filespec_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Files to copy END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '//...', qr{\A//.*/\.{3}\z}, 'dest_p4_change_branch_rev_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); 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. There should be a trailing "/..." specified. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_p4_change_branch_rev_prompt: Change branch rev #1 Forces VCP to do a p4 integrate, add, submit sequence to branch files, thus capturing the branch and the file alterations in one change. Valid answers: => convert =cut sub dest_p4_change_branch_rev_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Change branch rev #1 END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/\A(y(es)?|no?)\z/i, 'convert' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Forces VCP to do a p4 integrate, add, submit sequence to branch files, thus capturing the branch and the file alterations in one change. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_cvs_cvsroot_prompt: cvsroot Enter the cvsroot spec. Leave empty to use the CVSROOT environment variable if set. Valid answers: => dest_cvs_module_prompt =cut sub dest_cvs_cvsroot_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvsroot END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'dest_cvs_module_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the cvsroot spec. Leave empty to use the CVSROOT environment variable if set. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_cvs_module_prompt: cvs module Enter the cvs module name. Valid answers: => dest_cvs_init_cvsroot_prompt =cut sub dest_cvs_module_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvs module END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/./, 'dest_cvs_init_cvsroot_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the cvs module name. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item dest_cvs_init_cvsroot_prompt: Change branch rev #1 Initializes a cvs repository in the directory indicated in the cvs CVSROOT spec. Refuses to init a non-empty directory. Valid answers: => convert =cut sub dest_cvs_init_cvsroot_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Change branch rev #1 END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/\A(y(es)?|no?)\z/i, 'convert' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Initializes a cvs repository in the directory indicated in the cvs CVSROOT spec. Refuses to init a non-empty directory. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_run_p4d_prompt: Launch a private p4d in a local directory If you are working with an offline repository in a local directory, vcp can launch a p4d in that directory on a random hi-numbered TCP port for you. Valid answers: no => source_p4_host_prompt yes => source_p4_p4d_dir_prompt =cut sub source_p4_run_p4d_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Launch a private p4d in a local directory END_PROMPT chomp $prompt; my @valid_anwsers = ( [ 'no', qr/\Ano?\z/i, 'source_p4_host_prompt' ], [ 'yes', qr/\Ay(es)?\z/i, 'source_p4_p4d_dir_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); If you are working with an offline repository in a local directory, vcp can launch a p4d in that directory on a random hi-numbered TCP port for you. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_p4d_dir_prompt: Directory to run p4d in Enter the directory to launch the p4d in. VCP will test to see if this is a valid directory when you hit Enter. Valid answers: => source_p4_user_prompt =cut sub source_p4_p4d_dir_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Directory to run p4d in END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', sub { -d $_ ? 1 : die qw{'$_' is not a valid directory} }, 'source_p4_user_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the directory to launch the p4d in. VCP will test to see if this is a valid directory when you hit Enter. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_host_prompt: P4 Host name, including port Enter the name and port of the p4d to read from, separated by a colon. Leave empty to use the p4's default of the P4HOST environment variable if set or "perforce:1666" if not. Valid answers: => source_p4_user_prompt =cut sub source_p4_host_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; P4 Host name, including port END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_p4_user_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the name and port of the p4d to read from, separated by a colon. Leave empty to use the p4's default of the P4HOST environment variable if set or "perforce:1666" if not. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_user_prompt: P4 user id Enter the user_id (P4USER) value needed to access the server. Leave empty to use p4's default P4USER logic. ??? Valid answers: => source_p4_password_prompt =cut sub source_p4_user_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; P4 user id END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_p4_password_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the user_id (P4USER) value needed to access the server. Leave empty to use p4's default P4USER logic. ??? END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_password_prompt: 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. Valid answers: => source_p4_filespec_prompt =cut sub source_p4_password_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Password END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_p4_filespec_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); If a password (P4PASSWD) is needed to access the server, enter it here. WARNING: password will be echoed in plain text to the terminal. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_filespec_prompt: Files to copy If you want to copy a portion of the source repository, enter a p4 filespec starting with the depot name. Do not enter any revision or change number information. Valid answers: //... => source_p4_follow_branch_into_prompt =cut sub source_p4_filespec_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Files to copy END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '//...', '//...', 'source_p4_follow_branch_into_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); If you want to copy a portion of the source repository, enter a p4 filespec starting with the depot name. Do not enter any revision or change number information. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_p4_follow_branch_into_prompt: Follow 'branch into' flag Causes VCP to notice "branch into" messages in the output of p4's filelog command and. If the file that's the target of the p4 integrate (branch) command is revision number #1, adds the target to the list of exported files. This usually needs a --rev-root option to set the rev root to be high enough in the directory tree to include all branches (it's an error to export a file that is not under the rev root). Valid answers: => dest_prompt =cut sub source_p4_follow_branch_into_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Follow 'branch into' flag END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/\A(y(es)?|no?)\z/i, 'dest_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Causes VCP to notice "branch into" messages in the output of p4's filelog command and. If the file that's the target of the p4 integrate (branch) command is revision number #1, adds the target to the list of exported files. This usually needs a --rev-root option to set the rev root to be high enough in the directory tree to include all branches (it's an error to export a file that is not under the rev root). END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_cvsroot_prompt: cvsroot Enter the cvsroot spec. Leave empty to use the CVSROOT environment variable if set. Valid answers: => source_cvs_module_prompt =cut sub source_cvs_cvsroot_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvsroot END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_cvs_module_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the cvsroot spec. Leave empty to use the CVSROOT environment variable if set. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_module_prompt: cvs module Enter the cvs module name. Valid answers: => source_cvs_filespec_prompt =cut sub source_cvs_module_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvs module END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/./, 'source_cvs_filespec_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the cvs module name. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_filespec_prompt: cvs filespec Enter the filespec which may contain trailing wildcards, like "a/b/..." to extract an entire directory tree. Valid answers: => source_cvs_working_directory_prompt =cut sub source_cvs_filespec_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvs filespec END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/./, 'source_cvs_working_directory_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Enter the filespec which may contain trailing wildcards, like "a/b/..." to extract an entire directory tree. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_working_directory_prompt: Enter CVS working directory Used to set the CVS working directory. VCP::Source::cvs will cd to this directory before calling cvs, and won't initialize a CVS workspace of it's own (normally, VCP::Source::cvs does a "cvs checkout" in a temporary directory). Valid answers: => source_cvs_binary_checkout_prompt =cut sub source_cvs_working_directory_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Enter CVS working directory END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_cvs_binary_checkout_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Used to set the CVS working directory. VCP::Source::cvs will cd to this directory before calling cvs, and won't initialize a CVS workspace of it's own (normally, VCP::Source::cvs does a "cvs checkout" in a temporary directory). END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_binary_checkout_prompt: Force binary checkout Pass the -kb option to cvs, forces a binary checkout. This is useful when you want a text file to be checked out with Unix linends, or if you know that some files in the repository are not flagged as binary files and should be. Valid answers: => source_cvs_use_cvs_prompt =cut sub source_cvs_binary_checkout_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Force binary checkout END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/\A(y(es)?|no?)\z/i, 'source_cvs_use_cvs_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Pass the -kb option to cvs, forces a binary checkout. This is useful when you want a text file to be checked out with Unix linends, or if you know that some files in the repository are not flagged as binary files and should be. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_use_cvs_prompt: Use cvs (rather than reading local repositories directly) Use cvs (rather than reading local repositories directly) Valid answers: => source_cvs_revision_prompt =cut sub source_cvs_use_cvs_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; Use cvs (rather than reading local repositories directly) END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', qr/\A(y(es)?|no?)\z/i, 'source_cvs_revision_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Use cvs (rather than reading local repositories directly) END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_revision_prompt: cvs log revision specification Passed to "cvs log" as a "-r" revision specification. This corresponds to the "-r" option for the rlog command, not either of the "-r" options for the cvs command. Valid answers: => source_cvs_date_spec_prompt =cut sub source_cvs_revision_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvs log revision specification END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'source_cvs_date_spec_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Passed to "cvs log" as a "-r" revision specification. This corresponds to the "-r" option for the rlog command, not either of the "-r" options for the cvs command. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =item source_cvs_date_spec_prompt: cvs log date specification Passed to 'cvs log' as a "-d" date specification. Valid answers: => dest_prompt =cut sub source_cvs_date_spec_prompt { my ( $ui ) = @_; ## Use single-quotish HERE docs as the most robust form of quoting ## so we don't have to mess with escaping. my $prompt = <<'END_PROMPT'; cvs log date specification END_PROMPT chomp $prompt; my @valid_anwsers = ( [ '', '', 'dest_prompt' ], ); my ( $answer, $answer_record ) = $ui->ask( <<'END_DESCRIPTION', $prompt, \@valid_anwsers ); Passed to 'cvs log' as a "-d" date specification. END_DESCRIPTION return $answer_record->[-1]; ## The next state } =back =head1 WARNING: AUTOGENERATED This module is autogenerated in the pre-distribution build process, so to change it, you need the master repository files in ui_machines/..., not a CPAN/PPM/tarball/.zip/etc. distribution. =head1 COPYRIGHT Copyright 2003, Perforce Software, Inc. All Rights Reserved. This module and the VCP package are licensed according to the terms given in the file LICENSE accompanying this distribution, a copy of which is included in L. =head1 AUTHOR Barrie Slaymaker =cut 1;