Create A Guild
$gname = $request->get("name", "");
$lname = $request->get("leader", "");
if($gname ne "" && $lname ne "") {
$q="select id from character_ where name='".$EQDB->escape_string($lname)."'";
my $res=$EQDB->query($q);
if($res) {
if(my $row=$res->fetch_row_hash) {
my $lid = $row->{id};
my $gid = $EQW->CreateGuild($gname, $lid);
if($gid > 0 && $gid < 3000) {
print "Guild $gname successfully created with ID $gid
";
} else {
print "Error creating guild. Check your logs.
";
}
} else {
print "Unable to find '$lname'
";
}
} else {
print "Unable to query leader's name.
";
}
}
?>