view release on metacpan or  search on metacpan

script/ecs_setup  view on Meta::CPAN

    print CFG "\n# AMQP configuration parameters\n";
    print CFG cfgline('ENABLE_AMQP');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_BROKER_URL');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_VHOST');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_ADDR_META');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_ADDR_MSG');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_ADDR_DOC');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_DEBUG_LEVEL');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_CMD_SEND');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_SEND_TIMELIMIT');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_CMD_RECV');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_RECV_TIMEOUT');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP});
    print CFG cfgline('AMQP_RECV_TIMELIMIT');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SASL};
    print CFG cfgline('AMQP_USERNAME');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SASL};
    print CFG cfgline('AMQP_PASSWORD');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SSL};
    print CFG cfgline('AMQP_TRUSTSTORE');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SSL_CLIENT};
    print CFG cfgline('AMQP_SSLCERT');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SSL_CLIENT};
    print CFG cfgline('AMQP_SSLKEY');
    print CFG '#' if not is_yes($cfg->{ENABLE_AMQP}) or not exists $cfg->{CFG_AMQP_SSL_CLIENT};
    print CFG cfgline('AMQP_SSLPASS');

    print CFG "\n# GnuPG cryptography configuration parameters\n";
    print CFG '#' if not exists $cfg->{CFG_GPG};
    print CFG cfgline('GPG_HOMEDIR');
    print CFG '#' if not exists $cfg->{CFG_GPG};
    print CFG cfgline('GPG_KEYID');
    print CFG '#' if not exists $cfg->{CFG_GPG};
    print CFG cfgline('GPG_PASSPHRASE');
    print CFG '#', cfgline('OPENPGP_CMD_ENCRYPT');
    print CFG '#', cfgline('OPENPGP_CMD_DECRYPT');

    print CFG "\n# PGP cryptography configuration parameters\n";
    print CFG '#' if not exists $cfg->{CFG_PGP};
    print CFG cfgline('PGP_HOMEDIR');
    print CFG '#' if not exists $cfg->{CFG_PGP};
    print CFG cfgline('PGP_KEYID');
    print CFG '#' if not exists $cfg->{CFG_PGP};
    print CFG cfgline('PGP_PASSPHRASE');
    print CFG '#', cfgline('PGP2_CMD_ENCRYPT');
    print CFG '#', cfgline('PGP2_CMD_DECRYPT');

    close CFG;

    chmod $EMDIS::ECS::FILEMODE, $opt_config;
}


__END__

# embedded POD documentation

=head1 NAME

ecs_setup - ECS setup wizard - configuration file generator

=head1 SYNOPSIS

 ecs_setup

 ecs_setup test.cfg

=head1 DESCRIPTION

Prompts the user for answers to a series of questions and creates a
basic ECS configuration file.

=head1 BUGS

Possibly.

=head1 NOTES

TBD.

=head1 SEE ALSO

ECS, ecs_chk_com, ecs_scan_mail, ecstool

=head1 AUTHOR

Joel Schneider <jschneid@nmdp.org>

=head1 COPYRIGHT AND LICENSE

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED 
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

Copyright (C) 2002-2025 National Marrow Donor Program. All rights reserved.

See LICENSE file for license details.

=head1 HISTORY

ECS, the EMDIS Communication System, was originally designed and
implemented by the ZKRD (http://www.zkrd.de/).  This Perl implementation
of ECS was developed by the National Marrow Donor Program
(http://www.marrow.org/).

2004-03-12	
Canadian Blood Services - Tony Wai
Added MS Windows support for Windows 2000 and Windows XP
Added "DIRECTORY" inBox Protocol. This can interface with any mail
system that can output the new messages to text files.