acl/switch.cgi

   1 #!/usr/local/bin/perl
   2 # Re-set the session user to be some other user, and redirect to /
   3
   4 require './acl-lib.pl';
   5 &ReadParse();
   6 &can_edit_user($in{'user'}) && $access{'switch'} ||
   7         &error($text{'switch_euser'});
   8
   9 &get_miniserv_config(\%miniserv);
  10 &open_session_db(\%miniserv);
  11 $skey = &session_db_key($main::session_id);
  12 ($olduser, $oldtime) = split(/\s+/, $sessiondb{$skey});
  13 $olduser || &error($text{'switch_eold'});
  14 $sessiondb{$skey} = "$in{'user'} $oldtime $ENV{'REMOTE_ADDR'}";
  15 dbmclose(%sessiondb);
  16 &reload_miniserv();
  17 &webmin_log("switch", undef, $in{'user'});
  18 &redirect("/");
  19