Gecko [ christianhealingcodes.com ]

Name	Size	Permission	Date
config_data	6.97 KB	-r-xr-xr-x	2021-03-02 21:02
crc32	1.02 KB	-r-xr-xr-x	2021-03-02 21:01
crontab	1.81 MB	-rwxr-xr-x	2026-04-01 04:35
dbilogstrip	1.35 KB	-r-xr-xr-x	2021-03-02 21:01
dbiprof	6.06 KB	-r-xr-xr-x	2021-03-02 21:01
dbiproxy	5.27 KB	-r-xr-xr-x	2021-03-02 21:01
ea-php54	3.91 MB	-rwxr-xr-x	2026-03-19 03:55
ea-php55	4.01 MB	-rwxr-xr-x	2026-03-19 04:05
ea-php56	4.02 MB	-rwxr-xr-x	2026-03-19 03:51
ea-php70	3.91 MB	-rwxr-xr-x	2026-03-19 04:04
ea-php71	4.08 MB	-rwxr-xr-x	2026-03-19 04:01
ea-php72	4.32 MB	-rwxr-xr-x	2026-03-19 04:07
ea-php73	4.71 MB	-rwxr-xr-x	2026-03-19 04:08
ea-php74	6.09 MB	-rwxr-xr-x	2026-03-19 03:57
ea-php80	6.67 MB	-rwxr-xr-x	2026-03-18 23:17
ea_convert_php_ini	39.85 KB	-rwxr-xr-x	2026-03-18 22:43
ea_current_to_profile	8.31 KB	-rwxr-xr-x	2026-03-18 22:43
ea_install_profile	7.1 KB	-rwxr-xr-x	2026-03-18 22:43
ea_sync_user_phpini_settings	6.73 KB	-rwxr-xr-x	2026-03-18 22:43
enc2xs	40.69 KB	-r-xr-xr-x	2021-03-02 21:02
encguess	2.92 KB	-r-xr-xr-x	2021-03-02 21:02
env_parallel	4.49 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.ash	14.08 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.bash	14.25 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.csh	5.11 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.dash	14.08 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.fish	6.34 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.ksh	13.4 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.mksh	13.46 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.pdksh	5.85 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.sh	14.06 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.tcsh	5.11 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.zsh	13.49 KB	-rwxr-xr-x	2021-01-23 21:37
filescout	45.14 KB	-r-x------	2019-05-15 20:49
gpgmailtunl	6.3 KB	-r-xr-xr-x	2021-03-02 21:01
instmodsh	4.1 KB	-r-xr-xr-x	2021-01-13 19:43
json_pp	4.78 KB	-r-xr-xr-x	2021-03-02 21:01
json_xs	6.93 KB	-r-xr-xr-x	2021-01-13 19:43
logscout	5.38 KB	-r-x------	2019-05-15 20:49
lsphp	937 B	-rwxr-xr-x	2025-04-01 16:34
lwp-download	10.05 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-dump	2.65 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-mirror	2.36 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-request	15.82 KB	-r-xr-xr-x	2021-03-02 21:02
niceload	32.36 KB	-rwxr-xr-x	2021-01-23 21:37
parallel	391.58 KB	-rwxr-xr-x	2021-01-23 21:37
parcat	3.93 KB	-rwxr-xr-x	2021-01-23 21:37
parset	3.93 KB	-rwxr-xr-x	2021-01-23 21:37
parsort	6.6 KB	-rwxr-xr-x	2021-01-23 21:37
passwd	3.47 MB	-rwxr-xr-x	2026-04-01 04:35
pear	935 B	-rwxr-xr-x	2025-04-01 16:34
php	933 B	-rwxr-xr-x	2025-04-01 16:34
piconv	8.08 KB	-r-xr-xr-x	2021-03-02 21:02
prove	13.24 KB	-r-xr-xr-x	2021-03-02 21:01
ptar	3.39 KB	-r-xr-xr-x	2021-03-02 21:01
ptardiff	2.49 KB	-r-xr-xr-x	2021-03-02 21:01
ptargrep	4.2 KB	-r-xr-xr-x	2021-03-02 21:01
sem	391.58 KB	-rwxr-xr-x	2021-01-23 21:37
shasum	9.66 KB	-r-xr-xr-x	2021-03-02 21:01
sql	30.91 KB	-rwxr-xr-x	2021-01-23 21:37
test-yaml	1 KB	-r-xr-xr-x	2021-03-02 21:02
whodat	85.81 KB	-r-x------	2025-02-26 19:26
wp	5.31 MB	-rwxr-xr-x	2021-01-13 19:47

Rename

#!/usr/bin/perl

use strict;
use Module::Build 0.25;
use Getopt::Long;

my %opt_defs = (
		module      => {type => '=s',
				desc => 'The name of the module to configure (required)'},
		feature     => {type => ':s',
				desc => 'Print the value of a feature or all features'},
		config      => {type => ':s',
				desc => 'Print the value of a config option'},
		set_feature => {type => '=s%',
				desc => "Set a feature to 'true' or 'false'"},
		set_config  => {type => '=s%',
				desc => 'Set a config option to the given value'},
		eval        => {type => '',
				desc => 'eval() config values before setting'},
		help        => {type => '',
				desc => 'Print a help message and exit'},
	       );

my %opts;
GetOptions( \%opts, map "$_$opt_defs{$_}{type}", keys %opt_defs ) or die usage(%opt_defs);
print usage(%opt_defs) and exit(0)
  if $opts{help};

my @exclusive = qw(feature config set_feature set_config);
die "Exactly one of the options '" . join("', '", @exclusive) . "' must be specified\n" . usage(%opt_defs)
  unless grep(exists $opts{$_}, @exclusive) == 1;

die "Option --module is required\n" . usage(%opt_defs)
  unless $opts{module};

my $cf = load_config($opts{module});

if (exists $opts{feature}) {

if (length $opts{feature}) {
    print $cf->feature($opts{feature});
  } else {
    my %auto;
    # note: need to support older ConfigData.pm's
    @auto{$cf->auto_feature_names} = () if $cf->can("auto_feature_names");

print " Features defined in $cf:\n";
    foreach my $name (sort $cf->feature_names) {
      print "  $name => ", $cf->feature($name), (exists $auto{$name} ? " (dynamic)" : ""), "\n";
    }
  }

} elsif (exists $opts{config}) {

require Data::Dumper;
  local $Data::Dumper::Terse = 1;

if (length $opts{config}) {
    print Data::Dumper::Dumper($cf->config($opts{config})), "\n";
  } else {
    print " Configuration defined in $cf:\n";
    foreach my $name (sort $cf->config_names) {
      print "  $name => ", Data::Dumper::Dumper($cf->config($name)), "\n";
    }
  }

} elsif (exists $opts{set_feature}) {
  my %to_set = %{$opts{set_feature}};
  while (my ($k, $v) = each %to_set) {
    die "Feature value must be 0 or 1\n" unless $v =~ /^[01]$/;
    $cf->set_feature($k, 0+$v); # Cast to a number, not a string
  }
  $cf->write;
  print "Feature" . 's'x(keys(%to_set)>1) . " saved\n";

} elsif (exists $opts{set_config}) {

my %to_set = %{$opts{set_config}};
  while (my ($k, $v) = each %to_set) {
    if ($opts{eval}) {
      $v = eval($v);
      die $@ if $@;
    }
    $cf->set_config($k, $v);
  }
  $cf->write;
  print "Config value" . 's'x(keys(%to_set)>1) . " saved\n";
}

sub load_config {
  my $mod = shift;

$mod =~ /^([\w:]+)$/
    or die "Invalid module name '$mod'";

my $cf = $mod . "::ConfigData";
  eval "require $cf";
  die $@ if $@;

return $cf;
}

sub usage {
  my %defs = @_;

my $out = "\nUsage: $0 [options]\n\n  Options include:\n";

foreach my $name (sort keys %defs) {
    $out .= "  --$name";

for ($defs{$name}{type}) {
      /^=s$/  and      $out .= " <string>";
      /^=s%$/ and      $out .= " <string>=<value>";
    }

pad_line($out, 35);
    $out .= "$defs{$name}{desc}\n";
  }

$out .= <<EOF;

Examples:
   $0 --module Foo::Bar --feature bazzable
   $0 --module Foo::Bar --config magic_number
   $0 --module Foo::Bar --set_feature bazzable=1
   $0 --module Foo::Bar --set_config magic_number=42

EOF

return $out;
}

sub pad_line {  $_[0] .= ' ' x ($_[1] - length($_[0]) + rindex($_[0], "\n")) }

__END__

=head1 NAME

config_data - Query or change configuration of Perl modules

=head1 SYNOPSIS

# Get config/feature values
  config_data --module Foo::Bar --feature bazzable
  config_data --module Foo::Bar --config magic_number

# Set config/feature values
  config_data --module Foo::Bar --set_feature bazzable=1
  config_data --module Foo::Bar --set_config magic_number=42

# Print a usage message
  config_data --help

=head1 DESCRIPTION

The C<config_data> tool provides a command-line interface to the
configuration of Perl modules.  By "configuration", we mean something
akin to "user preferences" or "local settings".  This is a
formalization and abstraction of the systems that people like Andreas
Koenig (C<CPAN::Config>), Jon Swartz (C<HTML::Mason::Config>), Andy
Wardley (C<Template::Config>), and Larry Wall (perl's own Config.pm)
have developed independently.

The configuration system employed here was developed in the context of
C<Module::Build>.  Under this system, configuration information for a
module C<Foo>, for example, is stored in a module called
C<Foo::ConfigData>) (I would have called it C<Foo::Config>, but that
was taken by all those other systems mentioned in the previous
paragraph...).  These C<...::ConfigData> modules contain the
configuration data, as well as publicly accessible methods for
querying and setting (yes, actually re-writing) the configuration
data.  The C<config_data> script (whose docs you are currently
reading) is merely a front-end for those methods.  If you wish, you
may create alternate front-ends.

The two types of data that may be stored are called C<config> values
and C<feature> values.  A C<config> value may be any perl scalar,
including references to complex data structures.  It must, however, be
serializable using C<Data::Dumper>.  A C<feature> is a boolean (1 or
0) value.

=head1 USAGE

This script functions as a basic getter/setter wrapper around the
configuration of a single module.  On the command line, specify which
module's configuration you're interested in, and pass options to get
or set C<config> or C<feature> values.  The following options are
supported:

=over 4

=item module

Specifies the name of the module to configure (required).

=item feature

When passed the name of a C<feature>, shows its value.  The value will
be 1 if the feature is enabled, 0 if the feature is not enabled, or
empty if the feature is unknown.  When no feature name is supplied,
the names and values of all known features will be shown.

=item config

When passed the name of a C<config> entry, shows its value.  The value
will be displayed using C<Data::Dumper> (or similar) as perl code.
When no config name is supplied, the names and values of all known
config entries will be shown.

=item set_feature

Sets the given C<feature> to the given boolean value.  Specify the value
as either 1 or 0.

=item set_config

Sets the given C<config> entry to the given value.

=item eval

If the C<--eval> option is used, the values in C<set_config> will be
evaluated as perl code before being stored.  This allows moderately
complicated data structures to be stored.  For really complicated
structures, you probably shouldn't use this command-line interface,
just use the Perl API instead.

=item help

Prints a help message, including a few examples, and exits.

=back

=head1 AUTHOR

Ken Williams, kwilliams@cpan.org

=head1 COPYRIGHT

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

Module::Build(3), perl(1).

=cut