#!/usr/bin/perl
# Script name : tb2sylpheed
-# Script version: 1.0.1
+# Script version: 1.0.2
# Script based on : script kmail2sylpheed.pl
# Script purpose : convert The Bat! addressbook into Sylpheed addressbook
# Author : Aleksandar Urosevic aka Urke MMI <urke@gmx.net>
#
# Change Log:
#
+# 18-12-2003 v 1.0.2
+# - bugfix: added missing attribute-list start
+#
# 01-01-2003 v 1.0.1
# - bugfix: no more empty Business Homepage entry
# - bugfix: no more \0D\0A´s in Notes entry
}
if ($check > 0) {
+ $sylph_addr .= " <attribute-list>\n";
if ($tbdata[1] ne "" || $tbdata[2] ne "") {
$time++;
if($tbdata[29] ne "" && $tbdata[1] ne "") { $full_name = "$tbdata[29] $tbdata[1]"; } else { $full_name = "$tbdata[1]"; }
}
$sylph_addr .= " </attribute-list>\n";
}
+# if ( $check > 0 ) {
+# $sylph_addr .= "</attribute-list>\n";
+# }
+
$sylph_addr .= " </person>\n";
$time++;
}