Account Details

get("name", ""); my $act = $request->get("action", ""); if($acct eq "") { print "Missing account name."; } elsif($act eq "move") { my $cid = $request->getInt("charid", 0); my $cname = $request->get("charname", "NONE"); if($cid < 1) { print "Missing char ID"; } else { print <<"HTML"; HTML } } elsif($act eq "move2") { my $cid = $request->getInt("charid", 0); my $na = $request->getInt("newacct", 0); my $cname = $request->get("charname", "NONE"); my $acctE = $EQDB->escape_string($acct); if($cid < 1 || $na < 1) { print "Missing char ID"; } else { my $q = "SELECT name FROM account WHERE id=$na"; my $res=$EQDB->query($q); my $a; if(!$res) { print "Query name error."; } elsif(!($a = $res->fetch_row_hash)) { print "No such account $na."; } else { $an = $a->{name}; $q = "UPDATE character_ SET account_id=$na WHERE id=$cid"; if($EQDB->query($q)) { print "$cname has been moved to account $an ($na)"; print "

Back to $acct..."; print "
Go to $an..."; } else { print "Update error."; } } } } elsif($act eq "listips") { my $ipadd = $request->get("ipaddress", "NONE"); my $acctE = $EQDB->escape_string($acct); if($ipadd eq '') { print "Missing IP Address"; } else { my $q = "SELECT accid FROM account_ip WHERE ip='$ipadd'"; my $res=$EQDB->query($q); if($res) { print <<"HTML";
HTML while(my $row4 = $res->fetch_row_hash) { my $accountid = $row4->{accid}; my $q; $q = "SELECT name FROM account WHERE id=$accountid"; my $res2=$EQDB->query($q); if ($res2) { my $row5=$res2->fetch_row_hash; print <<"CHAR"; CHAR } else { print "Account Name query error."; } } print "

Account ID	Account Name	IP Address
$row4->{accid}	$row5->{name}	$ipadd

"; } else { print "IP Address query error."; } } } else { my $acctE = $EQDB->escape_string($acct); my $q; $q="select id,charname,sharedplat,status,revoked from account where name='$acctE'"; my $res=$EQDB->query($q); if ($res) { my $row=$res->fetch_row_hash; print <<"HTML";

Name:	$acct
Account ID:	$row->{id}
Status:	$row->{status}
Revoked:	$row->{revoked}
Last Used Char:	$row->{charname}
Shared Platinum:	$row->{sharedplat}

HTML $q = "SELECT id,name,zonename FROM character_ WHERE account_id=$row->{id}"; my $res2 = $EQDB->query($q); if($res2) { print <<"HTML";
HTML while(my $row2 = $res2->fetch_row_hash) { print <<"CHAR"; CHAR } print "

ID	Char Name	Current Zone	Actions
$row2->{id}	$row2->{name}	$row2->{zonename}	delete, move acct, move zone

"; } else { print "Char query error."; } $q="SELECT ip,count FROM account_ip WHERE accid=$row->{id}"; my $res3=$EQDB->query($q); if($res3) { print <<"HTML";
HTML while(my $row3 = $res3->fetch_row_hash) { print <<"CHAR"; CHAR } print "

IPs Used	Count
$row3->{ip}	$row3->{count}

"; } else { print "No IPs associated with this account or IP query error."; } print <<"HTML";

HTML } else { print "Query error."; } print "Actions: ban/unban, set status, set world password, delete chars, move chars, delete account and chars"; } ?>