<h2>Edit File - config_data</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/config_data">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/bin/perl 

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

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

my %opts;
GetOptions( \%opts, map &quot;$_$opt_defs{$_}{type}&quot;, 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 &quot;Exactly one of the options &#039;&quot; . join(&quot;&#039;, &#039;&quot;, @exclusive) . &quot;&#039; must be specified\n&quot; . usage(%opt_defs)
  unless grep(exists $opts{$_}, @exclusive) == 1;

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

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

if (exists $opts{feature}) {

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

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

} elsif (exists $opts{config}) {

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

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

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

} 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-&gt;set_config($k, $v);
  }
  $cf-&gt;write;
  print &quot;Config value&quot; . &#039;s&#039;x(keys(%to_set)&gt;1) . &quot; saved\n&quot;;
}

sub load_config {
  my $mod = shift;

  $mod =~ /^([\w:]+)$/
    or die &quot;Invalid module name &#039;$mod&#039;&quot;;

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

  return $cf;
}

sub usage {
  my %defs = @_;

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

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

    for ($defs{$name}{type}) {
      /^=s$/  and      $out .= &quot; &lt;string&gt;&quot;;
      /^=s%$/ and      $out .= &quot; &lt;string&gt;=&lt;value&gt;&quot;;
    }

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

  $out .= &lt;&lt;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] .= &#039; &#039; x ($_[1] - length($_[0]) + rindex($_[0], &quot;\n&quot;)) }


__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&lt;config_data&gt; tool provides a command-line interface to the
configuration of Perl modules.  By &quot;configuration&quot;, we mean something
akin to &quot;user preferences&quot; or &quot;local settings&quot;.  This is a
formalization and abstraction of the systems that people like Andreas
Koenig (C&lt;CPAN::Config&gt;), Jon Swartz (C&lt;HTML::Mason::Config&gt;), Andy
Wardley (C&lt;Template::Config&gt;), and Larry Wall (perl&#039;s own Config.pm)
have developed independently.

The configuration system employed here was developed in the context of
C&lt;Module::Build&gt;.  Under this system, configuration information for a
module C&lt;Foo&gt;, for example, is stored in a module called
C&lt;Foo::ConfigData&gt;) (I would have called it C&lt;Foo::Config&gt;, but that
was taken by all those other systems mentioned in the previous
paragraph...).  These C&lt;...::ConfigData&gt; modules contain the
configuration data, as well as publicly accessible methods for
querying and setting (yes, actually re-writing) the configuration
data.  The C&lt;config_data&gt; 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&lt;config&gt; values
and C&lt;feature&gt; values.  A C&lt;config&gt; value may be any perl scalar,
including references to complex data structures.  It must, however, be
serializable using C&lt;Data::Dumper&gt;.  A C&lt;feature&gt; 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&#039;s configuration you&#039;re interested in, and pass options to get
or set C&lt;config&gt; or C&lt;feature&gt; 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&lt;feature&gt;, 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&lt;config&gt; entry, shows its value.  The value
will be displayed using C&lt;Data::Dumper&gt; (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&lt;feature&gt; to the given boolean value.  Specify the value
as either 1 or 0.

=item set_config

Sets the given C&lt;config&gt; entry to the given value.

=item eval

If the C&lt;--eval&gt; option is used, the values in C&lt;set_config&gt; 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&#039;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

Copyright (c) 1999, Ken Williams.  All rights reserved.

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
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>