=head1 NAME
-kmig-env - This tool is for tracking and setting environment variables used by
-B<kmig> and its sub-tools.
+mig-env - This tool is for tracking and setting environment variables used by
+B<mig> and its sub-tools.
=head1 SYNOPSIS
-B<kmig-env> <create|use> <migration_schema>
+B<mig-env> <create|use> <migration_schema>
-B<kmig-env> <show> [migration_schema]
+B<mig-env> <show> [migration_schema]
-B<kmig-env> <clone> [orig_migration_schema] [new_migration_schema]
+B<mig-env> <clone> [orig_migration_schema] [new_migration_schema]
-B<kmig-env> <list>
+B<mig-env> <list>
-B<kmig-env> <help>
+B<mig-env> <help>
=head1 DESCRIPTION
-For most invocations, B<kmig-env> will either create or use a migration-specific
-file (~/.kmig/<migration_schema>.env) for setting the following environment
+For most invocations, B<mig-env> will either create or use a migration-specific
+file (~/.mig/<migration_schema>.env) for setting the following environment
variables:
=over 15
=item B<use> <schema>
This command will spawn a bash shell that executes the corresponding
-~/.kmig/<schema>.env script for setting up environment variables encoded during
+~/.mig/<schema>.env script for setting up environment variables encoded during
B<create>.
=item B<show> [schema]
-This command will show the contents of the corresponding ~/.kmig/<schema>.env
+This command will show the contents of the corresponding ~/.mig/<schema>.env
script, or, if no schema is specified, then it will list pertinent variables in
the current environment if they exist.
=item B<list>
-This command will list migration schemas found in ~/.kmig
+This command will list migration schemas found in ~/.mig
=item B<help>
pod2usage(-verbose => 2) if ! $ARGV[0];
my $migration_schema = $ARGV[1] || '';
-my $filename = "$HOME/.kmig/$migration_schema.env";
+my $filename = "$HOME/.mig/$migration_schema.env";
switch($ARGV[0]) {
case "--help" {
pod2usage(-verbose => 2);
case "clone" {
pod2usage(-verbose => 1) if ! $ARGV[2];
$migration_schema = $ARGV[2] || '';
- $filename = "$HOME/.kmig/$migration_schema.env";
+ $filename = "$HOME/.mig/$migration_schema.env";
mig_env_clone();
}
case "use" {
}
}
case "list" {
- opendir(my $dh, "$HOME/.kmig") || die "can't open $HOME/.kmig: $!";
+ opendir(my $dh, "$HOME/.mig") || die "can't open $HOME/.mig: $!";
while (readdir $dh) {
if (/^(.*)\.env$/) {
print "$1\n";
# create files and directories if needed
- mkdir "$HOME/.kmig";
+ mkdir "$HOME/.mig";
make_path($MIGGITDIR, { verbose => 1 });
`touch $MIGGITDIR/README`;
make_path($MIGWORKDIR, { verbose => 1 });