GopherProxy

	tsv2ics.awk - ics2txt - convert icalendar .ics file to plain text
	git clone git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws…
	Log
	Files
	Refs
	Tags
	README
	---
	tsv2ics.awk (1973B)
	---
	1 #!/usr/bin/awk -f
	2
	3 function isleap(year)
	4 {
	5 return (year % 4 == 0) && (year % 100 != 0) \|\| (year % 400 == 0)
	6 }
	7
	8 function mdays(mon, year)
	9 {
	10 return (mon == 2) ? (28 + isleap(year)) : (30 + (mon + (mon > 7)…
	11 }
	12
	13 # Split the time in seconds since epoch into a table, with fields
	14 # named as with gmtime(3): tm["year"], tm["mon"], tm["mday"],
	15 # tm["hour"], tm["min"], tm["sec"]
	16 function gmtime(sec, tm,
	17 s)
	18 {
	19 tm["year"] = 1970
	20 while (sec >= (s = 86400 * (365 + isleap(tm["year"])))) {
	21 tm["year"]++
	22 sec -= s
	23 }
	24 tm["mon"] = 1
	25 while (sec >= (s = 86400 * mdays(tm["mon"], tm["year"]))) {
	26 tm["mon"]++
	27 sec -= s
	28 }
	29 tm["mday"] = 1
	30 while (sec >= (s = 86400)) {
	31 tm["mday"]++
	32 sec -= s
	33 }
	34 tm["hour"] = 0
	35 while (sec >= 3600) {
	36 tm["hour"]++
	37 sec -= 3600
	38 }
	39 tm["min"] = 0
	40 while (sec >= 60) {
	41 tm["min"]++
	42 sec -= 60
	43 }
	44 tm["sec"] = sec
	45 }
	46
	47 BEGIN {
	48 FS = "\t"
	49
	50 DTSTART["VEVENT"] = "DTSTART"
	51 DTEND["VEVENT"] = "DTEND"
	52
	53 DTEND["VTODO"] = "DUE"
	54
	55 DTSTART["VJOURNAL"] = "DTSTAMP"
	56
	57 DTSTART["VFREEBUSY"] = "DTSTART"
	58 DTEND["VFREEBUSY"] = "DTEND"
	59
	60 DTSTART["VALARM"] = "DTSTART"
	61
	62 print "BEGIN:VCALENDAR"
	63 print "VERSION:2.0"
	64 print "CALSCALE:GREGORIAN"
	65 print "METHOD:PUBLISH"
	66 }
	67
	68 NR == 1 {
	69 if ($1 != "TYPE" \|\| $2 != "START" \|\| $3 != "END" \|\| $4 != "RECUR…
	70 print "tsv2ics: invalid column names on first line" >"/d…
	71 exit(EXIT = 1)
	72 }
	73 for (i = 1; i <= NF; i++) {
	74 FIELD[$i] = i
	75 NAME[i] = $i
	76 }
	77 next
	78 }
	79
	80 {
	81 type = $FIELD["TYPE"]
	82 print "BEGIN:"type
	83
	84 if (type in DTSTART) {
	85 gmtime($FIELD["START"] + offset, tm)
	86 printf "%s:%04d%02d%02dT%02d%02d00Z\n", DTSTART[type],
	87 tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min…
	88 }
	89
	90 if (type in DTEND) {
	91 gmtime($FIELD["END"] + offset, tm)
	92 printf "%s:%04d%02d%02dT%02d%02d00Z\n", DTEND[type],
	93 tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min…
	94 }
	95
	96 for (i = 5; i in NAME; i++)
	97 print$NAME[i]":"$i
	98
	99 print "END:"type
	100 }
	101
	102 END {
	103 if (EXIT) exit(EXIT)
	104 print ""
	105 print "END:VCALENDAR"
	106 }