1 files changed, 82 insertions, 0 deletions
diff --git a/libkcal/tests/createtestcases.pl b/libkcal/tests/createtestcases.pl
new file mode 100755
index 00000000..35e624e6
--- /dev/null
+++ b/libkcal/tests/createtestcases.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+# Written 2005 Reinhold Kainhofer <reinhold@kainhofer.com>
+# 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";
+	} 
+	
+}
+