mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
15 lines
374 B
Perl
Executable File
15 lines
374 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# switch_user.cgi
|
|
# Force the webserver to re-authenticate
|
|
|
|
require './web-lib.pl';
|
|
&init_config();
|
|
&get_miniserv_config(\%miniserv);
|
|
$id = $$.time();
|
|
open(LOGOUT, ">$miniserv{'logout'}$id");
|
|
printf LOGOUT "%d\n",
|
|
$ENV{'HTTP_USER_AGENT'} =~ /(MSIE\s+[6321]\.)|(Netscape\/[4321])|(Lynx)/ ? 1 : 2;
|
|
close(LOGOUT);
|
|
&redirect("/?miniserv_logout_id=$id");
|
|
|