From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

 / 
Config-Inetd-0.33
River stage zero No dependents
/ Config::Inetd

NAME

Config::Inetd - Interface inetd's configuration file

SYNOPSIS


            

              
              
use Config::Inetd;
$inetd = Config::Inetd->new;
if ($inetd->is_enabled(telnet => 'tcp')) {
    $inetd->disable(telnet => 'tcp');
}
print $inetd->dump_enabled;
print $inetd->dump_disabled;
print $inetd->config->[6];

DESCRIPTION

Config::Inetd provides an interface to inetd's configuration file (usually named inetd.conf); it basically simplifies checking and setting the enabled/disabled status of services and also allows for dumping them by a given status.

CONSTRUCTOR

new


            

              
              
$inetd = Config::Inetd->new('/path/to/inetd.conf');

Omitting the path to inetd.conf will cause the default /etc/inetd.conf to be used.

METHODS

is_enabled

Checks whether a service is enlisted as enabled.


            

              
              
$inetd->is_enabled($service => $protocol);

Returns true if the service is enlisted as enabled, false if enlisted as disabled and undef if the service does not exist.

enable

Enables a service.


            

              
              
$inetd->enable($service => $protocol);

Returns true if the service has been enabled, false if no action has been taken.

It is recommended to precedingly call is_enabled() with according arguments supplied to determine whether a service is disabled.

disable

Disables a service.


            

              
              
$inetd->disable($service => $protocol);

Returns true if the service has been disabled, false if no action has been taken.

It is recommended to precedingly call is_enabled() with according arguments supplied to determine whether a service is enabled.

dump_enabled

Dumps the enabled services.


            

              
              
@dump = $inetd->dump_enabled;

Returns a flat list that consists of the enabled entries as seen in the configuration file.

dump_disabled

Dumps the disabled services.


            

              
              
@dump = $inetd->dump_disabled;

Returns a flat list that consists of the disabled entries as seen in the configuration file.

config

Access the tied configuration file.


            

              
              
@config = @{$inetd->config};

Returns an array reference.

INSTANCE DATA

The inetd configuration file is tied as instance data with newlines preserved; it may be accessed via $inetd->config.

BUGS & CAVEATS

It is strongly advised that the configuration file is backuped first if one is intending to work with the default (i.e., system-wide) configuration file and not a customized one.

Accessing @{$inetd->{CONF}} is deprecated and superseded by $inetd->config.

SEE ALSO

Tie::File, inetd.conf(5)

AUTHOR

Steven Schubiger <schubiger@cpan.org>

LICENSE

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

See http://dev.perl.org/licenses/