2 * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 2001-2007 Match Grun and the Claws Mail team
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 3 of the License, or
8 * (at your option) any later version.
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.
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * Functions necessary to access LDIF files (LDAP Data Interchange Format
26 #include <glib/gi18n.h>
33 #include "addrcache.h"
38 #define LDIF_SEP_TAG ':'
39 #define LDIF_LANG_TAG ';'
43 * \return Initialized LDIF file object.
45 LdifFile
*ldif_create() {
47 ldifFile
= g_new0( LdifFile
, 1 );
48 ldifFile
->path
= NULL
;
49 ldifFile
->file
= NULL
;
50 ldifFile
->bufptr
= ldifFile
->buffer
;
51 ldifFile
->hashFields
= g_hash_table_new( g_str_hash
, g_str_equal
);
52 ldifFile
->tempList
= NULL
;
53 ldifFile
->dirtyFlag
= TRUE
;
54 ldifFile
->accessFlag
= FALSE
;
55 ldifFile
->retVal
= MGU_SUCCESS
;
56 ldifFile
->cbProgress
= NULL
;
57 ldifFile
->importCount
= 0;
62 * Specify full file specification of LDIF file.
63 * \param ldifFile LDIF import control object.
64 * \param value Value of access flag.
66 void ldif_set_file( LdifFile
*ldifFile
, const gchar
*value
) {
67 g_return_if_fail( ldifFile
!= NULL
);
69 if( ldifFile
->path
) {
70 if( strcmp( ldifFile
->path
, value
) != 0 )
71 ldifFile
->dirtyFlag
= TRUE
;
74 ldifFile
->dirtyFlag
= TRUE
;
76 ldifFile
->path
= mgu_replace_string( ldifFile
->path
, value
);
77 g_strstrip( ldifFile
->path
);
78 ldifFile
->importCount
= 0;
82 * Set the file access indicator.
83 * \param ldifFile LDIF import control object.
84 * \param value File specification.
86 void ldif_set_accessed( LdifFile
*ldifFile
, const gboolean value
) {
87 g_return_if_fail( ldifFile
!= NULL
);
88 ldifFile
->accessFlag
= value
;
92 * Create field record object.
93 * \return Initialized LDIF field object.
95 static Ldif_FieldRec
*ldif_create_fieldrec( const gchar
*field
) {
96 Ldif_FieldRec
*rec
= g_new0( Ldif_FieldRec
, 1 );
97 rec
->tagName
= g_strdup( field
);
99 rec
->reserved
= FALSE
;
100 rec
->selected
= FALSE
;
105 * Free field record object.
106 * \param rec LDIF field object.
108 static void ldif_free_fieldrec( Ldif_FieldRec
*rec
) {
110 g_free( rec
->tagName
);
111 g_free( rec
->userName
);
113 rec
->userName
= NULL
;
114 rec
->reserved
= FALSE
;
115 rec
->selected
= FALSE
;
121 * Set user name for field record.
122 * \param rec LDIF field object.
123 * \param value User name to set. Note that reserved fields cannot be
126 void ldif_field_set_name( Ldif_FieldRec
*rec
, const gchar
*value
) {
127 g_return_if_fail( rec
!= NULL
);
129 if( ! rec
->reserved
) {
130 rec
->userName
= mgu_replace_string( rec
->userName
, value
);
131 g_strstrip( rec
->userName
);
136 * Specify selection for field record.
137 * \param rec LDIF field object.
138 * \param value Set to <i>TRUE</i> to select field. Note that reserved
139 * fields cannot be unselected.
141 void ldif_field_set_selected( Ldif_FieldRec
*rec
, const gboolean value
) {
142 g_return_if_fail( rec
!= NULL
);
144 if( ! rec
->reserved
) {
145 rec
->selected
= value
;
150 * Toggle selection for field record. Note that reserved fields cannot be
152 * \param rec LDIF field object.
154 void ldif_field_toggle( Ldif_FieldRec
*rec
) {
155 g_return_if_fail( rec
!= NULL
);
157 if( ! rec
->reserved
) {
158 rec
->selected
= !rec
->selected
;
163 * Free hash table entry visitor function.
165 * \param value Value (the LDIF field record).
166 * \param data User data.
167 * \return <code>-1</code>.
169 static gint
ldif_hash_free_vis( gpointer key
, gpointer value
, gpointer data
) {
170 ldif_free_fieldrec( ( Ldif_FieldRec
* ) value
);
177 * Free up object by releasing internal memory.
178 * \param ldifFile LDIF import control object.
180 void ldif_free( LdifFile
*ldifFile
) {
181 g_return_if_fail( ldifFile
!= NULL
);
184 if( ldifFile
->file
) fclose( ldifFile
->file
);
186 /* Free internal stuff */
187 g_free( ldifFile
->path
);
189 /* Free field list */
190 g_hash_table_foreach_remove( ldifFile
->hashFields
, ldif_hash_free_vis
, NULL
);
191 g_hash_table_destroy( ldifFile
->hashFields
);
192 ldifFile
->hashFields
= NULL
;
195 ldifFile
->file
= NULL
;
196 ldifFile
->path
= NULL
;
197 ldifFile
->retVal
= MGU_SUCCESS
;
198 ldifFile
->tempList
= NULL
;
199 ldifFile
->dirtyFlag
= FALSE
;
200 ldifFile
->accessFlag
= FALSE
;
201 ldifFile
->cbProgress
= NULL
;
203 /* Now release file object */
208 * Open file for read.
209 * \param ldifFile LDIF import control object.
210 * \return <i>TRUE</i> if file opened successfully.
212 static gint
ldif_open_file( LdifFile
* ldifFile
) {
213 /* g_print( "Opening file\n" ); */
214 if( ldifFile
->path
) {
215 ldifFile
->file
= g_fopen( ldifFile
->path
, "rb" );
216 if( ! ldifFile
->file
) {
217 /* g_print( "can't open %s\n", ldifFile->path ); */
218 ldifFile
->retVal
= MGU_OPEN_FILE
;
219 return ldifFile
->retVal
;
223 /* g_print( "file not specified\n" ); */
224 ldifFile
->retVal
= MGU_NO_FILE
;
225 return ldifFile
->retVal
;
228 /* Setup a buffer area */
229 ldifFile
->buffer
[0] = '\0';
230 ldifFile
->bufptr
= ldifFile
->buffer
;
231 ldifFile
->retVal
= MGU_SUCCESS
;
232 return ldifFile
->retVal
;
237 * \param ldifFile LDIF import control object.
239 static void ldif_close_file( LdifFile
*ldifFile
) {
240 g_return_if_fail( ldifFile
!= NULL
);
241 if( ldifFile
->file
) fclose( ldifFile
->file
);
242 ldifFile
->file
= NULL
;
246 * Read line of text from file.
247 * \param ldifFile LDIF import control object.
248 * \return ptr to buffer where line starts.
250 static gchar
*ldif_get_line( LdifFile
*ldifFile
) {
251 gchar buf
[ LDIFBUFSIZE
];
255 if( feof( ldifFile
->file
) )
258 while( i
< LDIFBUFSIZE
-1 ) {
259 ch
= fgetc( ldifFile
->file
);
260 if (ferror( ldifFile
->file
))
261 ldifFile
->retVal
= MGU_ERROR_READ
;
262 if( ch
== '\0' || ch
== EOF
) {
263 if( i
== 0 ) return NULL
;
266 #if HAVE_DOSISH_SYSTEM
278 /* Return a copy of buffer */
279 return g_strdup( buf
);
283 * Parse tag name from line buffer.
284 * \param line Buffer.
285 * \param flag64 Base-64 encoder flag.
286 * \return Buffer containing the tag name, or NULL if no delimiter char found.
287 * If a double delimiter (::) is found, flag64 is set.
289 static gchar
*ldif_get_tagname( char* line
, gboolean
*flag64
) {
296 /* Check for language tag */
297 if( *lptr
== LDIF_LANG_TAG
) {
298 if( sptr
== NULL
) sptr
= lptr
;
301 /* Check for delimiter */
302 if( *lptr
== LDIF_SEP_TAG
) {
310 /* Base-64 encoding? */
311 if( * ++lptr
== LDIF_SEP_TAG
) *flag64
= TRUE
;
313 tag
= g_strndup( line
, len
+1 );
323 * Parse tag value from line buffer.
324 * \param line Buffer.
325 * \return Buffer containing the tag value. Empty string is returned if
326 * no delimiter char found.
328 static gchar
*ldif_get_tagvalue( gchar
* line
) {
334 for( lptr
= line
; *lptr
; lptr
++ ) {
335 if( *lptr
== LDIF_SEP_TAG
) {
341 if( *start
== LDIF_SEP_TAG
) start
++;
343 value
= g_strndup( start
, len
+1 );
347 /* Ensure that we get an empty string */
348 value
= g_strndup( "", 1 );
355 * Parsed address data record.
357 typedef struct _Ldif_ParsedRec_ Ldif_ParsedRec
;
358 struct _Ldif_ParsedRec_
{
369 * User attribute data record.
371 typedef struct _Ldif_UserAttr_ Ldif_UserAttr
;
372 struct _Ldif_UserAttr_
{
378 * Build an address list entry and append to list of address items in the
379 * address cache. Name is formatted as "<first-name> <last-name>".
380 * \param ldifFile LDIF import control object.
381 * \param rec LDIF field object.
382 * \param cache Address cache to be populated with data.
384 static void ldif_build_items(
385 LdifFile
*ldifFile
, Ldif_ParsedRec
*rec
, AddressCache
*cache
)
390 gchar
*firstName
= NULL
, *lastName
= NULL
, *fullName
= NULL
;
391 gchar
*nickName
= NULL
;
392 gint iLen
= 0, iLenT
= 0;
396 nodeAddress
= rec
->listAddress
;
397 if( nodeAddress
== NULL
) return;
399 /* Find longest first name in list */
400 nodeFirst
= rec
->listFName
;
402 if( firstName
== NULL
) {
403 firstName
= nodeFirst
->data
;
404 iLen
= strlen( firstName
);
407 if( ( iLenT
= strlen( nodeFirst
->data
) ) > iLen
) {
408 firstName
= nodeFirst
->data
;
412 nodeFirst
= g_slist_next( nodeFirst
);
416 if( rec
->listLName
) {
417 lastName
= rec
->listLName
->data
;
422 fullName
= g_strdup_printf(
423 "%s %s", firstName
, lastName
);
426 fullName
= g_strdup_printf( "%s", firstName
);
431 fullName
= g_strdup_printf( "%s", lastName
);
435 if (!fullName
|| strlen(fullName
) == 0) {
439 fullName
= g_strdup(rec
->listCName
->data
);
443 g_strchug( fullName
); g_strchomp( fullName
);
446 if( rec
->listNName
) {
447 nickName
= rec
->listNName
->data
;
450 person
= addritem_create_item_person();
451 addritem_person_set_common_name( person
, fullName
);
452 addritem_person_set_first_name( person
, firstName
);
453 addritem_person_set_last_name( person
, lastName
);
454 addritem_person_set_nick_name( person
, nickName
);
455 addrcache_id_person( cache
, person
);
456 addrcache_add_person( cache
, person
);
457 ++ldifFile
->importCount
;
459 /* Add address item */
460 while( nodeAddress
) {
461 email
= addritem_create_item_email();
462 addritem_email_set_address( email
, nodeAddress
->data
);
463 addrcache_id_email( cache
, email
);
464 addrcache_person_add_email( cache
, person
, email
);
465 nodeAddress
= g_slist_next( nodeAddress
);
468 fullName
= firstName
= lastName
= NULL
;
470 /* Add user attributes */
471 nodeAttr
= rec
->userAttr
;
473 Ldif_UserAttr
*attr
= nodeAttr
->data
;
474 UserAttribute
*attrib
= addritem_create_attribute();
475 addritem_attrib_set_name( attrib
, attr
->name
);
476 addritem_attrib_set_value( attrib
, attr
->value
);
477 addritem_person_add_attribute( person
, attrib
);
478 nodeAttr
= g_slist_next( nodeAttr
);
484 * Add selected field as user attribute.
485 * \param rec LDIF field object.
486 * \param tagName LDIF tag name.
487 * \param tagValue Data value.
488 * \param hashField Hash table to populate.
490 static void ldif_add_user_attr(
491 Ldif_ParsedRec
*rec
, gchar
*tagName
, gchar
*tagValue
,
492 GHashTable
*hashField
)
494 Ldif_FieldRec
*fld
= NULL
;
495 Ldif_UserAttr
*attr
= NULL
;
498 fld
= g_hash_table_lookup( hashField
, tagName
);
500 if( ! fld
->selected
) return;
503 if( fld
->userName
) {
504 name
= fld
->userName
;
506 attr
= g_new0( Ldif_UserAttr
, 1 );
507 attr
->name
= g_strdup( name
);
508 attr
->value
= g_strdup( tagValue
);
509 rec
->userAttr
= g_slist_append( rec
->userAttr
, attr
);
514 * Add value to parsed data.
515 * \param rec LDIF field object.
516 * \param tagName LDIF tag name.
517 * \param tagValue Data value.
518 * \param hashField Hash table to populate.
520 static void ldif_add_value(
521 Ldif_ParsedRec
*rec
, gchar
*tagName
, gchar
*tagValue
,
522 GHashTable
*hashField
)
526 nm
= g_strdup( tagName
);
529 val
= g_strdup( tagValue
);
532 val
= g_strdup( "" );
536 if( g_utf8_collate( nm
, LDIF_TAG_COMMONNAME
) == 0 ) {
537 rec
->listCName
= g_slist_append( rec
->listCName
, val
);
539 else if( g_utf8_collate( nm
, LDIF_TAG_FIRSTNAME
) == 0 ) {
540 rec
->listFName
= g_slist_append( rec
->listFName
, val
);
542 else if( g_utf8_collate( nm
, LDIF_TAG_LASTNAME
) == 0 ) {
543 rec
->listLName
= g_slist_append( rec
->listLName
, val
);
545 else if( g_utf8_collate( nm
, LDIF_TAG_NICKNAME
) == 0 ) {
546 rec
->listNName
= g_slist_append( rec
->listNName
, val
);
548 else if( g_utf8_collate( nm
, LDIF_TAG_EMAIL
) == 0 ) {
549 rec
->listAddress
= g_slist_append( rec
->listAddress
, val
);
552 /* Add field as user attribute */
553 ldif_add_user_attr( rec
, tagName
, tagValue
, hashField
);
559 * Clear parsed data record.
560 * \param rec LDIF field object.
562 static void ldif_clear_rec( Ldif_ParsedRec
*rec
) {
565 /* Free up user attributes */
566 list
= rec
->userAttr
;
568 Ldif_UserAttr
*attr
= list
->data
;
569 g_free( attr
->name
);
570 g_free( attr
->value
);
572 list
= g_slist_next( list
);
574 g_slist_free( rec
->userAttr
);
576 g_slist_free( rec
->listCName
);
577 g_slist_free( rec
->listFName
);
578 g_slist_free( rec
->listLName
);
579 g_slist_free( rec
->listNName
);
580 g_slist_free( rec
->listAddress
);
581 g_slist_free( rec
->listID
);
583 rec
->userAttr
= NULL
;
584 rec
->listCName
= NULL
;
585 rec
->listFName
= NULL
;
586 rec
->listLName
= NULL
;
587 rec
->listNName
= NULL
;
588 rec
->listAddress
= NULL
;
593 * Read file data into address cache.
594 * Note that one LDIF record identifies one entity uniquely with the
595 * distinguished name (dn) tag. Each person can have multiple E-Mail
596 * addresses. Also, each person can have many common name (cn) tags.
598 * \param ldifFile LDIF import control object.
599 * \param cache Address cache to be populated with data.
601 static void ldif_read_file( LdifFile
*ldifFile
, AddressCache
*cache
) {
602 gchar
*tagName
= NULL
, *tagValue
= NULL
;
603 gchar
*lastTag
= NULL
, *fullValue
= NULL
;
604 GSList
*listValue
= NULL
;
605 gboolean flagEOF
= FALSE
, flagEOR
= FALSE
;
606 gboolean flag64
= FALSE
, last64
= FALSE
;
610 GHashTable
*hashField
;
612 hashField
= ldifFile
->hashFields
;
613 rec
= g_new0( Ldif_ParsedRec
, 1 );
614 ldif_clear_rec( rec
);
616 /* Find EOF for progress indicator */
617 fseek( ldifFile
->file
, 0L, SEEK_END
);
618 posEnd
= ftell( ldifFile
->file
);
619 fseek( ldifFile
->file
, 0L, SEEK_SET
);
622 gchar
*line
= ldif_get_line( ldifFile
);
624 posCur
= ftell( ldifFile
->file
);
625 if( ldifFile
->cbProgress
) {
626 /* Call progress indicator */
627 ( ldifFile
->cbProgress
) ( ldifFile
, & posEnd
, & posCur
);
632 flagEOF
= flagEOR
= TRUE
;
634 else if( *line
== '\0' ) {
639 /* EOR, Output address data */
642 fullValue
= mgu_list_coalesce( listValue
);
643 if (fullValue
&& last64
) {
644 gchar
*out
= g_malloc(strlen(fullValue
));
646 if ((len
= base64_decode(out
, fullValue
,
647 strlen(fullValue
))) >= 0) {
650 fullValue
[len
] = '\0';
654 /* Base-64 encoded data */
657 ldif_dump_b64( fullValue );
661 ldif_add_value( rec
, lastTag
, fullValue
, hashField
);
662 /* ldif_print_record( rec, stdout ); */
663 ldif_build_items( ldifFile
, rec
, cache
);
664 ldif_clear_rec( rec
);
666 mgu_free_list( listValue
);
675 /* Continuation line */
676 listValue
= g_slist_append(
677 listValue
, g_strdup( line
+1 ) );
679 else if( *line
== '=' ) {
680 /* Base-64 encoded continuation field */
681 listValue
= g_slist_append(
682 listValue
, g_strdup( line
) );
686 tagName
= ldif_get_tagname( line
, &flag64
);
688 tagValue
= ldif_get_tagvalue( line
);
693 mgu_list_coalesce( listValue
);
694 if (fullValue
&& last64
) {
695 gchar
*out
= g_malloc(strlen(fullValue
));
697 if ((len
= base64_decode(out
, fullValue
,
698 strlen(fullValue
))) >= 0) {
701 fullValue
[len
] = '\0';
705 /* Base-64 encoded data */
708 ldif_dump_b64( fullValue );
713 rec
, lastTag
, fullValue
,
716 mgu_free_list( listValue
);
722 lastTag
= g_strdup( tagName
);
723 listValue
= g_slist_append(
725 g_strdup( tagValue
) );
737 ldif_clear_rec( rec
);
740 mgu_free_list( listValue
);
744 * Add list of field names to hash table.
745 * \param table Hashtable.
746 * \param list List of fields.
748 static void ldif_hash_add_list( GHashTable
*table
, GSList
*list
) {
751 /* mgu_print_list( list, stdout ); */
753 gchar
*tag
= node
->data
;
754 if( ! g_hash_table_lookup( table
, tag
) ) {
755 Ldif_FieldRec
*rec
= NULL
;
756 gchar
*key
= g_strdup( tag
);
758 rec
= ldif_create_fieldrec( tag
);
759 if( g_utf8_collate( tag
, LDIF_TAG_DN
) == 0 ) {
760 rec
->reserved
= rec
->selected
= TRUE
;
761 rec
->userName
= g_strdup( "dn" );
763 else if( g_utf8_collate( tag
, LDIF_TAG_COMMONNAME
) == 0 ) {
764 rec
->reserved
= rec
->selected
= TRUE
;
765 rec
->userName
= g_strdup( _( "Display Name" ) );
767 else if( g_utf8_collate( tag
, LDIF_TAG_FIRSTNAME
) == 0 ) {
768 rec
->reserved
= rec
->selected
= TRUE
;
769 rec
->userName
= g_strdup( _( "First Name" ) );
771 else if( g_utf8_collate( tag
, LDIF_TAG_LASTNAME
) == 0 ) {
772 rec
->reserved
= rec
->selected
= TRUE
;
773 rec
->userName
= g_strdup( _( "Last Name" ) );
775 else if( g_utf8_collate( tag
, LDIF_TAG_NICKNAME
) == 0 ) {
776 rec
->reserved
= rec
->selected
= TRUE
;
777 rec
->userName
= g_strdup( _( "Nick Name" ) );
779 else if( g_utf8_collate( tag
, LDIF_TAG_EMAIL
) == 0 ) {
780 rec
->reserved
= rec
->selected
= TRUE
;
781 rec
->userName
= g_strdup( _( "Email Address" ) );
783 g_hash_table_insert( table
, key
, rec
);
785 node
= g_slist_next( node
);
790 * Sorted list comparison function.
791 * \param ptr1 First field.
792 * \param ptr2 Second field.
793 * \return <code>-1, 0, +1</code> if first record less than, equal,
794 * greater than second.
796 static gint
ldif_field_compare( gconstpointer ptr1
, gconstpointer ptr2
) {
797 const Ldif_FieldRec
*rec1
= ptr1
;
798 const Ldif_FieldRec
*rec2
= ptr2
;
800 if( rec1
->reserved
) {
801 if( ! rec2
->reserved
) {
806 if( rec2
->reserved
) {
810 return g_utf8_collate( rec1
->tagName
, rec2
->tagName
);
814 * Append hash table entry to list - visitor function.
816 * \param value Data value.
817 * \param data User data (the LDIF import control object).
819 static void ldif_hash2list_vis( gpointer key
, gpointer value
, gpointer data
) {
820 LdifFile
*ldf
= data
;
822 g_list_insert_sorted( ldf
->tempList
, value
, ldif_field_compare
);
826 * Read tag names for file data.
827 * \param ldifFile LDIF import control object.
829 static void ldif_read_tag_list( LdifFile
*ldifFile
) {
830 gchar
*tagName
= NULL
;
831 GSList
*listTags
= NULL
;
832 gboolean flagEOF
= FALSE
, flagEOR
= FALSE
, flagMail
= FALSE
;
833 gboolean flag64
= FALSE
;
837 /* Clear hash table */
838 g_hash_table_foreach_remove(
839 ldifFile
->hashFields
, ldif_hash_free_vis
, NULL
);
841 /* Find EOF for progress indicator */
842 fseek( ldifFile
->file
, 0L, SEEK_END
);
843 posEnd
= ftell( ldifFile
->file
);
844 fseek( ldifFile
->file
, 0L, SEEK_SET
);
847 ldifFile
->retVal
= MGU_EOF
;
853 gchar
*line
= ldif_get_line( ldifFile
);
854 posCur
= ftell( ldifFile
->file
);
855 if( ldifFile
->cbProgress
) {
856 /* Call progress indicator */
857 ( ldifFile
->cbProgress
) ( ldifFile
, & posEnd
, & posCur
);
862 flagEOF
= flagEOR
= TRUE
;
864 else if( *line
== '\0' ) {
869 /* EOR, Output address data */
870 /* Save field list to hash table */
873 ldifFile
->hashFields
, listTags
);
875 mgu_free_list( listTags
);
882 /* Continuation line */
884 else if( *line
== '=' ) {
885 /* Base-64 encoded continuation field */
889 tagName
= ldif_get_tagname( line
, &flag64
);
891 /* Add tag to list */
892 listTags
= g_slist_append( listTags
, tagName
);
895 tagName
, LDIF_TAG_EMAIL
) == 0 )
902 debug_print("ldif: bad format: '%s'\n", line
);
903 ldifFile
->retVal
= MGU_BAD_FORMAT
;
912 mgu_free_list( listTags
);
917 * Read file into list. Main entry point
918 * \param ldifFile LDIF import control object.
919 * \param cache Address cache to load.
920 * \return Status code.
922 gint
ldif_import_data( LdifFile
*ldifFile
, AddressCache
*cache
) {
923 g_return_val_if_fail( ldifFile
!= NULL
, MGU_BAD_ARGS
);
924 ldifFile
->retVal
= MGU_SUCCESS
;
925 addrcache_clear( cache
);
926 cache
->dataRead
= FALSE
;
927 ldif_open_file( ldifFile
);
928 if( ldifFile
->retVal
== MGU_SUCCESS
) {
929 /* Read data into the cache */
930 ldif_read_file( ldifFile
, cache
);
931 ldif_close_file( ldifFile
);
934 cache
->modified
= FALSE
;
935 cache
->dataRead
= TRUE
;
937 return ldifFile
->retVal
;
941 * Process entire file reading list of unique fields. List of fields may be
942 * accessed with the <code>ldif_get_fieldlist()</code> function.
943 * \param ldifFile LDIF import control object.
944 * \return Status code.
946 gint
ldif_read_tags( LdifFile
*ldifFile
) {
947 g_return_val_if_fail( ldifFile
!= NULL
, MGU_BAD_ARGS
);
948 ldifFile
->retVal
= MGU_SUCCESS
;
949 if( ldifFile
->dirtyFlag
) {
950 ldif_open_file( ldifFile
);
951 if( ldifFile
->retVal
== MGU_SUCCESS
) {
952 /* Read data into the cache */
953 ldif_read_tag_list( ldifFile
);
954 ldif_close_file( ldifFile
);
955 ldifFile
->dirtyFlag
= FALSE
;
956 ldifFile
->accessFlag
= TRUE
;
959 return ldifFile
->retVal
;
963 * Return list of fields for LDIF file.
964 * \param ldifFile LDIF import control object.
965 * \return Linked list of <code>Ldif_FieldRec</code> objects. This list may be
966 * <code>g_free()</code>. Note that the objects in the list should not
967 * be freed since they refer to objects inside the internal cache.
968 * These objects will be freed when LDIF file object is freed.
970 GList
*ldif_get_fieldlist( LdifFile
*ldifFile
) {
973 g_return_val_if_fail( ldifFile
!= NULL
, NULL
);
974 if( ldifFile
->hashFields
) {
975 ldifFile
->tempList
= NULL
;
976 g_hash_table_foreach( ldifFile
->hashFields
, ldif_hash2list_vis
, ldifFile
);
977 list
= ldifFile
->tempList
;
978 ldifFile
->tempList
= NULL
;
984 * Output LDIF name-value pair to stream. Only non-empty names and values will
986 * \param stream File output stream.
988 * \param value Data value.
989 * \return <i>TRUE</i> if data output.
991 gboolean
ldif_write_value( FILE *stream
, const gchar
*name
, const gchar
*value
) {
992 if( name
== NULL
) return FALSE
;
993 if( value
== NULL
) return FALSE
;
994 if( strlen( name
) < 1 ) return FALSE
;
995 if( strlen( value
) < 1 ) return FALSE
;
996 fprintf( stream
, "%s: ", name
);
997 fprintf( stream
, "%s\n", value
);
1002 * Output LDIF End of Record to stream.
1003 * \param stream File output stream.
1004 * \return <i>TRUE</i> if data output.
1006 void ldif_write_eor( FILE *stream
) {
1007 /* Simple but caller should not need to know how to end record. */
1008 fprintf( stream
, "\n" );
1012 * ============================================================================
1014 * ============================================================================