irc_users.php

   1 <?php
   2 /*
   3  *      irc_users.php - this file is part of vomak - a very simple IRC bot
   4  *
   5  *      Copyright 2008 Enrico Tröger <enrico(dot)troeger(at)uvena(dot)de>
   6  *
   7  *      This program is free software; you can redistribute it and/or modify
   8  *      it under the terms of the GNU General Public License as published by
   9  *      the Free Software Foundation; either version 2 of the License, or
  10  *      (at your option) any later version.
  11  *
  12  *      This program is distributed in the hope that it will be useful,
  13  *      but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *      GNU General Public License for more details.
  16  *
  17  *      You should have received a copy of the GNU General Public License
  18  *      along with this program; if not, write to the Free Software
  19  *      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  20  */
  21
  22 /* This is a sample implementation in PHP to connect to vomak's socket
  23  * and send/retrieve some data */
  24
  25
  26 function not_empty($var)
  27 {
  28     return ($var != "");
  29 }
  30
  31
  32 $socket = socket_create(AF_UNIX, SOCK_STREAM, 0);
  33 if ($socket < 0)
  34 {
  35     echo "socket_create() failed:\nreason: " . socket_strerror($socket) . "\n";
  36 }
  37
  38 $result = socket_connect($socket, "/var/tmp/vomak_socket");
  39 if ($result < 0)
  40 {
  41     echo "socket_connect() failed.\reason: ($result) " . socket_strerror($result) . "\n";
  42 }
  43
  44 socket_write($socket, "userlist\r\n", 10);
  45 $users_tmp = socket_read($socket, 2048);
  46 socket_close($socket);
  47
  48 $users_tmp = str_replace("@ChanServ", "", $users_tmp);
  49 $users_tmp = str_replace("GeanyBot", "", $users_tmp);
  50 $users = explode(" ", trim($users_tmp));
  51 //print_r($users);
  52 $users = array_filter($users, "not_empty");
  53 $user_count = count($users);
  54
  55 echo "Currently $user_count users are connected:<br/>";
  56 foreach ($users as $u)
  57 {
  58     echo "$u ";
  59 }
  60 ?>