diff --git a/src/Content/ContactSelector.php b/src/Content/ContactSelector.php
new file mode 100644
index 0000000000..c3db2406e3
--- /dev/null
+++ b/src/Content/ContactSelector.php
@@ -0,0 +1,119 @@
+\r\n";
+
+ $r = q("SELECT `id`, `profile-name`, `is-default` FROM `profile` WHERE `uid` = %d",
+ intval($_SESSION['uid']));
+
+ if (DBM::is_result($r)) {
+ foreach ($r as $rr) {
+ $selected = (($rr['id'] == $current || ($current == 0 && $rr['is-default'] == 1)) ? " selected=\"selected\" " : "");
+ $o .= "\r\n";
+ }
+ }
+ $o .= "\r\n";
+ return $o;
+ }
+
+ function contact_reputation($current) {
+
+ $o = '';
+ $o .= "\r\n";
+
+ $rep = array(
+ 0 => t('Unknown | Not categorised'),
+ 1 => t('Block immediately'),
+ 2 => t('Shady, spammer, self-marketer'),
+ 3 => t('Known to me, but no opinion'),
+ 4 => t('OK, probably harmless'),
+ 5 => t('Reputable, has my trust')
+ );
+
+ foreach ($rep as $k => $v) {
+ $selected = (($k == $current) ? " selected=\"selected\" " : "");
+ $o .= "\r\n";
+ }
+ $o .= "\r\n";
+ return $o;
+ }
+
+ function contact_poll_interval($current, $disabled = false) {
+
+ $dis = (($disabled) ? ' disabled="disabled" ' : '');
+ $o = '';
+ $o .= "" . "\r\n";
+
+ $rep = array(
+ 0 => t('Frequently'),
+ 1 => t('Hourly'),
+ 2 => t('Twice daily'),
+ 3 => t('Daily'),
+ 4 => t('Weekly'),
+ 5 => t('Monthly')
+ );
+
+ foreach ($rep as $k => $v) {
+ $selected = (($k == $current) ? " selected=\"selected\" " : "");
+ $o .= "\r\n";
+ }
+ $o .= "\r\n";
+ return $o;
+ }
+
+ function network_to_name($s, $profile = "") {
+
+ $nets = array(
+ NETWORK_DFRN => t('Friendica'),
+ NETWORK_OSTATUS => t('OStatus'),
+ NETWORK_FEED => t('RSS/Atom'),
+ NETWORK_MAIL => t('Email'),
+ NETWORK_DIASPORA => t('Diaspora'),
+ NETWORK_FACEBOOK => t('Facebook'),
+ NETWORK_ZOT => t('Zot!'),
+ NETWORK_LINKEDIN => t('LinkedIn'),
+ NETWORK_XMPP => t('XMPP/IM'),
+ NETWORK_MYSPACE => t('MySpace'),
+ NETWORK_GPLUS => t('Google+'),
+ NETWORK_PUMPIO => t('pump.io'),
+ NETWORK_TWITTER => t('Twitter'),
+ NETWORK_DIASPORA2 => t('Diaspora Connector'),
+ NETWORK_STATUSNET => t('GNU Social Connector'),
+ NETWORK_PNUT => t('pnut'),
+ NETWORK_APPNET => t('App.net')
+ );
+
+ call_hooks('network_to_name', $nets);
+
+ $search = array_keys($nets);
+ $replace = array_values($nets);
+
+ $networkname = str_replace($search, $replace, $s);
+
+ if ((in_array($s, array(NETWORK_DFRN, NETWORK_DIASPORA, NETWORK_OSTATUS))) && ($profile != "")) {
+ $r = dba::fetch_first("SELECT `gserver`.`platform` FROM `gcontact`
+ INNER JOIN `gserver` ON `gserver`.`nurl` = `gcontact`.`server_url`
+ WHERE `gcontact`.`nurl` = ? AND `platform` != ''", normalise_link($profile));
+
+ if (DBM::is_result($r)) {
+ $networkname = $r['platform'];
+ }
+ }
+
+ return $networkname;
+ }
+}