Ticket #3291: retrieve_op_conf_from_mysql.php

#!/usr/bin/php
<?php

# Retrieves the sip user/peer entries from the database for the flash operator panel

include("/var/www/html/admin/functions.inc.php");
include("DB.php");

################### BEGIN OF CONFIGURATION ####################

if ($argc == 2)
{
  $amportalconf = $argv[0];
  $zapataconf = $argv[1]."/zapata.conf";
  $zapataautoconf = $argv[1]."/zapata-auto.conf";
} else
{
  $amportalconf = "/etc/amportal.conf";
  $zapataconf="/etc/asterisk/zapata.conf";
  $zapataautoconf="/etc/asterisk/zapata-auto.conf";
}

######## LAYOUT INFO #########

# NOTE - These values may be overwritten by values in a table in the freepbx database named "panel"

# structure is - ID, Legend, startpos, stoppos, color1, color2
$rectangle1 = array("trunk","Trunks", 53, 80, "10ff10", "009900");
$rectangle2 = array("extension","Extensions", 1, 40, "1010ff", "99cccc");
$rectangle3 = array("parking","Parking lots", 49, 72, "ffff10", "cc9933");
$rectangle4 = array("conference","Conferences", 45, 68, "006666", "00a010");
$rectangle5 = array("queue","Queues", 41, 64, "ff1010", "a01000");
$rectangles = array($rectangle1,$rectangle2,$rectangle3,$rectangle4,$rectangle5);

$rectmarginx = 1;
$rectmarginy = 1;
$legendoffsetx = 3;
$legendoffsety = 1;

# $layoutbuttonsonly = 0 : allow display of buttons even if no corresponding layout info
# $layoutbuttonsonly = 1 : suppress display of buttons if no corresponding layout info
$layoutbuttonsonly = 1;

######## BUTTON INFO #########
$buttonsizex = 246; # 1+244+1 from information in op_style.cfg
$buttonsizey = 28; # 1+26+1 from information in op_style.cfg
$numbuttonsx = 4;
$numbuttonsy = 20;
$buttonsoriginx = -1;
$buttonsoriginy = 32;


######## STYLE INFO #########

# NOTE - These values may be overwritten by the syleinfo function with values generated from the layout info

$extenpos="2-40";
$trunkpos="53-60,72-80";
$parkingpos="50-51,69-71";
$confepos="46-48,65-68";
$queuepos="42-44,61-64";



# Remove or add Zap trunks as needed
# Note: ZAP/* will match any ZAP channel that *is not referenced* in another button (ie: extensions)
$zaplines=array(); # zap channel, description
#array_push($zaplines,array( "Zap/*","PSTN" ));
#array_push($zaplines,array( "Zap/1","Zap 1" ));
#array_push($zaplines,array( "Zap/2","Zap 2" ));
#array_push($zaplines,array( "Zap/3","Zap 3" ));
#array_push($zaplines,array( "Zap/4","Zap 4" ));



if (file_exists($zapataconf)) {
  $zaplines = parse_zapata($zapataconf);
}
// would be better if it followed the includes in zapata.conf in case there are other zapataxxx.conf files
if (file_exists($zapataautoconf)) {
  $zaplines = parse_zapata($zapataautoconf);
}

function parse_zapata($conffile) {
  # LETS PARSE zapata.conf
  # Allowed format options
  # %c Zap Channel number
  # %n Line number
  # %N Line number, but restart counter
  # Example:
  # ;AMPLABEL:Channel %c - Button %n

  global $zaplines;
  global $ampwildcard;
  global $zaplabel;
  global $istrunk;
  global $lastlabelnum;

  if (!isset($zaplabel)) {$zaplabel="Zap \%c";}
  $lastlabelnum=0; //should be safe as long as channel defs are not spread across files
  $ampwildcard=false;
  $filearray = file($conffile);
  if ($filearray === false) {die("Cannot open config file: $conffile\n");}
  foreach ($filearray as $line) {
    $line = trim($line);
    if ($line == '') {next;}
    $temparray = @explode(";AMPWILDCARDLABEL(",$line,2);
    if (count($temparray) == 2) {

     $temparray = @explode("):",$temparray[1],2);
     if (count($temparray) != 2)  {next;}
     array_push($zaplines,array("Zap/*",trim($temparray[1]),($temparray[0])));
     $ampwildcard=true;
     next;
    }

    $temparray = @explode(";AMPLABEL:",$line,2);
    if (count($temparray) == 2) {
     $zaplabel=trim($temparray[1]);
     $ampwildcard=false;
     if (strpos($temparray[1],"%N") === false) {next;}
     $lastlabelnum=0;
     next;
    }

                # check if trunk or extension
                //note that some versions of php do not support !== but only ===
                if (!(strpos($line,"context=from-pstn") === false)) {
                        $istrunk=true;
                        next;
                }
                if (!(strpos($line,"context=from-zaptel") === false)) {
                        $istrunk=true;
                        next;
                }
                if (!(strpos($line,"context=from-internal") === false)) {
                        $istrunk=false;
                        next;
                }

    $crud = array(" ", "\t" , ">");
    $line = str_replace($crud,"",$line);
    $line = trim($line);
    $temparray = @explode("channel=",$line,2);
    if ((count($temparray) == 2) and ($ampwildcard === false))  {
      $temparray = @explode(",",$temparray[1],2);
      foreach ($temparray as $range) {
        list($start,$end) = @explode("-",$range,2);
        if (!isset($end)) {$end = $start;}
        for ($i = $start; $i <= $end; $i++) {
          $lastlabelnum++;
          $newlabel=$zaplabel;
          $newlabel=str_replace("%c",$i,$newlabel);
          $newlabel=str_replace("%n",$lastlabelnum,$newlabel);
          $newlabel=str_replace("%N",$lastlabelnum,$newlabel);

# only add if A) this is a trunk
# and B) we have not already defined any zaplines at the top of the file
# (I use this to customize it so instead of saying "Zap 1" it will
# say something more useful -- like the phone # of the line)

          if($istrunk) {
            $inzaplines=false;
            foreach ($zaplines as $tempvalue) {
              if($tempvalue[0] == "Zap/$i") {
                $inzaplines=true;
                break;
              }
            }

            if (!($inzaplines)) {
              array_push($zaplines,array( "Zap/$i","$newlabel" ));
            }
          } //istrunk
        } //for $i
      } //foreach $range
    } // if "channel="
  } //foreach $line
  return $zaplines;
}
#Finished parsing zapata.conf


# Conference Rooms not yet implemented in AMP config
$conferences=array();   #### ext#, description
#array_push($conferences,array( "810","Conf.10" ));
#array_push($conferences,array( "811","Conf.11" ));

# cool hack by Julien BLACHE <jblache@debian.org>
$ampconf = parse_amportal_conf( $amportalconf );
# WARNING: this file will be substituted by the output of this program
$op_conf = $ampconf["AMPWEBROOT"]."/panel/op_buttons_additional.cfg";
# username to connect to the database
$username = $ampconf["AMPDBUSER"];
# password to connect to the database
$password = $ampconf["AMPDBPASS"];
# the name of the box the MySQL database is running on
$hostname = $ampconf["AMPDBHOST"];
# the name of the database our tables are kept
$database = $ampconf["AMPDBNAME"];
#sort option: extension or lastname
$sortoption = $ampconf["FOPSORT"];

# the engine to be used for the SQL queries,
# if none supplied, backfall to mysql
$db_engine = "mysql";
if (isset($ampconf["AMPDBENGINE"])){
  $db_engine = $ampconf["AMPDBENGINE"];
}
################### END OF CONFIGURATION #######################

$warning_banner =
"; do not edit this file, this is an auto-generated file by freepbx
; all modifications must be done from the web gui
";

switch ($db_engine)
{
        case "pgsql":
        case "mysql":
                /* datasource in in this style:
                dbengine://username:password@host/database */

                $datasource = $db_engine.'://'.$username.':'.$password.'@'.$hostname.'/'.$database;
                $db = DB::connect($datasource); // attempt connection
                break;

        case "sqlite":
                require_once('DB/sqlite.php');

                if (!isset($amp_conf["AMPDBFILE"]))
                        die("You must setup properly AMPDBFILE in /etc/amportal.conf");

                if (isset($amp_conf["AMPDBFILE"]) == "")
                        die("AMPDBFILE in /etc/amportal.conf cannot be blank");

                $DSN = array (
                        "database" => $amp_conf["AMPDBFILE"],
                        "mode" => 0666
                );

                $db = new DB_sqlite();
                $db->connect( $DSN );
                break;

        default:
                die( "Unknown SQL engine: [$db_engine]");
}

if(DB::isError($db)) {
       echo("FAILED\n");
       echo("Cannot connect to database\n");
     die($db->getMessage());

}

# Get layout-info from a "panel" table in the freepbx database
if (table_exists($db,"panel")) {


  $statement = "SELECT id, legend, startpos, stoppos, color1, color2 from panel";
  $results = $db->getAll($statement);
  if(DB::IsError($results)) {
     die($results->getMessage());
  }
  if (count($results) < 1) {
    print "Notice: no panel defined\n";
  }
  $rectangles = $results;
}

# Automated generation of style-info from layout-info
$autoextenpos=styleinfo("extension");
$autotrunkpos=styleinfo("trunk");
$autoparkingpos=styleinfo("parking");
$autoconfepos=styleinfo("conference");
$autoqueuepos=styleinfo("queue");

if ($layoutbuttonsonly == 1) {$extenpos = ""; $trunkpos = ""; $parkingpos = ""; $confepos = ""; $queuepos = "";}

if (isset($autoextenpos)) {$extenpos = $autoextenpos;}
if (isset($autotrunkpos)) {$trunkpos = $autotrunkpos;}
if (isset($autoparkingpos)) {$parkingpos = $autoparkingpos;}
if (isset($autoconfepos)) {$confepos = $autoconfepos;}
if (isset($autoqueuepos)) {$queuepos = $autoqueuepos;}


$fhandle = fopen($op_conf,"w" );
if ($fhandle === false) {die("Cannot create/overwrite config file: $op_conf \n");}
fwrite($fhandle, $warning_banner);

#First, populate extensions

$extensionlist=array();

if (table_exists($db,"devices")) {
  $statement = "SELECT description,id,dial,tech from devices";
  $results = $db->getAll($statement);
  if(DB::IsError($results)) {
     die($results->getMessage());
  }
  if (count($results) < 1) {
    print "Notice: no Devices defined\n";
  }
  $extensionlist = $results;
}
else { print "Table does not exist: devices\n"; }

# sort the extensions
foreach ($extensionlist as $key=>$extension) {
  $temparray = explode(" ",$extension[0]);
  $lastname[$key] = end($temparray);
  $extnum[$key] = $extension[1];
}

if  (isset($sortoption) && ($sortoption == "lastname")) {
  array_multisort($lastname,$extensionlist);
} else {
  array_multisort($extnum,SORT_STRING,$extensionlist);
}

#Next, populate queues
$queues=array();
if (table_exists($db,"queues_config")) {
  $statement = "SELECT extension,descr from queues_config order by extension";
  $results = $db->getAll($statement);
  if(DB::IsError($results)) {
     die($results->getMessage());
  }
  if (count($results) < 1) {
    print "Notice: no Queues defined\n";
  }
  $queues = $results;
}
else { print "Table does not exist: queues_config\n"; }


## SME server chnges

#Next, populate conferences
$conferences=array();
if(table_exists($db,"meetme")) {
  $statement = "SELECT exten,description FROM meetme ORDER BY exten";
  $results = $db->getAll($statement);
  if(DB::IsError($results)) {
     die($results->getMessage());
  }
  if (count($results) < 1) {
    print "Notice: no Conferences defined\n";
  }
  $conferences = $results;
}
else { print "Table does not exist: meetme\n"; }


#Next, populate parkings
$parkings=array();
if(table_exists($db,"parkinglot")) {
  $statement = "SELECT keyword,data FROM parkinglot";
  $results = $db->getAll($statement);
  if(DB::IsError($results)) {
     die($results->getMessage());
  }
  if (count($results) < 1) {
    print "Notice: no Parking Lots defined\n";
  }
  $parkings = $results;
}
else { print "Table does not exist: parkinglot\n"; }

## End of changes
#Next, populate trunks (sip and iax)
$trunklist=array();
$tables = array("sip","iax");
foreach ($tables as $table) {
  if (table_exists($db,$table)) {
    $statement = "SELECT data,id,'$table' from $table where keyword='account' and flags <> 1 and id>99990 group by data order by id";
    $results = $db->getAll($statement);
    if(DB::IsError($results)) {
       die($results->getMessage());
    }
    if (count($results) < 1) {
      print "Notice: no $table trunks defined\n";
    }
    $trunklist = array_merge($trunklist,$results);
}
else { print "Table does not exist: $table \n"; }
}

#Determine AMP Users
$ampusers=array(array("default","0","0"));
if (table_exists($db,"ampusers")) {
  $statement = 'SELECT deptname,extension_low,extension_high from ampusers WHERE NOT extension_low = "" AND NOT extension_high = ""';
    $results = $db->getAll($statement);
    if(DB::IsError($results)) {
       die($results->getMessage());
    }
    if (count($results) < 1) {
      print "Notice: no AMP Users defined\n";
    }
    else {
      $ampusers = $results;
    }
}
else { print "Table does not exist: ampusers\n"; }

#Write a separate panel context from each AMP User department
foreach ($ampusers as $pcontext) {
  $exten_low = $pcontext[1];
  $exten_high = $pcontext[2];
  $panelcontext = $pcontext[0];
  if ($panelcontext == "") { $panelcontext = $exten_low."to".$exten_high; }


  # WRITE EXTENSIONS

  $btn=0;
  if ($exten_low != 0 && $exten_high != 0) {  #display only allowed range of extensions for panel_contexts
    $extensionrange = array();
    foreach ($extensionlist as $value) {
      if (!is_numeric($value)) {array_push($extensionrange,$value);}
      if (($value >= $exten_low) && ($value <= $exten_high))  {array_push($extensionrange,$value);}
    }
  } else {
    $extensionrange = $extensionlist;
  }
  foreach ( $extensionrange as $row ) {
    $description = $row[0];
    $id = $row[1];
    $dial = $row[2];


    # Support for real mailbox settings -
    $tech = $row[3];
    # some sensible defaults for voicemail ext and context
    $vmext = $row[1];
    $vmcontext = "default";
    # the device tech table should also have a dial context - if not assume from-internal
    $context = "from-internal";
    # database table name for iax2 is just iax but sip and zap are ok
    if ($tech == "iax2") {$tech = "iax";}
    # get mailbox setting from relevant tech table and split into ext and content
    if (table_exists($db,$tech)) {
      $statement = "SELECT data from $tech WHERE id = '$id' AND keyword = 'mailbox' ";
      $results = $db->getAll($statement);
      if(DB::IsError($results)) {
         die($results->getMessage());
      }
      if (count($results) < 1) {
        print "Notice: no Mailboxes defined\n";
      }
      else {
      $mailbox = $results[0][0];
      $values = @explode('@', $mailbox,2);
      if (strlen($values[0]) > 0) {$vmext = $values[0];}
      if (strlen($values[1]) > 0) {$vmcontext = $values[1];}
      }
      #while in this table lets get the dial context as well
      $statement = "SELECT data from $tech WHERE id = '$id' AND keyword = 'context' ";
      $results = $db->getAll($statement);
      if(DB::IsError($results)) {
         die($results->getMessage());
      }
      if (count($results) < 1) {
        print "Notice: no Context defined\n";
      }
      else {
      $context = $results[0][0];
      }
    } else { print "Table does not exist: $tech\n"; }
    # - Support for real mailbox settings


    # Support for real VM_PREFIX -
    $vmprefix = "*";
    if (table_exists($db,"globals")) {
      $statement = "SELECT value from globals WHERE variable = 'VM_PREFIX' ";
      $results = $db->getAll($statement);
      if(DB::IsError($results)) {
         die($results->getMessage());
      }
      if (count($results) < 1) {
        print "Notice: no VM Prefix defined\n";
      }
      else {
      $vmprefix = $results[0][0];
      }
    } else { print "Table does not exist: global\n"; }
    # - Support for real VM_PREFIX

    $btn=get_next_btn($extenpos,$btn);
    $icon='4';
    fwrite($fhandle, "[$dial]\nPosition=$btn\nLabel=\"$id : $description\"\nExtension=$id\nContext=$context\nIcon=$icon\nVoicemail_Context=$vmcontext\nVoiceMailExt=$vmprefix$vmext@$context\nPanel_Context=$panelcontext\n");
  }


  ### NOW WRITE TRUNKS.. WE START WITH ZAP TRUNKS DEFINED ABOVE




  $btn=0;

  foreach ($zaplines as $row) {
    $zapdef=$row[0];
    $zapdesc=$row[1];
    $icon='3';
    # zaplines and trunklist share the trunk positions so need to store previous btn on overflow from zaplines
    $previousbtn = $btn;
    $btn=get_next_btn($trunkpos,$btn);
    if ($btn == 0) {$btn = $previousbtn; last;}
    if ($zapdef == "Zap/*") {
      $numbuttons=$row[2]-1;
      fwrite($fhandle, "[$zapdef]\nLabel=\"$zapdesc\"\nExtension=-1\nIcon=$icon\nPanel_Context=$panelcontext\nPosition=".$btn);
      while($numbuttons-->0) {
        $btn=get_next_btn($trunkpos,$btn);
        fwrite($fhandle, ",".$btn);
      }

      fwrite($fhandle, "\n");
    } else {
      fwrite($fhandle, "[$zapdef]\nPosition=$btn\nLabel=\"$zapdesc\"\nExtension=-1\nIcon=$icon\nPanel_Context=$panelcontext\n");
    }
  }


  foreach ($trunklist as $row) {
    $account = $row[0];
    $id = $row[1];
    $table = $row[2];
    if ($account == "") {next;};
    $btn=get_next_btn($trunkpos,$btn);
    if ($btn == 0) {last;}
    if (table_exists($db,$table)) {
    $statement = "SELECT keyword,data from $table where id=$id and keyword <> 'account' and flags <> 1 order by keyword";
      $results = $db->getAll($statement);
      if(DB::IsError($results)) {
         die($results->getMessage());
      }
      if (count($results) < 1) {
        print "Notice: no Trunks defined\n";
      }
    } else { print "Table does not exist: $table \n"; }

    if ($table == "sip") {$tech="SIP";}
    if ($table == "iax") {$tech="IAX2";}
    #if ($table == "zap") {$tech="ZAP";} #no zap trunks in db

    $callerid = $account;  #default callerid to account

    foreach ($results as $drow) {
      if ( $drow[0] == "callerid" ) {
        $callerid = $drow[1];
        $fields = explode("<",$callerid);
        $callerid=$fields[1] ." ". $fields[0];
        $callerid = str_replace("\t","",$callerid);
        $callerid = str_replace("\"","",$callerid);
        $callerid = str_replace("<","",$callerid);
        $callerid = str_replace(">","",$callerid);
      }
    }
    $icon='3';
    fwrite($fhandle, "[$tech/$account]\nPosition=$btn\nLabel=\"$callerid\"\nExtension=-1\nIcon=$icon\nPanel_Context=$panelcontext\n");
  }


  ## SME server changes



        ### Write Parkings lots
  $btn=0;
  $parken="" ;
  $extpark ;
  $parkcontext ;
  $numberlots ;
  $maxparkingslots ;

  foreach ($parkings as $row) {
    if ($row[0] == "parkingenabled") {
      $parken = $row[1] ;
    }
    if ($row[0] == "parkext") {
      $extpark = $row[1] ;
    }
    if ($row[0] == "parkingcontext") {
      $parkcontext = $row[1] ;
    }
    if ($row[0] == "numslots") {
      $numberlots = $row[1] ;
    }
  }
  if ($parken == "s") {
    for ($i = 1 ; $i <= $numberlots ; $i++ ) {
      $btn=get_next_btn($parkingpos,$btn);
      if ($btn == 0) {last;}
      $parknum = $extpark + $i ;
      $icon='1';
      fwrite($fhandle, "[PARK$parknum]\nPosition=$btn\nLabel=\"Parked ($parknum)\"\nExtension=$parknum\nContext=$parkcontext\nIcon=$icon\nPanel_Context=$panelcontext\n");
    }
  }

  ## End of chagnes
  ### Write conferences (meetme)

  $btn=0;
  if ($exten_low != 0 && $exten_high != 0) {  #display only allowed range of extensions for panel_contexts
    $confrange = array();
    foreach ($conferences as $value) {
      if (!is_numeric($value)) {array_push($confrange,$value);}
      if (($value >= $exten_low) && ($value <= $exten_high))  {array_push($confrange,$value);}
    }
  } else {
    $confrange = $conferences;
  }
  foreach ($confrange as $row) {
    $btn=get_next_btn($confepos,$btn);
    if ($btn == 0) {last;}
    $confenum=$row[0];
    $confedesc=$row[1];
    $icon='6';
    fwrite($fhandle, "[$confenum]\nPosition=$btn\nLabel=\"$confedesc\"\nExtension=$confenum\nContext=from-internal\nIcon=$icon\nPanel_Context=$panelcontext\n");
  }

  ### Write Queues

  $btn=0;
  if ($exten_low != 0 && $exten_high != 0) {  #display only allowed range of extensions for panel_contexts
    $queuerange = array();
    foreach ($queues as $value) {
      if (!is_numeric($value)) {array_push($queuerange,$value);}
      if (($value >= $exten_low) && ($value <= $exten_high))  {array_push($queuerange,$value);}
    }
  } else {
    $queuerange = $queues;
  }
  foreach ($queuerange as $row) {
    $btn=get_next_btn($queuepos,$btn);
    if ($btn == 0) {last;}
    $queuename=$row[0];
    $queuedesc=$row[1];
    $icon='5';
    fwrite($fhandle, "[QUEUE/$queuename]\nPosition=$btn\nLabel=\"$queuedesc\"\nExtension=-1\nContext=from-internal\nIcon=$icon\nPanel_Context=$panelcontext\n");
  }

  ### Write rectangles

  foreach ($rectangles as $rect) {
    $comment = $rect[0];
    $color1 = $rect[4];
    $color2 = $rect[5];
    $start = $rect[2];
    $stop = $rect[3];

    $xposition = $buttonsoriginx + $buttonsizex * floor(($start-1)/$numbuttonsy);
    $yposition = $buttonsoriginy + $buttonsizey * (($start-1)%$numbuttonsy);
    $xsize = $buttonsizex * (1 + floor(($stop-1)/$numbuttonsy) - floor(($start-1)/$numbuttonsy));
    $ysize = $buttonsizey * (1 + (($stop-1)%$numbuttonsy) - (($start-1)%$numbuttonsy));

    if (($xsize <= 0) || ($ysize <= 0)) {next;}

    $xposition += $rectmarginx;
    $yposition += $rectmarginy;
    $xsize -= 2 * $rectmarginx;
    $ysize -= 2 * $rectmarginy;

    fwrite($fhandle, "\n; $comment\n[rectangle]\nx=$xposition\ny=$yposition\nwidth=$xsize\nheight=$ysize\nline_width=0\nline_color=$color1\nfade_color1=$color1\nfade_color2=$color2\nrnd_border=2\nalpha=20\nlayer=bottom\n");
  }

  ### Write legends

  foreach ($rectangles as $legend) {
    $text = $legend[1];
    $start = $legend[2];
    $stop = $legend[3];

    $xposition = $buttonsoriginx + $buttonsizex * floor(($start-1)/$numbuttonsy);
    $yposition = $buttonsoriginy + $buttonsizey * (($start-1)%$numbuttonsy);
    $xsize = $buttonsizex * (1 + floor(($stop-1)/$numbuttonsy) - floor(($start-1)/$numbuttonsy));
    $ysize = $buttonsizey * (1 + (($stop-1)%$numbuttonsy) - (($start-1)%$numbuttonsy));

    if (($xsize <= 0) || ($ysize <= 0)) {next;}

    $xposition += $legendoffsetx;
    $yposition += $legendoffsety;

    fwrite($fhandle, "\n[LEGEND]\nx=$xposition\ny=$yposition\ntext=$text\nfont_size=18\nfont_family=Arial\nuse_embed_fonts=1\n");
  }

}

function get_next_btn($data,$last) {
  $rangelist=explode(",",$data);
  foreach ($rangelist as $range) {
    $rangeval=explode("-",$range,2);
    if ($last < $rangeval[0]) {return $rangeval[0] ;}
    if (isset($rangeval[1]) && ($last < $rangeval[1])) {return $last+1;}
    #Need to try another range def...
  }
  #If we get here, we ran out of positions :(
  return 0; #?????
}
#this sub checks for the existance of a table
function table_exists($db,$table) {
         $result = mysql_query("SHOW TABLES LIKE '" . $table . "'");
         if(mysql_fetch_row($result) === false) {return(false);}
         return(true);
         }

function styleinfo($id) {
  global $rectangles;
  global $numbuttonsx;
  global $numbuttonsy;

  foreach ($rectangles as $rect) {
    if ($id == $rect[0]) {

      $start = $rect[2];
      $stop = $rect[3];

      $xposition = floor(($start-1)/$numbuttonsy);
      $yposition = (($start-1)%$numbuttonsy);
      $xsize = 1 + floor(($stop-1)/$numbuttonsy) - floor(($start-1)/$numbuttonsy);
      $ysize = 1 + (($stop-1)%$numbuttonsy) - (($start-1)%$numbuttonsy);

      if (($xsize <= 0) || ($ysize <= 0)) {print "Warning: rectange '$id' has negative area\n"; last;}
      $styleinfo = "";
      if ($ysize > 2) {
        $styleinfo .= ($start + 1) . "-" . ($start + $ysize - 1) . ",";
      }
      elseif ($ysize == 2) {
        $styleinfo .= ($start + 1) . ",";
      }

      for ($i = 1 ; $i < $xsize ; $i++ ) {
        if ($ysize > 1) {
          $styleinfo .= (($i + $xposition) * $numbuttonsy + $yposition + 1) . "-" . (($i + $xposition) * $numbuttonsy + $yposition + $ysize) . ",";
        }
        else {
          $styleinfo .= (($i + $xposition) * $numbuttonsy + $yposition + 1) . ",";
        }
      }
      $retval = $styleinfo;
      last;
    }
  }
  return $retval;
}
?>