sync 098claws

[claws.git] / tools / tb2sylpheed

diff --git a/tools/tb2sylpheed b/tools/tb2sylpheed
index 05082eb6145b8bb368c6700e48182f421a37e8a2..06d712829540802f8b8d9f099821a5a065dca763 100644 (file)
--- a/tools/tb2sylpheed
+++ b/tools/tb2sylpheed
@@ -1,7 +1,7 @@
 #!/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>
@@ -15,6 +15,9 @@
 #
 # 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
@@ -110,6 +113,7 @@ foreach $tbline (@tblines) {
     }
 
     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]"; }
@@ -237,6 +241,10 @@ foreach $tbline (@tblines) {
        }
        $sylph_addr .= "    </attribute-list>\n";
     }
+#    if ( $check > 0 ) {
+#        $sylph_addr .= "</attribute-list>\n";
+#    }
+
     $sylph_addr .=  "  </person>\n";
     $time++;
 }