mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 00:12:14 +00:00
19 lines
565 B
Perl
Executable File
19 lines
565 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Re-set the session user to be some other user, and redirect to /
|
|
|
|
require './acl-lib.pl';
|
|
&ReadParse();
|
|
&can_edit_user($in{'user'}) && $access{'switch'} ||
|
|
&error($text{'switch_euser'});
|
|
|
|
&get_miniserv_config(\%miniserv);
|
|
&open_session_db(\%miniserv);
|
|
($olduser, $oldtime) = split(/\s+/, $sessiondb{$main::session_id});
|
|
$olduser || &error($text{'switch_eold'});
|
|
$sessiondb{$main::session_id} = "$in{'user'} $oldtime $ENV{'REMOTE_ADDR'}";
|
|
dbmclose(%sessiondb);
|
|
&reload_miniserv();
|
|
&webmin_log("switch", undef, $in{'user'});
|
|
&redirect("/");
|
|
|