123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321 |
- <?php
- if (!defined('STATUSNET') && !defined('LACONICA')) { exit(1); }
- require_once INSTALLDIR.'/lib/command.php';
- class CommandInterpreter
- {
- function handle_command($user, $text)
- {
-
- $text = preg_replace('/\s+/', ' ', trim($text));
- list($cmd, $arg) = self::split_arg($text);
-
-
-
-
- $cmd = strtolower($cmd);
- $result = false;
- if (Event::handle('StartInterpretCommand', array($cmd, $arg, $user, &$result))) {
- switch($cmd) {
- case 'help':
- if ($arg) {
- $result = null;
- } else {
- $result = new HelpCommand($user);
- }
- break;
- case 'login':
- if ($arg) {
- $result = null;
- } else {
- $result = new LoginCommand($user);
- }
- break;
- case 'lose':
- if ($arg) {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new LoseCommand($user, $other);
- }
- } else {
- $result = null;
- }
- break;
- case 'subscribers':
- if ($arg) {
- $result = null;
- } else {
- $result = new SubscribersCommand($user);
- }
- break;
- case 'subscriptions':
- if ($arg) {
- $result = null;
- } else {
- $result = new SubscriptionsCommand($user);
- }
- break;
- case 'groups':
- if ($arg) {
- $result = null;
- } else {
- $result = new GroupsCommand($user);
- }
- break;
- case 'on':
- if ($arg) {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new OnCommand($user, $other);
- }
- } else {
- $result = new OnCommand($user);
- }
- break;
- case 'off':
- if ($arg) {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new OffCommand($user, $other);
- }
- } else {
- $result = new OffCommand($user);
- }
- break;
- case 'stop':
- case 'quit':
- if ($arg) {
- $result = null;
- } else {
- $result = new OffCommand($user);
- }
- break;
- case 'join':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new JoinCommand($user, $other);
- }
- }
- break;
- case 'drop':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new DropCommand($user, $other);
- }
- }
- break;
- case 'follow':
- case 'sub':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new SubCommand($user, $other);
- }
- }
- break;
- case 'leave':
- case 'unsub':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new UnsubCommand($user, $other);
- }
- }
- break;
- case 'get':
- case 'last':
- if (!$arg) {
- $result = null;
- }
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new GetCommand($user, $other);
- }
- break;
- case 'r':
- case 'reply':
- if (!$arg) {
- $result = null;
- }
- list($other, $extra) = self::split_arg($arg);
- if (!$extra) {
- $result = null;
- } else {
- $result = new ReplyCommand($user, $other, $extra);
- }
- break;
- case 'whois':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new WhoisCommand($user, $other);
- }
- }
- break;
- case 'nudge':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new NudgeCommand($user, $other);
- }
- }
- break;
- case 'stats':
- if ($arg) {
- $result = null;
- } else {
- $result = new StatsCommand($user);
- }
- break;
- case 'invite':
- if (!$arg) {
- $result = null;
- } else {
- list($other, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else {
- $result = new InviteCommand($user, $other);
- }
- }
- break;
- case 'list':
- case 'tag':
- if (!$arg) {
- $result = null;
- break;
- }
- list($other, $tags) = self::split_arg($arg);
- if (!$tags) {
- $result = null;
- } else {
- $result = new TagCommand($user, $other, $tags);
- }
- break;
- case 'unlist':
- case 'untag':
- if (!$arg) {
- $result = null;
- break;
- }
- list($other, $tags) = self::split_arg($arg);
- if (!$tags) {
- $result = null;
- } else {
- $result = new UntagCommand($user, $other, $tags);
- }
- break;
- case 'track':
- if (!$arg) {
- $result = null;
- } else {
- list($word, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else if ($word == 'off') {
- $result = new TrackOffCommand($user);
- } else {
- $result = new TrackCommand($user, $word);
- }
- }
- break;
- case 'untrack':
- if (!$arg) {
- $result = null;
- } else {
- list($word, $extra) = self::split_arg($arg);
- if ($extra) {
- $result = null;
- } else if ($word == 'all') {
- $result = new TrackOffCommand($user);
- } else {
- $result = new UntrackCommand($user, $word);
- }
- }
- break;
- case 'tracks':
- case 'tracking':
- if ($arg) {
- $result = null;
- } else {
- $result = new TrackingCommand($user);
- }
- break;
- }
- Event::handle('EndInterpretCommand', array($cmd, $arg, $user, &$result));
- }
- return $result;
- }
-
- static function split_arg($text)
- {
- $pieces = explode(' ', $text, 2);
- if (count($pieces) == 1) {
- $pieces[] = null;
- }
- return $pieces;
- }
- }
|