From 67e786d43bc65dad5c0ffe816af08c19e7f55c40 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Wed, 16 Dec 2015 18:07:25 +0100 Subject: added inital version of musicgrid.cgi (not working at the moment) diff --git a/contrib/grid-sample-out.xml b/contrib/grid-sample-out.xml new file mode 100644 index 0000000..fdffda8 --- /dev/null +++ b/contrib/grid-sample-out.xml @@ -0,0 +1,845 @@ +select GRID.DOW,GRID.HOUR,CLOCKS.NAME,CLOCKS.SHORT_NAME,CLOCKS.COLOR from CLOCKS,(select 1 as DOW ,0 as HOUR,CLOCK0 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,1 as HOUR,CLOCK1 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,2 as HOUR,CLOCK2 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,3 as HOUR,CLOCK3 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,4 as HOUR,CLOCK4 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,5 as HOUR,CLOCK5 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,6 as HOUR,CLOCK6 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,7 as HOUR,CLOCK7 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,8 as HOUR,CLOCK8 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,9 as HOUR,CLOCK9 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,10 as HOUR,CLOCK10 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,11 as HOUR,CLOCK11 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,12 as HOUR,CLOCK12 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,13 as HOUR,CLOCK13 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,14 as HOUR,CLOCK14 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,15 as HOUR,CLOCK15 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,16 as HOUR,CLOCK16 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,17 as HOUR,CLOCK17 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,18 as HOUR,CLOCK18 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,19 as HOUR,CLOCK19 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,20 as HOUR,CLOCK20 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,21 as HOUR,CLOCK21 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,22 as HOUR,CLOCK22 as CLOCK from SERVICES where NAME='Music' UNION select 1 as DOW ,23 as HOUR,CLOCK23 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,0 as HOUR,CLOCK24 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,1 as HOUR,CLOCK25 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,2 as HOUR,CLOCK26 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,3 as HOUR,CLOCK27 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,4 as HOUR,CLOCK28 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,5 as HOUR,CLOCK29 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,6 as HOUR,CLOCK30 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,7 as HOUR,CLOCK31 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,8 as HOUR,CLOCK32 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,9 as HOUR,CLOCK33 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,10 as HOUR,CLOCK34 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,11 as HOUR,CLOCK35 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,12 as HOUR,CLOCK36 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,13 as HOUR,CLOCK37 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,14 as HOUR,CLOCK38 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,15 as HOUR,CLOCK39 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,16 as HOUR,CLOCK40 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,17 as HOUR,CLOCK41 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,18 as HOUR,CLOCK42 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,19 as HOUR,CLOCK43 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,20 as HOUR,CLOCK44 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,21 as HOUR,CLOCK45 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,22 as HOUR,CLOCK46 as CLOCK from SERVICES where NAME='Music' UNION select 2 as DOW ,23 as HOUR,CLOCK47 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,0 as HOUR,CLOCK48 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,1 as HOUR,CLOCK49 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,2 as HOUR,CLOCK50 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,3 as HOUR,CLOCK51 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,4 as HOUR,CLOCK52 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,5 as HOUR,CLOCK53 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,6 as HOUR,CLOCK54 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,7 as HOUR,CLOCK55 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,8 as HOUR,CLOCK56 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,9 as HOUR,CLOCK57 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,10 as HOUR,CLOCK58 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,11 as HOUR,CLOCK59 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,12 as HOUR,CLOCK60 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,13 as HOUR,CLOCK61 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,14 as HOUR,CLOCK62 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,15 as HOUR,CLOCK63 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,16 as HOUR,CLOCK64 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,17 as HOUR,CLOCK65 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,18 as HOUR,CLOCK66 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,19 as HOUR,CLOCK67 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,20 as HOUR,CLOCK68 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,21 as HOUR,CLOCK69 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,22 as HOUR,CLOCK70 as CLOCK from SERVICES where NAME='Music' UNION select 3 as DOW ,23 as HOUR,CLOCK71 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,0 as HOUR,CLOCK72 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,1 as HOUR,CLOCK73 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,2 as HOUR,CLOCK74 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,3 as HOUR,CLOCK75 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,4 as HOUR,CLOCK76 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,5 as HOUR,CLOCK77 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,6 as HOUR,CLOCK78 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,7 as HOUR,CLOCK79 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,8 as HOUR,CLOCK80 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,9 as HOUR,CLOCK81 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,10 as HOUR,CLOCK82 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,11 as HOUR,CLOCK83 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,12 as HOUR,CLOCK84 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,13 as HOUR,CLOCK85 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,14 as HOUR,CLOCK86 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,15 as HOUR,CLOCK87 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,16 as HOUR,CLOCK88 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,17 as HOUR,CLOCK89 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,18 as HOUR,CLOCK90 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,19 as HOUR,CLOCK91 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,20 as HOUR,CLOCK92 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,21 as HOUR,CLOCK93 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,22 as HOUR,CLOCK94 as CLOCK from SERVICES where NAME='Music' UNION select 4 as DOW ,23 as HOUR,CLOCK95 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,0 as HOUR,CLOCK96 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,1 as HOUR,CLOCK97 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,2 as HOUR,CLOCK98 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,3 as HOUR,CLOCK99 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,4 as HOUR,CLOCK100 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,5 as HOUR,CLOCK101 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,6 as HOUR,CLOCK102 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,7 as HOUR,CLOCK103 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,8 as HOUR,CLOCK104 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,9 as HOUR,CLOCK105 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,10 as HOUR,CLOCK106 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,11 as HOUR,CLOCK107 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,12 as HOUR,CLOCK108 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,13 as HOUR,CLOCK109 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,14 as HOUR,CLOCK110 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,15 as HOUR,CLOCK111 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,16 as HOUR,CLOCK112 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,17 as HOUR,CLOCK113 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,18 as HOUR,CLOCK114 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,19 as HOUR,CLOCK115 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,20 as HOUR,CLOCK116 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,21 as HOUR,CLOCK117 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,22 as HOUR,CLOCK118 as CLOCK from SERVICES where NAME='Music' UNION select 5 as DOW ,23 as HOUR,CLOCK119 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,0 as HOUR,CLOCK120 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,1 as HOUR,CLOCK121 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,2 as HOUR,CLOCK122 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,3 as HOUR,CLOCK123 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,4 as HOUR,CLOCK124 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,5 as HOUR,CLOCK125 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,6 as HOUR,CLOCK126 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,7 as HOUR,CLOCK127 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,8 as HOUR,CLOCK128 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,9 as HOUR,CLOCK129 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,10 as HOUR,CLOCK130 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,11 as HOUR,CLOCK131 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,12 as HOUR,CLOCK132 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,13 as HOUR,CLOCK133 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,14 as HOUR,CLOCK134 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,15 as HOUR,CLOCK135 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,16 as HOUR,CLOCK136 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,17 as HOUR,CLOCK137 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,18 as HOUR,CLOCK138 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,19 as HOUR,CLOCK139 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,20 as HOUR,CLOCK140 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,21 as HOUR,CLOCK141 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,22 as HOUR,CLOCK142 as CLOCK from SERVICES where NAME='Music' UNION select 6 as DOW ,23 as HOUR,CLOCK143 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,0 as HOUR,CLOCK144 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,1 as HOUR,CLOCK145 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,2 as HOUR,CLOCK146 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,3 as HOUR,CLOCK147 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,4 as HOUR,CLOCK148 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,5 as HOUR,CLOCK149 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,6 as HOUR,CLOCK150 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,7 as HOUR,CLOCK151 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,8 as HOUR,CLOCK152 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,9 as HOUR,CLOCK153 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,10 as HOUR,CLOCK154 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,11 as HOUR,CLOCK155 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,12 as HOUR,CLOCK156 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,13 as HOUR,CLOCK157 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,14 as HOUR,CLOCK158 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,15 as HOUR,CLOCK159 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,16 as HOUR,CLOCK160 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,17 as HOUR,CLOCK161 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,18 as HOUR,CLOCK162 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,19 as HOUR,CLOCK163 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,20 as HOUR,CLOCK164 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,21 as HOUR,CLOCK165 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,22 as HOUR,CLOCK166 as CLOCK from SERVICES where NAME='Music' UNION select 0 as DOW ,23 as HOUR,CLOCK167 as CLOCK from SERVICES where NAME='Music') as GRID where GRID.CLOCK = CLOCKS.NAME;Content-type: application/xml; charset=UTF-8 +Status: 200 + + + + clp Pool26 + P26 + unknown title + + + clp Pool37 + P37 + unknown title + + + clp Pool02 bumbumtschak + P02 + unknown title + + + clp Pool30 + P30 + unknown title + + + clp Pool08 + P08 + unknown title + + + clp Pool22 + P22 + unknown title + + + clp Pool22 + P22 + unknown title + + + clp Pool16 + P16 + unknown title + + + clp Pool09 + P09 + unknown title + + + clp Pool33 + P33 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool27 + P27 + unknown title + + + clp Pool41 + P41 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool25 + P25 + unknown title + + + clp Pool13 + P13 + unknown title + + + clp Pool18 + P18 + unknown title + + + clp Pool18 + P18 + unknown title + + + clp Pool14 + P14 + unknown title + + + clp Pool17 + P17 + unknown title + + + clp Pool17 + P17 + unknown title + + + clp Pool14 + P14 + unknown title + + + clp Pool15 + P15 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool36 + P36 + unknown title + + + clp Pool24 + P24 + unknown title + + + clp Pool37 + P37 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool27 + P27 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool23 + P23 + unknown title + + + clp Pool19 + P19 + unknown title + + + clp Pool19 + P19 + unknown title + + + clp Pool31 + P31 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool23 + P23 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool32 + P32 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool30 + P30 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool22 + P22 + unknown title + + + clp Pool22 + P22 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool25 + P25 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool28 + P28 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool06 + P06 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool04 + P04 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool23 + P23 + unknown title + + + clp Pool15 + P15 + unknown title + + + clp Pool12 + P12 + unknown title + + + clp Pool12 + P12 + unknown title + + + clp Pool12 + P12 + unknown title + + + clp Pool21 + P21 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool06 + P06 + unknown title + + + clp Pool06 + P06 + unknown title + + + clp Pool23 + P23 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool24 + P24 + unknown title + + + clp Pool08 + P08 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool 42 + P42 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool29 + P29 + unknown title + + + clp Pool29 + P29 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool33 + P33 + unknown title + + + clp Pool31 + P31 + unknown title + + + clp Pool21 + P21 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool21 + P21 + unknown title + + + clp Pool09 + P09 + unknown title + + + clp Pool09 + P09 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool02 bumbumtschak + P02 + unknown title + + + clp Pool02 bumbumtschak + P02 + unknown title + + + clp Pool36 + P36 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool03 echochamber + P03 + unknown title + + + clp Pool03 echochamber + P03 + unknown title + + + clp Pool35 + P35 + unknown title + + + clp Pool24 + P24 + unknown title + + + clp Pool24 + P24 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool25 + P25 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool07 + P07 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool32 + P32 + unknown title + + + clp Pool13 + P13 + unknown title + + + clp Pool14 + P14 + unknown title + + + clp Pool33 + P33 + unknown title + + + clp Pool15 + P15 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool31 + P31 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool17 + P17 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool38 + P38 + unknown title + + + clp Pool38 + P38 + unknown title + + + clp Pool05 + P05 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool14 + P14 + unknown title + + + clp Pool14 + P14 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool20 + P20 + unknown title + + + clp Pool20 + P20 + unknown title + + + clp Pool20 + P20 + unknown title + + + clp Pool20 + P20 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool21 + P21 + unknown title + + + clp Pool13 + P13 + unknown title + + + clp Pool13 + P13 + unknown title + + + clp Pool40 + P40 + unknown title + + + clp Pool06 + P06 + unknown title + + + clp Pool11 + P11 + unknown title + + + clp Pool31 + P31 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool38 + P38 + unknown title + + + clp Pool38 + P38 + unknown title + + + clp Pool26 + P26 + unknown title + + + clp Pool34 + P34 + unknown title + + + clp Pool23 + P23 + unknown title + + + clp Pool16 + P16 + unknown title + + + clp Pool16 + P16 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool10 + P10 + unknown title + + + clp Pool13 + P13 + unknown title + + + clp Pool24 + P24 + unknown title + + + clp Pool17 + P17 + unknown title + + diff --git a/rh-bin/musicgrid.cgi b/rh-bin/musicgrid.cgi new file mode 100755 index 0000000..6e18e7e --- /dev/null +++ b/rh-bin/musicgrid.cgi @@ -0,0 +1,81 @@ +#!/usr/bin/perl +# +# rhwebimport +# +# Copyright (C) 2014-2015 Christian Pointner +# Copyright (C) 2015 Peter Grassberger +# +# This file is part of rhwebimport. +# +# rhwebimport is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# any later version. +# +# rhwebimport 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 Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with rhwebimport. If not, see . +# + +use strict; +use CGI; +use POSIX; +use XML::Quote; +use RHRD::rddb; + +my $status = 'ERROR'; +my $errorstring = 'unknown'; +my $responsecode = 500; +my @clocks = (); + +my $q = CGI->new; +my $username = $q->param('LOGIN_NAME'); +my $token = $q->param('PASSWORD'); + +(my $ctx, $status, $errorstring) = RHRD::rddb::init(); +if(defined $ctx) { + my $result = 1; +# ($result, $status, $errorstring) = RHRD::rddb::check_token($ctx, $username, $token); + if($result == 1) { + # TODO: check if user is allowed to read/edit music pools + # TODO: dispatch command get,set + $responsecode = 200; + @clocks = RHRD::rddb::get_musicpools_clocks($ctx); + if(!defined $clocks[0] && defined $clocks[1]) { + $responsecode = 500; + $status = $clocks[1]; + $errorstring = $clocks[2]; + } + } elsif($result == 0) { + $responsecode = 401; + } else { + $responsecode = 500; + } + RHRD::rddb::destroy($ctx); +} + + +print "Content-type: application/xml; charset=UTF-8\n"; +print "Status: $responsecode\n\n"; + +# TODO: dispatch command get,set +if($responsecode != 200) { + print "\n"; + print " " . xml_quote($responsecode) . "\n"; + print " " . xml_quote($errorstring) . "\n"; + print "\n"; +} else { + print "\n"; + for my $href (@clocks) { + print " {'DOW'}) . "\" hour=\"" . xml_quote($href->{'HOUR'}) . "\">\n"; + print " " . xml_quote($href->{'NAME'}) . "\n"; + print " " . xml_quote($href->{'COLOR'}) . "\n"; + print " " . xml_quote($href->{'TITLE'}) . "\n"; + print " \n"; + } + print "\n"; +} -- cgit v0.10.2