src/Content/ContactSelector.php

   1 <?php
   2 /**
   3  * @file src/Content/ContactSelector.php
   4  */
   5 namespace Friendica\Content;
   6
   7 use Friendica\Core\Hook;
   8 use Friendica\Core\L10n;
   9 use Friendica\Core\Protocol;
  10 use Friendica\Database\DBA;
  11 use Friendica\Util\Network;
  12 use Friendica\Util\Strings;
  13
  14 /**
  15  * @brief ContactSelector class
  16  */
  17 class ContactSelector
  18 {
  19         /**
  20          * @param string $current     current
  21          * @param string $foreign_net network
  22          * @return string
  23          * @throws \Exception
  24          */
  25         public static function profileAssign($current, $foreign_net)
  26         {
  27                 $o = '';
  28
  29                 $disabled = (($foreign_net) ? ' disabled="true" ' : '');
  30
  31                 $o .= "<select id=\"contact-profile-selector\" class=\"form-control\" $disabled name=\"profile-assign\" >\r\n";
  32
  33                 $s = DBA::select('profile', ['id', 'profile-name', 'is-default'], ['uid' => $_SESSION['uid']]);
  34                 $r = DBA::toArray($s);
  35
  36                 if (DBA::isResult($r)) {
  37                         foreach ($r as $rr) {
  38                                 $selected = (($rr['id'] == $current || ($current == 0 && $rr['is-default'] == 1)) ? " selected=\"selected\" " : "");
  39                                 $o .= "<option value=\"{$rr['id']}\" $selected >{$rr['profile-name']}</option>\r\n";
  40                         }
  41                 }
  42                 $o .= "</select>\r\n";
  43                 return $o;
  44         }
  45
  46         /**
  47          * @param string  $current  current
  48          * @param boolean $disabled optional, default false
  49          * @return object
  50          */
  51         public static function pollInterval($current, $disabled = false)
  52         {
  53                 $dis = (($disabled) ? ' disabled="disabled" ' : '');
  54                 $o = '';
  55                 $o .= "<select id=\"contact-poll-interval\" name=\"poll\" $dis />" . "\r\n";
  56
  57                 $rep = [
  58                         0 => L10n::t('Frequently'),
  59                         1 => L10n::t('Hourly'),
  60                         2 => L10n::t('Twice daily'),
  61                         3 => L10n::t('Daily'),
  62                         4 => L10n::t('Weekly'),
  63                         5 => L10n::t('Monthly')
  64                 ];
  65
  66                 foreach ($rep as $k => $v) {
  67                         $selected = (($k == $current) ? " selected=\"selected\" " : "");
  68                         $o .= "<option value=\"$k\" $selected >$v</option>\r\n";
  69                 }
  70                 $o .= "</select>\r\n";
  71                 return $o;
  72         }
  73
  74         /**
  75          * @param string $profile Profile URL
  76          * @return string Server URL
  77          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
  78          */
  79         private static function getServerURLForProfile($profile)
  80         {
  81                 $server_url = '';
  82
  83                 // Fetch the server url from the contact table
  84                 $contact = DBA::selectFirst('contact', ['baseurl'], ['uid' => 0, 'nurl' => Strings::normaliseLink($profile)]);
  85                 if (DBA::isResult($contact) && !empty($contact['baseurl'])) {
  86                         $server_url = Strings::normaliseLink($contact['baseurl']);
  87                 }
  88
  89                 if (empty($server_url)) {
  90                         // Fetch the server url from the gcontact table
  91                         $gcontact = DBA::selectFirst('gcontact', ['server_url'], ['nurl' => Strings::normaliseLink($profile)]);
  92                         if (!empty($gcontact) && !empty($gcontact['server_url'])) {
  93                                 $server_url = Strings::normaliseLink($gcontact['server_url']);
  94                         }
  95                 }
  96
  97                 if (empty($server_url)) {
  98                         // Create the server url out of the profile url
  99                         $parts = parse_url($profile);
 100                         unset($parts['path']);
 101                         $server_url = Strings::normaliseLink(Network::unparseURL($parts));
 102                 }
 103
 104                 return $server_url;
 105         }
 106
 107         /**
 108          * @param string $network network
 109          * @param string $profile optional, default empty
 110          * @return string
 111          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 112          */
 113         public static function networkToName($network, $profile = "")
 114         {
 115                 $nets = [
 116                         Protocol::DFRN      =>   L10n::t('DFRN'),
 117                         Protocol::OSTATUS   =>   L10n::t('OStatus'),
 118                         Protocol::FEED      =>   L10n::t('RSS/Atom'),
 119                         Protocol::MAIL      =>   L10n::t('Email'),
 120                         Protocol::DIASPORA  =>   L10n::t('Diaspora'),
 121                         Protocol::ZOT       =>   L10n::t('Zot!'),
 122                         Protocol::LINKEDIN  =>   L10n::t('LinkedIn'),
 123                         Protocol::XMPP      =>   L10n::t('XMPP/IM'),
 124                         Protocol::MYSPACE   =>   L10n::t('MySpace'),
 125                         Protocol::GPLUS     =>   L10n::t('Google+'),
 126                         Protocol::PUMPIO    =>   L10n::t('pump.io'),
 127                         Protocol::TWITTER   =>   L10n::t('Twitter'),
 128                         Protocol::DIASPORA2 =>   L10n::t('Diaspora Connector'),
 129                         Protocol::STATUSNET =>   L10n::t('GNU Social Connector'),
 130                         Protocol::ACTIVITYPUB => L10n::t('ActivityPub'),
 131                         Protocol::PNUT      =>   L10n::t('pnut'),
 132                 ];
 133
 134                 Hook::callAll('network_to_name', $nets);
 135
 136                 $search  = array_keys($nets);
 137                 $replace = array_values($nets);
 138
 139                 $networkname = str_replace($search, $replace, $network);
 140
 141                 if ((in_array($network, Protocol::FEDERATED)) && ($profile != "")) {
 142                         $server_url = self::getServerURLForProfile($profile);
 143
 144                         // Now query the GServer for the platform name
 145                         $gserver = DBA::selectFirst('gserver', ['platform', 'network'], ['nurl' => $server_url]);
 146
 147                         if (DBA::isResult($gserver)) {
 148                                 if (!empty($gserver['platform'])) {
 149                                         $platform = $gserver['platform'];
 150                                 } elseif (!empty($gserver['network']) && ($gserver['network'] != Protocol::ACTIVITYPUB)) {
 151                                         $platform = self::networkToName($gserver['network']);
 152                                 }
 153
 154                                 if (!empty($platform)) {
 155                                         $networkname = $platform;
 156
 157                                         if ($network == Protocol::ACTIVITYPUB) {
 158                                                 $networkname .= ' (AP)';
 159                                         }
 160                                 }
 161                         }
 162                 }
 163
 164                 return $networkname;
 165         }
 166
 167         /**
 168          * @param string $network network
 169          * @param string $profile optional, default empty
 170          * @return string
 171          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 172          */
 173         public static function networkToIcon($network, $profile = "")
 174         {
 175                 $nets = [
 176                         Protocol::DFRN      =>   'friendica',
 177                         Protocol::OSTATUS   =>   'gnu-social', // There is no generic OStatus icon
 178                         Protocol::FEED      =>   'rss',
 179                         Protocol::MAIL      =>   'file-text-o', /// @todo
 180                         Protocol::DIASPORA  =>   'diaspora',
 181                         Protocol::ZOT       =>   'hubzilla',
 182                         Protocol::LINKEDIN  =>   'linkedin',
 183                         Protocol::XMPP      =>   'xmpp',
 184                         Protocol::MYSPACE   =>   'file-text-o', /// @todo
 185                         Protocol::GPLUS     =>   'google-plus',
 186                         Protocol::PUMPIO    =>   'file-text-o', /// @todo
 187                         Protocol::TWITTER   =>   'twitter',
 188                         Protocol::DIASPORA2 =>   'diaspora',
 189                         Protocol::STATUSNET =>   'gnu-social',
 190                         Protocol::ACTIVITYPUB => 'activitypub',
 191                         Protocol::PNUT      =>   'file-text-o', /// @todo
 192                 ];
 193
 194                 $search  = array_keys($nets);
 195                 $replace = array_values($nets);
 196
 197                 $networkicon = str_replace($search, $replace, $network);
 198
 199                 if ((in_array($network, Protocol::FEDERATED)) && ($profile != "")) {
 200                         $server_url = self::getServerURLForProfile($profile);
 201
 202                         // Now query the GServer for the platform name
 203                         $gserver = DBA::selectFirst('gserver', ['platform'], ['nurl' => $server_url]);
 204
 205                         if (DBA::isResult($gserver) && !empty($gserver['platform'])) {
 206 /*
 207 BlackGerman.space
 208 ganggo
 209 groundpolis
 210 Juick
 211 misskey
 212 mobilizon
 213 MounKareal
 214 read.as
 215 social-relay
 216 twista
 217 writefreely
 218
 219 ostatus
 220 red
 221 redmatrix
 222 StatusNet
 223 */
 224                                 $icons = ['diaspora' => 'diaspora', 'friendica' => 'friendica', 'friendika' => 'friendica',
 225                                         'GNU Social' => 'gnu-social', 'gnusocial' => 'gnu-social', 'hubzilla' => 'hubzilla',
 226                                         'mastodon' => 'mastodon', 'peertube' => 'peertube', 'pixelfed' => 'pixelfed',
 227                                         'pleroma' => 'pleroma', 'socialhome' => 'social-home', 'wordpress' => 'wordpress'];
 228                                 $networkicon = $icons[strtolower($gserver['platform'])] ?? $networkicon;
 229                         }
 230                 }
 231
 232                 return $networkicon;
 233         }
 234
 235         /**
 236          * @param string $current optional, default empty
 237          * @param string $suffix  optionsl, default empty
 238          * @return string
 239          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 240          */
 241         public static function gender($current = "", $suffix = "")
 242         {
 243                 $o = '';
 244                 $select = [
 245                         ''                 => L10n::t('No answer'),
 246                         'Male'             => L10n::t('Male'),
 247                         'Female'           => L10n::t('Female'),
 248                         'Currently Male'   => L10n::t('Currently Male'),
 249                         'Currently Female' => L10n::t('Currently Female'),
 250                         'Mostly Male'      => L10n::t('Mostly Male'),
 251                         'Mostly Female'    => L10n::t('Mostly Female'),
 252                         'Transgender'      => L10n::t('Transgender'),
 253                         'Intersex'         => L10n::t('Intersex'),
 254                         'Transsexual'      => L10n::t('Transsexual'),
 255                         'Hermaphrodite'    => L10n::t('Hermaphrodite'),
 256                         'Neuter'           => L10n::t('Neuter'),
 257                         'Non-specific'     => L10n::t('Non-specific'),
 258                         'Other'            => L10n::t('Other'),
 259                         'Undecided'        => L10n::t('Undecided'),
 260                 ];
 261
 262                 Hook::callAll('gender_selector', $select);
 263
 264                 $o .= "<select name=\"gender$suffix\" id=\"gender-select$suffix\" size=\"1\" >";
 265                 foreach ($select as $neutral => $selection) {
 266                         if ($selection !== 'NOTRANSLATION') {
 267                                 $selected = (($neutral == $current) ? ' selected="selected" ' : '');
 268                                 $o .= "<option value=\"$neutral\" $selected >$selection</option>";
 269                         }
 270                 }
 271                 $o .= '</select>';
 272                 return $o;
 273         }
 274
 275         /**
 276          * @param string $current optional, default empty
 277          * @param string $suffix  optionsl, default empty
 278          * @return string
 279          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 280          */
 281         public static function sexualPreference($current = "", $suffix = "")
 282         {
 283                 $o = '';
 284                 $select = [
 285                         ''              => L10n::t('No answer'),
 286                         'Males'         => L10n::t('Males'),
 287                         'Females'       => L10n::t('Females'),
 288                         'Gay'           => L10n::t('Gay'),
 289                         'Lesbian'       => L10n::t('Lesbian'),
 290                         'No Preference' => L10n::t('No Preference'),
 291                         'Bisexual'      => L10n::t('Bisexual'),
 292                         'Autosexual'    => L10n::t('Autosexual'),
 293                         'Abstinent'     => L10n::t('Abstinent'),
 294                         'Virgin'        => L10n::t('Virgin'),
 295                         'Deviant'       => L10n::t('Deviant'),
 296                         'Fetish'        => L10n::t('Fetish'),
 297                         'Oodles'        => L10n::t('Oodles'),
 298                         'Nonsexual'     => L10n::t('Nonsexual'),
 299                 ];
 300
 301                 Hook::callAll('sexpref_selector', $select);
 302
 303                 $o .= "<select name=\"sexual$suffix\" id=\"sexual-select$suffix\" size=\"1\" >";
 304                 foreach ($select as $neutral => $selection) {
 305                         if ($selection !== 'NOTRANSLATION') {
 306                                 $selected = (($neutral == $current) ? ' selected="selected" ' : '');
 307                                 $o .= "<option value=\"$neutral\" $selected >$selection</option>";
 308                         }
 309                 }
 310                 $o .= '</select>';
 311                 return $o;
 312         }
 313
 314         /**
 315          * @param string $current optional, default empty
 316          * @return string
 317          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 318          */
 319         public static function maritalStatus($current = "")
 320         {
 321                 $o = '';
 322                 $select = [
 323                         ''                     => L10n::t('No answer'),
 324                         'Single'               => L10n::t('Single'),
 325                         'Lonely'               => L10n::t('Lonely'),
 326                         'In a relation'        => L10n::t('In a relation'),
 327                         'Has crush'            => L10n::t('Has crush'),
 328                         'Infatuated'           => L10n::t('Infatuated'),
 329                         'Dating'               => L10n::t('Dating'),
 330                         'Unfaithful'           => L10n::t('Unfaithful'),
 331                         'Sex Addict'           => L10n::t('Sex Addict'),
 332                         'Friends'              => L10n::t('Friends'),
 333                         'Friends/Benefits'     => L10n::t('Friends/Benefits'),
 334                         'Casual'               => L10n::t('Casual'),
 335                         'Engaged'              => L10n::t('Engaged'),
 336                         'Married'              => L10n::t('Married'),
 337                         'Imaginarily married'  => L10n::t('Imaginarily married'),
 338                         'Partners'             => L10n::t('Partners'),
 339                         'Cohabiting'           => L10n::t('Cohabiting'),
 340                         'Common law'           => L10n::t('Common law'),
 341                         'Happy'                => L10n::t('Happy'),
 342                         'Not looking'          => L10n::t('Not looking'),
 343                         'Swinger'              => L10n::t('Swinger'),
 344                         'Betrayed'             => L10n::t('Betrayed'),
 345                         'Separated'            => L10n::t('Separated'),
 346                         'Unstable'             => L10n::t('Unstable'),
 347                         'Divorced'             => L10n::t('Divorced'),
 348                         'Imaginarily divorced' => L10n::t('Imaginarily divorced'),
 349                         'Widowed'              => L10n::t('Widowed'),
 350                         'Uncertain'            => L10n::t('Uncertain'),
 351                         'It\'s complicated'    => L10n::t('It\'s complicated'),
 352                         'Don\'t care'          => L10n::t('Don\'t care'),
 353                         'Ask me'               => L10n::t('Ask me'),
 354                 ];
 355
 356                 Hook::callAll('marital_selector', $select);
 357
 358                 $o .= '<select name="marital" id="marital-select" size="1" >';
 359                 foreach ($select as $neutral => $selection) {
 360                         if ($selection !== 'NOTRANSLATION') {
 361                                 $selected = (($neutral == $current) ? ' selected="selected" ' : '');
 362                                 $o .= "<option value=\"$neutral\" $selected >$selection</option>";
 363                         }
 364                 }
 365                 $o .= '</select>';
 366                 return $o;
 367         }
 368 }