@prefix r: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>.
@prefix dt: <http://www.w3.org/2001/XMLSchema#>.
@prefix k: <http://opencyc.sourceforge.net/daml/cyc.daml#>.
@prefix log: <http://www.w3.org/2000/10/swap/log#>.
@prefix str: <http://www.w3.org/2000/10/swap/string#>.
@prefix os: <http://www.w3.org/2000/10/swap/os#>.

@prefix cal: <http://www.w3.org/2002/12/cal/ical#>.
@prefix l: <http://www.w3.org/2002/12/cal/league@@#>.

@prefix : <#>.

# args: coach's mailbox, coach's name
{ ?T l:coach ?WHO.
  ?WHO r:value ?NAME.
  "2" os:argv ?NAME.
  "1" os:argv ?M.
  "3" os:argv ?TNAME.
  ?MBOX log:uri ("mailto:" ?M).str:concatenation.
} => {
  ?WHO cal:calAddress ?MBOX; cal:cn ?NAME.
  ?T :calendar [ a cal:Vcalendar ]; k:nameOfAgent ?TNAME.
}.


#
# put a team's game in their calendar
#
l:homeTeam a :TeamProp.
l:awayTeam a :TeamProp.

{
  ?T :calendar ?CAL.
  ?TP a :TeamProp.
  ?GAME ?TP ?T;
    k:startingPoint ?WHEN.

  ( ?GAME!log:rawUri "@uri-2-mid.w3.org") str:concatenation ?UID. #@@hmm... kludge?
}
 => {
 ?CAL cal:component ?GAME.
 ?GAME
   a cal:Vevent; cal:uid ?UID;
   cal:dtstart ?WHEN;
 .
}.


# summary
{
  ?T :calendar ?CAL; k:nameOfAgent ?TEAMNAME.
  ?TP a :TeamProp.
  ?GAME a cal:Vevent;
    ?TP ?T;
    k:eventOccursAt [ r:value ?FLDNUM ].

  ( ?TEAMNAME " on #" ?FLDNUM ) str:concatenation ?SUMMARY.
}
 => {
 ?GAME
   cal:summary ?SUMMARY;
 .
}.


# place
{
  ?E a cal:Vevent;
    k:eventOccursAt [ r:value ?WHERE ].
} => { ?E cal:location ?WHERE }.



# specify times
{
  [] k:startingPoint ?WHEN.
  ?WHEN r:value ?HH_MM;
      k:startingDate [
        dt:date ?YYYYMMDD;
      ].
  (?YYYYMMDD "T" ?HH_MM) str:concatenation ?DATETIME.

} => { ?WHEN cal:dateTime ?DATETIME }.

{ ?E a cal:Vevent;
    l:duration ?DUR.
} => { ?E cal:duration ?DUR  }.


# timezones: all blue valley rec games are in the chicago timezone
{
  [] l:webSite <http://www.bluevalleyrec.org/>;
    k:part ?TEAM.
  ?TP a :TeamProp.
  ?GAME ?TP ?T;
    k:startingPoint ?WHEN.
} => { ?WHEN cal:tzid

# hm... evolution uses "/softwarestudio.org/Olson_20011030_5/America/Chicago"
# but ical uses "US/Central"
  "/softwarestudio.org/Olson_20011030_5/America/Chicago"

 }.