| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/useradmin/ |
Upload File : |
#!/usr/bin/perl
# Actually output a group creation batch file
require './user-lib.pl';
&error_setup($text{'gexport_err'});
$access{'export'} || &error($text{'gexport_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'});
}
if ($in{'mode'} == 4) {
$in{'gid'} =~ /^\d*$/ || &error($text{'gexport_egid'});
$in{'gid2'} =~ /^\d*$/ || &error($text{'gexport_egid2'});
}
# Open the output file
if ($in{'to'}) {
&open_tempfile(OUT, ">$in{'file'}", 1) ||
&error(&text('export_eopen', $!));
$fh = "OUT";
&ui_print_header(undef, $text{'gexport_title'}, "");
}
else {
print "Content-type: text/plain\n\n";
$fh = "STDOUT";
}
# Work out which groups are allowed and selected
@glist = &list_groups();
@glist = &list_allowed_groups(\%access, \@glist);
$faccess{'gedit_mode'} = $in{'mode'};
$faccess{'gedit'} = $in{'mode'} == 2 ? $in{'can'} :
$in{'mode'} == 3 ? $in{'cannot'} :
$in{'mode'} == 4 ? $in{'gid'} : "";
$faccess{'gedit2'} = $in{'mode'} == 4 ? $in{'gid2'} : "";
@glist = &list_allowed_groups(\%faccess, \@glist);
# Go through all allowed users
$count = 0;
foreach $g (@glist) {
@line = ( $g->{'group'}, $g->{'pass'}, $g->{'gid'},
$g->{'members'} );
if ($fh eq "STDOUT") {
print $fh join(":", "create", @line),"\n";
}
else {
&print_tempfile($fh, join(":", "create", @line),"\n");
}
$count++;
}
if ($in{'to'}) {
# All done
&close_tempfile($fh);
@st = stat($in{'file'});
print "<p>",&text('export_done',
$count, "<tt>$in{'file'}</tt>", &nice_size($st[7])),"<p>\n";
&ui_print_footer("", $text{'index_return'});
}