diff --git a/util/global_community_block.php b/util/global_community_block.php new file mode 100755 index 0000000000..cb6789e45c --- /dev/null +++ b/util/global_community_block.php @@ -0,0 +1,65 @@ +#!/usr/bin/env php + util/global_community_block.php http://example.com/profile/bob + * + * will block bob@example.com. + * + * Author: Tobias Diekershoff + * + * License: AGPLv3 or later, same as Friendica + **/ + +if ($argc != 2 || $argv[1] == "-h" || $argv[1] == "--help" || $argv[1] == "-?") { + echo "Usage: ".$argv[0]." [-h|profile_url]\r\n"; + echo " -h, -?, --help ... show this help\r\n"; + echo " profile_url ...... The URL of the profile you want to silence\r\n"; + echo "\r\n"; + echo "Example: block bob@example.com\r\n"; + echo "$> ".$argv[0]." https://example.com/profiles/bob\r\n"; + echo "\r\n"; + exit(0); +} + +use Friendica\Database\DBM; +use Friendica\Network\Probe; + +require_once 'boot.php'; +require_once 'include/dba.php'; +require_once 'include/text.php'; +$a = get_app(); +require_once '.htconfig.php'; + +dba::connect($db_host, $db_user, $db_pass, $db_data); +unset($db_host, $db_user, $db_pass, $db_data); + +/** + * 1. make nurl from last parameter + * 2. check DB (contact) if there is a contact with uid=0 and that nurl, get the ID + * 3. set the flag hidden=1 for the contact entry with the found ID + **/ +$net = Probe::uri($argv[1]); +if (in_array($net['network'], array(NETWORK_PHANTOM, NETWORK_MAIL))) { + echo 'This account seems not to exist.'; + echo "\r\n"; + exit(1); +} +$nurl = normalise_link($net['url']); +$r = dba::select('contact', array('id'), array('nurl' => $nurl, 'uid' => 0), array('limit' => 1)); +if (DBM::is_result($r)) { + dba::update('contact', array('blocked' => true), array('id' => $r['id'])); + echo "NOTICE: The account should be blocked from the node now\r\n"; +} else { + echo "NOTICE: Could not find any entry for this URL (".$nurl.")\r\n"; +} + +?>