\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/index.cgi 0100775 0005671 0000012 00000007005 10112623754 014024 0 ustar jcameron wheel #!/usr/local/bin/perl # index.cgi # Display usermin configuration categories require './usermin-lib.pl'; if (!-r "$config{'usermin_dir'}/miniserv.conf") { &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1); print "",&text('index_econfig', "$config{'usermin_dir'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n";
if ($config{'usermin_dir'} eq $standard_usermin_dir) {
local $rpm;
if (&foreign_check("software")) {
local %sconfig = &foreign_config("software");
$rpm++ if ($sconfig{'package_system'} eq 'rpm');
}
print "$text{'index_install'}
\n";
print "
",&text('index_esame', "$config{'usermin_dir'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; &ui_print_footer("/", $text{'index'}); exit; } $ver = &get_usermin_version(); &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0, &help_search_link("usermin", "google"), undef, undef, &text('index_version', $ver)); @links = ( "edit_access.cgi", "edit_bind.cgi", "edit_ui.cgi", "edit_mods.cgi", "edit_os.cgi", "edit_lang.cgi", "edit_upgrade.cgi", "edit_session.cgi", "edit_assignment.cgi", "edit_categories.cgi", "edit_themes.cgi", "edit_ssl.cgi", "list_configs.cgi", "edit_acl.cgi", $ver < 0.942 ? ( ) : ( "list_restrict.cgi" ), $ver < 0.76 ? ( ) : ( "edit_users.cgi", "edit_defacl.cgi" ) ); @titles = map { /_(\S+).cgi/; $text{"${1}_title"} } @links; @icons = map { /_(\S+).cgi/; "images/$1.gif" } @links; for($i=0; $i<@links; $i++) { $links[$i] =~ /_(\S+).cgi/; if (!$access{$1}) { splice(@links, $i, 1); splice(@titles, $i, 1); splice(@icons, $i, 1); } } &icons_table(\@links, \@titles, \@icons); $init = &foreign_check("init") && $access{'bootup'}; print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/change_bind.cgi 0100755 0005671 0000012 00000003673 10112623523 015135 0 ustar jcameron wheel #!/usr/local/bin/perl # change_bind.cgi # Update the binding IP address and port for miniserv require './usermin-lib.pl'; $access{'bind'} || &error($text{'acl_ecannot'}); use Socket; &ReadParse(); &get_usermin_miniserv_config(\%miniserv); %oldminiserv = %miniserv; &error_setup($webmin::text{'bind_err'}); # Validate inputs for($i=0; defined($in{"ip_def_$i"}); $i++) { next if (!$in{"ip_def_$i"}); if ($in{"ip_def_$i"} == 1) { $ip = "*"; } else { $ip = $in{"ip_$i"}; &check_ipaddress($ip) || &error(&webmin::text('bind_eip2', $ip)); } if ($in{"port_def_$i"} == 1) { $port = $in{"port_$i"}; $port =~ /^\d+$/ && $port < 65536 || &error(&webmin::text('bind_eport2', $port)); } else { $port = "*"; } push(@sockets, [ $ip, $port ]); } @sockets || &error($webmin::text{'bind_enone'}); # Update config file &lock_file($usermin_miniserv_config); $first = shift(@sockets); $miniserv{'port'} = $first->[1]; if ($first->[0] eq "*") { delete($miniserv{'bind'}); } else { $miniserv{'bind'} = $first->[0]; } $miniserv{'sockets'} = join(" ", map { "$_->[0]:$_->[1]" } @sockets); if ($in{'listen_def'}) { delete($miniserv{'listen'}); } else { $miniserv{'listen'} = $in{'listen'}; } &put_usermin_miniserv_config(\%miniserv); &unlock_file($usermin_miniserv_config); # Attempt to re-start miniserv $SIG{'TERM'} = 'ignore'; &system_logged("$config{'usermin_dir'}/stop >/dev/null 2>&1 $temp 2>&1 /dev/null 2>&1 \n"; print $text{'os_desc2'},"\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/change_lang.cgi 0100755 0005671 0000012 00000000637 10112623523 015137 0 ustar jcameron wheel #!/usr/local/bin/perl # change_lang.cgi # Change language setting require './usermin-lib.pl'; $access{'lang'} || &error($text{'acl_ecannot'}); &ReadParse(); &lock_file($usermin_config); &get_usermin_config(\%uconfig); $uconfig{'lang'} = $in{'lang'}; $uconfig{'acceptlang'} = $in{'acceptlang'}; &put_usermin_config(\%uconfig); &unlock_file($usermin_config); &webmin_log("lang", undef, undef, \%in); &redirect(""); usermin/edit_session.cgi 0100755 0005671 0000012 00000013164 10117760576 015417 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_session.cgi # Edit session login options require './usermin-lib.pl'; $access{'session'} || &error($text{'acl_ecannot'}); print "Set-Cookie: sessiontest=1; path=/\n"; &ui_print_header(undef, $text{'session_title'}, ""); &get_usermin_miniserv_config(\%miniserv); &get_usermin_config(\%uconfig); print "$text{'session_desc1'}\n"; print "$text{'session_desc2'}
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/change_session.cgi 0100755 0005671 0000012 00000010210 10117760334 015674 0 ustar jcameron wheel #!/usr/local/bin/perl # change_session.cgi # Enable or disable session authentication require './usermin-lib.pl'; $access{'session'} || &error($text{'acl_ecannot'}); &ReadParse(); &error_setup($text{'session_err'}); &lock_file($usermin_miniserv_config); &get_usermin_miniserv_config(\%miniserv); $miniserv{'passdelay'} = $in{'passdelay'}; if ($in{'blockhost_on'}) { $in{'blockhost_time'} =~ /^\d+$/ && $in{'blockhost_time'} > 0 || &error($webmin::text{'session_eblockhost_time'}); $in{'blockhost_failures'} =~ /^\d+$/ && $in{'blockhost_failures'} > 0 || &error($webmin::text{'session_eblockhost_failures'}); $miniserv{'blockhost_time'} = $in{'blockhost_time'}; $miniserv{'blockhost_failures'} = $in{'blockhost_failures'}; } else { $miniserv{'blockhost_time'} = $miniserv{'blockhost_failures'} = undef; } $miniserv{'syslog'} = $in{'syslog'}; if ($in{'session'} && $ENV{'HTTP_COOKIE'} !~ /sessiontest=1/i) { &error($webmin::text{'session_ecookie'}); } $miniserv{'session'} = $in{'session'}; if ($in{'logouttime_on'}) { $in{'logouttime'} =~ /^\d+$/ && $in{'logouttime'} > 0 || &error($webmin::text{'session_elogouttime'}); } $miniserv{'logouttime'} = $in{'logouttime_on'} ? $in{'logouttime'} : undef; if ($in{'localauth'}) { $lsof = &has_command("lsof"); &error($webmin::text{'session_elsof'}) if (!$lsof); $miniserv{'localauth'} = $lsof; } else { delete($miniserv{'localauth'}); } if ($in{'passwd_file'}) { $in{'passwd_file'} =~ /\|$/ || -r $in{'passwd_file'} || &error($webmin::text{'session_epasswd_file'}); $in{'passwd_uindex'} =~ /^\d+$/ || &error($webmin::text{'session_epasswd_uindex'}); $in{'passwd_pindex'} =~ /^\d+$/ || &error($webmin::text{'session_epasswd_pindex'}); $miniserv{'passwd_file'} = $in{'passwd_file'}; $miniserv{'passwd_uindex'} = $in{'passwd_uindex'}; $miniserv{'passwd_pindex'} = $in{'passwd_pindex'}; } else { delete($miniserv{'passwd_file'}); delete($miniserv{'passwd_uindex'}); delete($miniserv{'passwd_pindex'}); } if ($in{'extauth'}) { $in{'extauth'} =~ /^(\S+)/ && -x $1 || &error($text{'session_eextauth'}); $miniserv{'extauth'} = $in{'extauth'}; } else { delete($miniserv{'extauth'}); } $ver = &get_usermin_version(); if ($ver >= 1.047 && defined($in{'passwd_mode'})) { $miniserv{'passwd_mode'} = $in{'passwd_mode'}; } if ($ver >= 1.087) { $miniserv{'passwd_blank'} = $in{'passwd_blank'}; } if ($ver >= 1.003) { $miniserv{'domainuser'} = $in{'domainuser'}; } if ($ver >= 1.021) { $miniserv{'domainstrip'} = $in{'domainstrip'}; if ($in{'user_mapping_on'}) { -r $in{'user_mapping'} || $in{'user_mapping'} =~ /\|$/ || &error($text{'session_eusermap'}); $miniserv{'user_mapping'} = $in{'user_mapping'}; } else { delete($miniserv{'user_mapping'}); } $miniserv{'user_mapping_reverse'} = $in{'user_mapping_reverse'}; } &lock_file($miniserv{'userfile'}); @users = &get_usermin_miniserv_users(); if ($in{'authmode'} == 0) { delete($miniserv{'no_pam'}); $users[0]->{'pass'} = 'x'; } elsif ($in{'authmode'} == 1) { $in{'passwd_file'} || &error($text{'session_eauthmode1'}); $miniserv{'no_pam'} = 1; $users[0]->{'pass'} = 'x'; } else { $in{'extauth'} || &error($text{'session_eauthmode2'}); $users[0]->{'pass'} = 'e'; } &save_usermin_miniserv_users(@users); &unlock_file($miniserv{'userfile'}); &put_usermin_miniserv_config(\%miniserv); &unlock_file($usermin_miniserv_config); &lock_file($usermin_config); &get_usermin_config(\%uconfig); #$uconfig{'locking'} = $in{'locking'}; $uconfig{'noremember'} = !$in{'remember'}; $uconfig{'nohostname'} = !$in{'hostname'}; $uconfig{'realname'} = $in{'realname'}; if ($in{'passwd_file'}) { $uconfig{'passwd_file'} = $in{'passwd_file'}; $uconfig{'passwd_uindex'} = $in{'passwd_uindex'}; $uconfig{'passwd_pindex'} = $in{'passwd_pindex'}; } else { delete($uconfig{'passwd_file'}); delete($uconfig{'passwd_uindex'}); delete($uconfig{'passwd_pindex'}); } if ($in{'banner_def'}) { delete($uconfig{'loginbanner'}); } else { -r $in{'banner'} || &error($webmin::text{'session_ebanner'}); $uconfig{'loginbanner'} = $in{'banner'}; } &put_usermin_config(\%uconfig); &unlock_file($usermin_config); &restart_usermin_miniserv(); &webmin_log("session", undef, undef, \%in); &redirect(""); usermin/edit_themes.cgi 0100775 0005671 0000012 00000004004 10112623720 015174 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_themes.cgi # Display all themes, and allow installation of a new one require './usermin-lib.pl'; $access{'themes'} || &error($text{'acl_ecannot'}); &ReadParse(); &ui_print_header(undef, $text{'themes_title'}, ""); @themes = &list_themes(); &get_usermin_config(\%uconfig); if (@themes) { print "$text{'themes_desc'}\n";
print $text{'ssl_desc2'},"
\n";
print "
\n"; print "
\n"; } &ui_print_footer("", $text{'index_return'}); usermin/edit_acl.cgi 0100775 0005671 0000012 00000001330 10112623563 014452 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_acl.cgi # Choose visible usermin modules require './usermin-lib.pl'; $access{'acl'} || &error($text{'acl_ecannot'}); &ui_print_header(undef, $text{'acl_title'}, ""); &read_usermin_acl(\%acl); print "$text{'acl_desc'}\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/change_ssl.cgi 0100755 0005671 0000012 00000002162 10112623523 015012 0 ustar jcameron wheel #!/usr/local/bin/perl # change_ssl.cgi # Enable or disable SSL support require './usermin-lib.pl'; $access{'ssl'} || &error($text{'acl_ecannot'}); &ReadParse(); &lock_file($usermin_miniserv_config); &get_usermin_miniserv_config(\%miniserv); $miniserv{'ssl'} = $in{'ssl'}; $key = `cat '$in{'key'}' 2>&1`; $key =~ /BEGIN RSA PRIVATE KEY/i || &error(&webmin::text('ssl_ekey', $in{'key'})); $miniserv{'keyfile'} = $in{'key'}; if ($in{'cert_def'}) { $key =~ /BEGIN CERTIFICATE/ || &error(&webmin::text('ssl_ecert', $in{'key'})); delete($miniserv{'certfile'}); } else { $cert = `cat '$in{'cert'}' 2>&1`; $cert =~ /BEGIN CERTIFICATE/ || &error(&webmin::text('ssl_ecert',$in{'cert'})); $miniserv{'certfile'} = $in{'cert'}; } $miniserv{'ssl_redirect'} = $in{'ssl_redirect'}; foreach $ec (split(/[\r\n]+/, $in{'extracas'})) { -r $ec && !-d $ec || &error(&webmin::text('ssl_eextraca', $ec)); push(@extracas, $ec); } $miniserv{'extracas'} = join("\t", @extracas); &put_usermin_miniserv_config(\%miniserv); &unlock_file($usermin_miniserv_config); &restart_usermin_miniserv(); &webmin_log("ssl", undef, undef, \%in); &redirect(""); usermin/save_acl.cgi 0100775 0005671 0000012 00000000551 10112623524 014464 0 ustar jcameron wheel #!/usr/local/bin/perl # save_acl.cgi # Change visible usermin modules require './usermin-lib.pl'; $access{'acl'} || &error($text{'acl_ecannot'}); &ReadParse(); &lock_file(&usermin_acl_filename()); @mods = split(/\0/, $in{'mod'}); &save_usermin_acl("user", \@mods); &unlock_file(&usermin_acl_filename()); &webmin_log("acl", undef, undef, \%in); &redirect(""); usermin/save_uconfigs.cgi 0100755 0005671 0000012 00000002133 10112623524 015536 0 ustar jcameron wheel #!/usr/local/bin/perl # save_uconfigs.cgi # Save default user inputs from edit_configs.cgi require './usermin-lib.pl'; require '../config-lib.pl'; $access{'configs'} || &error($text{'acl_ecannot'}); &ReadParse(); &can_use_module($in{'mod'}) || &error($text{'configs_ecannot'}); $m = $in{'mod'}; &error_setup($text{'config_err'}); &get_usermin_miniserv_config(\%miniserv); mkdir("$config{'usermin_dir'}/$m", 0700); &lock_file("$config{'usermin_dir'}/$m/uconfig"); &read_file("$config{'usermin_dir'}/$m/uconfig", \%uconfig); &parse_config(\%uconfig, "$miniserv{'root'}/$m/uconfig.info"); &write_file("$config{'usermin_dir'}/$m/uconfig", \%uconfig); &unlock_file("$config{'usermin_dir'}/$m/uconfig"); # Save the preferences config as well mkdir("$config{'usermin_dir'}/$m", 0700); &lock_file("$config{'usermin_dir'}/$m/config"); &read_file("$config{'usermin_dir'}/$m/config", \%mconfig); $mconfig{'noprefs'} = $in{'noprefs'}; &write_file("$config{'usermin_dir'}/$m/config", \%mconfig); &unlock_file("$config{'usermin_dir'}/$m/config"); &webmin_log("uconfig", undef, undef, \%in); &redirect("list_configs.cgi"); usermin/move.cgi 0100775 0005671 0000012 00000001144 10112623524 013654 0 ustar jcameron wheel #!/usr/local/bin/perl # move.cgi # Move a restriction up or down require './usermin-lib.pl'; $access{'restrict'} || &error($text{'acl_ecannot'}); &ReadParse(); &lock_file("$config{'usermin_dir'}/usermin.mods"); @usermods = &list_usermin_usermods(); $i = $in{'idx'}; if ($in{'up'}) { ($usermods[$i], $usermods[$i-1]) = ($usermods[$i-1], $usermods[$i]); } else { ($usermods[$i], $usermods[$i+1]) = ($usermods[$i+1], $usermods[$i]); } &save_usermin_usermods(\@usermods); &unlock_file("$config{'usermin_dir'}/usermin.mods"); &webmin_log("move", "restrict", $usermods[$i]->[0]); &redirect("list_restrict.cgi"); usermin/stop.cgi 0100775 0005671 0000012 00000000601 10112623524 013670 0 ustar jcameron wheel #!/usr/local/bin/perl # stop.cgi require './usermin-lib.pl'; $access{'stop'} || &error($text{'stop_ecannot'}); &error_setup($text{'stop_err'}); &get_usermin_miniserv_config(\%miniserv); if (open(PID, $miniserv{'pidfile'}) && ($pid = int(\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/start.cgi 0100775 0005671 0000012 00000000350 10112623524 014041 0 ustar jcameron wheel #!/usr/local/bin/perl # start.cgi # Start the usermin server require './usermin-lib.pl'; $access{'stop'} || &error($text{'start_ecannot'}); &system_logged("$config{'usermin_dir'}/start >/dev/null 2>&1 $text{'users_eversion'}\n"; &ui_print_footer("", $text{'index_return'}); exit; } print $text{'users_desc'}," ",$text{'users_desc2'},"
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/change_users.cgi 0100755 0005671 0000012 00000002313 10112623523 015350 0 ustar jcameron wheel #!/usr/local/bin/perl # change_users.cgi # Update user allow and deny parameters require './usermin-lib.pl'; $access{'users'} || &error($text{'acl_ecannot'}); use Socket; &ReadParse(); &error_setup($text{'users_err'}); @users = split(/\s+/, $in{"user"}); if ($in{"access"}) { foreach $u (@users) { if ($u =~ /^\@(\S+)$/) { defined(getgrnam($1)) || &error(&text('users_egroup', "$1")); } elsif ($u =~ /^(\d*)-(\d*)$/ && ($1 || $2)) { # Assume UIDs are ok } else { defined(getpwnam($u)) || &error(&text('users_euser', $u)); } } } if ($in{'shells_deny'}) { -r $in{'shells'} || &error($text{'users_eshell'}); } &lock_file($usermin_miniserv_config); &get_usermin_miniserv_config(\%miniserv); delete($miniserv{"allowusers"}); delete($miniserv{"denyusers"}); if ($in{"access"} == 1) { $miniserv{"allowusers"} = join(' ', @users); } elsif ($in{"access"} == 2) { $miniserv{"denyusers"} = join(' ', @users); } if ($in{'shells_deny'}) { $miniserv{'shells_deny'} = $in{'shells'}; } else { delete($miniserv{'shells_deny'}); } &put_usermin_miniserv_config(\%miniserv); &unlock_file($usermin_miniserv_config); &restart_usermin_miniserv(); &webmin_log("users", undef, undef, \%in); &redirect(""); usermin/install_mod.cgi 0100755 0005671 0000012 00000005166 10112623757 015231 0 ustar jcameron wheel #!/usr/local/bin/perl # install_mod.cgi # Download and install a usermin module require './usermin-lib.pl'; $access{'mods'} || &error($text{'acl_ecannot'}); if ($ENV{REQUEST_METHOD} eq "POST") { &ReadParseMime(); } else { &ReadParse(); $no_upload = 1; } $| = 1; $theme_no_table = 1 if ($in{'source'} == 2); &ui_print_header(undef, $text{'install_title'}, ""); if ($in{'source'} == 0) { # from local file &error_setup(&text('install_err1', $in{'file'})); $file = $in{'file'}; if (!(-r $file)) { &inst_error($text{'install_efile'}); } } elsif ($in{'source'} == 1) { # from uploaded file &error_setup($text{'install_err2'}); $file = &tempname(); $need_unlink = 1; if ($no_upload) { &inst_error($text{'install_ebrowser'}); } open(MOD, "> $file"); print MOD $in{'upload'}; close(MOD); } elsif ($in{'source'} == 2) { # from ftp or http url &error_setup(&text('install_err3', $in{'url'})); $file = &tempname(); $need_unlink = 1; local $error; $progress_callback_url = $in{'url'}; if ($in{'url'} =~ /^(http|https):\/\/([^\/]+)(\/.*)$/) { $ssl = $1 eq 'https'; $host = $2; $page = $3; $port = $ssl ? 443 : 80; if ($host =~ /^(.*):(\d+)$/) { $host = $1; $port = $2; } &http_download($host, $port, $page, $file, \$error, \&progress_callback, $ssl); } elsif ($in{'url'} =~ /^ftp:\/\/([^\/]+)(:21)?\/(.*)$/) { $host = $1; $ffile = $3; &ftp_download($host, $ffile, $file, \$error, \&progress_callback); } else { &inst_error($text{'install_eurl'}); } &inst_error($error) if ($error); } # Install the module(s) $rv = &install_usermin_module($file, $need_unlink, $in{'nodeps'}); if (ref($rv)) { @mdescs = @{$rv->[0]}; @mdirs = @{$rv->[1]}; @msizes = @{$rv->[2]}; } else { &inst_error($rv); } # Display something nice for the user print "$text{'install_desc'}\n"; print "
\n";
&ui_print_footer("", $text{'index_return'});
sub inst_error
{
print "
$whatfailed : $_[0]
\n"; print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/delete_mod.cgi 0100755 0005671 0000012 00000006416 10112623554 015017 0 ustar jcameron wheel #!/usr/local/bin/perl # delete_mod.cgi # Delete selected modules from usermin require './usermin-lib.pl'; $access{'mods'} || &error($text{'acl_ecannot'}); &ReadParse(); &error_setup($text{'delete_err'}); @mods = split(/\0/, $in{'mod'}); @mods || &error($text{'delete_enone'}); local %miniserv; &get_usermin_miniserv_config(\%miniserv); # check if any other module depends on those to be deleted foreach $minfo (&list_modules()) { if (&check_usermin_os_support($minfo)) { foreach $d (split(/\s+/, $minfo->{'depends'})) { $depends{$d} = $minfo->{'desc'}; } } } foreach $m (@mods) { %minfo = &get_usermin_module_info($m); %minfo = &get_usermin_theme_info($m) if (!%minfo); if (!-l "$miniserv{'root'}/$m" && $depends{$m}) { &error(&text('delete_edep', "$minfo{'desc'}", "$depends{$m}")); } } # ask the user if he is sure if (!$in{'confirm'}) { &ui_print_header(undef, $text{'delete_title'}, ""); print "\n"; &ui_print_footer("", $text{'index_return'}); exit; } # delete the selected modules or themes foreach $m (split(/\0/, $in{'mod'})) { next if (!$m || !-d "$miniserv{'root'}/$m"); local (%minfo, %cinfo); %minfo = &get_usermin_module_info($m); %minfo = &get_usermin_theme_info($m) if (!%minfo); if ($minfo{'clone'}) { # Deleting a clone &read_file("$config{'usermin_dir'}/$m/clone", \%cinfo); unlink("$miniserv{'root'}/$m"); system("rm -rf $config{'usermin_dir'}/$m"); push(@mdesc, &text('delete_desc1', $minfo{'desc'}, $minfo{'clone'})); } else { # Delete any clones of this module local @mst = stat("$miniserv{'root'}/$m"); opendir(DIR, $miniserv{'root'}); foreach $l (readdir(DIR)) { @lst = stat("$miniserv{'root'}/$l"); if (-l "$miniserv{'root'}/$l" && $lst[1] == $mst[1]) { unlink("$miniserv{'root'}/$l"); system("rm -rf $config{'usermin_dir'}/$l"); } } closedir(DIR); open(TYPE, "$miniserv{'root'}/$m/install-type"); chop($type =\n"; print "
\n"; } print "
\n"; &ui_print_footer("", $text{'index_return'}); usermin/save_defacl.cgi 0100775 0005671 0000012 00000001170 10112623524 015141 0 ustar jcameron wheel #!/usr/local/bin/perl # save_defacl.cgi # Save global ACL options for usermin require './usermin-lib.pl'; $access{'defacl'} || &error($text{'acl_ecannot'}); &ReadParse(); &error_setup($text{'defacl_err'}); &get_usermin_miniserv_config(\%miniserv); do "$miniserv{'root'}/acl_security.pl"; &lock_file("$config{'usermin_dir'}/user.acl"); &read_file("$miniserv{'root'}/defaultacl", \%acl); &read_file("$config{'usermin_dir'}/user.acl", \%acl); &acl_security_save(\%acl); &write_file("$config{'usermin_dir'}/user.acl", \%acl); &unlock_file("$config{'usermin_dir'}/user.acl"); &webmin_log("defacl", undef, undef, \%in); &redirect(""); usermin/edit_mods.cgi 0100775 0005671 0000012 00000007210 10112623674 014663 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_mods.cgi # Form for installing and removing usermin modules require './usermin-lib.pl'; $access{'mods'} || &error($text{'acl_ecannot'}); &ui_print_header(undef, $text{'mods_title'}, ""); # Display installation form print "
| \n"; print "$text{'mods_desc1'} | "; print " |
| \n"; print "$text{'mods_desc2'} | "; print " |
| $text{'mods_desc3'} | \n"; print " |
\n"; print "
\n"; } print "
\n";
&ui_print_footer("", $text{'index_return'});
sub inst_error
{
print "
$whatfailed : $_[0]
\n"; print "
| \n"; print $text{"upgrade_desc$mode"}," | "; print " |
| $text{'update_desc1'} | \n"; print "
| $text{'update_desc2'} | \n"; print "
",&text($in{'install'} ? 'upgrade_setup2' : 'upgrade_setup',
"$cmd"),"
\n";
print "
"; &proc::safe_process_exec($cmd, 0, 0, STDOUT, undef, 1); print ""; unlink($file) if ($need_unlink); } else { # Check if it is a usermin tarfile open(TAR, "tar tf $file 2>&1 |"); while(
",&text('upgrade_setup2', "setup.sh"),"
\n";
}
else {
# Upgrading .. work out where to extract
if ($in{'dir'}) {
# Since we are currently installed in a fixed directory,
# just extract to a temporary location
$extract = &tempname();
mkdir($extract, 0755);
}
else {
# Next to the current directory
$extract = "$miniserv{'root'}/..";
}
# Extract it next to the current directory and run setup.sh
$out = `cd $extract ; tar xf $file 2>&1 >/dev/null`;
if ($?) {
&inst_error(&text('upgrade_euntar', "$out"));
}
unlink($file) if ($need_unlink);
$ENV{'config_dir'} = $config{'usermin_dir'};
$ENV{'webmin_upgrade'} = 1;
$ENV{'autothird'} = 1;
$setup = $in{'dir'} ? "./setup.sh '$in{'dir'}'" : "./setup.sh";
if ($in{'delete'}) {
$ENV{'deletedold'} = 1;
$cmd = "(cd $extract/usermin-$version && $setup && rm -rf \"$miniserv{'root'}\")";
}
else {
$cmd = "(cd $extract/usermin-$version && $setup)";
}
print "
",&text('upgrade_setup', "setup.sh"),"
\n";
}
print "
"; &proc::safe_process_exec($cmd, 0, 0, STDOUT, undef, 1); print ""; if ($in{'dir'}) { # Can delete the temporary source directory system("rm -rf \"$extract\""); } } &webmin_log($in{'install'} ? "uinstall" : "upgrade", undef, undef, { 'version' => $version, 'mode' => $in{'mode'} }); # Find out about any updates for this new version. if ($updates_error) { print "
\n";
}
else {
open(UPDATES, $updatestemp);
while( \n";
}
}
&ui_print_footer("", $text{'index_return'});
sub inst_error
{
unlink($file) if ($need_unlink);
print " \n";
&ui_print_footer("", $text{'index_return'});
exit;
}
usermin/edit_assignment.cgi 0100755 0005671 0000012 00000002452 10112623570 016065 0 ustar jcameron wheel #!/usr/local/bin/perl
require './usermin-lib.pl';
$access{'assignment'} || &error($text{'acl_ecannot'});
@modules = &list_modules();
&read_file("$config{'usermin_dir'}/webmin.catnames", \%catnames);
&get_usermin_miniserv_config(\%miniserv);
&read_file("$miniserv{'root'}/lang/en", \%utext);
&read_file("$miniserv{'root'}/ulang/en", \%utext);
&ui_print_header(undef, $text{'assignment_title'}, undef);
print qq(
$text{'assignment_desc'}
",&text('upgrade_updates', $ucount,
"update.cgi?source=0&show=0&missing=0"),"
$whatfailed : $_[0]