#!/usr/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'});