4 * by JH <jheinonen@bigfoot.com>
6 * Copyright (C) Jaakko Heinonen
14 #include <sys/types.h>
15 #include "abook_curses.h"
25 extern list_item *database;
26 extern struct abook_field abook_fields[];
29 * function declarations
32 static int ldif_parse_file(FILE *handle);
33 static int mutt_parse_file(FILE *in);
34 static int pine_parse_file(FILE *in);
36 static int ldif_export_database(FILE *out);
37 static int html_export_database(FILE *out);
38 static int pine_export_database(FILE *out);
39 static int csv_export_database(FILE *out);
40 static int gcrd_export_database(FILE *out);
41 static int mutt_alias_export(FILE *out);
42 static int elm_alias_export(FILE *out);
43 static int text_export_database(FILE *out);
44 static int spruce_export_database(FILE *out);
47 struct abook_filter i_filters[] = {
48 { "abook", "abook native format", parse_database },
49 { "ldif", "ldif / Netscape addressbook", ldif_parse_file },
50 { "mutt", "mutt alias (beta)", mutt_parse_file },
51 { "pine", "pine addressbook", pine_parse_file },
55 struct abook_filter e_filters[] = {
56 { "abook", "abook native format", write_database },
57 { "ldif", "ldif / Netscape addressbook (.4ld)", ldif_export_database },
58 { "mutt", "mutt alias", mutt_alias_export },
59 { "html", "html document", html_export_database },
60 { "pine", "pine addressbook", pine_export_database },
61 { "gcrd", "GnomeCard (VCard) addressbook", gcrd_export_database },
62 { "csv", "comma separated values", csv_export_database },
63 { "elm", "elm alias", elm_alias_export },
64 { "text", "plain text", text_export_database },
65 { "spruce", "Spruce address book", spruce_export_database },
79 for(i=0; *i_filters[i].filtname ; i++)
80 printf("\t%s\t%s\n", i_filters[i].filtname,
86 for(i=0; *e_filters[i].filtname ; i++)
87 printf("\t%s\t%s\n", e_filters[i].filtname,
94 number_of_filters(struct abook_filter * filters)
98 for(i=0; *filters[i].filtname ; i++)
107 char *username = getenv("USER");
108 struct passwd *pwent;
112 pwent = getpwnam(username);
114 if( (tmp = malloc(strlen(pwent->pw_gecos) +1)) == NULL)
115 return strdup(username);
117 rtn = sscanf(pwent->pw_gecos, "%[^,]", tmp);
118 if (rtn == EOF || rtn == 0) {
120 return strdup(username);
129 static int i_read_file(char *filename, int (*func) (FILE *in));
138 refresh_statusline();
139 headerline("import database");
141 mvaddstr(3, 1, "please select a filter");
144 for(i=0; *i_filters[i].filtname ; i++)
145 mvprintw(5 + i, 6, "%c -\t%s\t%s\n", 'a' + i,
146 i_filters[i].filtname,
149 mvprintw(6 + i, 6, "x -\tcancel");
161 filter = getch() - 'a';
162 if(filter == 'x' - 'a' || filter >= number_of_filters(e_filters) ||
168 mvaddstr(5+filter, 2, "->");
170 filename = ask_filename("Filename: ", 1);
176 if( i_read_file(filename, i_filters[filter].func ) )
177 statusline_msg("Error occured while opening the file");
180 statusline_msg("Hmm.., file seems not to be a valid file");
191 i_read_file(char *filename, int (*func) (FILE *in))
196 if( ( in = fopen( filename, "r" ) ) == NULL )
207 import(char filtname[FILTNAME_LEN], char *filename)
214 if( ! strncmp(i_filters[i].filtname, filtname, FILTNAME_LEN) )
216 if( ! *i_filters[i].filtname ) {
225 if( !strcmp(filename, "-") )
226 ret = (*i_filters[i].func) (stdin);
228 ret = i_read_file(filename, i_filters[i].func);
240 static int e_write_file(char *filename, int (*func) (FILE *in));
250 refresh_statusline();
251 headerline("export database");
253 mvaddstr(3, 1, "please select a filter");
256 for(i=0; *e_filters[i].filtname ; i++)
257 mvprintw(5 + i, 6, "%c -\t%s\t%s\n", 'a' + i,
258 e_filters[i].filtname,
261 mvprintw(6 + i, 6, "x -\tcancel");
272 filter = getch() - 'a';
273 if(filter == 'x' - 'a' || filter >= number_of_filters(e_filters) ||
279 mvaddstr(5+filter, 2, "->");
281 filename = ask_filename("Filename: ", 0);
287 if( e_write_file(filename, e_filters[filter].func ) )
288 statusline_msg("Error occured while exporting");
297 e_write_file(char *filename, int (*func) (FILE *in))
302 if( (out = fopen(filename, "a")) == NULL )
316 fexport(char filtname[FILTNAME_LEN], FILE *handle)
321 if( ! strncmp(e_filters[i].filtname, filtname, FILTNAME_LEN) )
323 if( ! *e_filters[i].filtname ) {
329 return (e_filters[i].func) (handle);
335 export(char filtname[FILTNAME_LEN], char *filename)
341 if( ! strncmp(e_filters[i].filtname, filtname, FILTNAME_LEN) )
343 if( ! *e_filters[i].filtname ) {
352 if( !strcmp(filename, "-") )
353 ret = (e_filters[i].func) (stdout);
355 ret = e_write_file(filename, e_filters[i].func);
361 * end of common functions
370 static void ldif_fix_string(char *str);
373 # define LINESIZE 1024
376 #define LDIF_ITEM_FIELDS 15
378 typedef char* ldif_item[LDIF_ITEM_FIELDS];
380 static ldif_item ldif_field_names = {
391 "facsimiletelephonenumber",
395 "objectclass", /* this must be the last entry */
398 static int ldif_conv_table[LDIF_ITEM_FIELDS] = {
401 ADDRESS, /* "streetaddress" */
402 CITY, /* "locality" */
404 ZIP, /* "postalcode" */
405 COUNTRY, /* "countryname" */
406 PHONE, /* "homephone" */
407 NOTES, /* "description" */
409 FAX, /* "facsimiletelephonenumber" */
410 MOBILEPHONE, /* "cellphone" */
411 WORKPHONE, /* "xmozillaanyphone" */
412 NICK, /* "xmozillanickname" */
413 -1, /* "objectclass" */ /* this must be the last entry */
418 ldif_read_line(FILE *in)
428 fgets(line, LINESIZE, in);
439 fseek(in, pos, SEEK_SET);
448 buf = strconcat(buf, ptr, NULL);
459 for(i=0,j=0; j < strlen(buf); i++, j++)
460 buf[i] = buf[j] == '\n' ? buf[++j] : buf[j];
467 ldif_add_item(ldif_item ldif_item)
469 list_item abook_item;
472 memset(abook_item, 0, sizeof(abook_item));
474 if( !ldif_item[LDIF_ITEM_FIELDS -1] )
478 for(i=0; i < LDIF_ITEM_FIELDS; i++) {
479 if(ldif_conv_table[i] >= 0 && ldif_item[i] && *ldif_item[i] )
480 abook_item[ldif_conv_table[i]] = strdup(ldif_item[i]);
483 add_item2database(abook_item);
486 for(i=0; i < LDIF_ITEM_FIELDS; i++)
487 my_free(ldif_item[i]);
492 ldif_convert(ldif_item item, char *type, char *value)
496 if( !strcmp(type, "dn") ) {
501 for(i=0; i < LDIF_ITEM_FIELDS; i++) {
502 if( !safe_strcmp(ldif_field_names[i], type) && *value ) {
503 if( i == LDIF_ITEM_FIELDS -1) /* this is a dirty hack */
504 if( safe_strcmp("person", value))
508 item[i] = strdup(value);
514 ldif_parse_file(FILE *handle)
521 memset(item, 0, sizeof(item));
524 if( ! (line = ldif_read_line(handle)) )
527 if( -1 == ( str_parse_line(line, &type, &value, &vlen)) ) {
529 continue; /* just skip the errors */
532 ldif_fix_string(value);
534 ldif_convert(item, type, value);
537 } while ( !feof(handle) );
539 ldif_convert(item, "dn", "");
545 ldif_fix_string(char *str)
549 for( i = 0, j = 0; j < strlen(str); i++, j++)
550 str[i] = ( str[j] == (char)0xc3 ?
551 (char) str[++j] + (char) 0x40 :
562 * mutt alias import filter
572 remove_newlines(char *buf)
576 for(i=0,j=0; j < strlen(buf); i++, j++)
577 buf[i] = buf[j] == '\n' ? buf[++j] : buf[j];
581 mutt_read_line(FILE *in, char **alias, char **rest)
584 char *ptr=(char *)&line;
587 fgets(line, LINESIZE, in);
588 remove_newlines(line);
590 while( ISSPACE(*ptr) )
593 if( strncmp("alias", ptr, 5) ) {
599 while( ISSPACE(*ptr) )
604 while( ! ISSPACE(*ptr) )
607 if( (*alias = malloc(ptr-tmp+1)) == NULL)
610 strncpy(*alias, tmp, ptr-tmp);
611 *(*alias+(ptr-tmp)) = 0;
613 while( ISSPACE(*ptr) )
622 mutt_parse_email(char *mutt_item[3])
627 if( (tmp = strchr(mutt_item[MUTT_NAME], '<')) )
632 mutt_item[MUTT_EMAIL] = strdup(tmp+1);
634 if( (tmp = strchr(mutt_item[MUTT_EMAIL], '>')) )
637 tmp = mutt_item[MUTT_NAME];
639 for(i=strlen(tmp)-1; i>0; i--)
645 mutt_item[MUTT_NAME] = strdup(tmp);
651 mutt_add_mutt_item(char *mutt_item[3])
653 list_item abook_item;
655 memset(abook_item, 0, sizeof(abook_item));
657 abook_item[NAME] = safe_strdup(mutt_item[MUTT_NAME]);
658 abook_item[EMAIL] = safe_strdup(mutt_item[MUTT_EMAIL]);
659 abook_item[NICK] = safe_strdup(mutt_item[MUTT_ALIAS]);
661 add_item2database(abook_item);
665 mutt_parse_file(FILE *in)
671 memset(mutt_item, 0, sizeof(mutt_item) );
673 if( mutt_read_line(in, &mutt_item[MUTT_ALIAS],
674 &mutt_item[MUTT_NAME]) )
677 mutt_parse_email(mutt_item);
680 free(mutt_item[MUTT_ALIAS]);
681 free(mutt_item[MUTT_NAME]);
682 free(mutt_item[MUTT_EMAIL]);
686 mutt_add_mutt_item(mutt_item);
688 free(mutt_item[MUTT_ALIAS]);
689 free(mutt_item[MUTT_NAME]);
690 free(mutt_item[MUTT_EMAIL]);
698 * end of mutt alias import filter
706 ldif_fput_type_and_value(FILE *out,char *type, char *value )
710 tmp = ldif_type_and_value(type, value, strlen(value));
718 ldif_export_database(FILE *out)
721 char email[MAX_EMAILSTR_LEN];
723 fprintf(out, "version: 1\n");
724 for(i=0; i<items; i++) {
727 get_first_email(email, i);
729 tmp = mkstr("cn=%s,mail=%s", database[i][NAME], email);
730 ldif_fput_type_and_value(out, "dn", tmp);
733 for(j=0; j < LDIF_ITEM_FIELDS; j++) {
734 if(ldif_conv_table[j] >= 0) {
735 if(ldif_conv_table[j] == EMAIL)
736 ldif_fput_type_and_value(out,
737 ldif_field_names[j], email);
738 else if(database[i][ldif_conv_table[j]])
739 ldif_fput_type_and_value(out,
741 database[i][ldif_conv_table[j]]);
745 fprintf(out, "objectclass: top\n"
746 "objectclass: person\n\n");
753 * end of ldif export filter
760 static void html_export_write_head(FILE *out, int extra_column);
761 static void html_export_write_tail(FILE *out);
764 html_export_database(FILE *out)
766 char tmp[MAX_EMAILSTR_LEN];
768 int extra_column = options_get_int("extra_column");
773 extra_column = (extra_column > 2 && extra_column < ITEM_FIELDS) ?
774 extra_column : PHONE;
776 html_export_write_head(out, extra_column);
777 for( i = 0; i < items; i++ ) {
778 get_first_email(tmp, i);
779 fprintf(out, "<tr>\n<td><a href=\"mailto:%s\">%s</a>\n",
783 fprintf(out, "<td>%s\n<td>%s\n",
785 safe_str(database[i][extra_column]) );
786 fprintf(out, "</tr>\n\n");
788 html_export_write_tail(out);
795 html_export_write_head(FILE *out, int extra_column)
797 char *realname = get_real_name();
799 fprintf(out, "<html>\n<head>\n <title>%s's addressbook</title>",
801 fprintf(out, "\n</head>\n<body>\n");
802 fprintf(out, "\n<h2>%s's addressbook</h2>\n", realname );
803 fprintf(out, "<br><br>\n\n");
805 fprintf(out, "<center><table border>\n");
806 fprintf(out, "\n<tr><th>Name<th>E-mail address(es)<th>%s</tr>\n\n",
807 abook_fields[extra_column].name);
813 html_export_write_tail(FILE *out)
815 fprintf(out, "\n</table></center>\n");
816 fprintf(out, "\n</body>\n</html>\n");
820 * end of html export filter
824 * pine addressbook import filter
828 pine_fixbuf(char *buf)
832 for(i=0,j=0; j < strlen(buf); i++, j++)
833 buf[i] = buf[j] == '\n' ? buf[++j] : buf[j];
837 pine_convert_emails(char *s)
842 if( s == NULL || *s != '(' )
848 if( ( tmp = strchr(s,')')) )
851 for(i=1; ( tmp = strchr(s, ',') ) != NULL ; i++, s=tmp+1 )
860 pine_parse_buf(char *buf)
867 int pine_conv_table[]= {NICK, NAME, EMAIL, -1, NOTES};
869 memset(&item, 0, sizeof(item) );
871 for(i=0, last=0; !last ; i++) {
872 if( ! (end = strchr(start, '\t')) )
875 len = last ? strlen(start) : (int) (end-start);
876 len = min(len, 400-1);
878 if(i < sizeof(pine_conv_table) / sizeof(*pine_conv_table)
879 && pine_conv_table[i] >= 0) {
880 strncpy(tmp, start, len);
882 item[pine_conv_table[i]] = strdup(tmp);
887 pine_convert_emails(item[EMAIL]);
888 add_item2database(item);
892 #define LINESIZE 1024
895 pine_parse_file(FILE *in)
902 fgets(line, LINESIZE, in);
906 buf = realloc(buf, i*LINESIZE);
909 fgets(line, LINESIZE, in);
911 if(*ptr != ' ' || feof(in) )
914 while( *ptr == ' ') ptr++;
931 * end of pine addressbook import filter
935 * pine addressbook export filter
937 * filter doesn't wrap the lines as it should but Pine seems to handle
938 * created files without problems - JH
942 pine_export_database(FILE *out)
946 for(i=0; i < items; i++ ) {
947 fprintf(out, have_multiple_emails(i) ?
948 "%s\t%s\t(%s)\t\t%s\n" : "%s\t%s\t%s\t\t%s\n",
949 safe_str(database[i][NICK]),
950 safe_str(database[i][NAME]),
951 safe_str(database[i][EMAIL]),
952 safe_str(database[i][NOTES])
960 * end of pine addressbook export filter
965 * csv addressbook export filter
969 csv_export_database(FILE *out)
972 int csv_export_fields[] = {
980 for(i=0; i < items; i++ ) {
981 for(j = 0; csv_export_fields[j] >= 0; j++) {
982 fprintf(out, strchr(safe_str(database[i][csv_export_fields[j]]), ',') ?
984 safe_str(database[i][csv_export_fields[j]])
986 if(csv_export_fields[j+1] >= 0)
998 * end of csv export filter
1003 * GnomeCard (VCard) addressbook export filter
1007 gcrd_export_database(FILE *out)
1009 char emails[MAX_EMAILS][MAX_EMAIL_LEN];
1013 for(i=0; i < items; i++ ) {
1014 fprintf(out, "BEGIN:VCARD\nFN:%s\n",
1015 safe_str(database[i][NAME]));
1017 name = get_surname(database[i][NAME]);
1018 for( j = strlen(database[i][NAME]) - 1; j >= 0; j-- ) {
1019 if(database[i][NAME][j] == ' ')
1022 fprintf(out, "N:%s;%.*s\n",
1025 safe_str(database[i][NAME])
1030 if ( database[i][ADDRESS] )
1031 fprintf(out, "ADR:;;%s;%s;%s;%s;%s\n",
1032 safe_str(database[i][ADDRESS]),
1033 safe_str(database[i][CITY]),
1034 safe_str(database[i][STATE]),
1035 safe_str(database[i][ZIP]),
1036 safe_str(database[i][COUNTRY])
1039 if (database[i][PHONE])
1040 fprintf(out, "TEL;HOME:%s\n", database[i][PHONE]);
1041 if (database[i][WORKPHONE])
1042 fprintf(out, "TEL;WORK:%s\n", database[i][WORKPHONE]);
1043 if (database[i][FAX])
1044 fprintf(out, "TEL;FAX:%s\n", database[i][FAX]);
1045 if (database[i][MOBILEPHONE])
1046 fprintf(out, "TEL;CELL:%s\n", database[i][MOBILEPHONE]);
1048 if ( database[i][EMAIL] ) {
1049 split_emailstr(i, emails);
1050 for(j=0; j < MAX_EMAILS ; j++) {
1052 fprintf(out, "EMAIL;INTERNET:%s\n",
1057 if ( database[i][NOTES] )
1058 fprintf(out, "NOTE:%s\n", database[i][NOTES]);
1059 if (database[i][URL])
1060 fprintf(out, "URL:%s\n", database[i][URL]);
1062 fprintf(out, "END:VCARD\n\n");
1070 * end of GnomeCard export filter
1075 * mutt alias export filter
1079 mutt_alias_genalias(int i)
1083 if(database[i][NICK])
1084 return strdup(database[i][NICK]);
1086 tmp = strdup(database[i][NAME]);
1088 if( ( pos = strchr(tmp, ' ') ) )
1097 mutt_alias_export(FILE *out)
1100 char email[MAX_EMAIL_LEN];
1103 for(i=0; i<items; i++) {
1104 alias = mutt_alias_genalias(i);
1106 get_first_email(email, i);
1107 fprintf(out, *email ? "alias %s %s <%s>\n": "alias %s %s%s\n",
1118 * end of mutt alias export filter
1123 * printable export filter
1127 text_export_database(FILE * out)
1129 char emails[MAX_EMAILS][MAX_EMAIL_LEN];
1131 char *realname = get_real_name();
1132 char *style = options_get_str("address_style");
1135 "-----------------------------------------\n%s's address book\n"
1136 "-----------------------------------------\n\n\n",
1140 for (i = 0; i < items; i++) {
1142 "-----------------------------------------\n\n");
1143 fprintf(out, "%s", database[i][NAME]);
1144 if (database[i][NICK])
1145 fprintf(out, "\n(%s)", database[i][NICK]);
1148 if (*database[i][EMAIL]) {
1150 split_emailstr(i, emails);
1151 for (j = 0; j < MAX_EMAILS; j++)
1153 fprintf(out, "%s\n", emails[j]);
1156 if (database[i][ADDRESS]) {
1157 if (!safe_strcmp(style, "us")) { /* US like */
1158 fprintf(out, "\n%s", database[i][ADDRESS]);
1159 if (database[i][CITY])
1160 fprintf(out, "\n%s",
1162 if (database[i][STATE] || database[i][ZIP])
1163 fprintf(out, "\n%s %s",
1164 safe_str(database[i]
1166 safe_str(database[i]
1168 if (database[i][COUNTRY])
1169 fprintf(out, "\n%s",
1170 database[i][COUNTRY]);
1173 else if (!safe_strcmp(style, "uk")) { /* UK like */
1174 for (j = ADDRESS; j <= COUNTRY; j++)
1176 fprintf(out, "\n%s",
1178 } else { /* EU like */
1179 fprintf(out, "\n%s", database[i][ADDRESS]);
1180 if (database[i][ZIP] || database[i][CITY])
1181 fprintf(out, "\n%s %s",
1182 safe_str(database[i][ZIP]),
1183 safe_str(database[i]
1185 if (database[i][STATE])
1186 fprintf(out, "\n%s",
1187 database[i][STATE]);
1188 if (database[i][COUNTRY])
1189 fprintf(out, "\n%s",
1190 database[i][COUNTRY]);
1196 if ((database[i][PHONE]) || (database[i][WORKPHONE]) ||
1197 (database[i][FAX]) || (database[i][MOBILEPHONE])) {
1199 for (j = PHONE; j <= MOBILEPHONE; j++)
1201 fprintf(out, "%s: %s\n",
1202 abook_fields[j].name,
1206 if (database[i][URL])
1207 fprintf(out, "\n%s\n", database[i][URL]);
1208 if (database[i][NOTES])
1209 fprintf(out, "\n%s\n", database[i][NOTES]);
1214 fprintf(out, "-----------------------------------------\n");
1220 * end of printable export filter
1224 * elm alias export filter
1228 elm_alias_export(FILE *out)
1231 char email[MAX_EMAIL_LEN];
1234 for(i=0; i<items; i++) {
1235 alias = mutt_alias_genalias(i);
1236 get_first_email(email, i);
1237 fprintf(out, "%s = %s = %s\n",
1248 * end of elm alias export filter
1253 * Spruce export filter
1257 spruce_export_database (FILE *out)
1260 char email[MAX_EMAIL_LEN];
1262 fprintf (out, "# This is a generated file made by abook for the Spruce e-mail client.\n\n");
1264 for (i= 0; i< items; i++) {
1265 if(strcmp (safe_str(database[i][EMAIL]), "")) {
1266 get_first_email(email, i);
1267 fprintf(out, "# Address %d\nName: %s\nEmail: %s\nMemo: %s\n\n",
1271 safe_str(database[i][NOTES])
1276 fprintf (out, "# End of address book file.\n");
1282 * end of Spruce export filter