Initialize the machine
Source ID
The source ID is used internally by VCP to organize the VCP
databases and to refer to the source repository. The source ID
need not appear in your source repository, nor does it appear in
your destination repository after conversion.
A source ID must start with an alphabetic character, and
can include alphanumeric characters, underscores, and dashes.
Do not use spaces and punctuation characters in source IDs.
Enter a symbolic name for the source repository.
source_repo_id && $ui->source_repo_id;
$is_current_value = $ui->{EditMode} = 1 unless empty $default;
]]>
## Set the UI's source_repo_id. This will write-through to
## the underlying source if it's been loaded already,
## otherwise the call to new_source() will do the write-through
## when it is loaded later.
$ui->source_repo_id( $answer )
unless ! empty $ui->source_repo_id and empty $answer;
Source type
What type of repository are you copying revisions from?
source && $ui->source->repo_scheme;
$is_current_value = $ui->{EditMode} = 1 unless empty $default;
]]>
Destination ID
The destination ID is used internally by VCP to organize the VCP
databases and to refer to the destination repository. The destination
ID does not appear in your destination repository after conversion.
A destination ID must start with an alphabetic character, and
can include alphanumeric characters, underscores, and dashes.
Do not use spaces and punctuation characters in destination IDs.
Enter a symbolic name for the destination repository.
dest_repo_id && $ui->dest_repo_id;
$is_current_value = $ui->{EditMode} = 1 unless empty $default;
]]>
## Set the UI's dest_repo_id. This will write-through to
## the underlying destination if it's been loaded already,
## otherwise the call to new_dest() will do the write-through
## when it is loaded later.
$ui->dest_repo_id( $answer )
unless ! empty $ui->dest_repo_id and empty $answer;
Destination SCM type
What type of repository are you copying revisions to?
dest && $ui->dest->repo_scheme;
$is_current_value = $ui->{EditMode} = 1 unless empty $default;
]]>
Next step
Based on the information you have provided, VCP is now ready
to start converting revisions from the source repository to
the destination repository. Choose an option:
$default = "Save config file and run";
Save config file and run
$ui->{Run} = 1;
Save config file and exit
Config file name
Specify the name of the configuration file to which VCP saves
the conversion options you have specified.
Config file name (Config filename) [Default: AllVSS_to_MyP4D.vcp]?
(( after creation ))
To convert your repository, use VCP with this configuration file
by invoking VCP on the command line as follows:
vcp allvss_to_myp4d.vcp
if ( ! empty $ui->{Filename} ) {
$default = $ui->{Filename};
$is_current_value = 1;
}
else {
$default = $ui->source->repo_id . "_to_" . $ui->dest->repo_id . ".vcp";
}
Config filename
$ui->{SaveAsConfigFileName} = $answer;
if ( -e $answer ) {
die "Warning: '$answer' exists but is a directory!\n"
if -d $answer;
die "Warning: '$answer' exists but is not a regular file!\n"
unless -f $answer;
die "Warning: '$answer' exists but is not writable!\n"
unless -w $answer;
die "Warning: '$answer' already exists!\n";
}
Run VCP with the options entered