structure-qml.php

<pre>
<?php

/*
  structure reads the pluto_main database and deciphers a
  given skin and UI into a tree containing all relevant
  information to recreate the screen in another descriptive
  language / layout engine
*/

	include_once("lib.inc.php");

	error_reporting(E_ALL);

	function PrintWithIndent($value) {
	  static $indentCounter = 0;
	  global $screenFile;
	  
	  if (substr($value,0,4) == "<div") {
	    $indentCounter++;
	    $value = "";
	  }
	  if (substr($value,0,5) == "</div") {
	    $indentCounter--;
	    $value = "";
	  }
	  
	  $indentCounter = 1;
	  if ($value != "") {
            for ($i=0; $i<$indentCounter; $i++) {
              fwrite( $screenFile, "\t");
              // print "\t";
            }
            fwrite ($screenFile, $value);  
            // print $value;
          }
        }

        function getBackground($FK_DesignObj,$x=0,$y=0) {
          global $link;
          $background = "";
          $skin = "Basic";
          // Now we get the background image from the main variation (if such a thing exists)
          $query = "Select Value from DesignObjVariation_DesignObjParameter";
          $query .= " Join DesignObjVariation On FK_DesignObjVariation = PK_DesignObjVariation";
          $query .= " Where Value Is Not Null And Value <> '' And DesignObjVariation.FK_DesignObj = $FK_DesignObj and (FK_UI is null Or FK_UI = 1)";
          $query .= " Order By FK_UI Desc";
          $background = getMyValue($link,$query);          
          if (($background == 1) or ($background == "")) {
            $background = "";
          } else {
            // some path names for images still contain a backslash instead
            // of a forward slash, probably thanks to HADesigner's roots.
            $background = str_replace("\\","/",$background);
            // We do have spaces in there. Let's replace those with %20
            $background = str_replace(" ","%20",$background);
            // atm we hardcode the skin Basic
            $background = "skins/$skin/" . $background;
          }
          return $background;
        }
        
        function getDesignObjText($FK_DesignObj,$x=0,$y=0,$parentwidth,$parentheight) {
          global $link;
          $query = "select PK_DesignObjVariation,Text_LS.FK_Text,Text_LS.FK_Language,Text_LS.Description,";
          $query .= " DesignObjVariation_Text_Skin_Language.X, DesignObjVariation_Text_Skin_Language.Y,";
          $query .= " DesignObjVariation_Text_Skin_Language.Width, DesignObjVariation_Text_Skin_Language.Height,";
          $query .= " DesignObjVariation_Text_Skin_Language.*";
          $query .= " from DesignObjVariation";
          $query .= " Join DesignObjVariation_Text On PK_DesignObjVariation = FK_DesignObjVariation";
          $query .= " Join Text_LS On Text_LS.FK_Text = DesignObjVariation_Text.FK_Text";
          $query .= " Join DesignObjVariation_Text_Skin_Language On DesignObjVariation_Text_Skin_Language.FK_DesignObjVariation_Text = PK_DesignObjVariation_Text";
          $query .= " Where DesignObjVariation.FK_DesignObj = " . $FK_DesignObj;
          $query .= " And Text_LS.FK_Language = 1";
          $query .= " And (DesignObjVariation.FK_UI = 1 or DesignObjVariation.FK_UI IS NULL)";
          $query .= " And DesignObjVariation_Text_Skin_Language.FK_Skin Is Null";
          $query .= " Order By Text_LS.FK_Language";
          
          $arr = getMyArray($link,$query);
          $label = "";
          if (is_array($arr)) {
            outputGroupOn($FK_DesignObj);
            foreach ($arr as $designobj) {
              $designobj["X"] = $designobj["X"]+$x;
              $designobj["Y"] = $designobj["Y"]+$y;
              outputText($designobj,$parentwidth,$parentheight);
              // We only return the last label of the text. TODO - this might be problematic.
              $label = $designobj["Description"];
            }
            outputGroupOff();
          }
          return $label;
        }
        
        function getCommandGroup_D($FK_DesignObj,$onClick=0) {
          global $link;
          $query = "select FK_CommandGroup_D_OnActivate from DesignObjVariation Where FK_DesignObj = $FK_DesignObj";
          $query .= "      and (FK_UI is null Or FK_UI = 1) AND FK_CommandGroup_D_OnActivate != '';";
          $arr = getMyArray($link,$query);
          if (! empty($arr)) {
            PrintWithIndent( "function onActivate".$FK_DesignObj . "() \n");
            PrintWithIndent( "{\n");
            
            if ($onClick==0) {
//              PrintWithIndent( "<li>On ActivateCommandGroups</li>");
              outputGroupOn($FK_DesignObj);
            }

            foreach ($arr as $commandOnActivate) {
              if ($commandOnActivate["FK_CommandGroup_D_OnActivate"] != "") {
                OutputCommandGroup($commandOnActivate["FK_CommandGroup_D_OnActivate"]);  // i.e. FK_Command_Group_D = 9490
//                PrintWithIndent( "\t//DoCommand(" . $commandOnActivate["FK_CommandGroup_D_OnActivate"] . ")\n");
              }
            }
            PrintWithIndent("}\n");
            if ($onClick==0) {
              outputGroupOff();
            }
          }
        }

        function OutputCommandGroup($FK_CommandGroup_D) {
          global $link;
          $query = "SELECT PK_CommandGroup_D_Command,FK_Command,FK_DeviceTemplate,FK_DeviceCategory,BroadcastLevel,RelativeToSender From CommandGroup_D_Command WHERE FK_CommandGroup_D = $FK_CommandGroup_D Order By OrderNum;";
          $arr = getMyArray($link,$query);
          if (is_array($arr) <= 0) {
            return false;
          } else { 
            foreach($arr as $commandGroup_Command) {
              $destination = $commandGroup_Command["FK_DeviceTemplate"];
              $broadcastLevel = "";
              
              if ( ! is_null($commandGroup_Command["FK_DeviceCategory"]) ) {
                $destination = $commandGroup_Command["FK_DeviceCategory"];
              }
              
              if ( ! is_null($commandGroup_Command["BroadcastLevel"]) ) {
                $broadcastLevel = "-bl " . $commandGroup_Command["BroadcastLevel"];
              }            
              $query = "SELECT Description FROM Command WHERE PK_Command = " . $commandGroup_Command["FK_Command"];
              $commandDescription =  getMyValue($link,$query);
              PrintWithIndent (" // Calling Command " . $commandGroup_Command["FK_Command"] . " (" . $commandDescription . ") with CommandGroup_Parameters from " . $commandGroup_Command["PK_CommandGroup_D_Command"] . "\n" );
              $query = "SELECT FK_CommandParameter, IK_CommandParameter FROM CommandGroup_D_Command_CommandParameter WHERE FK_CommandGroup_D_Command = " . $commandGroup_Command["PK_CommandGroup_D_Command"] . " and IK_CommandParameter IS NOT NULL;";
              $parameterArr = getMyArray($link,$query);
              if (is_array($parameterArr) > 0) {
                $knownFunction = "";   // Contains the qOrbiter function that the Orbiter function is mapped to.
                $parameter = "";
                $functionCall = "";
                foreach($parameterArr as $commandParameter) {
                  // We know about Goto Screen
                  if ($commandGroup_Command["FK_Command"] == 741 and $commandParameter["FK_CommandParameter"] == 159) { // Goto Screen And PK_Screen as parameter
                    $knownFunction = "\tgotoQScreen(\"Screen_" . $commandParameter["IK_CommandParameter"] . ".qml\")";
                  }
                  // We know about Go back
                  elseif ($commandGroup_Command["FK_Command"] == 240) {
// or maybe we do not...                    $knownFunction = "\tgotoQScreen(\"Screen_" . $commandParameter["IK_CommandParameter"] . ".qml\")";
                    $knownFunction .= "";
                  }
                  $parameter .= $commandParameter["FK_CommandParameter"];                  
                  $parameter .= " \\\"" . translateOrbiter2qOrbiterVars($commandParameter["IK_CommandParameter"]) . "\\\" ";
                }
                $functionCall .= "\tmanager.sendDceMessage(";
                $functionCall .= "srouterip + \" \"";
                $functionCall .= "+deviceid + \"";
                $functionCall .= " " . $destination;
                $functionCall .= " " . 1; // we send a command
                $functionCall .= " " . $commandGroup_Command["FK_Command"];
                $functionCall .= " " . $parameter;
                $functionCall .= "\")\n";
                if ($knownFunction != "") {
                  PrintWithIndent( $knownFunction . "\n");
                } else {
                  PrintWithIndent ( $functionCall);
                }
              }
            }
          }            
        }
        
        function translateOrbiter2qOrbiterVars($orbiterVar) {
          // This little function should translate the original Orbiter variables
          // into stuff understood by qOrbiter.
          $qOrbiterVar = $orbiterVar;
          $nPos= strpos("<%=",$orbiterVar);
          if ($nPos > 0) {
            $nPosEnde = strpos("%>",$orbiterVar);
            $lmceOrbiterVar = substr($orbiterVar,$nPos,$nPosEnde-$nPos);
            switch ($lmceOrbiterVar) {
            case "E":
              $qtOrbiterVar = "currentRoom";
              break;
            case "!":
              $qtOrbiterVar = "deviceid";
              break;
            }
          }
          $qOrbiterVar = mysql_real_escape_string($qOrbiterVar);
          
          return $qOrbiterVar;
        }
        
        function getDesignObj($FK_DesignObj,$level=0,$x=0,$y=0) {
          global $link;
          // Return the position and designobj childs of the FK_DesignObj
          $query = "Select PK_DesignObjVariation_DesignObj, DesignObj.Description, DesignObjVariation_DesignObj.FK_DesignObj_Child,";
          $query .= " DesignObjVariation_DesignObj_Skin_Language.X, DesignObjVariation_DesignObj_Skin_Language.Y,";
          $query .= " DesignObjVariation_DesignObj_Skin_Language.Width, DesignObjVariation_DesignObj_Skin_Language.Height";
          $query .= " From DesignObjVariation_DesignObj_Skin_Language";
          $query .= " Join DesignObjVariation_DesignObj On FK_DesignObjVariation_DesignObj = PK_DesignObjVariation_DesignObj";
          $query .= " Join DesignObjVariation On FK_DesignObjVariation_Parent = PK_DesignObjVariation";
          $query .= " Join DesignObj On PK_DesignObj = FK_DesignObj_Child";
          $query .= " Where DesignObjVariation.FK_DesignObj = $FK_DesignObj";
          $queryUI1 = $query . " And DesignObjVariation.FK_UI = 1";
          $queryStandard = $query . " And DesignObjVariation.FK_UI Is Null";
          $arrUI1 = getMyArray($link,$queryUI1);          
          // Sometimes a DesignObj itself is not available for UI1 one but only for the standard.
            $arrStandard = getMyArray($link,$queryStandard);          
          // We merge the UI1 and Standard DesignObj together.
          $arr = array_merge($arrUI1,$arrStandard);
          if (is_array($arr)) {
            outputGroupOn($FK_DesignObj);
            foreach ($arr as $designobj) {
              $currentFK_DesignObj = $designobj["FK_DesignObj_Child"];              
              $designobj["X"] = $x + $designobj["X"];
              $designobj["Y"] = $y + $designobj["Y"];
              // Create the function to call commands associated with this designobj.
              outputFunction($designobj["FK_DesignObj_Child"]);
              // We output the current DesignObj
              outputObject($designobj);
              // Check recursively for more kids.
              getDesignObj($currentFK_DesignObj,$level+1,$x+$designobj["X"],$y+$designobj["Y"]);
            }
            outputGroupOff();
          }
          return $arr; 
        }          
        
        function outputGroupOn($FK_DesignObj = "") {
          if ($FK_DesignObj == "") {
            PrintWithIndent( "<div>\n");
          } else {
            PrintWithIndent( "<div id=$FK_DesignObj>");
          }
        }
        
        function outputGroupOff() {
          PrintWithIndent( "</div>\n");
        }
        
        function outputFunction($currentFK_DesignObj) {
        // Create a function that calls each of the commands for the current designobj.
            getCommandGroup_D($currentFK_DesignObj);          
        
        }

        function outputObject($arrDesignObj) {
            global $screen;
            static $buttonCounter=0;
              $currentFK_DesignObj = $arrDesignObj["FK_DesignObj_Child"];
              // A DesignObj can have multiple text associated. 
              $buttonLabel = getDesignObjText($currentFK_DesignObj,$arrDesignObj["X"],$arrDesignObj["Y"],$arrDesignObj["Width"],$arrDesignObj["Height"]);
              if (getBackground($currentFK_DesignObj) != "") {
                $buttonCounter++;
                PrintWithIndent( "ButtonSq {\n");
                PrintWithIndent( "\tid: button" . $currentFK_DesignObj . "_" . $buttonCounter . "\n");
                PrintWithIndent( "\tx: " . ResizeX($arrDesignObj["X"]) . "\n");
                PrintWithIndent( "\ty: " . ResizeY($arrDesignObj["Y"]) . "\n");
                PrintWithIndent( "\twidth: " . ResizeX($arrDesignObj["Width"]) . "\n");
                PrintWithIndent( "\theight: " . ResizeY($arrDesignObj["Height"]) . "\n");
                PrintWithIndent( "\tbuttonbackground: \"" . getBackground($currentFK_DesignObj) . "\"\n");
                PrintWithIndent( "\tbuttontext: \"" . $buttonLabel . "\"\n");
                PrintWithIndent( "\tclickHandler.onClicked: onActivate". $arrDesignObj["FK_DesignObj_Child"] . "()\n");
                PrintWithIndent( "}\n");
              }                            
        }
        
        function outputText($arrDesignObj,$parentwidth,$parentheight) {
              if ($arrDesignObj["Width"] == 0) {
                $arrDesignObj["Width"] = $parentwidth;
              }
              if ($arrDesignObj["Height"] == 0) {
                $arrDesignObj["Height"] = $parentheight;
              }

              // TODO: posde seems to be too stupid for vertical aligning next
              //       within a known box.
              PrintWithIndent( "StyledText {\n");
//              PrintWithIndent( "\tid: styledText" . $arrDesignObj["PK_DesignObjVariation"] . "\n");
              PrintWithIndent( "\tx: " . ResizeX($arrDesignObj["X"]) . "\n");
              PrintWithIndent( "\ty: " . ResizeY($arrDesignObj["Y"]) . "\n");
              PrintWithIndent( "\theight: " . ResizeX($arrDesignObj["Height"]) . "\n");
              PrintWithIndent( "\twidth: " . ResizeY($arrDesignObj["Width"]) . "\n");
//              PrintWithIndent( "\tz: 1\n");
              PrintWithIndent( "\ttextLabel: \"" . trim($arrDesignObj["Description"]) . "\"\n");
              PrintWithIndent( "}\n");
        }        

        function ResizeX($oldX) {
            // Resizes the X value from a 2128 to 1920
            $newX = round($oldX / 2128 * 1920);
            return $newX;
        }
        
        function ResizeY($oldY) {
            // Resizes the Y value from 1596 to 1080
            $newY = round($oldY / 1596 * 1080);
            return $newY;
        }


	connectDB();
	global $currentUser, $currentScreen, $currentRoom, $currentEntertainArea, $link, $mediaLink, $screenFile;


        // Get all data for the standard variation
        $screen = 48;  // MythTV Remote

        if (isset($_GET["screen"])) {
          $screen = $_GET["screen"];
          $screens =  array($screen => "A Screen");
          
        } else {
          $query = "SELECT PK_Screen, Description FROM Screen";
          $screens = getMyArray($link,$query);
        }
        
        foreach ($screens as $screen) {
          $query = "SELECT FK_DesignObj From Screen_DesignObj Where FK_Screen = " . $screen["PK_Screen"] . " AND FK_UI Is Null AND FK_Skin Is Null";
          
          $FK_DesignObj = getMyValue($link,$query);
          print "Checking screen " . $screen["PK_Screen"] . "\n";
          if ( ! empty($FK_DesignObj)) {
            $screenFile = fopen("Screen_". $screen["PK_Screen"] . ".qml","w");
            // Header for each QML
            fwrite($screenFile, "// UI1 Screen " . $screen["Description"] . " (" . $screen["PK_Screen"] . ")\n");
            fwrite($screenFile, "// Created using structure-qml.php from Peer Oliver Schmidt\m");
            fwrite($screenFile, "// based on the LinuxMCE database\n");
            fwrite($screenFile, "import QtQuick 1.0\n");
            fwrite($screenFile, "import \"../components\"\n");
            fwrite($screenFile, "Item {\n");
            
            $background = getBackground($FK_DesignObj);
            PrintWithIndent( "Image {\n");
            PrintWithIndent( "\tsource: \"$background\"\n");
            PrintWithIndent( "\twidth: 1920\n");
            PrintWithIndent( "\theight: 1080\n");
            PrintWithIndent( "}\n");

            // Now that we have the basic background, let's try and find all the objects on this screen.
            // Each screen has ONE base DesignObj that all other DesignObj are childs of.
            $arr = getDesignObj($FK_DesignObj);
            
            // Done with the screen.
            fwrite($screenFile, "}");
            fclose($screenFile);            
          }
        }        
        mysql_close($mediaLink);
	mysql_close($link);

?>