##############
sub accountadminverify {
&adminhead;
&adminbody;
&oops('No administrator password entered - accountadminverify') unless ($form{'adminpassword'});
if ($form{'adminpassword'} eq $adminpass) {
opendir BILLDIR, "$config{'billdir'}" || die "Unable to open directory: $!";
@adminallbillfiles = sort { $a <=> $b } readdir BILLDIR;
closedir BILLDIR;
$i = 0;
print "<br><br>";
print "<FORM ACTION=$config{'scripturl'} METHOD=POST><INPUT TYPE=HIDDEN NAME=adminpassword VALUE=\"$form{'adminpassword'}\"><CENTER><TABLE BGCOLOR=$colortablebody BORDER=0 WIDTH=100\%><TR BGCOLOR=$colortablehead><TD width=1> </TD><TD><font face=$config{'fface'} size=2><b>Username</b></TD><TD><font face=$config{'fface'} size=2><b>Domain</b></TD><TD><font face=$config{'fface'} size=2><b>Domain Exp</b></TD><TD><font face=$config{'fface'} size=2><b>Plan</b></TD><TD><font face=$config{'fface'} size=2><b>Duration</b></TD><TD><font face=$config{'fface'} size=2><b>Due</b></TD><TD><font face=$config{'fface'} size=2><b>Next Due</b></TD><TD width=10 align=right><font face=$config{'fface'} size=2><b>Balance</b></TD></TR>\n";
foreach $adminbillfile (sort @adminallbillfiles) {
if (-T "$config{'billdir'}/$adminbillfile") {
open (ACCOUNTI, "$config{'billdir'}/$adminbillfile");
@adminallbillrecords = <ACCOUNTI>;
close(ACCOUNTI);
@adminALIAS = split(/\./, $adminbillfile);
$admin2count=0;
foreach $admin2record (@adminallbillrecords) {
($admin2event, $admin2date, $admin2amount, $admin2prevdue, $admin2nextdue, $admin2balance) = split /$fielddelimiter/, $admin2record;
$admin2count++;
}
$adminshow2balance = &prettyprice($admin2balance, 1);
local($name) = &return_user_name($adminALIAS[0]);
local($address) = &return_user_address($adminALIAS[0]);
local($citystate) = &return_user_citystate($adminALIAS[0]);
local($emailaddress) = &return_user_email($adminALIAS[0]);
&oops('file not found 1 - accountadminverify') unless (open(REGFILE, "$config{'regdir'}/$adminALIAS[0].dat"));
($password,$fname,$lname,$phone,$email,$email2,$paddress,$saddress,$city,$country,$zip,$dfname,$dlname,$dphone,$demail,$demail2,$dpaddress,$dsaddress,$dcity,$dcountry,$dzip,$account_type,$account,$domainname,$reseller,$domainnamestatus,$domainid,$domainpass,$domainfees,$registrar,$useremail,$accountduration,$ip,$server,$cheque,$creditcard,$namecc,$comments1,$comments2,$comments3,$comments4) = <REGFILE>;
chomp($password,$fname,$lname,$phone,$email,$email2,$paddress,$saddress,$city,$country,$zip,$dfname,$dlname,$dphone,$demail,$demail2,$dpaddress,$dsaddress,$dcity,$dcountry,$dzip,$account_type,$account,$domainname,$reseller,$domainnamestatus,$domainid,$domainpass,$domainfees,$registrar,$useremail,$accountduration,$ip,$server,$cheque,$creditcard,$namecc,$comments1,$comments2,$comments3,$comments4);
close REGFILE;
if ($account ne "No_Extras"){
if ($i % 2 == 1) {
$colorrow = $config{'odd_row_color'};
} else {
$colorrow = $config{'even_row_color'};
}
$i++;
if ($account_type eq "Reseller") {
print "<TR BGCOLOR=\"#FFE252\" title=\"$adminALIAS[0]\">";
}else{
print "<TR BGCOLOR=$colorrow title=\"$adminALIAS[0]\">";
}
if (!(-f "$config{'basepath'}/$adminALIAS[0].txt")){
print "<TD bgcolor=black title=\"hosting account not set up\"><INPUT TYPE=RADIO NAME=nametoadmin VALUE=\"$adminALIAS[0]\"></TD>";
}else{
print "<TD title=\"active\"><INPUT TYPE=RADIO NAME=nametoadmin VALUE=\"$adminALIAS[0]\"></TD>";
}
if ($account_type eq "Reseller") {
print "<TD title=\"Webmin\"><a href=\"https://$adminALIAS[0]:$password\@$domainname:$webminport\" target=\"_blank\"><font face=$config{'fface'} size=2>$adminALIAS[0]</font></a></TD>";
} else {
print "<TD><font face=$config{'fface'} size=2 color=black>$adminALIAS[0]</TD>";
}
print "<TD><font face=$config{'fface'} size=2><a href=\"http://$domainname\" target=\"_blank\" title=\"view the website\">$domainname<a/></TD>";
if ($registrar eq "") {
print "<TD title=\"no registrar entered\"><font face=$config{'fface'} size=2>$cheque</TD>";
} else {
print "<TD><font face=$config{'fface'} size=2><a href=\"http://$registrar\" target=\"_blank\" title=\"go to the domain registrars site\">$cheque</a></TD>";
}
if ($account_type eq "Reseller") {
print "<TD title=\"WHM\"><a href=\"http://$adminALIAS[0]:$password\@$domainname:$whmport\" target=\"_blank\"><font face=$config{'fface'} size=2>$account</a></TD>";
} else {
print "<TD title=\"cPanel\"><a href=\"http://$adminALIAS[0]:$password\@$domainname:$cpanelport\" target=\"_blank\"><font face=$config{'fface'} size=2>$account</a></TD>";
}
print "<TD><font face=$config{'fface'} size=2>$accountduration</TD>";
if (!(-f "$config{'billdir'}/cards/$adminALIAS[0].bill")){
print "<TD title=\"$adminALIAS[0] no card stored\"><font face=$config{'fface'} size=2 color=\"black\">$admin2prevdue</TD>";
}else{
print "<TD title=\"$adminALIAS[0] has card stored\"><font face=$config{'fface'} size=2 color=\"black\"><a href=javascript:whois('http://www.wwwhosts.net/hosting/accounts/admin/cc/$adminALIAS[0].bill');>$admin2prevdue</a></TD>";
}
print "<TD><font face=$config{'fface'} size=2 color=\"black\">$admin2nextdue</TD>";
print "<TD align=right><font face=$config{'fface'} size=2>$adminshow2balance</TD></TR>\n";
}}}
# admin panel
# command buttons
print "</TABLE>\n";
print "<BR><CENTER><TABLE BGCOLOR=black BORDER=0 cellspacing=1 cellpadding=1 WIDTH=100\%>\n";
print "<TR><td>\n";
print "<CENTER><TABLE BGCOLOR=$colortablehead BORDER=0 cellspacing=0 cellpadding=0 WIDTH=100\%>\n";
print "<TR><td>\n";
print "<TABLE valign=top BGCOLOR=$colortablehead BORDER=0 cellspacing=1 cellpadding=5 height=100\% WIDTH=100\% valign=top>\n";
print "<TR>\n";
print "<td colspan=3 valign=top><font face=$config{'fface'} size=2 color=black>Select a user from above for options this side<br></td>\n";
print "</tr><tr>\n";
print "<td valign=top align=left><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=viewregadmin VALUE=\"Contact\/Tech\/Domain\" title=\"client contact info, domain name details\"></td>\n";
print "<td valign=top align=left><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=adminsupport VALUE=\"Support\" title=\"reply to/view support requests\"></td>\n";
print "<td valign=top align=left><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=viewaccountadmin VALUE=\"Billing\" title=\"apply charges/process payments\"></td>\n";
print "</tr><tr>\n";

print "<td colspan=3 valign=bottom align=left><textarea name=statement rows=3>Thank You</textarea><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=sendinvoiceadmin VALUE=\"Send Statement\" title=\"<<< enter any information your client needs before sending\"></td></form>\n";

#print "</tr><tr>\n";
# suspend
#print "<td colspan=3 valign=top align=left><FORM ACTION=\"http://host1.nzservers.net:2086/scripts/suspendacct\" METHOD=POST><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=suspend VALUE=\"Suspend\" title=\"Suspend selected user\"></td></form>\n";

print "</tr></table>";

print "</td><td rowspan=3 BGCOLOR=white>&nbsp;</td><td>\n";

print "<TABLE valign=top BGCOLOR=$colortablehead BORDER=0 cellspacing=1 cellpadding=5 height=100\% WIDTH=100\% valign=top><tr>\n";
print "<td colspan=4 valign=top><font face=$config{'fface'} size=2 color=black>Admin Functions/Tools<br></td>\n";
print "</tr><tr>\n";
print "<td valign=top><form method=post action=\"$config{'scriptdir'}logs.cgi\" target=\"_blank\"><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"Site Tracking\" title=\"monitor visitors in real time\"></form></td>\n";
print "<td valign=top><form method=post action=$mlmpath/index.phtml target=\"_blank\"><input type=hidden name=admin value=admin><input type=hidden name=login value=2><input type=hidden name=password value=$mlmpass><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"Mail List\" title=\"manage the mail list/send mail\"></form></td>\n";
print "<td valign=top><FORM ACTION=$config{'scripturl'} METHOD=POST><INPUT TYPE=HIDDEN NAME=adminpassword VALUE=\"$form{'adminpassword'}\"><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=accountconfig VALUE=\"Setup\" title=\"billing setup\"></FORM></td>\n";
print "<td valign=top><FORM ACTION=$config{'scripturl'}?action=account METHOD=POST target=\"_blank\"><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=accountconfig VALUE=\"Create\" title=\"create a new user account\"></FORM></td>\n";
print "</tr><tr>\n";
print "<td valign=top><form method=post action=$whmdomain:$whmport target=\"_blank\"><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"WHM\" title=\"access your webhostmanager\"></form></td>\n";
print "<td valign=top><form method=get action=\"http://www.\" target=\"_blank\"><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"cards\" title=\"cards\"></form></td>\n";
print "<td valign=top><form method=get action=\"\" target=\"_blank\"><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"blank\" title=\"blank\"></form></td>\n";
print "<td valign=top><form method=get action=\"http://www.wwwhosts.net/hosting/cpman/\" target=\"_blank\"><input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=submit value=\"CP Man\" title=\"cpanel manual\"></form></td>\n";

print "</tr><tr>\n";
print "<td colspan=4 valign=bottom><font face=$config{'fface'} size=2><br>\n";
# <INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=exportaccountadmin VALUE=\"Export Records\">";
########## begin whois
if ($form{'adminpassword'} eq $adminpass) {
opendir BILLDIR, "$config{'billdir'}" || die "Unable to open directory: $!";
@adminallbillfiles = sort { $a <=> $b } readdir BILLDIR;
closedir BILLDIR;
$i = 0;
print "<form action=\"whois.cgi\" target=\"_blank\" method=\"POST\"><select name=\"input\"><OPTION SELECTED> </OPTION>";
foreach $adminbillfile (sort @adminallbillfiles) {
if (-T "$config{'billdir'}/$adminbillfile") {
open (ACCOUNTI, "$config{'billdir'}/$adminbillfile");
@adminallbillrecords = <ACCOUNTI>;
close(ACCOUNTI);
@adminALIAS = split(/\./, $adminbillfile);
$admin2count=0;
foreach $admin2record (@adminallbillrecords) {
($admin2event, $admin2date, $admin2amount, $admin2prevdue, $admin2nextdue, $admin2balance) = split /\./, $admin2record;
$admin2count++;
}
$i++;
&oops('file not found 2 - accountadminverify') unless (open(REGFILE, "$config{'regdir'}/$adminALIAS[0].dat"));
($password,$fname,$lname,$phone,$email,$email2,$paddress,$saddress,$city,$country,$zip,$dfname,$dlname,$dphone,$demail,$demail2,$dpaddress,$dsaddress,$dcity,$dcountry,$dzip,$account_type,$account,$domainname,$reseller,$domainnamestatus,$domainid,$domainpass,$domainfees,$registrar,$useremail,$accountduration,$ip,$server,$cheque,$creditcard,$namecc,$comments1,$comments2,$comments3,$comments4) = <REGFILE>;
chomp($password,$fname,$lname,$phone,$email,$email2,$paddress,$saddress,$city,$country,$zip,$dfname,$dlname,$dphone,$demail,$demail2,$dpaddress,$dsaddress,$dcity,$dcountry,$dzip,$account_type,$account,$domainname,$reseller,$domainnamestatus,$domainid,$domainpass,$domainfees,$registrar,$useremail,$accountduration,$ip,$server,$cheque,$creditcard,$namecc,$comments1,$comments2,$comments3,$comments4);
close REGFILE;
print "<option>$domainname</option>";
}}
print "</select> <input style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" type=\"submit\" value=\"Whois Lookup\" title=\"domain lookup (won't work with subdomains)\"></td></tr></table></td></tr></table></td></tr></table></form>";
}######## end whois
print "<p><FORM ACTION=$config{'scripturl'} METHOD=POST><INPUT TYPE=HIDDEN NAME=adminpassword VALUE=\"$form{'adminpassword'}\"><font face=$config{'fface'} size=2 color=black><b>Sent Statements</b><p>";
open SENTINVOICE, "$config{'basepath'}/invoicesent.txt";
my (@data) = <SENTINVOICE>;
close SENTINVOICE;
my $line;
print "<textarea nowrap rows=10 cols=65 name=SENTINVOICE>";
foreach $line(@data) {
($adminALIAS, $time, $prevdue, $nextdue, $balance, $statement) = split /\./, $line;
print "$line                                   ";
}
print "</textarea><br><INPUT TYPE=SUBMIT style=\"background-color:#ffffff;font:verdana;font-weight:bold;color:#0544ff;\" NAME=sentinvoice VALUE=\"Edit/Remove Entries\" title=\"you can alter/delete entries here\"></form>";
# end admin panel
} else {
print "<table BGCOLOR=$colortablebody><tr><td><font face=$config{'fface'} size=2><br>Sorry, but that password was not valid.  Please verify your information.<BR>Your information was recorded as, $ENV{'REMOTE_ADDR'}, $ENV{'REMOTE_HOST'}.  Illegal attempts to gain access will be prosecuted.\n<br><br></td></tr></table>";
&sendemail($adminaccountemail, $config{'admin_address'}, 'Accounting: Invalid password.', "An unknown user has entered an invalid administration password \"$form{'adminpassword'}\" The user was from $ENV{'REMOTE_ADDR'}, $ENV{'REMOTE_HOST'}\n\n");
}
&adminfoot;
}