get_baseurl() . '/admin');
}
if($action != 'censor' && $action != 'dead')
return;
$r = q("SELECT * FROM `profile` WHERE `id` = %d LIMIT 1",
intval($id)
);
if(! count($r))
return;
if($action == 'censor') {
q("UPDATE `profile` SET `censored` = 1 WHERE `id` = %d LIMIT 1",
intval($id)
);
q("DELETE FROM `flag` WHERE `pid` = %d",
intval($id)
);
notice('Profile censored
');
}
if($action == 'dead') {
q("DELETE FROM `profile` WHERE `id` = %d LIMIT 1",
intval($id)
);
q("DELETE FROM `photo` WHERE `profile-id` = %d LIMIT 1",
intval($id)
);
q("DELETE FROM `flag` WHERE `pid` = %d",
intval($id)
);
notice('Dead profile removed
');
}
goaway($a->get_baseurl() . '/admin');
}
function moderate_content(&$a) {
if(! $_SESSION['uid']) {
notice("Permission denied.");
return;
}
if($a->argc > 1)
$id = intval($a->argv[1]);
if($a->argc > 2)
$reason = $a->argv[2];
if($id) {
$r = q("SELECT * FROM `profile` WHERE `id` = %d LIMIT 1",
intval($id)
);
if(! count($r)) {
notice("Entry does not exist.");
q("DELETE FROM `flag` WHERE `pid` = %d",
intval($id)
);
goaway($a->get_baseurl() . '/admin');
}
}
$c .= "Moderate/delete profile
";
$tpl = file_get_contents('view/directory_item.tpl');
foreach($r as $rr) {
$pdesc = (($rr['pdesc']) ? $rr['pdesc'] . '
' : '');
$details = '';
if(strlen($rr['locality']))
$details .= $rr['locality'];
if(strlen($rr['region'])) {
if(strlen($rr['locality']))
$details .= ', ';
$details .= $rr['region'];
}
if(strlen($rr['country-name'])) {
if(strlen($details))
$details .= ', ';
$details .= $rr['country-name'];
}
if(strlen($rr['gender']))
$details .= '
' . t('Gender: ') . t($rr['gender']) ;
$o .= replace_macros($tpl,array(
'$id' => $rr['id'],
'$mod' => '',
'$profile-link' => $rr['homepage'],
'$photo' => (($rr['photo']) ? $rr['photo'] : $a->get_baseurl() . '/photo/' . $rr['id']),
'$alt-text' => $rr['name'] . ' ' . '(' . $rr['id'] . ')',
'$name' => $rr['name'],
'$star' => '',
'$pclass' => (($rr['comm']) ? ' group' : ''),
'$pgroup' => (($rr['comm']) ? '' . t('[Public Group]') . '
' : ''),
'$details' => $pdesc . $details,
'$marital' => ((strlen($rr['marital'])) ? '♥ Status: ' . $rr['marital'] . '
' : '')
));
}
$o .= "\r\n";
$c .= '
';
$c .= '
' . $rr['homepage'] . '
';
$o .= '';
$a->page['aside'] = $o;
return $c;
}