Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
usr/sbin/update-inetd 0000666 00000013756 15077224710 0010643 0 ustar 00 #!/usr/bin/perl
#
# update-inetd: a utility to add entries to the /etc/inetd.conf file
#
# Copyright (C) 1995 Peter Tobias
#
# update-inetd is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published
# by the Free Software Foundation; either version 2 of the License,
# or (at your option) any later version.
#
# update-inetd is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with update-inetd; if not, write to the Free Software Foundation,
# Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
require 5.000;
require DebianNet;
$| = 1;
$version = "1.12";
$0 =~ s#.*/##;
while ($ARGV[0] =~ m/^-/) {
$_ = shift(@ARGV);
if (/--help$/) {
&usage;
} elsif (/--version$/) {
&version;
} elsif (/--add$/) {
$mode="add";
} elsif (/--remove$/) {
$mode="remove";
} elsif (/--enable$/) {
$mode="enable";
} elsif (/--disable$/) {
$mode="disable";
} elsif (/--multi$/) {
$DebianNet::multi = "true";
} elsif (/--verbose$/) {
$DebianNet::verbose = "true";
} elsif (/--debug$/) {
$debug = "true";
} elsif (/--file$/) {
$file = shift(@ARGV);
die "$0: Option \`--file' requires an argument\n" unless ($file and not ($file =~ m/^--/));
$DebianNet::inetdcf = $file;
} elsif (/--group$/) {
$group = shift(@ARGV);
die "$0: Option \`--group' requires an argument\n" unless ($group and not ($group =~ m/^--/));
} elsif (/--comment-chars$/) {
$sep = shift(@ARGV);
die "$0: Option \`--comment-chars' requires an argument\n" unless ($sep);
die "$0: The comment characters do not start with a \`#'!\n" unless ($sep =~ /^#/);
$DebianNet::sep = $sep;
} elsif (/--pattern$/) {
$pattern = shift(@ARGV);
die "$0: Option \`--pattern' requires an argument\n" unless ($pattern and not ($pattern =~ m/^--/));
} else {
print STDERR "$0: Unknown option: $_\n";
print STDERR "Try \`$0 --help' for more information.\n";
exit(1);
}
}
$group = "OTHER" unless ($group);
&usage unless($mode);
# die "You must be root to run this script.\n" if ($> != 0);
if ($#ARGV > 0) {
print STDERR "Too many arguments!\n";
} elsif ($#ARGV == -1) {
print STDERR "Too few arguments!\n";
} else {
$modearg = $ARGV[0];
die "The service name may not include a whitespace character!\n" if (($mode eq "enable" or $mode eq "disable") and ($modearg =~ /\s+|\\t/));
die "The entry definition does not contain any whitespace characters!\n" if ($mode eq "add" and not ($modearg =~ /\s+|\\t/));
}
print STDERR "Processing $DebianNet::inetdcf\n" if (defined($DebianNet::verbose));
print STDERR "Using mode \"$mode\", group \"$group\", pattern \"$pattern\" and seperator \"$DebianNet::sep\"\n" if (defined($debug));
print STDERR "Multiple remove/disable: $DebianNet::multi\n" if (defined($debug) and defined($DebianNet::multi));
print STDERR "ARGUMENT: $modearg\n" if (defined($debug));
my $xinetd = 0;
if (( -f "/etc/xinetd.conf" ) && ( -x "/usr/sbin/xinetd" )
&& (!defined($ENV{"UPDATE_INETD_NOXINETD"}))) {
$xinetd = 1;
}
if ($mode eq "add") {
if ($xinetd) {
print STDERR "Note: xinetd currently is not fully supported by update-inetd.\n";
print STDERR " Please consult /usr/share/doc/xinetd/README.Debian and itox(8).\n";
}
DebianNet::add_service($modearg, $group);
} elsif ($mode eq "remove") {
DebianNet::remove_service($modearg);
} elsif ($mode eq "enable") {
@arglst = split(/,/, $modearg);
while(@arglst) {
$_ = shift(@arglst);
DebianNet::enable_service($_, $pattern);
}
} elsif ($mode eq "disable") {
@arglst = split(/,/, $modearg);
while(@arglst) {
$_ = shift(@arglst);
DebianNet::disable_service($_, $pattern);
}
} else {
die "Mode = \`$modearg'? This should not happen!\n";
}
# in case of xinetd, we have no clue about whether to
# restart/SIGHUP/noop so we always restart anyway
if ($xinetd && !$DebianNet::called_wakeup_inetd) {
DebianNet::wakeup_inetd(0);
}
sub version {
print STDERR "$0 $version\n";
print STDERR "DebianNet module $DebianNet::version\n";
exit(0);
}
sub usage {
print STDERR <