DZone Snippets: location code

Programmatically Change a Crystal Reports datasource location

Will_Rickards (Will Rickards) — Wed, 16 May 2007 20:30:09 GMT

I had an aspx.net project where I needed to generate a pdf.
I used crystal to do the heavy lifting of geneating the pdf for me.
But as I needed to deploy it to multiple databases/clients I needed a way of programmatically changing the datasource location of the report. So with a bit of help from the crystal knowledgebase here is the code I use.
There is a lot of debugging information in here and trust me when it fails you need it.
The .dbo of the location reference obviously means I was working with sql server.



   ' --------------------------------------------------------------------------

   ' SetupReport

   '

   ' Description:

   '    sets up the crystal report

   '

   ' Arguments:

   '    objCrystalReportDocument             - crystal report document object

   '

   ' Dependencies:

   '    GetConnnectionInfo

   '    CrystalDescisions

   '

   ' History:

   ' 03/17/2006 - WSR : created

   '

   Private Function SetupReport(ByRef objCrystalReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument) As System.Boolean



      ' a heck of a lot of objects used

      Dim crParameterDiscreteValue As CrystalDecisions.Shared.ParameterDiscreteValue

      Dim crParameterFieldDefinitions As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions

      Dim crParameterFieldLocation As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition

      Dim crParameterValues As CrystalDecisions.Shared.ParameterValues

      Dim crSections As CrystalDecisions.CrystalReports.Engine.Sections

      Dim crSection As CrystalDecisions.CrystalReports.Engine.Section

      Dim crReportObjects As CrystalDecisions.CrystalReports.Engine.ReportObjects

      Dim crReportObject As CrystalDecisions.CrystalReports.Engine.ReportObject

      Dim crSubreportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument

      Dim crSubreportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject

      Dim crConnectionInfo As CrystalDecisions.Shared.ConnectionInfo

      Dim crDatabase As CrystalDecisions.CrystalReports.Engine.Database

      Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables

      Dim aTable As CrystalDecisions.CrystalReports.Engine.Table

      Dim bTable As CrystalDecisions.CrystalReports.Engine.Table

      Dim crTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo

      Dim blnTest As System.Boolean

      Dim strLocation As System.String

      Dim blnErrors As System.Boolean



      ' instantiate the debug page

      m_strDebugPage = New System.Text.StringBuilder(4096)

      blnErrors = False



      crConnectionInfo = GetConnectionInfo()



      crDatabase = objCrystalReportDocument.Database



      crTables = crDatabase.Tables



      'For intCounter = 0 To objCrystalReportDocument.Database.Tables.Count - 1

      For Each aTable In crTables



         crTableLogOnInfo = aTable.LogOnInfo



         OutputDebugLine("BEFORE")

         OutputDebugLine("TABLE NAME: " & aTable.Name)

         OutputDebugLine("TABLE LOC: " & aTable.Location)

         OutputDebugLine("SERVER: " & crTableLogOnInfo.ConnectionInfo.ServerName)

         OutputDebugLine("DB: " & crTableLogOnInfo.ConnectionInfo.DatabaseName)

         OutputDebugLine("UID: " & crTableLogOnInfo.ConnectionInfo.UserID)

         OutputDebugLine("PWD: " & crTableLogOnInfo.ConnectionInfo.Password)

         OutputDebugLine("RN: " & crTableLogOnInfo.ReportName)

         OutputDebugLine("TN: " & crTableLogOnInfo.TableName)



         crTableLogOnInfo.ConnectionInfo = crConnectionInfo

         aTable.ApplyLogOnInfo(crTableLogOnInfo)

         strLocation = crConnectionInfo.DatabaseName & ".dbo." & aTable.Location.Substring(aTable.Location.LastIndexOf(".") + 1)

         OutputDebugLine("New Location: " & strLocation)

         Try

            aTable.Location = strLocation

         Catch ex As Exception

            OutputDebugLine("Set Location Error: " & ex.ToString)

            blnErrors = True

         End Try



         OutputDebugLine("AFTER")

         OutputDebugLine("TABLE NAME: " & aTable.Name)

         OutputDebugLine("TABLE LOC: " & aTable.Location)

         OutputDebugLine("SERVER: " & crTableLogOnInfo.ConnectionInfo.ServerName)

         OutputDebugLine("DB: " & crTableLogOnInfo.ConnectionInfo.DatabaseName)

         OutputDebugLine("UID: " & crTableLogOnInfo.ConnectionInfo.UserID)

         OutputDebugLine("PWD: " & crTableLogOnInfo.ConnectionInfo.Password)

         OutputDebugLine("RN: " & crTableLogOnInfo.ReportName)

         OutputDebugLine("TN: " & crTableLogOnInfo.TableName)

         Try

            blnTest = aTable.TestConnectivity()

            OutputDebugLine("CONNECTED? " & blnTest.ToString())

         Catch ex As Exception

            OutputDebugLine("CONNECTED? NO")

            OutputDebugLine(ex.ToString)

            blnErrors = True

         End Try



         '// THIS STUFF HERE IS FOR REPORTS HAVING SUBREPORTS 

         '// set the sections object to the current report's section 

         crSections = objCrystalReportDocument.ReportDefinition.Sections



         '// loop through all the sections to find all the report objects 

         For Each crSection In crSections



            crReportObjects = crSection.ReportObjects



            '//loop through all the report objects in there to find all subreports 

            For Each crReportObject In crReportObjects



               If crReportObject.Kind = ReportObjectKind.SubreportObject Then



                  crSubreportObject = CType(crReportObject, CrystalDecisions.CrystalReports.Engine.SubreportObject)

                  '//open the subreport object and logon as for the general report 

                  crSubreportDocument = crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)

                  crDatabase = crSubreportDocument.Database

                  crTables = crDatabase.Tables



                  For Each bTable In crTables



                     crTableLogOnInfo = bTable.LogOnInfo



                     OutputDebugLine("BEFORE")

                     OutputDebugLine("TABLE NAME: " & bTable.Name)

                     OutputDebugLine("TABLE LOC: " & bTable.Location)

                     OutputDebugLine("SERVER: " & crTableLogOnInfo.ConnectionInfo.ServerName)

                     OutputDebugLine("DB: " & crTableLogOnInfo.ConnectionInfo.DatabaseName)

                     OutputDebugLine("UID: " & crTableLogOnInfo.ConnectionInfo.UserID)

                     OutputDebugLine("PWD: " & crTableLogOnInfo.ConnectionInfo.Password)

                     OutputDebugLine("RN: " & crTableLogOnInfo.ReportName)

                     OutputDebugLine("TN: " & crTableLogOnInfo.TableName)



                     crTableLogOnInfo.ConnectionInfo = crConnectionInfo

                     bTable.ApplyLogOnInfo(crTableLogOnInfo)

                     strLocation = crConnectionInfo.DatabaseName & ".dbo." & bTable.Location.Substring(bTable.Location.LastIndexOf(".") + 1)

                     OutputDebugLine("New Location: " & strLocation)

                     Try

                        bTable.Location = strLocation

                     Catch ex As Exception

                        OutputDebugLine("Set Location Error: " & ex.ToString)

                        blnErrors = True

                     End Try



                     OutputDebugLine("AFTER")

                     OutputDebugLine("TABLE NAME: " & bTable.Name)

                     OutputDebugLine("TABLE LOC: " & bTable.Location)

                     OutputDebugLine("SERVER: " & crTableLogOnInfo.ConnectionInfo.ServerName)

                     OutputDebugLine("DB: " & crTableLogOnInfo.ConnectionInfo.DatabaseName)

                     OutputDebugLine("UID: " & crTableLogOnInfo.ConnectionInfo.UserID)

                     OutputDebugLine("PWD: " & crTableLogOnInfo.ConnectionInfo.Password)

                     OutputDebugLine("RN: " & crTableLogOnInfo.ReportName)

                     OutputDebugLine("TN: " & crTableLogOnInfo.TableName)

                     Try

                        blnTest = bTable.TestConnectivity()

                        OutputDebugLine("CONNECTED? " & blnTest.ToString())

                     Catch ex As Exception

                        OutputDebugLine("CONNECTED? NO")

                        OutputDebugLine(ex.ToString)

                        blnErrors = True

                     End Try



                  Next bTable



               End If



            Next crReportObject



         Next crSection



      Next aTable



      ' get parameter fields from report

      crParameterFieldDefinitions = objCrystalReportDocument.DataDefinition.ParameterFields



      '    ' Set the first parameter

      '    ' - Get the parameter, tell it to use the current values vs default value.

      '    ' - Tell it the parameter contains 1 discrete value vs multiple values.

      '    ' - Set the parameter's value.

      '    ' - Add it and apply it.

      '    ' - Repeat these statements for each parameter.

      '    '

      crParameterFieldLocation = crParameterFieldDefinitions.Item("@psindex")

      crParameterValues = crParameterFieldLocation.CurrentValues

      crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue

      crParameterDiscreteValue.Value = m_intReportID

      crParameterValues.Add(crParameterDiscreteValue)

      crParameterFieldLocation.ApplyCurrentValues(crParameterValues)



      ' if there were errors

      If blnErrors Then



         ' display debug page

         OutputDebugPage()



      End If



   End Function

   ' --------------------------------------------------------------------------





   ' --------------------------------------------------------------------------

   ' GetConnectionInfo

   '

   ' Description:

   '    retrieves the connection information from the data layer object

   '

   ' Arguments: none

   '

   ' Dependencies:

   '    DataLayer.GetConnectInfo

   '

   ' History:

   ' 03/17/2006 - WSR : created

   '

   Private Function GetConnectionInfo() As CrystalDecisions.Shared.ConnectionInfo



      Dim objConnectionInfo As CrystalDecisions.Shared.ConnectionInfo

      Dim strDSN As System.String

      Dim strDB As System.String

      Dim strUID As System.String

      Dim strPWD As System.String

      Dim blnTrust As System.Boolean



      ' get connection information from data layer

      m_objDataLayer.GetConnectInfo(strDSN, strDB, strUID, strPWD, blnTrust)



      ' create new crystal connection info object

      objConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo



      ' populate it

      objConnectionInfo.IntegratedSecurity = False

      objConnectionInfo.ServerName = strDSN

      objConnectionInfo.UserID = strUID

      objConnectionInfo.Password = strPWD

      objConnectionInfo.DatabaseName = strDB



      ' return object

      GetConnectionInfo = objConnectionInfo



   End Function

   ' --------------------------------------------------------------------------



   ' --------------------------------------------------------------------------

   ' OutputDebugLine

   '

   ' Description: appends a line to the debug string builder

   '

   ' Arguments: text to add

   '

   ' Dependencies:

   '    m_strDebugPage

   '

   ' History:

   ' 03/17/2006 - WSR : created

   ' 2007.04.25 - WSR : revised to use string builder

   '

   Function OutputDebugLine(ByVal strLine As System.String) As System.Boolean



      m_strDebugPage.Append("" & Server.HtmlEncode(strLine) & "")



   End Function

   ' --------------------------------------------------------------------------





   ' --------------------------------------------------------------------------

   ' OutputDebugPage

   '

   ' Description: sends debug string builder to response

   '

   ' Arguments: none

   '

   ' Dependencies:

   '    m_strDebugPage

   '

   ' History:

   ' 2007.04.25 - WSR : created

   '

   Function OutputDebugPage() As System.Boolean



      With Response

         .ClearHeaders()

         .ClearContent()

         .ContentType = "text/html"

      End With



      Response.Write("Debug Page")

      Response.Write(m_strDebugPage.ToString())

      Response.Write("")



      Response.Flush()

      Response.End()



   End Function

   ' --------------------------------------------------------------------------

IP Location on Google Maps

haqu (Sergey) — Sat, 14 Apr 2007 13:33:01 GMT

/*
Example of usage:
$ ./lip.rb snippets.dzone.com
. Hostname: snippets.dzone.com
. Country Code: US
. Country Name: United States
. Region: CA
. Region Name: California
. City: Los Angeles
. Postal Code: 90017
. Latitude: 34.0530
. Longitude: -118.2642
. ISP: CoreExpress
. Organization: CoreExpress
. Metro Code: 803
. Area Code: 213
. Google Maps URL: http://maps.google.com/maps?q=34.0530,+-118.2642&iwloc=A&hl=en
*/



#!/usr/bin/env ruby -w



if ARGV.empty?

  puts <<-T

Locate IP by haqu

usage: ./lip.rb ip|domain ...

  T

  exit

end



require 'net/http'

require 'uri'



uri = URI.parse('http://www.maxmind.com/app/locate_ip')

res = Net::HTTP.post_form(uri,

  { 'ips' => ARGV.join(' '),

    'type' => '', 'u' => '', 'p' => ''

  } )

fstr = res.body



fstr.gsub!("Edition Results<\/span>

","CHECKPOINT") fstr =~ /CHECKPOINT(.+?)<\/table>/m fields = $1.grep(/<(th|td)>/) fields.each do |f| f.strip! f.gsub!(/<[^>]+>/,"") end (0...13).each do |i| puts ". #{fields[i]}: #{fields[i+13]}" end maplink = "http://maps.google.com/maps?q=#{fields[20]},+#{fields[21]}&iwloc=A&hl=en" puts ". Google Maps URL: #{maplink}"

Which class file is loaded by the classloader ?

nivek (Kevin Gaudin) — Fri, 23 Mar 2007 11:38:37 GMT

When using lots of third-party libraries, one problem might be that 2 of them package different versions of the same class, producing errors when method version conflicts happen.

Here is a simple way to know the exact location used by the classloader to get your class :



URL myClassURL = MyMysteryClass.class.getProtectionDomain().getCodeSource().getLocation();

Response::redirect //PHP Function

jonasraoni (Jonas Raoni Soares Silva) — Sun, 20 Aug 2006 21:28:28 GMT



class Response{

	function redirect($url){

		exit(header('Location: ' . $url));

	}

}

gps gsm location python s60

ollip1 () — Mon, 15 May 2006 21:09:44 GMT

Hi Guys,

I've just put together two smaller Python apps I've seen around in this discussion board.

The resulting app prints 1) info obtained by a BT gps (i.e. $GPRMC sentence, but may change as you like) and 2) GSM cell id.

My wish is to collect these info periodically (i.e. 2/3 minutes) and send them back via an HTTP POST to a specified host.... could anybody help? ;-)

Thanks

-Luca

____________________________________

# Simple BT App
#$GPRMC,161229.487,A,3723.2475,N,12158.3416,W,0.13,309.62,120598, ,*10

import socket,location,urllib

class BTReader:

def connect(self):
self.sock=socket.socket(socket.AF_BT,socket.SOCK_STREAM)
address,services=socket.bt_discover()
print "Discovered: %s, %s"%(address,services)
target=(address,services.values()[0])
print "Connecting to "+str(target)
self.sock.connect(target)

def readposition(self):
try:
buffer=""
ch = self.sock.recv(1)
while(ch !='\n'):
buffer+=ch
ch = self.sock.recv(1)
# print buffer

if (buffer[0:6]=="$GPRMC"):
(GPRMC,utc,status,lat,latns,lon,lonew,knots,course,date,xx1,xx2)=buffer.split(",")
return "GPS (%s,%s,%s,%s,%s)"%(utc,lat+latns,lon+lonew,knots,course)
except Error:
return "Error!\n"
return ""

def close(self):
self.sock.close()

class GSM_loc:

def upd(self):
self.loc = location.gsm_location()
return "GSM (MCC:%s MNC:%s LAC:%s CID=%s)"%(self.loc[0], self.loc[1], self.loc[2], self.loc[3])

gsm = GSM_loc()

bt=BTReader()
bt.connect()

i=0
while (i<15):
print gsm.upd()
print bt.readposition()
i+=1

bt.close()

Location queries for a model

ajturner (Andrew Turner) — Wed, 12 Apr 2006 05:46:45 GMT

// These are class functions which are useful for finding locations in a database
// when PostGIS is not available (when using MySQL for example)



def self.deg2rad(deg)

	(deg * Math::PI / 180)

end



def self.rad2deg(rad)

	(rad * 180 / Math::PI)

end



def self.acos(rad)

	Math.atan2(Math.sqrt(1 - rad**2), rad)

end



def self.distance_in_miles(loc1, loc2)

	lat1 = loc1.latitude

	lon1 = loc1.longitude

	lat2 = loc2.latitude

	lon2 = loc2.longitude

	theta = lon1 - lon2

	

	dist = Math.sin(self.deg2rad(lat1)) * Math.sin(deg2rad(lat2)) 

		+ Math.cos(self.deg2rad(lat1)) * Math.cos(self.deg2rad(lat2)) * Math.cos(deg2rad(theta))

	

	dist = self.rad2deg(self.acos(dist))

	

	(dist * 60 * 1.1515).round #distance in miles

end



def miles_to(location)

	Location.distance_in_miles(self, location)

end



def self.locationArea(location, miles)

	radius = miles.to_f

	latR = radius / ((6076 / 5280) * 60)

	lonR = radius / (((Math.cos(location.latitude * Math::PI / 180) * 6076) / 5280) * 60)

	

	{

		:min_latitude => location.latitude - latR,

		:min_longitude => location.longitude - lonR,

		:max_latitude => location.latitude + latR,

		:max_longitude => location.longitude + lonR

	}

end



def self.location_ids_in_range(location, miles)

	la = Location.locationArea(location, miles)

	Location.find(:all,

		:select => "locations.id",

		:conditions => ["locations.latitude <= ? and locations.latitude >= ? " + \

			" AND locations.longitude >= ? and locations.longitude <= ?",

			la[:max_latitude], la[:min_latitude], la[:min_longitude], la[:max_longitude]

		]

	).collect { |l| l.id }

end



def self.locations_in_range(location, miles)

	la = Location.locationArea(location, miles)

	Location.find(:all,

		:conditions => ["locations.latitude <= ? and locations.latitude >= ? " + \

			" AND locations.longitude >= ? and locations.longitude <= ?",

			la[:max_latitude], la[:min_latitude], la[:min_longitude], la[:max_longitude]

		]

	)

end

Export a GoogleEarth KML file to CSV output

ajturner (Andrew Turner) — Sat, 25 Mar 2006 18:56:47 GMT

# Parses a GoogleEarth KML file and writes the pertinent data to a CSV file

#
#
#
# Folder Name
# 1
#
# ... Screen Overlays
#
#
# Document Name
# 1
#
# ... Schema Def ...
#
#
#
# FolderName
#
# Location name 1
#
# #khStyle16037
#
# relativeToGround
# -81.85829063169155,29.12257052899974,100
#
# Column 1 data
# Column 2 data
#
#
# Location name 2
#
# #khStyle16037
#
# relativeToGround
# -81.85829063169155,29.12257052899974,100
#
# Column 1 data
# Column 2 data
#
#
# ... More Locations ...
#
#
#
#



require "rexml/document"

include REXML

kmlroot = (Document.new File.new "data.kml").root

nodes = kmlroot.elements.to_a("//Location")



begin

	f = File.open("data.csv", "w")

	f << "id,column1,column2,latitude,longitude"\n"

	id = 1

	nodes.each { |node|

		column1 = node.elements["column1"].text

		column2 = node.elements["column2"].text

		coords = node.elements["Point"].elements["coordinates"].text.split(",")

		f << [id, column1, column2, coords[1], coords[0] ].join(",") << "\n"

		id += 1

	}

ensure

	f.close

end

US State Abbreviations to Full name

ajturner (Andrew Turner) — Sat, 25 Mar 2006 18:47:19 GMT

# US State abbreviations to full name
# state_name = state_abbr.[]("MI")



state_abbr = {

  'AL' => 'Alabama',

  'AK' => 'Alaska',

  'AS' => 'America Samoa',

  'AZ' => 'Arizona',

  'AR' => 'Arkansas',

  'CA' => 'California',

  'CO' => 'Colorado',

  'CT' => 'Connecticut',

  'DE' => 'Delaware',

  'DC' => 'District of Columbia',

  'FM' => 'Micronesia1',

  'FL' => 'Florida',

  'GA' => 'Georgia',

  'GU' => 'Guam',

  'HI' => 'Hawaii',

  'ID' => 'Idaho',

  'IL' => 'Illinois',

  'IN' => 'Indiana',

  'IA' => 'Iowa',

  'KS' => 'Kansas',

  'KY' => 'Kentucky',

  'LA' => 'Louisiana',

  'ME' => 'Maine',

  'MH' => 'Islands1',

  'MD' => 'Maryland',

  'MA' => 'Massachusetts',

  'MI' => 'Michigan',

  'MN' => 'Minnesota',

  'MS' => 'Mississippi',

  'MO' => 'Missouri',

  'MT' => 'Montana',

  'NE' => 'Nebraska',

  'NV' => 'Nevada',

  'NH' => 'New Hampshire',

  'NJ' => 'New Jersey',

  'NM' => 'New Mexico',

  'NY' => 'New York',

  'NC' => 'North Carolina',

  'ND' => 'North Dakota',

  'OH' => 'Ohio',

  'OK' => 'Oklahoma',

  'OR' => 'Oregon',

  'PW' => 'Palau',

  'PA' => 'Pennsylvania',

  'PR' => 'Puerto Rico',

  'RI' => 'Rhode Island',

  'SC' => 'South Carolina',

  'SD' => 'South Dakota',

  'TN' => 'Tennessee',

  'TX' => 'Texas',

  'UT' => 'Utah',

  'VT' => 'Vermont',

  'VI' => 'Virgin Island',

  'VA' => 'Virginia',

  'WA' => 'Washington',

  'WV' => 'West Virginia',

  'WI' => 'Wisconsin',

  'WY' => 'Wyoming'

}

Average US State Locations

ajturner (Andrew Turner) — Sat, 25 Mar 2006 18:44:20 GMT

# A hash table of average US State Locations (latitude, longitude)
# MI_Location = state_locations.[]("MI")



state_locations = {

  'AK' => [61.3850,-152.2683],

  'AL' => [32.7990,-86.8073],

  'AR' => [34.9513,-92.3809],

  'AS' => [14.2417,-170.7197],

  'AZ' => [33.7712,-111.3877],

  'CA' => [36.1700,-119.7462],

  'CO' => [39.0646,-105.3272],

  'CT' => [41.5834,-72.7622],

  'DC' => [38.8964,-77.0262],

  'DE' => [39.3498,-75.5148],

  'FL' => [27.8333,-81.7170],

  'GA' => [32.9866,-83.6487],

  'HI' => [21.1098,-157.5311],

  'IA' => [42.0046,-93.2140],

  'ID' => [44.2394,-114.5103],

  'IL' => [40.3363,-89.0022],

  'IN' => [39.8647,-86.2604],

  'KS' => [38.5111,-96.8005],

  'KY' => [37.6690,-84.6514],

  'LA' => [31.1801,-91.8749],

  'MA' => [42.2373,-71.5314],

  'MD' => [39.0724,-76.7902],

  'ME' => [44.6074,-69.3977],

  'MI' => [43.3504,-84.5603],

  'MN' => [45.7326,-93.9196],

  'MO' => [38.4623,-92.3020],

  'MP' => [14.8058,145.5505],

  'MS' => [32.7673,-89.6812],

  'MT' => [46.9048,-110.3261],

  'NC' => [35.6411,-79.8431],

  'ND' => [47.5362,-99.7930],

  'NE' => [41.1289,-98.2883],

  'NH' => [43.4108,-71.5653],

  'NJ' => [40.3140,-74.5089],

  'NM' => [34.8375,-106.2371],

  'NV' => [38.4199,-117.1219],

  'NY' => [42.1497,-74.9384],

  'OH' => [40.3736,-82.7755],

  'OK' => [35.5376,-96.9247],

  'OR' => [44.5672,-122.1269],

  'PA' => [40.5773,-77.2640],

  'PR' => [18.2766,-66.3350],

  'RI' => [41.6772,-71.5101],

  'SC' => [33.8191,-80.9066],

  'SD' => [44.2853,-99.4632],

  'TN' => [35.7449,-86.7489],

  'TX' => [31.1060,-97.6475],

  'UT' => [40.1135,-111.8535],

  'VA' => [37.7680,-78.2057],

  'VI' => [18.0001,-64.8199],

  'VT' => [44.0407,-72.7093],

  'WA' => [47.3917,-121.5708],

  'WI' => [44.2563,-89.6385],

  'WV' => [38.4680,-80.9696],

  'WY' => [42.7475,-107.2085]

}

Mobile location information

korakot (Korakot Chaovavanich) — Wed, 11 May 2005 16:54:07 GMT



import location

mcc, mnc, lac, cellid = location.gsm_location()

# lac, cellid can be used to guess your location

mcc = Mobile Country Code
mnc = Mobile Network Code
lac = Location Area Code
cellid = Cell Id

mcc and mnc is the same wherever you are.
Normally, you would collect some data of your location
and match it with lac/cellid. Then later you can guess
your location from current lac/cellid.