Server IP : 195.201.23.43 / Your IP : 3.141.43.16 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 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_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/acl/ |
Upload File : |
#!/usr/bin/perl # convert_form.cgi # Display a form for converting unix users to webmin users use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'sync'} && $access{'create'} || &error($text{'convert_ecannot'}); &ui_print_header(undef, $text{'convert_title'}, ""); my @glist = &list_groups(); if ($access{'gassign'} ne '*') { my @gcan = split(/\s+/, $access{'gassign'}); @glist = grep { &indexof($_->{'name'}, @gcan) >= 0 } @glist; } if (!@glist) { print "$text{'convert_nogroups'}<p>\n"; &ui_print_footer("", $text{'index_return'}); exit; } print "$text{'convert_desc'}<p>\n"; print &ui_form_start("convert.cgi", "post"); print &ui_table_start(undef, undef, 2); # Users to convert print &ui_table_row($text{'convert_users'}, &ui_radio_table("conv", 0, [ [ 0, $text{'convert_0'} ], [ 1, $text{'convert_1'}, &ui_textbox("users", undef, 60)." ". &user_chooser_button("users", 1) ], [ 2, $text{'convert_2'}, &ui_textbox("nusers", undef, 60)." ". &user_chooser_button("nusers", 1) ], [ 3, $text{'convert_3'}, &unix_group_input("group") ], [ 4, $text{'convert_4'}, &ui_textbox("min", undef, 6)." - ". &ui_textbox("max", undef, 6) ] ])); # Put into group print &ui_table_row($text{'convert_group'}, &ui_select("wgroup", undef, [ map { $_->{'name'} } @glist ])); # Keep passwords in sync print &ui_table_row($text{'convert_sync2'}, &ui_yesno_radio("sync", 1)); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'convert_ok'} ] ]); &ui_print_footer("", $text{'index_return'});Private