mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
13 lines
323 B
Perl
Executable File
13 lines
323 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Set the Usermin session cookie to be some other user
|
|
|
|
require './usermin-lib.pl';
|
|
&ReadParse();
|
|
$access{'sessions'} || &error($text{'switch_euser'});
|
|
|
|
($cookie, $url) = &switch_to_usermin_user($in{'user'});
|
|
print "Set-Cookie: $cookie\n";
|
|
&redirect($url);
|
|
&webmin_log("switch", undef, $in{'user'});
|
|
|