blob: 35e624e62c773486841c42be978e91f315acd5e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#!/usr/bin/perl
# Written 2005 Reinhold Kainhofer <[email protected]>
# This file is put into the public domain, I claim no copyright on that code
#
# This little (really dumb) script can be used to split a large calendar file
# up into several small files each containing one event/journal/todo/freebusy.
# All lines before the first VEVENT/VTODO/VJOURNAL/VFREEBUSY will be copied to
# every file, so timezones should be fine.
#
# Usage:
# createtestcases.pl InputFile.ics OutputBaseFileName [ext]
#
# InputFile.ics .. The large calendar file containing multiple incidences
# OutputBaseFileName .. The base name of the output files. They will be
# numbered sequentially, i.e. OutputBaseFileName1.ext,
# OutputBaseFileName2.ext, etc.
# [ext].. optional file name extension for the output files. If none is given,
# ics is used.
#
# Disclaimer: This script exists merely for development purposes to help us
# KDE developer generate atomic test cases for libkcal's test suite.
use Cwd;
my $infile=shift @ARGV;
my $filebase=shift @ARGV;
my $ext=shift @ARGV;
if ( !$ext ) {
$ext = "ics";
}
my $filenr=0;
my $filename="$filebase$filenr.$ext";
print "Infile: $infile\n";
print "filebase: $filebase\n";
print "filenr: $filenr\n";
print "filename: $filename\n";
my $pre = 1;
my $inevent = 0;
my $pretext = "";
my $opened = 0;
open(INFILE, $infile);
while (<INFILE>) {
my $line = $_;
if ( !$inevent && ($line =~ m/BEGIN:V(EVENT|TODO|FREEBUSY|JOURNAL)/) ) {
if ( !$opened ) {
$opened = 1;
$filenr=$filenr+1;
$filename="$filebase$filenr.$ext";
open fh, "> $filename";
if ( $pretext ) {
print fh $pretext;
} else {
# TODO: close file, open new file
print fh "BEGIN:VCALENDAR\nVERSION:2.0\nPRODID:-//K Desktop Environment (KDE)//LibKCal test cases 1.0//EN\n\n";
}
}
$pre = 0;
$inevent = 1;
print fh $line;
} elsif ( $inevent && ($line =~ m/END:V(EVENT|TODO|FREEBUSY|JOURNAL)/) ) {
$inevent = 0;
print fh $line;
print fh "END:VCALENDAR\n";
close fh;
$opened = 0;
} elsif ( $inevent ) {
print fh $line;
} elsif ( $pre ) {
$pretext="$pretext$line";
print "PRE: $pretext";
}
}
|
