nginx_static/file_10kb.file

<%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>