#
# $Id: telconLocalTimes.n3,v 1.8 2005/08/01 16:05:24 connolly Exp $
#
# python ~/w3ccvs/WWW/2000/10/swap/cwm.py --chatty=20  telconLocalTimes.n3 ,who-where.n3 --think --data
#

@prefix cal: <http://www.w3.org/2002/12/cal/icaltzd#>.
@prefix str: <http://www.w3.org/2000/10/swap/string#>.
@prefix log: <http://www.w3.org/2000/10/swap/log#>.
@prefix os: <http://www.w3.org/2000/10/swap/os#>.
@prefix k: <http://opencyc.sourceforge.net/daml/cyc.daml#>.
@prefix map: <http://www.w3.org/2000/10/swap/pim/earthMap#>.

@prefix : <telconLocalTimes#>.
@prefix tlt: <telconLocalTimes#>.

{ "1" os:argv ?WHEN } => {
 [
   cal:dtstart [ cal:dateTime ?WHEN ]
 ].
}.

{
  ?E cal:dtstart [ cal:dateTime ?WHEN ].
  ?WHEN str:endsWith "Z".
  (?WHEN "(\\d\\d\\d\\d)") str:scrape ?YYYY.
  (?WHEN "\\d\\d\\d\\d-(\\d\\d)") str:scrape ?MM.
  (?WHEN "\\d\\d\\d\\d-\\d\\d-(\\d\\d)") str:scrape ?DD.
  (?WHEN "\\d\\d\\d\\d-\\d\\d-\\d\\dT(\\d\\d)") str:scrape ?HH.
  (?WHEN "\\d\\d\\d\\d-\\d\\d-\\d\\dT\\d\\d:(\\d\\d)") str:scrape ?MN.

  ?PG log:uri [ is str:concatenation of (
    "http://www.timeanddate.com/worldclock/fixedtime.html?day=" ?DD
     "&month=" ?MM
     "&year=" ?YYYY
     "&hour=" ?HH
     "&min=" ?MN
     "&sec=0"
   ) ].

} => { ?E :startTimePage ?PG }.

{
  ?TZ a cal:Vtimezone;
    log:uri ?TZI.
  (?TZI "cal/tzd/[^/]+/([^#]+)#") str:scrape ?CITYNAME
} => { [ map:cityName ?CITYNAME ] k:inRegion ?TZ }.


# patch
{ ?WHERE map:cityName "New_York" } => { ?WHERE map:cityName "New York" }.

#<tr class="c1"><td><a href="city.html?n=7">Addis Ababa</a></td><td class=r>Wed 5:30 PM</td>

{
  ?E :startTimePage ?PG.

  ?WHO k:objectFoundInLocation [ k:inRegion ?TZ ].
  ?TZ a cal:Vtimezone.
  [ map:cityName ?TZCITYNAME ] k:inRegion ?TZ.

  ?PG log:content ?TXT.
  (">" ?TZCITYNAME
   "</a>[^<]*</td><td class=\"r\">([^<]+)</td>") str:concatenation ?PAT.

  (?TXT ?PAT) str:scrape ?WHEN.
}
 => {
 ?E
   :localTime (
   ?TZCITYNAME
   ?WHEN
   ).
 }.