1 files changed, 173 insertions, 0 deletions
diff --git a/addon/randplace/randplace.php b/addon/randplace/randplace.php
new file mode 100644
index 000000000..6d9fc0382
--- /dev/null
+++ b/addon/randplace/randplace.php
@@ -0,0 +1,173 @@
+<?php
+
+/**
+ * Sample Friendika plugin/addon
+ *
+ * Addon Name: randplace
+ *
+ */
+
+/**
+ *
+ * Addons are registered with the system in the
+ * .htconfig.php file.
+ *
+ * $a->config['system']['addon'] = 'plugin1,plugin2,etc.';
+ *
+ * When registration is detected, the system calls the plugin
+ * name_install() function, located in 'addon/name/name.php',
+ * where 'name' is the name of the addon.
+ * If the addon is removed from the configuration list, the 
+ * system will call the name_unistall() function.
+ *
+ */
+
+
+function randplace_install() {
+
+	/**
+	 * 
+	 * Our demo plugin will attach in three places.
+	 * The first is just prior to storing a local post.
+	 *
+	 */
+
+	register_hook('post_local', 'addon/randplace/randplace.php', 'randplace_post_hook');
+
+	/**
+	 *
+	 * Then we'll attach into the settings page, on both the 
+	 * form and post hooks so that we can create and update
+	 * user preferences.
+	 *
+	 */
+
+	register_hook('settings_form', 'addon/randplace/randplace.php', 'randplace_settings');
+	register_hook('settings_post', 'addon/randplace/randplace.php', 'randplace_settings_post');
+
+	logger("installed randplace");
+}
+
+
+function randplace_uninstall() {
+
+	/**
+	 *
+	 * uninstall unregisters any hooks created with register_hook
+	 * during install. It may also delete configuration settings
+	 * and any other cleanup.
+	 *
+	 */
+
+	unregister_hook('post_local',    'addon/randplace/randplace.php', 'randplace_post_hook');
+	unregister_hook('settings_form', 'addon/randplace/randplace.php', 'randplace_settings');
+	unregister_hook('settings_post', 'addon/randplace/randplace.php', 'randplace_settings_post');
+
+
+	logger("removed randplace");
+}
+
+
+
+function randplace_post_hook($a, &$item) {
+
+	/**
+	 *
+	 * An item was posted on the local system.
+	 * We are going to look for specific items:
+	 *      - A status post by a profile owner
+	 *      - The profile owner must have allowed our plugin
+	 *
+	 */
+
+	logger('randplace invoked');
+
+	if(! local_user())   /* non-zero if this is a logged in user of this system */
+		return;
+
+	if(local_user() != $item['uid'])    /* Does this person own the post? */
+		return;
+
+	if($item['parent'])   /* If the item has a parent, this is a comment or something else, not a status post. */
+		return;
+
+	/* Retrieve our personal config setting */
+
+	$active = get_pconfig(local_user(), 'randplace', 'enable');
+
+	if(! $active)
+		return;
+
+	/**
+	 *
+	 * OK, we're allowed to do our stuff.
+	 * Here's what we are going to do:
+	 * load the list of timezone names, and use that to generate a list of world cities.
+	 * Then we'll pick one of those at random and put it in the "location" field for the post.
+	 *
+	 */
+
+	$cities = array();
+	$zones = timezone_identifiers_list();
+	foreach($zones as $zone) {
+		if(strpos($zone,'/'))
+			$cities[] = str_replace('_', ' ',substr($zone,strpos($zone,'/') + 1));
+	}
+
+	if(! count($cities))
+		return;
+	$city = array_rand($cities,1);
+	$item['location'] = $cities[$city];
+
+	return;
+}
+
+
+
+
+/**
+ *
+ * Callback from the settings post function.
+ * $post contains the $_POST array.
+ * We will make sure we've got a valid user account
+ * and if so set our configuration setting for this person.
+ *
+ */
+
+function randplace_settings_post($a,$post) {
+	if(! local_user())
+		return;
+	set_pconfig(local_user(),'randplace','enable',intval($_POST['randplace']));
+}
+
+
+/*
+ * Called from the end of the settings form. 
+ * Add our own settings info to the page.
+ *
+ */
+
+
+
+function randplace_settings(&$a,&$s) {
+
+	if(! local_user())
+		return;
+
+	$a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/randplace/randplace.css' . '" media="all" />' . "\r\n";
+
+	$enabled = get_pconfig(local_user(),'randplace','enable');
+
+	$checked = (($enabled) ? ' checked="checked" ' : '');
+
+	$s .= '<h3>' . t('Randplace Settings') . '</h3>';
+	$s .= '<div id="randplace-enable-wrapper">';
+	$s .= '<label id="randplace-enable-label" for="randplace-enable">' . t('Enable Randplace Plugin') . '</label>';
+	$s .= '<input id="randplace-checkbox" type="checkbox" name="randplace" value="1" ' . $checked . '/>';
+	$s .= '</div><div class="clear"></div>';
+
+	// provide another submit button
+
+	$s .= '<div class="settings-submit-wrapper" ><input type="submit" name="submit" class="settings-submit" value="' . t('Submit') . '" /></div>';
+
+}
+\ No newline at end of file