src/exporthtml.c

   1 /*
   2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
   3  * Copyright (C) 2002 Match Grun
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18  */
  19
  20 /*
  21  * Export address book to HTML file.
  22  */
  23
  24 #include <sys/stat.h>
  25 #include <dirent.h>
  26 #include <errno.h>
  27 #include <time.h>
  28 #include <string.h>
  29 #include <glib.h>
  30
  31 #include "intl.h"
  32 #include "mgutils.h"
  33 #include "utils.h"
  34 #include "exporthtml.h"
  35 #include "addritem.h"
  36 #include "addrcache.h"
  37 #include "addrbook.h"
  38 #include "xmlprops.h"
  39
  40 #define DFL_DIR_SYLPHEED_OUT  "sylpheed-out"
  41 #define DFL_FILE_SYLPHEED_OUT "addressbook.html"
  42
  43 #define FMT_BUFSIZE         2048
  44 #define HTML_SPACE          "&nbsp;"
  45 #define BORDER_SIZE         2
  46 #define CELL_PADDING        2
  47 #define CELL_SPACING        2
  48 #define CHAR_ENCODING       "ISO-8859-1"
  49
  50 /* Stylesheet names */
  51 #define FILENAME_NONE       ""
  52 #define FILENAME_DEFAULT    "sylpheed.css"
  53 #define FILENAME_FULL       "full.css"
  54 #define FILENAME_CUSTOM     "custom.css"
  55 #define FILENAME_CUSTOM2    "custom2.css"
  56 #define FILENAME_CUSTOM3    "custom3.css"
  57 #define FILENAME_CUSTOM4    "custom4.css"
  58
  59 /* Settings - properties */
  60 #define EXML_PROPFILE_NAME  "exporthtml.xml"
  61 #define EXMLPROP_DIRECTORY  "directory"
  62 #define EXMLPROP_FILE       "file"
  63 #define EXMLPROP_STYLESHEET "stylesheet"
  64 #define EXMLPROP_FMT_NAME   "format-full-name"
  65 #define EXMLPROP_FMT_EMAIL  "format-email-links"
  66 #define EXMLPROP_FMT_ATTRIB "format-attributes"
  67 #define EXMLPROP_BANDING    "color-banding"
  68 #define EXMLPROP_VALUE_YES  "y"
  69 #define EXMLPROP_VALUE_NO   "n"
  70
  71 static gchar *_idTagRowEven_ = "tab-row0";
  72 static gchar *_idTagRowOdd_  = "tab-row1";
  73
  74 /*
  75  * Header entry.
  76  */
  77 typedef struct _StylesheetEntry StylesheetEntry;
  78 struct _StylesheetEntry {
  79         gchar    *fileName;
  80         gint     id;
  81         gboolean dflValue;
  82 };
  83
  84 /*
  85  * Build stylesheet entry.
  86  * Enter: ctl   Export control data.
  87  *        file  Filename.
  88  *        id    File id.
  89  *        dfl   Default flag.
  90  */
  91 static void exporthtml_build_entry(
  92                 ExportHtmlCtl *ctl, const gchar *file, const gint id,
  93                 const gboolean dfl )
  94 {
  95         StylesheetEntry *entry;
  96
  97         entry = g_new0( StylesheetEntry, 1 );
  98         entry->fileName = g_strdup( file );
  99         entry->id = id;
 100         entry->dflValue = dfl;
 101         ctl->listStyle = g_list_append( ctl->listStyle, entry );
 102 }
 103
 104 /*
 105  * Free up object by releasing internal memory.
 106  * Enter: ctl Export control data.
 107  */
 108 ExportHtmlCtl *exporthtml_create( void ) {
 109         ExportHtmlCtl *ctl = g_new0( ExportHtmlCtl, 1 );
 110
 111         ctl->path = NULL;
 112         ctl->dirOutput = NULL;
 113         ctl->fileHtml = NULL;
 114         ctl->encoding = NULL;
 115         ctl->stylesheet = EXPORT_HTML_ID_NONE;
 116         ctl->nameFormat = EXPORT_HTML_FIRST_LAST;
 117         ctl->banding = FALSE;
 118         ctl->linkEMail = FALSE;
 119         ctl->showAttribs = FALSE;
 120         ctl->retVal = MGU_SUCCESS;
 121         ctl->listStyle = NULL;
 122         ctl->rcCreate = 0;
 123         ctl->settingsFile = g_strconcat(
 124                 get_rc_dir(), G_DIR_SEPARATOR_S, EXML_PROPFILE_NAME, NULL );
 125
 126         /* Build stylesheet list */
 127         exporthtml_build_entry(
 128                 ctl, FILENAME_NONE,    EXPORT_HTML_ID_NONE, FALSE );
 129         exporthtml_build_entry(
 130                 ctl, FILENAME_DEFAULT, EXPORT_HTML_ID_DEFAULT, TRUE );
 131         exporthtml_build_entry(
 132                 ctl, FILENAME_FULL,    EXPORT_HTML_ID_FULL, FALSE );
 133         exporthtml_build_entry(
 134                 ctl, FILENAME_CUSTOM,  EXPORT_HTML_ID_CUSTOM, FALSE );
 135         exporthtml_build_entry(
 136                 ctl, FILENAME_CUSTOM2, EXPORT_HTML_ID_CUSTOM2, FALSE );
 137         exporthtml_build_entry(
 138                 ctl, FILENAME_CUSTOM3, EXPORT_HTML_ID_CUSTOM3, FALSE );
 139         exporthtml_build_entry(
 140                 ctl, FILENAME_CUSTOM4, EXPORT_HTML_ID_CUSTOM4, FALSE );
 141
 142         return ctl;
 143 }
 144
 145 /*
 146  * Free up object by releasing internal memory.
 147  * Enter: ctl Export control data.
 148  */
 149 void exporthtml_free( ExportHtmlCtl *ctl ) {
 150         GList *node;
 151         StylesheetEntry *entry;
 152
 153         g_return_if_fail( ctl != NULL );
 154
 155         /* Free stylesheet list */
 156         node = ctl->listStyle;
 157         while( node ) {
 158                 entry = ( StylesheetEntry * ) node->data;
 159                 g_free( entry->fileName );
 160                 entry->fileName = NULL;
 161                 entry->id = 0;
 162                 entry->dflValue = FALSE;
 163                 g_free( entry );
 164                 node->data = NULL;
 165                 node = g_list_next( node );
 166         }
 167         g_list_free( ctl->listStyle );
 168         ctl->listStyle = NULL;
 169
 170         g_free( ctl->path );
 171         g_free( ctl->fileHtml );
 172         g_free( ctl->encoding );
 173         g_free( ctl->dirOutput );
 174         g_free( ctl->settingsFile );
 175
 176         /* Clear pointers */
 177         ctl->path = NULL;
 178         ctl->dirOutput = NULL;
 179         ctl->fileHtml = NULL;
 180         ctl->encoding = NULL;
 181         ctl->stylesheet = EXPORT_HTML_ID_NONE;
 182         ctl->nameFormat = EXPORT_HTML_FIRST_LAST;
 183         ctl->banding = FALSE;
 184         ctl->linkEMail = FALSE;
 185         ctl->showAttribs = FALSE;
 186         ctl->retVal = MGU_SUCCESS;
 187         ctl->rcCreate = 0;
 188
 189         /* Now release object */
 190         g_free( ctl );
 191 }
 192
 193 /*
 194  * Print control object.
 195  * Enter: ctl    Export control data.
 196  *        stream Output stream.
 197  */
 198 void exporthtml_print( ExportHtmlCtl *ctl, FILE *stream ) {
 199         fprintf( stream, "ExportHtmlCtl:\n" );
 200         fprintf( stream, "     path: %s\n", ctl->path );
 201         fprintf( stream, "directory: %s\n", ctl->dirOutput );
 202         fprintf( stream, "     file: %s\n", ctl->fileHtml );
 203         fprintf( stream, " settings: %s\n", ctl->settingsFile );
 204         fprintf( stream, " encoding: %s\n", ctl->encoding );
 205         fprintf( stream, " css file: %d\n", ctl->stylesheet );
 206         fprintf( stream, " name fmt: %d\n", ctl->nameFormat );
 207         fprintf( stream, "  banding: %d\n", ctl->banding );
 208         fprintf( stream, "link mail: %d\n", ctl->linkEMail );
 209         fprintf( stream, "show attr: %d\n", ctl->showAttribs );
 210 }
 211
 212 /*
 213  * Find style entry.
 214  * Enter: ctl Export control data.
 215  * Return: Stylesheet object, or NULL if nothing found. If a default entry is
 216  * found in list, it will be returned.
 217  */
 218 static StylesheetEntry *exporthtml_find_stylesheet( ExportHtmlCtl *ctl ) {
 219         StylesheetEntry *retVal = NULL;
 220         StylesheetEntry *entry;
 221         GList *node;
 222
 223         node = ctl->listStyle;
 224         while( node ) {
 225                 entry = ( StylesheetEntry * ) node->data;
 226                 if( entry->id == ctl->stylesheet ) return entry;
 227                 if( entry->dflValue ) retVal = entry;
 228                 node = g_list_next( node );
 229         }
 230         return retVal;
 231 }
 232
 233 /*
 234  * Properties...
 235  */
 236 /*
 237  * Specify path to folder where files are created.
 238  * Enter: ctl   Export control data.
 239  *        value Full directory path.
 240  */
 241 void exporthtml_set_output_dir( ExportHtmlCtl *ctl, const gchar *value ) {
 242         g_return_if_fail( ctl != NULL );
 243         ctl->dirOutput = mgu_replace_string( ctl->dirOutput, value );
 244         g_strstrip( ctl->dirOutput );
 245 }
 246 void exporthtml_set_path( ExportHtmlCtl *ctl, const gchar *value ) {
 247         g_return_if_fail( ctl != NULL );
 248         ctl->path = mgu_replace_string( ctl->path, value );
 249         g_strstrip( ctl->path );
 250 }
 251 void exporthtml_set_file_html( ExportHtmlCtl *ctl, const gchar *value ) {
 252         g_return_if_fail( ctl != NULL );
 253         ctl->fileHtml = mgu_replace_string( ctl->fileHtml, value );
 254         g_strstrip( ctl->fileHtml );
 255 }
 256 void exporthtml_set_encoding( ExportHtmlCtl *ctl, const gchar *value ) {
 257         g_return_if_fail( ctl != NULL );
 258         ctl->encoding = mgu_replace_string( ctl->encoding, value );
 259         g_strstrip( ctl->encoding );
 260 }
 261 void exporthtml_set_stylesheet( ExportHtmlCtl *ctl, const gint value ) {
 262         g_return_if_fail( ctl != NULL );
 263         ctl->stylesheet = value;
 264 }
 265 void exporthtml_set_name_format( ExportHtmlCtl *ctl, const gint value ) {
 266         g_return_if_fail( ctl != NULL );
 267         ctl->nameFormat = value;
 268 }
 269 void exporthtml_set_banding( ExportHtmlCtl *ctl, const gboolean value ) {
 270         g_return_if_fail( ctl != NULL );
 271         ctl->banding = value;
 272 }
 273 void exporthtml_set_link_email( ExportHtmlCtl *ctl, const gboolean value ) {
 274         g_return_if_fail( ctl != NULL );
 275         ctl->linkEMail = value;
 276 }
 277 void exporthtml_set_attributes( ExportHtmlCtl *ctl, const gboolean value ) {
 278         g_return_if_fail( ctl != NULL );
 279         ctl->showAttribs = value;
 280 }
 281
 282 /*
 283  * Create default CSS file.
 284  * Enter:  fileSpec File to create.
 285  * Return: Status code.
 286  */
 287 static gint exporthtml_create_css_dfl( const gchar *fileSpec ) {
 288         FILE *cssFile;
 289
 290         cssFile = fopen( fileSpec, "rb" );
 291         if( cssFile ) {
 292                 fclose( cssFile );
 293                 return MGU_SUCCESS;
 294         }
 295         cssFile = fopen( fileSpec, "wb" );
 296         if( ! cssFile ) {
 297                 return MGU_OPEN_FILE;
 298         }
 299
 300         fprintf( cssFile, "body {\n\tbackground: #ffffe0;\n" );
 301         fprintf( cssFile, "\tfont-family: lucida, helvetica, sans-serif;\n" );
 302         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 303         fprintf( cssFile, "}\n" );
 304         fprintf( cssFile, "h1 {\n" );
 305         fprintf( cssFile, "\tcolor: #000000;\n" );
 306         fprintf( cssFile, "\ttext-align: center;\n" );
 307         fprintf( cssFile, "}\n" );
 308         fprintf( cssFile, "th {\n" );
 309         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 310         fprintf( cssFile, "}\n" );
 311         fprintf( cssFile, "td {\n" );
 312         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 313         fprintf( cssFile, "}\n" );
 314         fprintf( cssFile, ".fmt-folder {\n" );
 315         fprintf( cssFile, "\tcolor: #0000ff;\n" );
 316         fprintf( cssFile, "\tfont-size: 18pt;\n" );
 317         fprintf( cssFile, "\tfont-weight: bold;\n" );
 318         fprintf( cssFile, "}\n" );
 319         fprintf( cssFile, ".tab-head {\n" );
 320         fprintf( cssFile, "\tbackground: #80c0f0;\n" );
 321         fprintf( cssFile, "}\n" );
 322         fprintf( cssFile, ".tab-dn {\n" );
 323         fprintf( cssFile, "}\n" );
 324         fprintf( cssFile, ".tab-addr {\n" );
 325         fprintf( cssFile, "\tfont-style: italic;\n" );
 326         fprintf( cssFile, "}\n" );
 327         fprintf( cssFile, ".tab-email {\n" );
 328         fprintf( cssFile, "\tfont-weight: bold;\n" );
 329         fprintf( cssFile, "\tfont-style: italic;\n" );
 330         fprintf( cssFile, "}\n" );
 331         fprintf( cssFile, ".tab-fn {\n" );
 332         fprintf( cssFile, "}\n" );
 333         fprintf( cssFile, ".tab-attr {\n" );
 334         fprintf( cssFile, "}\n" );
 335
 336         fclose( cssFile );
 337         return MGU_SUCCESS;
 338 }
 339
 340 /*
 341  * Create full CSS file.
 342  * Enter:  fileSpec File to create.
 343  * Return: Status code.
 344  */
 345 static gint exporthtml_create_css_full( const gchar *fileSpec ) {
 346         FILE *cssFile;
 347
 348         cssFile = fopen( fileSpec, "rb" );
 349         if( cssFile ) {
 350                 fclose( cssFile );
 351                 return MGU_SUCCESS;
 352         }
 353         cssFile = fopen( fileSpec, "wb" );
 354         if( ! cssFile ) {
 355                 return MGU_OPEN_FILE;
 356         }
 357
 358         fprintf( cssFile, "body {\n\tbackground: #ffffe0;\n" );
 359         fprintf( cssFile, "\tfont-family: lucida, helvetica, sans-serif;\n" );
 360         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 361         fprintf( cssFile, "}\n" );
 362         fprintf( cssFile, "h1 {\n" );
 363         fprintf( cssFile, "\tcolor: #000000;\n" );
 364         fprintf( cssFile, "\ttext-align: center;\n" );
 365         fprintf( cssFile, "}\n" );
 366         fprintf( cssFile, "th {\n" );
 367         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 368         fprintf( cssFile, "}\n" );
 369         fprintf( cssFile, "td {\n" );
 370         fprintf( cssFile, "\tfont-size: 10pt;\n" );
 371         fprintf( cssFile, "}\n" );
 372         fprintf( cssFile, ".fmt-folder {\n" );
 373         fprintf( cssFile, "\tcolor: #0000ff;\n" );
 374         fprintf( cssFile, "\tfont-size: 18pt;\n" );
 375         fprintf( cssFile, "\tfont-weight: bold;\n" );
 376         fprintf( cssFile, "}\n" );
 377         fprintf( cssFile, ".tab-head {\n" );
 378         fprintf( cssFile, "\tbackground: #80c0f0;\n" );
 379         fprintf( cssFile, "}\n" );
 380         fprintf( cssFile, ".tab-row0 {\n" );
 381         fprintf( cssFile, "\tbackground: #f0f0f0;\n" );
 382         fprintf( cssFile, "}\n" );
 383         fprintf( cssFile, ".tab-row1 {\n" );
 384         fprintf( cssFile, "\tbackground: #d0d0d0;\n" );
 385         fprintf( cssFile, "}\n" );
 386         fprintf( cssFile, ".tab-dn {\n" );
 387         fprintf( cssFile, "}\n" );
 388         fprintf( cssFile, ".tab-addr {\n" );
 389         fprintf( cssFile, "\tfont-style: italic;\n" );
 390         fprintf( cssFile, "}\n" );
 391         fprintf( cssFile, ".tab-email {\n" );
 392         fprintf( cssFile, "\tfont-weight: bold;\n" );
 393         fprintf( cssFile, "\tfont-style: italic;\n" );
 394         fprintf( cssFile, "}\n" );
 395         fprintf( cssFile, ".tab-fn {\n" );
 396         fprintf( cssFile, "}\n" );
 397         fprintf( cssFile, ".tab-attr {\n" );
 398         fprintf( cssFile, "}\n" );
 399
 400         fclose( cssFile );
 401         return MGU_SUCCESS;
 402 }
 403
 404 /*
 405  * Create stylesheet files.
 406  * Enter:  ctl  Export control data.
 407  */
 408 static void exporthtml_create_css_files( ExportHtmlCtl *ctl ) {
 409         gchar *fileSpec;
 410         GList *node;
 411
 412         node = ctl->listStyle;
 413         while( node ) {
 414                 StylesheetEntry *entry = node->data;
 415                 node = g_list_next( node );
 416                 if( strlen( entry->fileName ) ) {
 417                         fileSpec = g_strconcat(
 418                                         ctl->dirOutput, G_DIR_SEPARATOR_S,
 419                                         entry->fileName, NULL );
 420                         if( entry->id == EXPORT_HTML_ID_DEFAULT ) {
 421                                 exporthtml_create_css_dfl( fileSpec );
 422                         }
 423                         else if( entry->id != EXPORT_HTML_ID_NONE ) {
 424                                 exporthtml_create_css_full( fileSpec );
 425                         }
 426                         g_free( fileSpec );
 427                 }
 428         }
 429 }
 430
 431 /*
 432  * Comparison using linked list elements.
 433  */
 434 static gint exporthtml_compare_name(
 435         gconstpointer ptr1, gconstpointer ptr2 )
 436 {
 437         const AddrItemObject *item1 = ptr1;
 438         const AddrItemObject *item2 = ptr2;
 439         const gchar *name1 = NULL, *name2 = NULL;
 440         if( item1 ) name1 = ADDRITEM_NAME( item1 );
 441         if( item2 ) name2 = ADDRITEM_NAME( item2 );
 442         if( ! name1 ) return ( name2 != NULL );
 443         if( ! name2 ) return -1;
 444         return strcasecmp( name1, name2 );
 445 }
 446
 447 /*
 448  * Comparison using linked list elements.
 449  */
 450 static gint exporthtml_compare_email(
 451         gconstpointer ptr1, gconstpointer ptr2 )
 452 {
 453         const ItemEMail *email1 = ptr1;
 454         const ItemEMail *email2 = ptr2;
 455         const gchar *name1 = NULL, *name2 = NULL;
 456         if( email1 ) name1 = email1->address;
 457         if( email2 ) name2 = email2->address;
 458         if( ! name1 ) return ( name2 != NULL );
 459         if( ! name2 ) return -1;
 460         return strcasecmp( name1, name2 );
 461 }
 462
 463 /*
 464  * Comparison using linked list elements.
 465  */
 466 static gint exporthtml_compare_attrib(
 467         gconstpointer ptr1, gconstpointer ptr2 )
 468 {
 469         const UserAttribute *attr1 = ptr1;
 470         const UserAttribute *attr2 = ptr2;
 471         const gchar *name1 = NULL, *name2 = NULL;
 472         if( attr1 ) name1 = attr1->name;
 473         if( attr2 ) name2 = attr2->name;
 474         if( ! name1 ) return ( name2 != NULL );
 475         if( ! name2 ) return -1;
 476         return strcasecmp( name1, name2 );
 477 }
 478
 479 /*
 480  * Build sorted list of named items.
 481  * Enter:  list  List of items to sorted.
 482  * Return: Sorted list.
 483  * Note: List should freed after use. Items referenced by list should not be
 484  * freed since they are managed by the address cache.
 485  */
 486 static GList *exporthtml_sort_name( const GList *list ) {
 487         const GList *node;
 488         GList *sorted = NULL;
 489
 490         node = list;
 491         while( node ) {
 492                 sorted = g_list_insert_sorted(
 493                                 sorted, node->data, exporthtml_compare_name );
 494                 node = g_list_next( node );
 495         }
 496         return sorted;
 497 }
 498
 499 /*
 500  * Build sorted list of email items.
 501  * Enter:  list  List of E-Mail items to sorted.
 502  * Return: Sorted list.
 503  * Note: List should freed after use. Items referenced by list should not be
 504  * freed since they are managed by the address cache.
 505  */
 506 static GList *exporthtml_sort_email( const GList *list ) {
 507         const GList *node;
 508         GList *sorted = NULL;
 509
 510         node = list;
 511         while( node ) {
 512                 sorted = g_list_insert_sorted(
 513                                 sorted, node->data, exporthtml_compare_email );
 514                 node = g_list_next( node );
 515         }
 516         return sorted;
 517 }
 518
 519 /*
 520  * Build sorted list of attributes.
 521  * Enter:  list  List of items to sorted.
 522  * Return: Sorted list.
 523  * Note: List should freed after use. Items referenced by list should not be
 524  * freed since they are managed by the address cache.
 525  */
 526 static GList *exporthtml_sort_attrib( const GList *list ) {
 527         const GList *node;
 528         GList *sorted = NULL;
 529
 530         sorted = NULL;
 531         node = list;
 532         while( node ) {
 533                 sorted = g_list_insert_sorted(
 534                                 sorted, node->data, exporthtml_compare_attrib );
 535                 node = g_list_next( node );
 536         }
 537         return sorted;
 538 }
 539
 540 /*
 541  * Format a list of E-Mail addresses.
 542  * Enter: ctl       Export control data.
 543  *        stream    Output stream.
 544  *        listEMail List of addresses.
 545  *        sortFlag  Set to TRUE if address list should be sorted.
 546  */
 547 static void exporthtml_fmt_email(
 548                 ExportHtmlCtl *ctl, FILE *stream, const GList *listEMail,
 549                 gboolean sortFlag )
 550 {
 551         const GList *node;
 552         GList *list;
 553         gchar *name;
 554
 555         if( listEMail == NULL ) {
 556                 fprintf( stream, HTML_SPACE );
 557                 return;
 558         }
 559
 560         list = NULL;
 561         if( sortFlag ) {
 562                 node = list = exporthtml_sort_email( listEMail );
 563         }
 564         else {
 565                 node = listEMail;
 566         }
 567
 568         while( node ) {
 569                 ItemEMail *email = ( ItemEMail * ) node->data;
 570                 node = g_list_next( node );
 571
 572                 name = ADDRITEM_NAME( email );
 573                 if( name ) {
 574                         fprintf( stream, "%s ", name );
 575                 }
 576                 if( ctl->linkEMail ) {
 577                         fprintf( stream, "<a href=\"mailto:%s\">",
 578                                 email->address );
 579                 }
 580                 fprintf( stream, "<span class=\"tab-email\">" );
 581                 fprintf( stream, "%s", email->address );
 582                 fprintf( stream, "</span>" );
 583                 if( ctl->linkEMail ) {
 584                         fprintf( stream, "</a>" );
 585                 }
 586                 if( email->remarks ) {
 587                         if( strlen( email->remarks ) ) {
 588                                 fprintf( stream, " (%s)", email->remarks );
 589                         }
 590                 }
 591                 fprintf( stream, "<br>\n" );
 592         }
 593         g_list_free( list );
 594 }
 595
 596 /*
 597  * Format groups in an address book folder.
 598  * Enter:  ctl      Export control data.
 599  *         stream   Output stream.
 600  *         folder   Folder.
 601  *         prevFlag If FALSE, list of persons were output.
 602  * Return: TRUE if no groups were formatted.
 603  */
 604 static gboolean exporthtml_fmt_group(
 605                 ExportHtmlCtl *ctl, FILE *stream, const ItemFolder *folder,
 606                 gboolean prevFlag )
 607 {
 608         gboolean retVal, band;
 609         GList *node, *list;
 610         const gchar *tagName;
 611
 612         retVal = TRUE;
 613         if( folder->listGroup == NULL ) return retVal;
 614
 615         /* Write separator */
 616         if( ! prevFlag ) {
 617                 fprintf( stream, "<br>\n" );
 618         }
 619
 620         /* Write table headers */
 621         fprintf( stream, "<table" );
 622         fprintf( stream, " border=\"%d\"", BORDER_SIZE );
 623         fprintf( stream, " cellpadding=\"%d\"", CELL_PADDING );
 624         fprintf( stream, " cellspacing=\"%d\"", CELL_SPACING );
 625         fprintf( stream, ">\n" );
 626
 627         fprintf( stream, "<tr class=\"tab-head\">\n" );
 628         fprintf( stream, "  <th width=\"200\">" );
 629         fprintf( stream, "%s", _( "Group Name" ) );
 630         fprintf( stream, "</th>\n" );
 631         fprintf( stream, "  <th width=\"300\">" );
 632         fprintf( stream, "%s", _( "E-Mail Address" ) );
 633         fprintf( stream, "</th>\n" );
 634         fprintf( stream, "</tr>\n" );
 635         list = exporthtml_sort_name( folder->listGroup );
 636
 637         band = FALSE;
 638         node = list;
 639         while( node ) {
 640                 AddrItemObject *aio = node->data;
 641                 if( aio && aio->type == ITEMTYPE_GROUP ) {
 642                         ItemGroup *group = ( ItemGroup * ) aio;
 643
 644                         fprintf( stream, "<tr valign=\"top\"" );
 645                         if( ctl->banding ) {
 646                                 if( band ) {
 647                                         tagName = _idTagRowOdd_;
 648                                 }
 649                                 else {
 650                                         tagName = _idTagRowEven_;
 651                                 }
 652                                 fprintf( stream, " class=\"%s\"", tagName );
 653                                 band = ! band;
 654                         }
 655                         fprintf( stream, "\">\n" );
 656
 657                         fprintf( stream, "  <td class=\"tab-dn\">" );
 658                         fprintf( stream, "%s", ADDRITEM_NAME( group ) );
 659                         fprintf( stream, "</td>\n" );
 660                         fprintf( stream, "  <td class=\"tab-addr\">" );
 661                         exporthtml_fmt_email( ctl, stream, group->listEMail, TRUE );
 662                         fprintf( stream, "</td>\n" );
 663                         fprintf( stream, "</tr>\n" );
 664                         retVal = FALSE;
 665                 }
 666                 node = g_list_next( node );
 667         }
 668
 669         g_list_free( list );
 670         fprintf( stream, "</table>\n" );
 671         return retVal;
 672 }
 673
 674 /*
 675  * Format a list of E-Mail addresses.
 676  * Enter: ctl       Export control data.
 677  *        stream    Output stream.
 678  *        listAttr  List of attributes.
 679  */
 680 static void exporthtml_fmt_attribs(
 681                 ExportHtmlCtl *ctl, FILE *stream, const GList *listAttr )
 682 {
 683         const GList *node;
 684         GList *list;
 685
 686         if( listAttr == NULL ) {
 687                 fprintf( stream, HTML_SPACE );
 688                 return;
 689         }
 690
 691         fprintf( stream, "<table border=\"0\">\n" );
 692         node = list = exporthtml_sort_attrib( listAttr );
 693         while( node ) {
 694                 UserAttribute *attr = ( UserAttribute * ) node->data;
 695                 node = g_list_next( node );
 696                 fprintf( stream, "<tr valign=\"top\">" );
 697                 fprintf( stream, "<td align=\"right\">%s:</td>", attr->name );
 698                 fprintf( stream, "<td>%s</td>", attr->value );
 699                 fprintf( stream, "</tr>\n" );
 700         }
 701
 702         g_list_free( list );
 703         fprintf( stream, "</table>" );
 704 }
 705
 706 /*
 707  * Format full name.
 708  * Enter:  ctl     Export control data.
 709  *         buf     Output buffer.
 710  *         person  Person to format.
 711  */
 712 static void exporthtml_fmt_fullname(
 713                 ExportHtmlCtl *ctl, gchar *buf, const ItemPerson *person )
 714 {
 715         gboolean flag;
 716
 717         if( ctl->nameFormat == EXPORT_HTML_LAST_FIRST ) {
 718                 flag = FALSE;
 719                 if( person->lastName ) {
 720                         if( *person->lastName ) {
 721                                 strcat( buf, " " );
 722                                 strcat( buf, person->lastName );
 723                                 flag = TRUE;
 724                         }
 725                 }
 726                 if( person->firstName ) {
 727                         if( *person->firstName ) {
 728                                 if( flag ) {
 729                                         strcat( buf, ", " );
 730                                 }
 731                                 strcat( buf, person->firstName );
 732                         }
 733                 }
 734         }
 735         else {
 736                 if( person->firstName ) {
 737                         if( *person->firstName ) {
 738                                 strcat( buf, person->firstName );
 739                         }
 740                 }
 741                 if( person->lastName ) {
 742                         if( *person->lastName ) {
 743                                 strcat( buf, " " );
 744                                 strcat( buf, person->lastName );
 745                         }
 746                 }
 747         }
 748         g_strstrip( buf );
 749
 750         flag = FALSE;
 751         if( *buf ) flag = TRUE;
 752         if( person->nickName ) {
 753                 if( strlen( person->nickName ) ) {
 754                         if( flag ) {
 755                                 strcat( buf, " (" );
 756                         }
 757                         strcat( buf, person->nickName );
 758                         if( flag ) {
 759                                 strcat( buf, ")" );
 760                         }
 761                 }
 762         }
 763         g_strstrip( buf );
 764 }
 765
 766 /*
 767  * Format persons in an address book folder.
 768  * Enter:  ctl     Export control data.
 769  *         stream  Output stream.
 770  *         folder  Folder.
 771  * Return: TRUE if no persons were formatted.
 772  */
 773 static gboolean exporthtml_fmt_person(
 774                 ExportHtmlCtl *ctl, FILE *stream, const ItemFolder *folder )
 775 {
 776         gboolean retVal, band;
 777         GList *node, *list;
 778         gchar buf[ FMT_BUFSIZE ];
 779         const gchar *tagName;
 780
 781         retVal = TRUE;
 782         if( folder->listPerson == NULL ) return retVal;
 783
 784         /* Write table headers */
 785         fprintf( stream, "<table" );
 786         fprintf( stream, " border=\"%d\"", BORDER_SIZE );
 787         fprintf( stream, " cellpadding=\"%d\"", CELL_PADDING );
 788         fprintf( stream, " cellspacing=\"%d\"", CELL_SPACING );
 789         fprintf( stream, ">\n" );
 790
 791         fprintf( stream, "<tr class=\"tab-head\">\n" );
 792         fprintf( stream, "  <th width=\"200\">" );
 793         fprintf( stream, "%s", _( "Display Name" ) );
 794         fprintf( stream, "</th>\n" );
 795         fprintf( stream, "  <th width=\"300\">" );
 796         fprintf( stream, "%s", _( "E-Mail Address" ) );
 797         fprintf( stream, "</th>\n" );
 798         fprintf( stream, "  <th width=\"200\">" );
 799         fprintf( stream, "%s", _( "Full Name" ) );
 800         fprintf( stream, "</th>\n" );
 801         if( ctl->showAttribs ) {
 802                 fprintf( stream, "  <th width=\"250\">" );
 803                 fprintf( stream, "%s", _( "Attributes" ) );
 804                 fprintf( stream, "</th>\n" );
 805         }
 806         fprintf( stream, "</tr>\n" );
 807
 808         band = FALSE;
 809         node = list = exporthtml_sort_name( folder->listPerson );
 810         while( node ) {
 811                 AddrItemObject *aio = node->data;
 812                 if( aio && aio->type == ITEMTYPE_PERSON ) {
 813                         ItemPerson *person = ( ItemPerson * ) aio;
 814
 815                         /* Format first/last/nick name */
 816                         *buf = '\0';
 817                         exporthtml_fmt_fullname( ctl, buf,person );
 818
 819                         fprintf( stream, "<tr valign=\"top\"" );
 820                         if( ctl->banding ) {
 821                                 if( band ) {
 822                                         tagName = _idTagRowOdd_;
 823                                 }
 824                                 else {
 825                                         tagName = _idTagRowEven_;
 826                                 }
 827                                 fprintf( stream, " class=\"%s\"", tagName );
 828                                 band = ! band;
 829                         }
 830                         fprintf( stream, ">\n" );
 831
 832                         fprintf( stream, "  <td class=\"tab-dn\">" );
 833                         fprintf( stream, "%s", ADDRITEM_NAME( person ) );
 834                         fprintf( stream, "</td>\n" );
 835
 836                         fprintf( stream, "  <td class=\"tab-addr\">" );
 837                         exporthtml_fmt_email( ctl, stream, person->listEMail, FALSE );
 838                         fprintf( stream, "</td>\n" );
 839
 840                         fprintf( stream, "  <td class=\"tab-fn\">" );
 841                         if( *buf ) {
 842                                 fprintf( stream, "%s", buf );
 843                         }
 844                         else {
 845                                 fprintf( stream, "%s", HTML_SPACE );
 846                         }
 847                         fprintf( stream, "</td>\n" );
 848
 849                         if( ctl->showAttribs ) {
 850                                 fprintf( stream, "  <td class=\"tab-attr\">" );
 851                                 exporthtml_fmt_attribs(
 852                                         ctl, stream, person->listAttrib );
 853                                 fprintf( stream, "</td>\n" );
 854                         }
 855                         fprintf( stream, "</tr>\n" );
 856
 857                         retVal = FALSE;
 858                 }
 859                 node = g_list_next( node );
 860         }
 861
 862         g_list_free( list );
 863         fprintf( stream, "</table>\n" );
 864         return retVal;
 865 }
 866
 867 /*
 868  * Format folder heirarchy.
 869  * Enter: stream Output stream.
 870  *        list   Heirarchy list.
 871  */
 872 static void exporthtml_fmt_folderhead( FILE *stream, const GList *list ) {
 873         const GList *node;
 874         gboolean flag;
 875         gchar *name;
 876
 877         flag = FALSE;
 878         node = list;
 879         while( node ) {
 880                 AddrItemObject *aio = node->data;
 881                 if( aio && aio->type == ITEMTYPE_FOLDER ) {
 882                         ItemFolder *folder = ( ItemFolder * ) aio;
 883
 884                         name = ADDRITEM_NAME( folder );
 885                         if( name ) {
 886                                 if( flag ) {
 887                                         fprintf( stream, "&nbsp;&gt;&nbsp;" );
 888                                 }
 889                                 fprintf( stream, "%s", name );
 890                                 flag = TRUE;
 891                         }
 892                 }
 893                 node = g_list_next( node );
 894         }
 895 }
 896
 897 /*
 898  * Format an address book folder.
 899  * Enter: ctl    Export control data.
 900  *        stream Output stream.
 901  *        folder Folder.
 902  */
 903 static void exporthtml_fmt_folder(
 904                 ExportHtmlCtl *ctl, FILE *stream, const ItemFolder *folder )
 905 {
 906         const GList *node;
 907         GList *listHeir, *list;
 908         const gchar *name;
 909         gboolean ret1, ret2;
 910
 911         name = ADDRITEM_NAME( folder );
 912         if( name ) {
 913                 listHeir = addritem_folder_path( folder, TRUE );
 914                 if( listHeir ) {
 915                         fprintf( stream, "<p class=\"fmt-folder\">" );
 916                         fprintf( stream, "%s: ", _( "Folder" ) );
 917                         exporthtml_fmt_folderhead( stream, listHeir );
 918                         fprintf( stream, "</p>\n" );
 919                         g_list_free( listHeir );
 920                 }
 921         }
 922
 923         ret1 = exporthtml_fmt_person( ctl, stream, folder );
 924         ret2 = exporthtml_fmt_group( ctl, stream, folder, ret1 );
 925
 926         node = list = exporthtml_sort_name( folder->listFolder );
 927         while( node ) {
 928                 AddrItemObject *aio = node->data;
 929                 if( aio && aio->type == ITEMTYPE_FOLDER ) {
 930                         ItemFolder *subFolder = ( ItemFolder * ) aio;
 931                         exporthtml_fmt_folder( ctl, stream, subFolder );
 932                 }
 933                 node = g_list_next( node );
 934         }
 935         if( list ) {
 936                 g_list_free( list );
 937         }
 938 }
 939
 940 /*
 941  * Format header block.
 942  * Enter:  ctl    Export control data.
 943  *         stream Output stream.
 944  *         title  Page title.
 945  */
 946 static void exporthtml_fmt_header(
 947                 ExportHtmlCtl *ctl, FILE *stream, gchar *title )
 948 {
 949         StylesheetEntry *entry;
 950
 951         entry = exporthtml_find_stylesheet( ctl );
 952
 953         fprintf( stream,
 954                 "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">\n" );
 955         fprintf( stream, "<html>\n" );
 956         fprintf( stream, "<head>\n" );
 957
 958         if( ctl->encoding && strlen( ctl->encoding ) > 0 ) {
 959                 fprintf( stream, "<meta " );
 960                 fprintf( stream, "http-equiv=\"Content-Type\" " );
 961                 fprintf( stream, "content=\"text/html; charset=%s\">\n",
 962                         ctl->encoding );
 963         }
 964
 965         fprintf( stream, "<title>%s</title>\n", title );
 966
 967         if( entry != NULL ) {
 968                 if( entry->fileName && strlen( entry->fileName ) > 0 ) {
 969                         fprintf( stream, "<link " );
 970                         fprintf( stream, "rel=\"stylesheet\" " );
 971                         fprintf( stream, "type=\"text/css\" " );
 972                         fprintf( stream, "href=\"%s\" >\n", entry->fileName );
 973                 }
 974         }
 975         fprintf( stream, "<body>\n" );
 976         fprintf( stream, "</head>\n" );
 977 }
 978
 979 /*
 980  * ============================================================================
 981  * Export address book to HTML file.
 982  * Enter:  ctl   Export control data.
 983  *         cache Address book/data source cache.
 984  * Return: Status.
 985  * ============================================================================
 986  */
 987 void exporthtml_process(
 988         ExportHtmlCtl *ctl, AddressCache *cache )
 989 {
 990         ItemFolder *rootFolder;
 991         FILE *htmlFile;
 992         time_t tt;
 993         gchar *dsName;
 994         static gchar *title;
 995
 996         htmlFile = fopen( ctl->path, "wb" );
 997         if( ! htmlFile ) {
 998                 /* Cannot open file */
 999                 printf( "Cannot open file for write\n" );
1000                 ctl->retVal = MGU_OPEN_FILE;
1001                 return;
1002         }
1003
1004         title = _( "Sylpheed Address Book" );
1005         rootFolder = cache->rootFolder;
1006         dsName = cache->name;
1007
1008         exporthtml_fmt_header( ctl, htmlFile, title );
1009
1010         fprintf( htmlFile, "<body>\n" );
1011         fprintf( htmlFile, "<h1>%s</h1>\n", title );
1012
1013         fprintf( htmlFile, "<p class=\"fmt-folder\">" );
1014         fprintf( htmlFile, "%s: ", _( "Address Book" ) );
1015         fprintf( htmlFile, "%s", dsName );
1016         fprintf( htmlFile, "</p>\n" );
1017
1018         exporthtml_fmt_folder( ctl, htmlFile, rootFolder );
1019
1020         tt = time( NULL );
1021         fprintf( htmlFile, "<p>%s</p>\n", ctime( &tt ) );
1022         fprintf( htmlFile, "<hr width=\"100\%\"></hr>\n" );
1023
1024         fprintf( htmlFile, "</body>\n" );
1025         fprintf( htmlFile, "</html>\n" );
1026
1027         fclose( htmlFile );
1028         ctl->retVal = MGU_SUCCESS;
1029
1030         /* Create stylesheet files */
1031         exporthtml_create_css_files( ctl );
1032
1033 }
1034
1035 /*
1036  * Build full export file specification.
1037  * Enter:  ctl  Export control data.
1038  */
1039 static void *exporthtml_build_filespec( ExportHtmlCtl *ctl ) {
1040         gchar *fileSpec;
1041
1042         fileSpec = g_strconcat(
1043                 ctl->dirOutput, G_DIR_SEPARATOR_S, ctl->fileHtml, NULL );
1044         ctl->path = mgu_replace_string( ctl->path, fileSpec );
1045         g_free( fileSpec );
1046 }
1047
1048 /*
1049  * ============================================================================
1050  * Parse directory and filename from full export file specification.
1051  * Enter:  ctl      Export control data.
1052  *         fileSpec File spec.
1053  * ============================================================================
1054  */
1055 void exporthtml_parse_filespec( ExportHtmlCtl *ctl, gchar *fileSpec ) {
1056         gchar *t;
1057
1058         ctl->fileHtml =
1059                 mgu_replace_string( ctl->fileHtml, g_basename( fileSpec ) );
1060         t = g_dirname( fileSpec );
1061         ctl->dirOutput = mgu_replace_string( ctl->dirOutput, t );
1062         g_free( t );
1063         ctl->path = mgu_replace_string( ctl->path, fileSpec );
1064 }
1065
1066 /*
1067  * ============================================================================
1068  * Test whether directory exists.
1069  * Enter:  ctl  Export control data.
1070  * Return: TRUE if exists.
1071  * ============================================================================
1072  */
1073 gboolean exporthtml_test_dir( ExportHtmlCtl *ctl ) {
1074         gboolean retVal;
1075         DIR *dp;
1076
1077         retVal = FALSE;
1078         if((dp = opendir( ctl->dirOutput )) != NULL) {
1079                 retVal = TRUE;
1080                 closedir( dp );
1081         }
1082         return retVal;
1083 }
1084
1085 /*
1086  * ============================================================================
1087  * Create output directory.
1088  * Enter:  ctl  Export control data.
1089  * Return: TRUE if directory created.
1090  * ============================================================================
1091  */
1092 gboolean exporthtml_create_dir( ExportHtmlCtl *ctl ) {
1093         gboolean retVal = FALSE;
1094
1095         ctl->rcCreate = 0;
1096         if( mkdir( ctl->dirOutput, S_IRWXU ) == 0 ) {
1097                 retVal = TRUE;
1098         }
1099         else {
1100                 ctl->rcCreate = errno;
1101         }
1102         return retVal;
1103 }
1104
1105 /*
1106  * ============================================================================
1107  * Retrieve create directory error message.
1108  * Enter:  ctl  Export control data.
1109  * Return: Message.
1110  * ============================================================================
1111  */
1112 gchar *exporthtml_get_create_msg( ExportHtmlCtl *ctl ) {
1113         gchar *msg;
1114
1115         if( ctl->rcCreate == EEXIST ) {
1116                 msg = _( "Name already exists but is not a directory." );
1117         }
1118         else if( ctl->rcCreate == EACCES ) {
1119                 msg = _( "No permissions to create directory." );
1120         }
1121         else if( ctl->rcCreate == ENAMETOOLONG ) {
1122                 msg = _( "Name is too long." );
1123         }
1124         else {
1125                 msg = _( "Not specified." );
1126         }
1127         return msg;
1128 }
1129
1130 /*
1131  * Set default values.
1132  * Enter: ctl Export control data.
1133  */
1134 static void exporthtml_default_values( ExportHtmlCtl *ctl ) {
1135         gchar *str;
1136
1137         str = g_strconcat(
1138                 g_get_home_dir(), G_DIR_SEPARATOR_S,
1139                 DFL_DIR_SYLPHEED_OUT, NULL );
1140
1141         ctl->dirOutput = mgu_replace_string( ctl->dirOutput, str );
1142         g_free( str );
1143
1144         ctl->fileHtml =
1145                 mgu_replace_string( ctl->fileHtml, DFL_FILE_SYLPHEED_OUT );
1146         ctl->encoding = NULL;
1147         ctl->stylesheet = EXPORT_HTML_ID_DEFAULT;
1148         ctl->nameFormat = EXPORT_HTML_FIRST_LAST;
1149         ctl->banding = TRUE;
1150         ctl->linkEMail = TRUE;
1151         ctl->showAttribs = TRUE;
1152         ctl->retVal = MGU_SUCCESS;
1153 }
1154
1155 /*
1156  * ============================================================================
1157  * Load settings from XML properties file.
1158  * Enter: ctl  Export control data.
1159  * ============================================================================
1160  */
1161 void exporthtml_load_settings( ExportHtmlCtl *ctl ) {
1162         XmlProperty *props;
1163         gint rc;
1164         gchar buf[256];
1165
1166         *buf = '\0';
1167         props = xmlprops_create();
1168         xmlprops_set_path( props, ctl->settingsFile );
1169         rc = xmlprops_load_file( props );
1170         if( rc == 0 ) {
1171                 /* Read settings */
1172                 xmlprops_get_property_s( props, EXMLPROP_DIRECTORY, buf );
1173                 ctl->dirOutput = mgu_replace_string( ctl->dirOutput, buf );
1174
1175                 xmlprops_get_property_s( props, EXMLPROP_FILE, buf );
1176                 ctl->fileHtml = mgu_replace_string( ctl->fileHtml, buf );
1177
1178                 ctl->stylesheet =
1179                         xmlprops_get_property_i( props, EXMLPROP_STYLESHEET );
1180                 ctl->nameFormat =
1181                         xmlprops_get_property_i( props, EXMLPROP_FMT_NAME );
1182                 ctl->banding =
1183                         xmlprops_get_property_b( props, EXMLPROP_BANDING );
1184                 ctl->linkEMail =
1185                         xmlprops_get_property_b( props, EXMLPROP_FMT_EMAIL );
1186                 ctl->showAttribs =
1187                         xmlprops_get_property_b( props, EXMLPROP_FMT_ATTRIB );
1188         }
1189         else {
1190                 /* Set default values */
1191                 exporthtml_default_values( ctl );
1192         }
1193         exporthtml_build_filespec( ctl );
1194         /* exporthtml_print( ctl, stdout ); */
1195
1196         xmlprops_free( props );
1197 }
1198
1199 /*
1200  * ============================================================================
1201  * Save settings to XML properties file.
1202  * Enter: ctl  Export control data.
1203  * ============================================================================
1204  */
1205 void exporthtml_save_settings( ExportHtmlCtl *ctl ) {
1206         XmlProperty *props;
1207
1208         props = xmlprops_create();
1209         xmlprops_set_path( props, ctl->settingsFile );
1210
1211         xmlprops_set_property( props, EXMLPROP_DIRECTORY, ctl->dirOutput );
1212         xmlprops_set_property( props, EXMLPROP_FILE, ctl->fileHtml );
1213         xmlprops_set_property_i( props, EXMLPROP_STYLESHEET, ctl->stylesheet );
1214         xmlprops_set_property_i( props, EXMLPROP_FMT_NAME, ctl->nameFormat );
1215         xmlprops_set_property_b( props, EXMLPROP_BANDING, ctl->banding );
1216         xmlprops_set_property_b( props, EXMLPROP_FMT_EMAIL, ctl->linkEMail );
1217         xmlprops_set_property_b( props, EXMLPROP_FMT_ATTRIB, ctl->showAttribs );
1218         xmlprops_save_file( props );
1219         xmlprops_free( props );
1220 }
1221
1222 /*
1223  * ============================================================================
1224  * End of Source.
1225  * ============================================================================
1226  */
1227
1228