Guild Details

getInt("id", 0); if($gid > 0) { my $act = $request->get("action", ""); #note: delete action should be done on the actions.html page, so we can redirect elsewhere. if($act eq "makeleader") { my $char = $request->getInt("char", 0); if($char > 0) { if(!$EQW->SetGuildLeader($gid, $char)) { print "Failed to change guild leader, check your logs.
"; } else { print "Guild leader changed.
"; } } else { print "Invalid char in makeleader.
"; } } elsif($act eq "remove") { my $char = $request->getInt("char", 0); if($char > 0) { if(!$EQW->SetGuild($char, -1, 3)) { print "Failed to remove member, check your logs.
"; } else { print "Guild member removed.
"; } } else { print "Invalid char in remove member.
"; } } my $q = "SELECT g.id,g.name,g.leader,g.motd,g.motd_setter,g.tribute,c.name AS lname FROM guilds AS g LEFT JOIN character_ AS c ON g.leader=c.id WHERE g.id=$gid"; my $res=$EQDB->query($q); my $row; if($res && ($row = $res->fetch_row_hash)) { print <<"HTML";
Name:$row->{name}
Leader:$row->{lname} ($row->{leader})
MOTD:$row->{motd_setter} - $row->{motd}
Tribute:$row->{tribute}

Guild Members

HTML $q = "SELECT g.char_id,c.name,g.rank,gr.title,g.banker,g.public_note,g.tribute_enable,g.total_tribute " ."FROM guild_members AS g " ."LEFT JOIN character_ AS c ON g.char_id=c.id " ."LEFT JOIN guild_ranks AS gr ON g.rank=gr.rank AND g.guild_id=gr.guild_id " ."WHERE g.guild_id=$gid"; my $res2 = $EQDB->query($q); if($res2) { print <<"HTML";
HTML while(my $row2 = $res2->fetch_row_hash) { my $tline = "Off"; if($row2->{tribute_enable}) { $tline = "On"; } my $bline = ""; if($row2->{banker}) { $bline = "Banker"; } print <<"CHAR"; CHAR } print "
Char ID Char Name Rank Tribute Public Note Actions
$row2->{char_id} $row2->{name} $row2->{title} ($row2->{rank}) $bline $tline/$row2->{total_tribute} $row2->{public_note} Remove - Make Leader
"; } } else { print "Unable to query guild details."; } } else { print "Invalid guild id."; } ?> TODO:
online status, delete guild, add member, change motd, change public note, set tribute, make banker, rename guild, view/edit custom ranks, view/edit guild relations.