[ Index ]

PHP Cross Reference of Moodle 1.9.3 [Build 15-Oct-2008]

title

Body

[close]

/iplookup/ -> index.php (source)

   1  <?php // $Id: index.php,v 1.2.8.1 2008/01/02 16:49:04 skodak Exp $
   2  ///////////////////////////////////////////////////////////////////////////
   3  //                                                                       //
   4  // NOTICE OF COPYRIGHT                                                   //
   5  //                                                                       //
   6  // Moodle - Modular Object-Oriented Dynamic Learning Environment         //
   7  //          http://moodle.org                                            //
   8  //                                                                       //
   9  // Copyright (C) 2008 onwards  Petr Skoda (skodak)                       //
  10  //                                                                       //
  11  // This program is free software; you can redistribute it and/or modify  //
  12  // it under the terms of the GNU General Public License as published by  //
  13  // the Free Software Foundation; either version 2 of the License, or     //
  14  // (at your option) any later version.                                   //
  15  //                                                                       //
  16  // This program is distributed in the hope that it will be useful,       //
  17  // but WITHOUT ANY WARRANTY; without even the implied warranty of        //
  18  // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         //
  19  // GNU General Public License for more details:                          //
  20  //                                                                       //
  21  //          http://www.gnu.org/copyleft/gpl.html                         //
  22  //                                                                       //
  23  ///////////////////////////////////////////////////////////////////////////
  24  
  25  require ('../config.php');
  26  require_once($CFG->libdir.'/filelib.php');
  27  require_once($CFG->libdir.'/geoip/geoipcity.inc');
  28  
  29  require_login();
  30  
  31  $ip   = optional_param('ip', getremoteaddr(), PARAM_HOST);
  32  $user = optional_param('user', $USER->id, PARAM_INT);
  33  
  34  if (isset($CFG->iplookup)) {
  35      //clean up of old settings
  36      set_config('iplookup', NULL);
  37  }
  38  
  39  $info = array($ip);
  40  $note = array();
  41  
  42  if (!preg_match('/(^\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/', $ip, $match)) {
  43      print_error('invalidipformat', 'error');
  44  }
  45  
  46  if ($match[1] > 255 or $match[2] > 255 or $match[3] > 255 or $match[4] > 255) {
  47      print_error('invalidipformat', 'error');
  48  }
  49  
  50  if ($match[1] == '127' or $match[1] == '10' or ($match[1] == '172' and $match[2] >= '16' and $match[2] <= '31') or ($match[1] == '192' and $match[2] == '168')) {
  51      print_error('iplookupprivate', 'error');
  52  }
  53  
  54  if ($user) {
  55      if ($user = get_record('user', 'id', $user, 'deleted', 0)) {
  56          $info[] = fullname($user);
  57      }
  58  }
  59  
  60  if (!empty($CFG->geoipfile) and file_exists($CFG->geoipfile)) {
  61      $gi = geoip_open($CFG->geoipfile, GEOIP_STANDARD);
  62      $location = geoip_record_by_addr($gi, $ip);
  63      geoip_close($gi);
  64  
  65      if (empty($location)) {
  66          print_error('iplookupfailed', 'error', '', $ip);
  67      }
  68      if (!empty($location->city)) {
  69          $info[] = $location->city;
  70      }
  71  
  72      if (!empty($location->country_code)) {
  73          $countries = get_list_of_countries();
  74          if (isset($countries[$location->country_code])) {
  75              // prefer our localized country names
  76              $info[] = $countries[$location->country_code];
  77          } else {
  78              $info[] = $location->country_name;
  79          }
  80      }
  81      $longitude = $location->longitude;
  82      $latitude  = $location->latitude;
  83      $note[] = get_string('iplookupmaxmindnote', 'admin');
  84  
  85  } else {
  86      $ipdata = download_file_content('http://netgeo.caida.org/perl/netgeo.cgi?target='.$ip);
  87      if ($ipdata === false) {
  88          error('Can not connect to NetGeo server at http://netgeo.caida.org, please check proxy settings or better install MaxMind GeoLite City data file.');
  89      }
  90      $matches = null;
  91      if (!preg_match('/LAT:\s*(-?\d+\.\d+)/s', $ipdata, $matches)) {
  92          print_error('iplookupfailed', 'error', '', $ip);
  93      }
  94      $latitude  = (float)$matches[1];
  95      if (!preg_match('/LONG:\s*(-?\d+\.\d+)/s', $ipdata, $matches)) {
  96          print_error('iplookupfailed', 'error', '', $ip);
  97      }
  98      $longitude = (float)$matches[1];
  99  
 100      if (preg_match('/CITY:\s*([^<]*)/', $ipdata, $matches)) {
 101          if (!empty($matches[1])) {
 102              $info[] = s($matches[1]);
 103          }
 104      }
 105  
 106      if (preg_match('/COUNTRY:\s*([^<]*)/', $ipdata, $matches)) {
 107          if (!empty($matches[1])) {
 108              $countrycode = $matches[1];
 109              $countries = get_list_of_countries();
 110              if (isset($countries[$countrycode])) {
 111                  // prefer our localized country names
 112                  $info[] = $countries[$countrycode];
 113              } else {
 114                  $info[] = $countrycode;
 115              }
 116          }
 117      }
 118      $note[] = get_string('iplookupnetgeonote', 'admin');
 119  }
 120  
 121  
 122  
 123  if (empty($CFG->googlemapkey)) {
 124      $info = implode(' - ', $info);
 125      $note = implode('<br />', $note);
 126  
 127      $imgwidth  = 620;
 128      $imgheight = 310;
 129      $dotwidth  = 18;
 130      $dotheight = 30;
 131  
 132      $dx = round((($longitude + 180) * ($imgwidth / 360)) - $imgwidth - $dotwidth/2);
 133      $dy = round((($latitude + 90) * ($imgheight / 180)));
 134  
 135      print_header(get_string('iplookup', 'admin').': '.$info, $info);
 136  
 137      echo '<div id="map" style="width:'.($imgwidth+$dotwidth).'px; height:'.$imgheight.'px;">';
 138      echo '<img src="earth.jpeg" style="width:'.$imgwidth.'px; height:'.$imgheight.'px" alt="" />';
 139      echo '<img src="marker.gif" style="width:'.$dotwidth.'px; height:'.$dotheight.'px; margin-left:'.$dx.'px; margin-bottom:'.$dy.'px;" alt="" />';
 140      echo '</div>';
 141      echo '<div id="note">'.$note.'</div>';
 142      print_footer('empty');
 143  
 144  } else {
 145      $info = implode(' - ', $info);
 146      $note = implode('<br />', $note);
 147  
 148      $meta = '
 149  <script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key='.$CFG->googlemapkey.'" type="text/javascript"></script>
 150  <script type="text/javascript">
 151  
 152  //<![CDATA[
 153  
 154  function load() {
 155    if (GBrowserIsCompatible()) {
 156      var map = new GMap2(document.getElementById("map"));
 157      map.addControl(new GSmallMapControl());
 158      map.addControl(new GMapTypeControl());
 159      var point = new GLatLng('.$latitude.', '.$longitude.');
 160      map.setCenter(point, 4);
 161      map.addOverlay(new GMarker(point));
 162      map.setMapType(G_HYBRID_MAP);
 163    }
 164  }
 165  
 166  //]]>
 167  </script>
 168  ';
 169  
 170      print_header(get_string('iplookup', 'admin').': '.$info, $info, '', '', $meta, false, '&nbsp;', '', false, 'onload="load()" onunload="GUnload()"');
 171  
 172      echo '<div id="map" style="width: 650px; height: 360px"></div>';
 173      echo '<div id="note">'.$note.'</div>';
 174      print_footer('empty');
 175  }
 176  
 177  ?>


Generated: Wed Jan 14 11:33:29 2009 Cross-referenced by PHPXref 0.7