$shortoptions = 'd';
$longoptions = array('delete');
$helptext = <<<END_OF_SETTAG_HELP
settag.php [options] <site> <tag>
Set the tag <tag> for site <site>.
With -d, delete the tag.
END_OF_SETTAG_HELP;
require_once INSTALLDIR . '/scripts/commandline.inc';
if (count($args) < 1) {
show_help();
exit(1);
}
$nickname = $args[0];
$sn = Status_network::memGet('nickname', $nickname);
if (empty($sn)) {
print "No such site ({$nickname}).\n";
exit(-1);
}
$tags = $sn->getTags();
if (count($args) == 1) {
print implode(', ', $tags) . "\n";
exit(0);
}
$tag = $args[1];
$i = array_search($tag, $tags);
if ($i !== false) {
if (have_option('d', 'delete')) {
// Delete
unset($tags[$i]);