snautofollow/snautofollow.php

   1 <?php
   2 /**
   3  * Name: Snautofollow
   4  * Description: Automatic follow/friend of statusnet people who mention/follow you
   5  * Version: 1.0
   6  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
   7  *
   8  *
   9  */
  10
  11
  12 function snautofollow_install() {
  13
  14         register_hook('connector_settings', 'addon/snautofollow/snautofollow.php', 'snautofollow_settings');
  15         register_hook('connector_settings_post', 'addon/snautofollow/snautofollow.php', 'snautofollow_settings_post');
  16
  17 }
  18
  19
  20 function snautofollow_uninstall() {
  21         unregister_hook('connector_settings', 'addon/snautofollow/snautofollow.php', 'snautofollow_settings');
  22         unregister_hook('connector_settings_post', 'addon/snautofollow/snautofollow.php', 'snautofollow_settings_post');
  23
  24 }
  25
  26
  27 function snautofollow_settings_post($a,$post) {
  28         if(! local_user() || (! x($_POST,'snautofollow-submit')))
  29                 return;
  30
  31         set_pconfig(local_user(),'system','ostatus_autofriend',intval($_POST['snautofollow']));
  32         info( t('StatusNet AutoFollow settings updated.') . EOL);
  33 }
  34
  35 function snautofollow_settings(&$a,&$s) {
  36
  37         if(! local_user())
  38                 return;
  39
  40         /* Add our stylesheet to the page so we can make our settings look nice */
  41
  42         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/snautofollow/snautofollow.css' . '" media="all" />' . "\r\n";
  43
  44         /* Get the current state of our config variable */
  45
  46         $snautofollow = get_pconfig(local_user(),'system','ostatus_autofriend');
  47         if($snautofollow === false)
  48                 $snautofollow = false;
  49
  50         $snautofollow_checked = (($snautofollow) ? ' checked="checked" ' : '');
  51
  52
  53         /* Add some HTML to the existing form */
  54
  55         $s .= '<div class="settings-block">';
  56         $s .= '<h3>' . t('StatusNet AutoFollow Settings') . '</h3>';
  57         $s .= '<div id="snautofollow-wrapper">';
  58         $s .= '<label id="snautofollow-label" for="snautofollow-checkbox">' . t('Automatically follow any StatusNet followers/mentioners') . '</label>';
  59         $s .= '<input id="snautofollow-checkbox" type="checkbox" name="snautofollow" value="1" ' . $snautofollow_checked . '/>';
  60         $s .= '</div><div class="clear"></div>';
  61
  62         /* provide a submit button */
  63
  64         $s .= '<div class="settings-submit-wrapper" ><input type="submit" name="snautofollow-submit" class="settings-submit" value="' . t('Submit') . '" /></div></div>';
  65
  66 }