new files

file_10kb.file

@@ -0,0 +1,312 @@
+
+<%method get_hist_wid_2>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+	mins => 1
+    </%attr>
+% if (! $dbh) {
+  <& get_dbh.com &>
+%}
+% my $sql;
+% my $wnr = 0;
+% if ( $ARGS{test} >0 ){
+%   $wnr = $ARGS{test};
+% }
+%
+% $sql = "SELECT (min(o.x)/100)::int + (min(o.x) - ((min(o.x)/100)::int)*100)/60,
+%                (min(o.y)/100)::int + (min(o.y) - ((min(o.y)/100)::int)*100)/60,
+%                (max(o.x)/100)::int + (max(o.x) - ((max(o.x)/100)::int)*100)/60,
+%                (max(o.y)/100)::int + (max(o.y) - ((max(o.y)/100)::int)*100)/60,
+%                '2000-01-01' as w 
+%         FROM t_wagen w LEFT JOIN 
+%              t_pda_ortung o USING (pdid)
+%         WHERE o.x IS NOT NULL AND o.y IS NOT NULL ";
+%         $sql .= "AND w.wid = $wnr ";
+%         $sql .= "AND o.wann > now() -  '30 minutes'::interval " ;
+% $sql .= "UNION SELECT (o.x/100)::int + (o.x - ((o.x/100)::int)*100)/60,
+%                (o.y/100)::int + (o.y - ((o.y/100)::int)*100)/60,1,1, 
+%                date_trunc('second', o.wann) as w 
+%         FROM t_wagen w LEFT JOIN 
+%              t_pda_ortung o USING (pdid)
+%         WHERE o.x IS NOT NULL AND o.y IS NOT NULL ";
+%         $sql .= "AND w.wid = $wnr ";
+%         $sql .= "AND o.wann > now() -  '30 minutes'::interval
+%         ORDER BY w ";
+% my $sth;
+%   $sth=$dbh->prepare($sql)or die "$sql nix prepare \n" ;
+%   $sth->execute() or die "$sql \ngeht nit \n" ;
+% my @zeile = $sth->fetchrow_array;
+<script>
+<%perl> 
+print <<SCRIPT;
+  var mysw =  new GLatLng($zeile[1], $zeile[0]);
+  var myne =  new GLatLng($zeile[3], $zeile[2]);
+  var mybounds = new GLatLngBounds(mysw, myne); 
+  var map = new GMap2(document.getElementById("map"));
+  map.setCenter(mybounds.getCenter(),  map.getBoundsZoomLevel(mybounds));
+SCRIPT
+  my $textvar = '';
+  my $countvar = 0 ;
+  while (my @zeile = $sth->fetchrow_array){
+    $textvar = sprintf  "<b>$zeile[4]</b>";
+    print "add_ortung(map,parseFloat($zeile[1]),parseFloat($zeile[0]),'$textvar');";
+    $countvar++;
+  }
+</%perl> 
+</script>
+</%method>
+
+
+
+<%method get_hist_wid>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+    </%attr>
+% if (! $dbh) {
+  <& get_dbh.com &>
+%}
+% my $sql;
+% my $wnr = 0;
+% if ( $ARGS{test} >0 ){
+%   $wnr = $ARGS{test};
+% }
+%
+% $sql = "SELECT (min(o.x)/100)::int + (min(o.x) - ((min(o.x)/100)::int)*100)/60,
+%                (min(o.y)/100)::int + (min(o.y) - ((min(o.y)/100)::int)*100)/60,
+%                (max(o.x)/100)::int + (max(o.x) - ((max(o.x)/100)::int)*100)/60,
+%                (max(o.y)/100)::int + (max(o.y) - ((max(o.y)/100)::int)*100)/60,
+%                '2000-01-01' as w 
+%         FROM t_wagen w LEFT JOIN 
+%              t_pda_ortung o USING (pdid)
+%         WHERE o.x IS NOT NULL AND o.y IS NOT NULL ";
+%         $sql .= "AND w.wid = $wnr ";
+%         $sql .= "AND o.wann > now() -  '1 hours'::interval " ;
+% $sql .= "UNION SELECT (o.x/100)::int + (o.x - ((o.x/100)::int)*100)/60,
+%                (o.y/100)::int + (o.y - ((o.y/100)::int)*100)/60,1,1, 
+%                date_trunc('second', o.wann) as w 
+%         FROM t_wagen w LEFT JOIN 
+%              t_pda_ortung o USING (pdid)
+%         WHERE o.x IS NOT NULL AND o.y IS NOT NULL ";
+%         $sql .= "AND w.wid = $wnr ";
+%         $sql .= "AND o.wann > now() -  '1 hours'::interval
+%         ORDER BY w ";
+% my $sth;
+%   $sth=$dbh->prepare($sql)or die "$sql nix prepare \n" ;
+%   $sth->execute() or die "$sql \ngeht nit \n" ;
+% my @zeile = $sth->fetchrow_array;
+<script>
+<%perl> 
+print <<SCRIPT;
+  var mysw =  new GLatLng($zeile[1], $zeile[0]);
+  var myne =  new GLatLng($zeile[3], $zeile[2]);
+  var mybounds = new GLatLngBounds(mysw, myne); 
+  var map = new GMap2(document.getElementById("map"));
+  map.setCenter(mybounds.getCenter(),  map.getBoundsZoomLevel(mybounds));
+SCRIPT
+  my $textvar = '';
+  my $countvar = 0 ;
+  while (my @zeile = $sth->fetchrow_array){
+    $textvar = sprintf  "<b>$zeile[4]</b>";
+    print "add_ortung(map,parseFloat($zeile[1]),parseFloat($zeile[0]),'$textvar');";
+    $countvar++;
+  }
+</%perl> 
+</script>
+</%method>
+
+
+
+
+<%method get_pos_wids>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+    </%attr>
+% if (! $dbh) {
+  <& get_dbh.com &>
+%}
+% my $sql;
+% my $mnr = 0;
+% if ( $ARGS{test} >0 ){
+%   $mnr =  $ARGS{test};
+% }
+%
+% $sql = "SELECT (min(w.x)/100)::int + (min(w.x) - ((min(w.x)/100)::int)*100)/60,
+%                (min(w.y)/100)::int + (min(w.y) - ((min(w.y)/100)::int)*100)/60,
+%                (max(w.x)/100)::int + (max(w.x) - ((max(w.x)/100)::int)*100)/60,
+%                (max(w.y)/100)::int + (max(w.y) - ((max(w.y)/100)::int)*100)/60,
+%                 0 as t,
+%                 '' as kz, '2000.01.01' as zo, '' as ln
+%         FROM t_wagen w 
+%         WHERE w.x IS NOT NULL AND w.y IS NOT NULL ";
+%         if ( $mnr > 0){ 
+%           $sql .= "AND w.mid = $mnr ";
+%         }
+%         $sql .= "AND zeit_ortung > now() -  '2 hours'::interval ";
+% $sql .= " UNION SELECT (w.x/100)::int + (w.x - ((w.x/100)::int)*100)/60,
+%                (w.y/100)::int + (w.y - ((w.y/100)::int)*100)/60,1,1, 1 as t,
+%                 kennzeichen as kz, zeit_ortung as zo, l.vorname || ' ' || l.nachname as ln
+%         FROM t_wagen w LEFT JOIN
+%              t_lenker l USING (lid)
+%         WHERE w.x IS NOT NULL AND w.y IS NOT NULL ";
+%         if ( $mnr > 0){ 
+%           $sql .= "AND w.mid = $mnr ";
+%         }
+%         $sql .= "AND zeit_ortung > now() -  '2 hours'::interval 
+%         ORDER BY t, kz ";
+% my $sth;
+
+%   $sth=$dbh->prepare($sql)or die "$sql nix prepare \n" ;
+%   $sth->execute() or die "$sql \ngeht nit \n" ;
+% my @zeile = $sth->fetchrow_array;
+<script>
+<%perl> 
+print <<SCRIPT;
+var mysw =  new GLatLng($zeile[1], $zeile[0]);
+var myne =  new GLatLng($zeile[3], $zeile[2]);
+//alert ($zeile[1] + ' ' + $zeile[0] + ' ' +  $zeile[3] + ' ' + $zeile[2]);
+var mybounds = new GLatLngBounds(mysw, myne); 
+var mycenter = mybounds.getCenter();
+var Sued = mycenter.lat(); 
+var West = mycenter.lng(); 
+var map = new GMap2(document.getElementById("map"));
+//alert (3);
+//map.setCenter(new GLatLng(Sued, West), 12);
+map.setCenter(mybounds.getCenter(),  map.getBoundsZoomLevel(mybounds));
+
+//window.alert('z1'); 
+
+SCRIPT
+my $textvar = '';
+my $countvar = 0 ;
+while (my @zeile = $sth->fetchrow_array){
+  $textvar = "<b>$zeile[5]</b><br>$zeile[7]<br>letzte Ortung:<br>$zeile[6]";
+  print "add_pdid(map,parseFloat($zeile[1]),parseFloat($zeile[0]),'$textvar');";
+  $countvar++;
+}
+# print "window.alert('$textvar' ); ";
+# print "window.alert('$countvar' ); ";
+print  "print_div('info', ''); ";
+</%perl> 
+% #print " window.alert('$zeile[2]');";
+% #print " var mysw =  new GLatLng($zeile[1], $zeile[0]); ";
+% #print " var myne =  new GLatLng($zeile[3], $zeile[2]); ";
+% #print " var mybounds = new GLatLngBounds(mysw, myne); ";
+% #print " var SW = mybounds.getSouthWest(); ";
+% #print " var mycenter = mybounds.getCenter(); ";
+% #print " var Sued = mycenter.lat(); ";
+% #print " var West = mycenter.lng(); ";
+% #print " window.alert('West: '  + West); ";					  
+% #print " window.alert('Sued: '  + Sued); ";					  
+% #print " var map = GMap2(document.getElementById('map')); ";
+% #print " map.setCenter(new GLatLng(16, 48), 14); ";
+
+% #print " map.setCenter(mybounds.getCenter(), 14); ";
+% #print " var zl = map.getBoundsZoomLevel(mybounds); ";	
+% #print "  show_pdid($zeile[1], $zeile[0], '$zeile[5]'); ";
+% #print "  var mylayer = document.getElementById('info'); ";
+% #print "  mylayer.innerHTML='<b>$zeile[3]</b> <br>$zeile[4]<br>letzte Ortgung:<br>$zeile[5]'; ";
+% # print "  window.alert('bbbb'); ";
+</script>
+</%method>
+
+<%method get_pos_wid>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+    </%attr>
+% if (! $dbh) {
+  <& get_dbh.com &>
+%}
+% my $sql;
+% $sql = "SELECT (w.x/100)::int + (w.x - ((w.x/100)::int)*100)/60,
+%                (w.y/100)::int + (w.y - ((w.y/100)::int)*100)/60,
+%                w.wid, w.kennzeichen, l.vorname || ' ' || l.nachname,
+%                w.zeit_ortung
+%         FROM t_wagen w LEFT JOIN 
+%              t_lenker l USING(lid)";
+%         if ( $ARGS{test} =~ /alle:/ ) {
+%           $sql .= "WHERE w.mid = $' ";
+%	  } else { 
+%           $sql .= "WHERE wid = $ARGS{test}";
+%	  }
+% my $sth;
+%   $sth=$dbh->prepare($sql)or die "$sql nix prepare \n" ;
+%   $sth->execute() or die "$sql geht nit \n" ;
+% my @zeile = $sth->fetchrow_array;
+<script>
+%         if ( $ARGS{test} =~ /alle:/ ) {
+%             my $post = $';
+%             print "  window.alert('$post'); ";
+%         }
+% print "  show_pdid($zeile[1], $zeile[0], '$zeile[5]'); ";
+% print "  var mylayer = document.getElementById('info'); ";
+% print "  mylayer.innerHTML='<b>$zeile[3]</b> <br>$zeile[4]<br>letzte Ortgung:<br>$zeile[5]'; ";
+% # print "  window.alert('bbbb'); ";
+</script>
+</%method>
+
+
+<%method get_pos_wid_2>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+    </%attr>
+% if (! $dbh) {
+  <& get_dbh.com &>
+%}
+% my $sql;
+% $sql = "SELECT (w.x/100)::int + (w.x - ((w.x/100)::int)*100)/60,
+%                (w.y/100)::int + (w.y - ((w.y/100)::int)*100)/60,
+%                w.wid, w.kennzeichen, l.vorname || ' ' || l.nachname,
+%                w.zeit_ortung
+%         FROM t_wagen w LEFT JOIN 
+%              t_lenker l USING(lid)
+%         WHERE wid = $ARGS{test}";
+% my $sth;
+%   $sth=$dbh->prepare($sql)or die "$sql nix prepare \n" ;
+%   $sth->execute() or die "$sql geht nit \n" ;
+% my @zeile = $sth->fetchrow_array;
+
+
+<script>
+% # print "    window.alert('$ARGS{test}' );";
+% print "  show_pdid($zeile[1], $zeile[0]);";
+% print "  var mylayer = document.getElementById('info');";
+% print "  mylayer.innerHTML='<b>$zeile[3]</b> <br>$zeile[4]<br>letzte Ortgung:<br>$zeile[5]'; ";
+% # print"  window.alert('show_pdid($zeile[1], $zeile[0])');";
+% # print " window.alert('  $sql  ');";
+% # print"  load();";
+</script>
+</%method>
+
+<%method egon_ajax_test>
+    <%attr>
+        ajax => 1
+        update => 'target'
+        form => 'xxx'
+    </%attr>
+    iks UEbsilon 
+    test paraaam = <% $ARGS{test} %>
+% open (FH,">>/www/out.txt");
+% print FH "yo\n";
+% close FH;
+</%method>
+											       
+<%method egon_ajax_js_test>
+    <%attr>
+        ajax => 1
+        form => 'xxx'
+        update => 'dummy_js'
+    </%attr>
+<script>
+    window.alert('yo');
+</script>
+</%method>