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 } |