root/modules/branches/2.10/core/agi-bin/list-item-remove.php

#!/usr/bin/php -q
<?php
//This file is part of FreePBX.
//
//    FreePBX is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation, either version 2 of the License, or
//    (at your option) any later version.
//
//    FreePBX is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//    You should have received a copy of the GNU General Public License
//    along with FreePBX.  If not, see <http://www.gnu.org/licenses/>.
//
//    Copyright 2007 Philippe Lindheimer

/*
Removes an item from a character delimited list.

Usage: list-item-remove.php list item varname [listseparator]

list: The list of strings separated by a character (example: 1&2&3)
item: The value of the item to remove
varname: The variable to return the new list in
listseparator: The separator.  This defaults to "&" if it is not specified.
*/

/* --------WARNING---------
 * 
 * This script is auto-copied from an included module and will get overwritten.
 * If you modify it, you must change it to write only, in the agi-bin directory,
 * to keep it from getting changed.
 */

include("phpagi.php");

$agi = new AGI;

if (!isset($argv[1])) {
        $agi->verbose("Missing list");
        exit(1);
}

if (!isset($argv[2])) {
        $agi->verbose("Missing item");
        exit(1);
}

if (!isset($argv[3])) {
        $agi->verbose("Missing return var name");
        exit(1);
}

$arglist = $argv[1];
$argitem = $argv[2];
$argvarname = $argv[3];

if (isset($argv[4])) {
        $argsep = "&";
} else {
        $argsep = $argv[4];
}

$newlist = str_replace($argitem.$argsep, "", $arglist.$argsep);

if (substr($newlist, -1, 1) == $argsep) {
        $newlist = substr($newlist, 0, -1);
}

$agi->set_variable($argvarname, $newlist);
?>