From olivier@audry.fr Wed Jun 24 08:20:23 2026
From: olivier@audry.fr
To: xymon@xymon.com
Subject: [Xymon] your device on a openstreet map
Date: Wed, 21 Dec 2011 12:49:43 +0100
Message-ID: <549829561.76.1324468183612.JavaMail.root@zimbra.minas.fr>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0708789824369009576=="

--===============0708789824369009576==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

hello

here is a quick script to show your device on an openstreet map. Just add a g=
eo:(latitude,longitude) tag run the script and it's ok. If someone know how t=
o draw a ligne between two point let me know :)

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

#    utopia =3D new Marker(new LatLonPoint(43.60394,1.44679))
#    utopia.setInfoBubble('Cin=C3=A9ma Utopia Toulouse');
#    mapstraction.addMarker(utopia);


#Hobbit tag : geo:(48.8859778,2.2191631)

my $hobbit_url =3D "http://xymon-gdf.fr.colt.net";
my $itraw =3D `xymongrep geo:* | grep CPE | awk '{print \$2" "\$4}'`;
my @raw =3D split /\n/, $itraw;
my %bbhosts;
my %res;
my %page_value;

foreach my $var (@raw) {
        my ($host, $geo) =3D split /\s+/, $var;
        $bbhosts{$host} =3D $geo;
}

open FD,">/opt/xymon/server/www/map.html";

print FD '
    <div id=3D"map" ></div>
    <p><a href=3D"http://www.openstreetmap.org/?lat=3D48&lon=3D2.5&zoom=3D7"
    hreflang=3D"en" title=3D"Site du projet OpenStreetMap">
        Voir la carte sur OpenStreetMap.
    </a></p>

    <script
        type=3D"text/javascript"
        src=3D"http://openlayers.org/api/OpenLayers.js"
    ></script>
    <script
        type=3D"text/javascript"
        src=3D"http://mapstraction.com/svn/source/mapstraction.js"
    ></script>

    <script type=3D"text/javascript">
    // Initialisation de la carte.
    var mapstraction =3D new Mapstraction(\'map\',\'openlayers\');
    mapstraction.addControls({
        pan: true,=20
        zoom: \'large\',
        map_type: true=20
    });
    var center =3D new LatLonPoint(48,2.5);
    mapstraction.setCenterAndZoom(center, 7);
';

foreach my $host (keys %bbhosts) {
        my $icons =3D "http://openlayers.org/dev/img/marker-green.png";
        $bbhosts{$host} =3D~ s/geo:\(//;
        $bbhosts{$host} =3D~ s/\)//;
        my $label =3D "$host ";
        my ($lon, $lat) =3D split /,/, $bbhosts{$host} ;
        print FD "$host =3D new Marker(new LatLonPoint($lon,$lat))\n";
        my $tcolor =3D `xymon 0 "xymondboard fields=3Dhostname,testname,color=
 host=3D$host color=3Dred" | grep "$host|"`;
        if (length($tcolor)) {
                my ($t, $service, $color) =3D split /\|/, $tcolor;
                print $tcolor;
                $icons  =3D "http://openlayers.org/dev/img/marker.png";
                $label .=3D "<br><a href=3D\"http://$hobbit_url/xymon-cgi/svc=
status.sh?HOST=3D$host&SERVICE=3D$service\">$service</a> is red";
        }
        print FD "$host.setInfoBubble('$label');\n";
        print FD "$host.setIcon('$icons');\n";
        print FD "mapstraction.addMarker($host);\n";
        print FD "\n";
}

print FD "    </script>
";


--===============0708789824369009576==--