diff options
author | Jonas Smedegaard <dr@jones.dk> | 2011-11-16 03:48:17 +0700 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2011-11-16 03:48:17 +0700 |
commit | bd744f1b8e84994c735d33bdec16b8d88754ad9a (patch) | |
tree | de9e67b701f4d417f5382055df22366eb80b54f5 | |
parent | 008982ec8e7630e237b34ce5de8ee26893006e06 (diff) | |
parent | a39bbb3ec0adec1f670d0b471edfc81b4b8648e1 (diff) |
Merge branch 'master' of source.jones.dk:/srv/git/source.jones.dk/bin
-rwxr-xr-x | localics2ics | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/localics2ics b/localics2ics new file mode 100755 index 0000000..d79063f --- /dev/null +++ b/localics2ics @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# +# Copyright © 2011 Jonas Smedegaard <dr@jones.dk> +# Description: Re-encode Icalendar .ics files as strict UTF8 +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA +# 02111-1307 USA. +# +# Depends: libdata-ical-perl + +use strict; +use Data::ICal; + +my $rawdata; + +my @lines; +while (<>) { + chomp; + $rawdata .= "$_\n"; +} + +# Data::ICal needs utf8-flagged input +utf8::decode($rawdata) unless utf8::is_utf8($rawdata); + +my $calendar = Data::ICal->new(data => $rawdata); + +print $calendar->as_string; + +exit; |