1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
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 _ dief warnf read_config get_users_groups get_group_members s_print s_printf);
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";
}
if(defined($nisconfig) && -f "/var/yp/Makefile" &&
-x "/usr/bin/rpcinfo" && grep(/ypserv/, qx{/usr/bin/rpcinfo -p})) {
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;
if(-e "/usr/sbin/nscd") {
$nscd = "/usr/sbin/nscd";
} elsif(-e "/usr/bin/nscd") {
$nscd = "/usr/bin/nscd";
}
my $nscdpid = "/var/run/nscd.pid";
# this function replaces startnscd and stopnscd (closes: #54726)
if(defined($nscd) && -f $nscdpid)
{
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 _ {
return gettext("@_");
}
sub dief {
my ($form,@argu)=@_;
printf STDERR "$0: $form",@argu;
exit 1;
}
sub warnf {
my ($form,@argu)=@_;
printf STDERR "$0: $form",@argu;
}
# parse the configuration file
sub read_config {
my ($conf_file) = @_;
my ($var, $lcvar, $val);
if (! -f $conf_file) {
printf _("%s: %s doesn't exist. Using defaults.\n"),$0,$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*(\S+)\s*=\s*(.*)/) != 2) {
warnf(_("Couldn't parse %s:%s.\n"),$conf_file,$.);
next;
}
$lcvar = lc $var;
if (!defined($config{$lcvar})) {
warnf(_("Unknown variable `%s' at %s:%s.\n"),$var,$conf_file,$.);
next;
}
$val =~ s/^"(.*)"$/$1/;
$val =~ s/^'(.*)'$/$1/;
$config{$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 = (getgrnam($group))[3];
return split(/ /, $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));
}
# Local Variables:
# mode:cperl
# End:
|
