wehub-resource-sync
12 lines
287 B
Perl
Executable File
12 lines
287 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{'sessions_ecannot'});
|
|
|
|
$url = &create_usermin_login_url($in{'user'});
|
|
&redirect($url);
|
|
&webmin_log("switch", undef, $in{'user'});
|
|
|