usermin/switch.cgi

   1 #!/usr/local/bin/perl
   2 # Set the Usermin session cookie to be some other user
   3
   4 require './usermin-lib.pl';
   5 &ReadParse();
   6 $access{'sessions'} || &error($text{'switch_euser'});
   7
   8 ($cookie, $url) = &switch_to_usermin_user($in{'user'});
   9 print "Set-Cookie: $cookie\n";
  10 &redirect($url);
  11 &webmin_log("switch", undef, $in{'user'});
  12