Viewing file:  showpass.cgi (1.45 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a domain's or user's password
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
&can_show_pass() || &error($text{'showpass_ecannot'});
&can_edit_domain($d) || &error($text{'edit_ecannot'});
if ($in{'user'}) {
# Showing for mailbox user
&can_edit_users() || &error($text{'users_ecannot'});
@users = &list_domain_users($d, 0, 1, 1, 1);
($user) = grep { $_->{'user'} eq $in{'user'} } @users;
$user || &error($text{'showpass_egone'});
$username = $user->{'user'};
$pass = $user->{'plainpass'};
$msg1 = $text{'showpass_useru'};
$msg2 = $text{'showpass_passu'};
}
elsif (&indexof($in{'mode'}, @database_features) >= 0) {
# For a DB
$ufunc = $in{'mode'}."_user";
$username = &$ufunc($d);
$pfunc = $in{'mode'}."_pass";
$pass = &$pfunc($d, 1);
$msg1 = &text('showpass_dbuser', $text{'feature_'.$in{'mode'}});
$msg2 = &text('showpass_dbpass', $text{'feature_'.$in{'mode'}});
}
else {
# For a domain
$username = $d->{'user'};
$pass = $d->{'pass'};
$msg1 = $text{'showpass_user'};
$msg2 = $text{'showpass_pass'};
}
&popup_header($text{'showpass_title'});
print "<center><table>\n";
print "<tr> <td style=\"padding-right: 10px\"><b>$msg1</b></td> ",
"<td><tt>",&html_escape($username),"</tt></td> </tr>\n";
print "<tr> <td style=\"padding-right: 10px\"><b>$msg2</b></td> ",
"<td><tt>",&html_escape($pass),"</tt></td> </tr>\n";
print "</table></center>\n";
&popup_footer();
|