#!/usr/local/bin/ruby
#
# An example of using HTTP POST to retrieve sunrise/set data
#
# Author : Brian Adkins
# Site : http://lojic.com
# License: Just leave copyright notice :)
# Copyright 2009 Brian Adkins, all rights reserved
#
# Reference: http://aa.usno.navy.mil/data/docs/RS_OneDay.php
#
# "If you plan to write your own form to access the cgi script for
# sunrise/sunset calculations (not recommended), please use the above
# line in your form but substitute in the value field an identifier of
# your own choosing, up to 8 characters. For example, <input
# type="hidden" name="ID", value="UCLA"> . If you are setting this up
# for an institution, please e-mail us (at ) and let us know what
# identifier you are using and who you are. Thanks... this allows us to
# keep track of all our users, even those who bypass our normal web
# usage log, and helps us justify our work on the web. (Nothing in this
# note should be construed as encouragement to set up your own form, as
# we do not guarantee that either our form or the program called by the
# cgi script will not change.)"
# Here's a simple Emacs function to invoke this Ruby script if it's
# executable and available in the path
# (defun bja-sunrise ()
# "Display sunrise/sunset information."
# (interactive)
# (shell-command "sunrise_http_post.rb"))
require 'net/http'
YOUR_ID = '' # A unique ID per comment above
YOUR_CITY = '' # The name of your city
YOUR_STATE = '' # Two letter state abbreviation
now = Time.now
month = now.month
day = now.day + 1 # Tomorrow
year = now.year
Net::HTTP.start('aa.usno.navy.mil') do |query|
response = query.post('/cgi-bin/aa_pap.pl', "FFX=1&ID=#{YOUR_ID}&xxy=#{year}&xxm=#{month}&xxd=#{day}&st=#{YOUR_STATE}&place=#{YOUR_CITY}&ZZZ=END")
if response.body =~ /Begin civil twilight[^0-9]*(\d+:\d{2} [ap].m.).*Sunrise[^0-9]*(\d+:\d{2} [ap].m.).*Sunset[^0-9]*(\d+:\d{2} [ap].m.).*End civil twilight[^0-9]*(\d+:\d{2} [ap].m.)/m
puts "#{month}/#{day}/#{year}"
puts "Begin Twilight: #{$1}"
puts "Sunrise : #{$2}"
puts "Sunset : #{$3}"
puts "End Twilight : #{$4}"
end
end
