maryjane
/
syncevolution
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ignore some known Synthesis data conversions 

git-svn-id: https://zeitsenke.de/svn/SyncEvolution/trunk@262 15ad00c4-1369-45f4-8270-35d70d36bdcd
This commit is contained in:
Patrick Ohly 2006-10-03 11:43:20 +00:00
parent 9327a7425d
commit 0babcf913d
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/normalize_vcard.pl
View File

@ -3,13 +3,10 @@
use strict;
use encoding 'utf8';
# ignore differences caused by sync.scheduleworld.com?
my $scheduleworld;
if (defined $ENV{TEST_EVOLUTION_SERVER} && $ENV{TEST_EVOLUTION_SERVER} =~ /scheduleworld/) {
$scheduleworld = 1;
} else {
$scheduleworld = 0;
}
# ignore differences caused by specific servers?
my $server = $ENV{TEST_EVOLUTION_SERVER} || "";
my $scheduleworld = $server =~ /scheduleworld/;
my $synthesis = $server =~ /synthesis/;
sub Usage {
print "$0 <vcards.vcf\n";
@ -99,6 +96,11 @@ sub Normalize {
s;TZID(=|:)/(scheduleworld.com|softwarestudio.org)/Olson_\d+_\d+/;TZID$1/foo.com/Olson_20000101_1/;mg;
}
if ($synthesis) {
# does not preserve certain properties
s/^(FN|X-MOZILLA-HTML|X-EVOLUTION-FILE-AS):.*\r?\n?//gm;
}
my @formatted = ();