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
|
#!/usr/local/bin/perl
# export_exec.cgi
# Actually output a user creation batch file
require './user-lib.pl';
%access = &get_module_acl();
$access{'export'} || &error($text{'export_ecannot'});
&ReadParse();
# Validate inputs
if ($in{'to'}) {
$access{'export'} == 2 || &error($text{'export_ecannot'});
$in{'file'} =~ /^\/.+$/ || &error($text{'export_efile'});
&is_under_directory($access{'home'}, $in{'file'}) ||
&error($text{'export_efile2'});
}
# Open the output file
if ($in{'to'}) {
open(OUT, ">$in{'file'}") || &error(&text('export_eopen', $!));
$fh = "OUT";
&ui_print_header(undef, $text{'export_title'}, "");
}
else {
print "Content-type: text/plain\n\n";
$fh = "STDOUT";
}
# Work out which users are allowed and selected
@ulist = &list_users();
@ulist = &list_allowed_users(\%access, \@ulist);
$faccess{'uedit_mode'} = $in{'mode'};
$faccess{'uedit'} = $in{'mode'} == 2 ? $in{'can'} :
$in{'mode'} == 3 ? $in{'cannot'} :
$in{'mode'} == 4 ? $in{'uid'} :
$in{'mode'} == 5 ?
join(" ", map { "".&my_getgrnam($_) }
split(/\s+/, $in{'group'})) : "";
$faccess{'uedit2'} = $in{'mode'} == 4 ? $in{'uid2'} : undef;
$faccess{'uedit_sec'} = $in{'mode'} == 5 ? $in{'sec'} : undef;
@ulist = &list_allowed_users(\%faccess, \@ulist);
# Go through all allowed users
$count = 0;
$pft = $in{'pft'};
foreach $u (@ulist) {
@line = ( $u->{'user'}, $u->{'pass'}, $u->{'uid'}, $u->{'gid'},
$u->{'real'}, $u->{'home'}, $u->{'shell'} );
if ($pft == 1 || $pft == 6) {
push(@line, $u->{'class'});
}
elsif ($pft == 2) {
push(@line, $u->{'min'}, $u->{'max'}, $u->{'warn'},
$u->{'inactive'}, $u->{'expire'});
}
elsif ($pft == 4) {
local @flags;
push(@flags, 'ADMIN') if ($u->{'admin'});
push(@flags, 'ADMCHG') if ($u->{'admchg'});
push(@flags, 'NOCHECK') if ($u->{'nocheck'});
push(@line, $u->{'min'}, $u->{'max'},
$u->{'expire'}, join(" ", @flags));
}
elsif ($pft == 5) {
push(@line, $u->{'min'}, $u->{'max'});
}
print $fh join(":", "create", @line),"\n";
$count++;
}
if ($in{'to'}) {
# All done
close($fh);
@st = stat($in{'file'});
print "<p>",&text('export_done',
$count, "<tt>$in{'file'}</tt>", $st[7]),"<p>\n";
&ui_print_footer("", $text{'index_return'});
}
|
