X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=views.pl;fp=views.pl;h=bffb5824bd1b5f19f075ce569831bbae5ec29cb6;hb=783e377aba4f54052ac23041b184d1d84696ebc7;hp=8c7bb4123418a644f2eb0f078a74e7457b260023;hpb=c5bf9be1de7f161fc0784ba3d98f1de45aacf920;p=zc

diff --git a/views.pl b/views.pl
index 8c7bb41..bffb582 100755
--- 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 
+	to_char(time, 'YYYY-MM-DD HH24:MI:SS') 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,9 @@ 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
+};