Viewing file:  switch_user.cgi (1.17 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Switch the login to a domain's admin
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'edit_ecannot'});
&can_switch_user($d, $in{'admin'}) || &error($text{'switch_ecannot'});
if ($in{'admin'}) {
# Switch is to an extra admin .. make sure he exists
&can_edit_admins($d) || &error($text{'admins_ecannot'});
@admins = &list_extra_admins($d);
($admin) = grep { $_->{'name'} eq $in{'admin'} } @admins;
$admin || &error($text{'switch_eadmin'});
$user = $admin->{'name'};
}
else {
# To domain owner
$user = $d->{'user'};
}
&require_acl();
&get_miniserv_config(\%miniserv);
&acl::open_session_db(\%miniserv);
$skey = defined(&acl::session_db_key) ? &acl::session_db_key($main::session_id)
: $main::session_id;
($olduser, $oldtime) = split(/\s+/, $acl::sessiondb{$skey});
$olduser || &error($acl::text{'switch_eold'});
$acl::sessiondb{$skey} = "$user $oldtime $ENV{'REMOTE_ADDR'}";
dbmclose(%acl::sessiondb);
&reload_miniserv();
&run_post_actions_silently();
if ($in{'admin'}) {
&webmin_log("switch", "admin", $user);
}
else {
&webmin_log("switch", "domain", $d->{'dom'}, $d);
}
&redirect("/");
|