move 2 sensors from klanjec to tuhelj
[zc] / views.pl
index 8c7bb41..e3b2678 100755 (executable)
--- a/views.pl
+++ b/views.pl
@@ -27,6 +27,7 @@ while(<$o>) {
 close($o);
 
 my $sql;
+my @sql_location;
 my $view2number;
 
 open(my $n, '<', 'subvision-numbers.txt');
@@ -65,6 +66,13 @@ where pn = $pn $time
 };
        }
 
+       push @sql_location, qq{
+select 
+       timezone('UTC-2'::text, "time") AS "time", x_axis_angle + $offset_x as x_axis_angle, y_axis_angle + $offset_y as y_axis_angle, sensor_temperature, power_source_voltage, zc.pn
+from zc
+where pn = $pn $time
+};
+
 }
 close($n);
 
@@ -103,3 +111,12 @@ print $html_fh qq{
 </body>
 };
 
+print $sql_fh qq{
+drop view sub_$filter ;
+create or replace view sub_$filter as
+}, join(' union ', @sql_location) . qq{
+       order by 1 asc
+;
+grant select on sub_$filter to grafana; 
+};
+