#!/usr/bin/perl -w
# -*- perl -*-
######################################################################
# ietf2datebook.pl -- Convert IETF agenda to suitable format for
#		      install-datebook 
# Copyright (c) 1997 Tero Kivinen
#
# This is free software, licensed under the GNU Public License V2.
# See the file COPYING for details.
######################################################################
#         Program: ietf2datebook.pl
#	  $Source: /u/kivinen/pilot-link.0.8.0/RCS/ietf2datebook.pl,v $
#	  Author : $Author: kivinen $
#
#	  (C) Tero Kivinen 1997 <kivinen@iki.fi>
#
#	  Creation          : 03:20 Aug  8 1997 kivinen
#	  Last Modification : 04:13 Aug  8 1997 kivinen
#	  Last check in     : $Date: 1997/08/08 04:30:32 $
#	  Revision number   : $Revision: 1.1 $
#	  State             : $State: Exp $
#	  Version	    : 1.4
#	  Edit time	    : 3 min
#
#	  Description       : Convert IETF agenda to suitable format for
#		      	      install-datebook 
#
######################################################################

while (<>) {
    chomp;
    if (/^(MONDAY|TUESDAY|WEDNESDAY|THURSDAY|FRIDAY|SATURDAY|SUNDAY)\s*,\s*(January|February|March|April|June|July|August|September|October|November|December)\s*(\d+)\s*,\s*(\d+)\s*$/) {
	$date = "$2 $3, $4";
    } elsif (/^(\d\d\d\d)-(\d\d\d\d)\s*(.*)$/) {
	$timestart = $1;
	$timeend = $2;
	$header = $3;
	printf("$date $timestart GMT+300\t$date $timeend GMT+300\t\t$header\n");
    } elsif (/^\s*$/) {
    } elsif (/^\s*(.*)$/) {
	printf("$date $timestart GMT+300\t$date $timeend GMT+300\t\t$header: $1\n");
    } else {
	die "Internal error";
    }
}
