Файловый менеджер - Редактировать - /var/www/html/Debian.zip
Ðазад
PK ! &f� � " Debhelper/Sequence/perl_openssl.pmnu �[��� # perl_openssl.pm - debhelper addon for running dh_perl_openssl # # Copyright 2010, Ansgar Burchardt <ansgar@debian.org> # Copyright 2016, Niko Tyni <ntyni@debian.org> # # This program is free software, you can redistribute it and/or modify it # under the same terms as Perl itself. use warnings; use strict; use Debian::Debhelper::Dh_Lib; insert_after("dh_perl", "dh_perl_openssl"); 1; PK ! i�� � % Debhelper/Sequence/bash_completion.pmnu �[��� #!/usr/bin/perl use warnings; use strict; use Debian::Debhelper::Dh_Lib; insert_after("dh_installman", "dh_bash-completion"); 1; PK ! 9�$b b DebConf/Client/ConfModule.pmnu �[��� #!/usr/bin/perl # This is a stub module that just uses the new module, and is here for # backwards-compatability with pograms that use the old name. package Debian::DebConf::Client::ConfModule; use Debconf::Client::ConfModule; use Debconf::Log qw{debug}; print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n"; sub import { splice @_, 0, 1 => Debconf::Client::ConfModule; goto &{Debconf::Client::ConfModule->can('import')}; } sub AUTOLOAD { (my $sub = $AUTOLOAD) =~ s/.*:://; *$sub = \&{"Debconf::Client::ConfModule::$sub"}; goto &$sub; } 1 PK ! 'j˝� � AdduserCommon.pmnu �[��� use vars qw(@EXPORT $VAR1); # Common functions that are used in adduser and deluser # Copyright (C) 2000 Roland Bauerschmidt <rb@debian.org> # Most of the functions are adopted from the original adduser # Copyright (C) 1997, 1998, 1999 Guy Maor <maor@debian.org> # Copyright (C) 1995 Ted Hajek <tedhajek@boombox.micro.umn.edu> # Ian A. Murdock <imurdock@gnu.ai.mit.edu> # @EXPORT = qw(invalidate_nscd gtx dief warnf read_config get_users_groups get_group_members s_print s_printf systemcall); sub invalidate_nscd { # Check if we need to do make -C /var/yp for NIS my $nisconfig; if(-f "/etc/default/nis") { $nisconfig = "/etc/default/nis"; } elsif(-f "/etc/init.d/nis") { $nisconfig = "/etc/init.d/nis"; } # find out whether a local ypserv is running # We can ditch any rpcinfo error since if the portmapper is nonfunctional, # we couldn't connect to ypserv anyway. If this assumption is invalid, # please file a bug and suggest a better way. if(defined($nisconfig) && -f "/var/yp/Makefile" && -x "/usr/sbin/rpcinfo" && grep(/ypserv/, qx{/usr/sbin/rpcinfo -p 2>/dev/null})) { open(NISCONFIG, "<$nisconfig"); if(grep(/^NISSERVER=master/, <NISCONFIG>)) { system("make", "-C", "/var/yp"); } close(NISCONFIG); } # Check if we need to invalidate the NSCD cache my $nscd = &which('nscd',1); # this function replaces startnscd and stopnscd (closes: #54726) # We are ignoring any error messages given by nscd here since we # cannot expect the nscd maintainer and upstream to document their # interfaces. See #330929. if(defined($nscd) && -x $nscd) { my $table = shift; if ($table) { system ($nscd, "-i", $table); } else { # otherwise we invalidate passwd and group table system ($nscd, "-i", "passwd"); system ($nscd, "-i", "group"); } } } sub gtx { return gettext( shift ); } sub dief { my ($form,@argu)=@_; printf STDERR sprintf(gtx("%s: %s"), $0, $form), @argu; exit 1; } sub warnf { my ($form,@argu)=@_; printf STDERR sprintf(gtx("%s: %s"), $0, $form), @argu; } # parse the configuration file # parameters: # -- filename of the configuration file # -- a hash for the configuration data sub read_config { my ($conf_file, $configref) = @_; my ($var, $lcvar, $val); if (! -f $conf_file) { warnf gtx("`%s' does not exist. Using defaults.\n"),$conf_file if $verbose; return; } open (CONF, $conf_file) || dief ("%s: `%s'\n",$conf_file,$!); while (<CONF>) { chomp; next if /^#/ || /^\s*$/; if ((($var, $val) = /^\s*([_a-zA-Z0-9]+)\s*=\s*(.*)/) != 2) { warnf gtx("Couldn't parse `%s', line %d.\n"),$conf_file,$.; next; } $lcvar = lc $var; if (!defined($configref->{$lcvar})) { warnf gtx("Unknown variable `%s' at `%s', line %d.\n"),$var,$conf_file,$.; next; } $val =~ s/^"(.*)"$/$1/; $val =~ s/^'(.*)'$/$1/; $configref->{$lcvar} = $val; } close CONF || die "$!"; } # return a user's groups sub get_users_groups { my($user) = @_; my($name,$members,@groups); setgrent; while (($name,$members) = (getgrent)[0,3]) { for (split(/ /, $members)) { if ($user eq $_) { push @groups, $name; last; } } } endgrent; @groups; } # return a group's members sub get_group_members { my $group = shift; my @members; foreach (split(/ /, (getgrnam($group))[3])) { if (getpwuid(getpwnam($_)) eq $_ ) { push @members, $_; } } return @members; } sub s_print { print join(" ",@_) if($verbose); } sub s_printf { printf @_ if($verbose); } sub d_printf { printf @_ if((defined($verbose) && $verbose > 1) || (defined($debugging) && $debugging == 1)); } sub systemcall { my $c = join(' ', @_); print ("$c\n") if $verbose==2; if (system(@_)) { dief (gtx("`%s' returned error code %d. Exiting.\n"), $c, $?>>8) if ($?>>8); dief (gtx("`%s' exited from signal %d. Exiting.\n"), $c, $?&255); } } sub which { my ($progname, $nonfatal) = @_ ; for my $dir (split /:/, $ENV{"PATH"}) { if (-x "$dir/$progname" ) { return "$dir/$progname"; } } dief(gtx("Could not find program named `%s' in \$PATH.\n"), $progname) unless ($nonfatal); return 0; } # preseed the configuration variables # then read the config file /etc/adduser and overwrite the data hardcoded here sub preseed_config { my ($conflistref, $configref) = @_; $configref->{"system"} = 0; $configref->{"only_if_empty"} = 0; $configref->{"remove_home"} = 0; $configref->{"home"} = ""; $configref->{"remove_all_files"} = 0; $configref->{"backup"} = 0; $configref->{"backup_to"} = "."; $configref->{"dshell"} = "/bin/bash"; $configref->{"first_system_uid"} = 100; $configref->{"last_system_uid"} = 999; $configref->{"first_uid"} = 1000; $configref->{"last_uid"} = 59999; $configref->{"first_system_gid"} = 100; $configref->{"last_system_gid"} = 999; $configref->{"first_gid"} = 1000; $configref->{"last_gid"} = 59999; $configref->{"dhome"} = "/home"; $configref->{"skel"} = "/etc/skel"; $configref->{"usergroups"} = "yes"; $configref->{"users_gid"} = "100"; $configref->{"grouphomes"} = "no"; $configref->{"letterhomes"} = "no"; $configref->{"quotauser"} = ""; $configref->{"dir_mode"} = "0755"; $configref->{"setgid_home"} = "no"; $configref->{"no_del_paths"} = "^/$ ^/lost+found/.* ^/media/.* ^/mnt/.* ^/etc/.* ^/bin/.* ^/boot/.* ^/dev/.* ^/lib/.* ^/proc/.* ^/root/.* ^/sbin/.* ^/tmp/.* ^/sys/.* ^/srv/.* ^/opt/.* ^/initrd/.* ^/usr/.* ^/var/.*"; $configref->{"name_regex"} = "^[a-z][-a-z0-9_]*\$"; $configref->{"name_regex_system"} = "^[A-Za-z][-A-Za-z0-9_]*\$"; $configref->{"exclude_fstypes"} = "(proc|sysfs|usbfs|devpts|tmpfs)"; $configref->{"skel_ignore_regex"} = "dpkg-(old|new|dist)\$"; $configref->{"extra_groups"} = "dialout cdrom floppy audio video plugdev users"; $configref->{"add_extra_groups"} = 0; $configref->{"use_extrausers"} = 0; foreach( @$conflistref ) { read_config($_,$configref); } } # Local Variables: # mode:cperl # End: #vim:set ai et sts=4 sw=4 tw=0: PK ! &f� � " Debhelper/Sequence/perl_openssl.pmnu �[��� PK ! i�� � % � Debhelper/Sequence/bash_completion.pmnu �[��� PK ! 9�$b b � DebConf/Client/ConfModule.pmnu �[��� PK ! 'j˝� � _ AdduserCommon.pmnu �[��� PK s 1
| ver. 1.1 | |
.
| PHP 8.4.18 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка