source: XMLIO_V2/tools/FCM/examples/sbin/fcm-recover-trac-env @ 81

#!/usr/bin/perl
# ------------------------------------------------------------------------------
# (C) Crown copyright Met Office. All rights reserved.
# For further details please refer to the file COPYRIGHT.txt
# which you should have received as part of this distribution.
# ------------------------------------------------------------------------------

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";
use FCM::Admin::System qw{
    filter_projects
    get_projects_from_trac_backup
    recover_trac_environment
    recover_trac_ini_file
    recover_trac_passwd_file
};
use FCM::Admin::Util qw{option2config};
use Getopt::Long qw{GetOptions};
use Pod::Usage qw{pod2usage};

main();

sub main {
    my %option;
    my $result = GetOptions(
        \%option,
        q{help|usage|h},
        q{no-ini-file},
        q{no-passwd-file},
        q{trac-backup-dir=s},
        q{trac-live-dir=s},
        q{trac-ini-file=s},
        q{trac-passwd-file=s},
    );
    if (!$result) {
        pod2usage(1);
    }
    if (exists($option{help})) {
        pod2usage(q{-verbose} => 1);
    }
    option2config(\%option);
    my @projects = filter_projects([get_projects_from_trac_backup()], \@ARGV);
    for my $project (@projects) {
        recover_trac_environment($project);
    }
    if (!@ARGV && !exists($option{q{no-ini-file}})) {
        recover_trac_ini_file();
    }
    if (!@ARGV && !exists($option{q{no-passwd-file}})) {
        recover_trac_passwd_file();
    }
}

__END__

=head1 NAME

fcm-recover-trac-env

=head1 SYNOPSIS

    fcm-recover-trac-env [OPTIONS] [PROJECT ...]

=head1 OPTIONS

=over 4

=item --help, -h, --usage

Prints help and exits.

=item --no-ini-file

Do not recover the (central) INI file. This option is automatic if one or more
project name is specified in the argument list.

=item --no-passwd-file

Do not recover the password file. This option is automatic if one or more
project name is specified in the argument list.

=item --trac-backup-dir=DIR

Specifies the root location of the backup directory. See
L<FCM::Admin::Config|FCM::Admin::Config> for the current default.

=item --trac-ini-file=FILE

Specifies the base name of the Trac INI file. See
L<FCM::Admin::Config|FCM::Admin::Config> for the current default.

=item --trac-live-dir=DIR

Specifies the root location of the live directory. See
L<FCM::Admin::Config|FCM::Admin::Config> for the current default.

=item --trac-passwd-file=FILE

Specifies the base name of the Trac password file. See
L<FCM::Admin::Config|FCM::Admin::Config> for the current default.

=back

=head1 ARGUMENTS

=over 4

=item PROJECT

Specifies one or more project to recover. If no project is specified, the
program searches the backup directory for projects to recover.

No attempt to recover the (central) INI file and the password file is made if
one or more project name is specified.

=back

=head1 DESCRIPTION

This program recovers Trac environments, the (central) INI file and the
password file from the backup directory to the live directory.

=head1 COPYRIGHT

E<169> Crown copyright Met Office. All rights reserved.

=cut