Windows: Interlocked ops for cm_cell
[openafs.git] / src / WINNT / afsd / cm_cell.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  *
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include <afsconfig.h>
11 #include <afs/param.h>
12 #include <roken.h>
13
14 #include <afs/stds.h>
15
16 #include <windows.h>
17 #include <nb30.h>
18 #include <winsock2.h>
19 #include <stdlib.h>
20 #include <stdio.h>
21 #include <malloc.h>
22 #include <osi.h>
23 #include <string.h>
24 #define STRSAFE_NO_DEPRECATE
25 #include <strsafe.h>
26
27 #include "afsd.h"
28
29 osi_rwlock_t cm_cellLock;
30
31 /* function called as callback proc from cm_SearchCellFile.  Return 0 to
32  * continue processing.
33  *
34  * At the present time the return value is ignored by the caller.
35  */
36 long cm_AddCellProc(void *rockp, struct sockaddr_in *addrp, char *hostnamep, unsigned short ipRank)
37 {
38     cm_server_t *tsp;
39     cm_serverRef_t *tsrp;
40     cm_cell_t *cellp;
41     cm_cell_rock_t *cellrockp = (cm_cell_rock_t *)rockp;
42     afs_uint32 probe;
43
44     cellp = cellrockp->cellp;
45     probe = !(cellrockp->flags & CM_FLAG_NOPROBE);
46
47     /* if this server was previously created by fs setserverprefs */
48     if ( tsp = cm_FindServer(addrp, CM_SERVER_VLDB))
49     {
50         if ( !tsp->cellp )
51             tsp->cellp = cellp;
52         else if (tsp->cellp != cellp) {
53             osi_Log3(afsd_logp, "found a vlserver %s associated with two cells named %s and %s",
54                      osi_LogSaveString(afsd_logp,hostnamep),
55                      osi_LogSaveString(afsd_logp,tsp->cellp->name),
56                      osi_LogSaveString(afsd_logp,cellp->name));
57         }
58     }
59     else
60         tsp = cm_NewServer(addrp, CM_SERVER_VLDB, cellp, NULL, probe ? 0 : CM_FLAG_NOPROBE);
61
62     if (ipRank)
63         tsp->ipRank = ipRank;
64
65     /* Insert the vlserver into a sorted list, sorted by server rank */
66     tsrp = cm_NewServerRef(tsp, 0);
67     cm_InsertServerList(&cellp->vlServersp, tsrp);
68     /* drop the allocation reference */
69     lock_ObtainWrite(&cm_serverLock);
70     tsrp->refCount--;
71     lock_ReleaseWrite(&cm_serverLock);
72
73     return 0;
74 }
75
76 /* if it's from DNS, see if it has expired
77  * and check to make sure we have a valid set of volume servers
78  * this function must not be called with a lock on cm_cellLock
79  */
80 cm_cell_t *cm_UpdateCell(cm_cell_t * cp, afs_uint32 flags)
81 {
82     long code = 0;
83     cm_cell_rock_t rock;
84     afs_uint32 mxheld = 0;
85
86     if (cp == NULL)
87         return NULL;
88
89     lock_ObtainMutex(&cp->mx);
90     mxheld = 1;
91     if ((cp->vlServersp == NULL
92 #ifdef AFS_FREELANCE_CLIENT
93           && !(cp->flags & CM_CELLFLAG_FREELANCE)
94 #endif
95           ) || (time(0) > cp->timeout)
96         || (cm_dnsEnabled && (cp->flags & CM_CELLFLAG_DNS) &&
97          ((cp->flags & CM_CELLFLAG_VLSERVER_INVALID)))
98             )
99     {
100         lock_ReleaseMutex(&cp->mx);
101         mxheld = 0;
102
103         /* must empty cp->vlServersp */
104         if (cp->vlServersp)
105             cm_FreeServerList(&cp->vlServersp, CM_FREESERVERLIST_DELETE);
106
107         rock.cellp = cp;
108         rock.flags = flags;
109         code = cm_SearchCellRegistry(1, cp->name, NULL, cp->linkedName, cm_AddCellProc, &rock);
110         if (code && code != CM_ERROR_FORCE_DNS_LOOKUP)
111             code = cm_SearchCellFileEx(cp->name, NULL, cp->linkedName, cm_AddCellProc, &rock);
112         if (code == 0) {
113             lock_ObtainMutex(&cp->mx);
114             mxheld = 1;
115             cp->timeout = time(0) + 7200;
116         }
117         else {
118             if (cm_dnsEnabled) {
119                 int ttl;
120
121                 code = cm_SearchCellByDNS(cp->name, NULL, &ttl, cm_AddCellProc, &rock);
122                 if (code == 0) {   /* got cell from DNS */
123                     lock_ObtainMutex(&cp->mx);
124                     mxheld = 1;
125                     _InterlockedOr(&cp->flags, CM_CELLFLAG_DNS);
126                     _InterlockedAnd(&cp->flags, ~CM_CELLFLAG_VLSERVER_INVALID);
127                     cp->timeout = time(0) + ttl;
128 #ifdef DEBUG
129                     fprintf(stderr, "cell %s: ttl=%d\n", cp->name, ttl);
130 #endif
131                 } else {
132                     /* if we fail to find it this time, we'll just do nothing and leave the
133                      * current entry alone
134                      */
135                     lock_ObtainMutex(&cp->mx);
136                     mxheld = 1;
137                     _InterlockedOr(&cp->flags, CM_CELLFLAG_VLSERVER_INVALID);
138                 }
139             }
140         }
141     }
142
143     if (code == 0)
144         cm_RandomizeServer(&cp->vlServersp);
145
146     if (mxheld)
147         lock_ReleaseMutex(&cp->mx);
148
149     return code ? NULL : cp;
150 }
151
152 /* load up a cell structure from the cell database, AFS_CELLSERVDB */
153 cm_cell_t *cm_GetCell(char *namep, afs_uint32 flags)
154 {
155     return cm_GetCell_Gen(namep, NULL, flags);
156 }
157
158 void cm_FreeCell(cm_cell_t *cellp)
159 {
160     lock_AssertWrite(&cm_cellLock);
161
162     if (cellp->vlServersp)
163         cm_FreeServerList(&cellp->vlServersp, CM_FREESERVERLIST_DELETE);
164     cellp->name[0] = '\0';
165
166     cellp->freeNextp = cm_data.freeCellsp;
167     cm_data.freeCellsp = cellp;
168 }
169
170 cm_cell_t *cm_GetCell_Gen(char *namep, char *newnamep, afs_uint32 flags)
171 {
172     cm_cell_t *cp, *cp2;
173     long code;
174     char fullname[CELL_MAXNAMELEN]="";
175     char linkedName[CELL_MAXNAMELEN]="";
176     char name[CELL_MAXNAMELEN]="";
177     int  hasWriteLock = 0;
178     int  hasMutex = 0;
179     afs_uint32 hash;
180     cm_cell_rock_t rock;
181     size_t len;
182
183     if (namep == NULL || !namep[0] || !strcmp(namep,CM_IOCTL_FILENAME_NOSLASH))
184         return NULL;
185
186     /*
187      * Strip off any trailing dots at the end of the cell name.
188      * Failure to do so results in an undesireable alias as the
189      * result of DNS AFSDB record lookups where a trailing dot
190      * has special meaning.
191      */
192     strncpy(name, namep, CELL_MAXNAMELEN);
193     for (len = strlen(namep); len > 0 && namep[len-1] == '.'; len--) {
194         name[len-1] = '\0';
195     }
196     if (len == 0)
197         return NULL;
198     namep = name;
199
200     hash = CM_CELL_NAME_HASH(namep);
201
202     lock_ObtainRead(&cm_cellLock);
203     for (cp = cm_data.cellNameHashTablep[hash]; cp; cp=cp->nameNextp) {
204         if (cm_stricmp_utf8(namep, cp->name) == 0) {
205             strncpy(fullname, cp->name, CELL_MAXNAMELEN);
206             fullname[CELL_MAXNAMELEN-1] = '\0';
207             break;
208         }
209     }
210
211     if (!cp) {
212         for (cp = cm_data.allCellsp; cp; cp=cp->allNextp) {
213             if (strnicmp(namep, cp->name, strlen(namep)) == 0) {
214                 strncpy(fullname, cp->name, CELL_MAXNAMELEN);
215                 fullname[CELL_MAXNAMELEN-1] = '\0';
216                 break;
217             }
218         }
219     }
220
221     if (cp) {
222         lock_ReleaseRead(&cm_cellLock);
223         cm_UpdateCell(cp, flags);
224     } else if (flags & CM_FLAG_CREATE) {
225         lock_ConvertRToW(&cm_cellLock);
226         hasWriteLock = 1;
227
228         /* when we dropped the lock the cell could have been added
229          * to the list so check again while holding the write lock
230          */
231         for (cp = cm_data.cellNameHashTablep[hash]; cp; cp=cp->nameNextp) {
232             if (cm_stricmp_utf8(namep, cp->name) == 0) {
233                 strncpy(fullname, cp->name, CELL_MAXNAMELEN);
234                 fullname[CELL_MAXNAMELEN-1] = '\0';
235                 break;
236             }
237         }
238
239         if (cp)
240             goto done;
241
242         for (cp = cm_data.allCellsp; cp; cp=cp->allNextp) {
243             if (strnicmp(namep, cp->name, strlen(namep)) == 0) {
244                 strncpy(fullname, cp->name, CELL_MAXNAMELEN);
245                 fullname[CELL_MAXNAMELEN-1] = '\0';
246                 break;
247             }
248         }
249
250         if (cp) {
251             lock_ReleaseWrite(&cm_cellLock);
252             lock_ObtainMutex(&cp->mx);
253             lock_ObtainWrite(&cm_cellLock);
254             cm_AddCellToNameHashTable(cp);
255             cm_AddCellToIDHashTable(cp);
256             lock_ReleaseMutex(&cp->mx);
257             goto done;
258         }
259
260         if ( cm_data.freeCellsp != NULL ) {
261             cp = cm_data.freeCellsp;
262             cm_data.freeCellsp = cp->freeNextp;
263
264             /*
265              * The magic, cellID, and mx fields are already set.
266              */
267         } else {
268             if ( cm_data.currentCells >= cm_data.maxCells )
269                 osi_panic("Exceeded Max Cells", __FILE__, __LINE__);
270
271             /* don't increment currentCells until we know that we
272              * are going to keep this entry
273              */
274             cp = &cm_data.cellBaseAddress[cm_data.currentCells];
275             memset(cp, 0, sizeof(cm_cell_t));
276             cp->magic = CM_CELL_MAGIC;
277
278             /* the cellID cannot be 0 */
279             cp->cellID = ++cm_data.currentCells;
280
281             /* otherwise we found the cell, and so we're nearly done */
282             lock_InitializeMutex(&cp->mx, "cm_cell_t mutex", LOCK_HIERARCHY_CELL);
283         }
284
285         lock_ReleaseWrite(&cm_cellLock);
286         hasWriteLock = 0;
287
288         rock.cellp = cp;
289         rock.flags = flags;
290         code = cm_SearchCellRegistry(1, namep, fullname, linkedName, cm_AddCellProc, &rock);
291         if (code && code != CM_ERROR_FORCE_DNS_LOOKUP)
292             code = cm_SearchCellFileEx(namep, fullname, linkedName, cm_AddCellProc, &rock);
293         if (code) {
294             osi_Log4(afsd_logp,"in cm_GetCell_gen cm_SearchCellFileEx(%s) returns code= %d fullname= %s linkedName= %s",
295                       osi_LogSaveString(afsd_logp,namep), code, osi_LogSaveString(afsd_logp,fullname),
296                       osi_LogSaveString(afsd_logp,linkedName));
297
298             if (cm_dnsEnabled) {
299                 int ttl;
300
301                 code = cm_SearchCellByDNS(namep, fullname, &ttl, cm_AddCellProc, &rock);
302                 if ( code ) {
303                     osi_Log3(afsd_logp,"in cm_GetCell_gen cm_SearchCellByDNS(%s) returns code= %d fullname= %s",
304                              osi_LogSaveString(afsd_logp,namep), code, osi_LogSaveString(afsd_logp,fullname));
305                     lock_ObtainMutex(&cp->mx);
306                     lock_ObtainWrite(&cm_cellLock);
307                     hasWriteLock = 1;
308                     cm_RemoveCellFromIDHashTable(cp);
309                     cm_RemoveCellFromNameHashTable(cp);
310                     lock_ReleaseMutex(&cp->mx);
311                     cm_FreeCell(cp);
312                     cp = NULL;
313                     goto done;
314                 } else {   /* got cell from DNS */
315                     lock_ObtainMutex(&cp->mx);
316                     hasMutex = 1;
317                     _InterlockedOr(&cp->flags, CM_CELLFLAG_DNS);
318                     _InterlockedAnd(&cp->flags, ~CM_CELLFLAG_VLSERVER_INVALID);
319                     cp->timeout = time(0) + ttl;
320                 }
321             }
322             else
323             {
324                 lock_ObtainMutex(&cp->mx);
325                 lock_ObtainWrite(&cm_cellLock);
326                 hasWriteLock = 1;
327                 cm_RemoveCellFromIDHashTable(cp);
328                 cm_RemoveCellFromNameHashTable(cp);
329                 lock_ReleaseMutex(&cp->mx);
330                 cm_FreeCell(cp);
331                 cp = NULL;
332                 goto done;
333             }
334         } else {
335             lock_ObtainMutex(&cp->mx);
336             hasMutex = 1;
337             cp->timeout = time(0) + 7200;       /* two hour timeout */
338         }
339
340         /* we have now been given the fullname of the cell.  It may
341          * be that we already have a cell with that name.  If so,
342          * we should use it instead of completing the allocation
343          * of a new cm_cell_t
344          */
345         lock_ObtainRead(&cm_cellLock);
346         hash = CM_CELL_NAME_HASH(fullname);
347         for (cp2 = cm_data.cellNameHashTablep[hash]; cp2; cp2=cp2->nameNextp) {
348             if (cm_stricmp_utf8(fullname, cp2->name) == 0) {
349                 break;
350             }
351         }
352
353         if (cp2) {
354             if (!hasMutex) {
355                 lock_ObtainMutex(&cp->mx);
356                 hasMutex = 1;
357             }
358             lock_ConvertRToW(&cm_cellLock);
359             hasWriteLock = 1;
360             cm_RemoveCellFromIDHashTable(cp);
361             cm_RemoveCellFromNameHashTable(cp);
362             lock_ReleaseMutex(&cp->mx);
363             hasMutex = 0;
364             cm_FreeCell(cp);
365             cp = cp2;
366             goto done;
367         }
368         lock_ReleaseRead(&cm_cellLock);
369
370         /* randomise among those vlservers having the same rank*/
371         cm_RandomizeServer(&cp->vlServersp);
372
373         if (!hasMutex)
374             lock_ObtainMutex(&cp->mx);
375
376         /* copy in name */
377         strncpy(cp->name, fullname, CELL_MAXNAMELEN);
378         cp->name[CELL_MAXNAMELEN-1] = '\0';
379
380         strncpy(cp->linkedName, linkedName, CELL_MAXNAMELEN);
381         cp->linkedName[CELL_MAXNAMELEN-1] = '\0';
382
383         lock_ObtainWrite(&cm_cellLock);
384         hasWriteLock = 1;
385         cm_AddCellToNameHashTable(cp);
386         cm_AddCellToIDHashTable(cp);
387         lock_ReleaseMutex(&cp->mx);
388         hasMutex = 0;
389
390         /* append cell to global list */
391         if (cm_data.allCellsp == NULL) {
392             cm_data.allCellsp = cp;
393         } else {
394             for (cp2 = cm_data.allCellsp; cp2->allNextp; cp2=cp2->allNextp)
395                 ;
396             cp2->allNextp = cp;
397         }
398         cp->allNextp = NULL;
399
400     } else {
401         lock_ReleaseRead(&cm_cellLock);
402     }
403   done:
404     if (hasMutex && cp)
405         lock_ReleaseMutex(&cp->mx);
406     if (hasWriteLock)
407         lock_ReleaseWrite(&cm_cellLock);
408
409     /* fullname is not valid if cp == NULL */
410     if (newnamep) {
411         if (cp) {
412             strncpy(newnamep, fullname, CELL_MAXNAMELEN);
413             newnamep[CELL_MAXNAMELEN-1]='\0';
414         } else {
415             newnamep[0] = '\0';
416         }
417     }
418
419     if (cp && cp->linkedName[0]) {
420         cm_cell_t * linkedCellp = NULL;
421
422         if (!strcmp(cp->name, cp->linkedName)) {
423             cp->linkedName[0] = '\0';
424         } else if (!(flags & CM_FLAG_NOMOUNTCHASE)) {
425             linkedCellp = cm_GetCell(cp->linkedName, CM_FLAG_CREATE|CM_FLAG_NOPROBE|CM_FLAG_NOMOUNTCHASE);
426
427             lock_ObtainWrite(&cm_cellLock);
428             if (!linkedCellp ||
429                 (linkedCellp->linkedName[0] && strcmp(cp->name, linkedCellp->linkedName))) {
430                 cp->linkedName[0] = '\0';
431             } else {
432                 strncpy(linkedCellp->linkedName, cp->name, CELL_MAXNAMELEN);
433                 linkedCellp->linkedName[CELL_MAXNAMELEN-1]='\0';
434             }
435             lock_ReleaseWrite(&cm_cellLock);
436         }
437     }
438     return cp;
439 }
440
441 cm_cell_t *cm_FindCellByID(afs_int32 cellID, afs_uint32 flags)
442 {
443     cm_cell_t *cp;
444     afs_uint32 hash;
445
446     lock_ObtainRead(&cm_cellLock);
447
448     hash = CM_CELL_ID_HASH(cellID);
449
450     for (cp = cm_data.cellIDHashTablep[hash]; cp; cp=cp->idNextp) {
451         if (cellID == cp->cellID)
452             break;
453     }
454     lock_ReleaseRead(&cm_cellLock);
455
456     if (cp)
457         cm_UpdateCell(cp, flags);
458
459     return cp;
460 }
461
462 long
463 cm_ValidateCell(void)
464 {
465     cm_cell_t * cellp;
466     afs_uint32 count1, count2;
467
468     for (cellp = cm_data.allCellsp, count1 = 0; cellp; cellp=cellp->allNextp, count1++) {
469         if ( cellp->magic != CM_CELL_MAGIC ) {
470             afsi_log("cm_ValidateCell failure: cellp->magic != CM_CELL_MAGIC");
471             fprintf(stderr, "cm_ValidateCell failure: cellp->magic != CM_CELL_MAGIC\n");
472             return -1;
473         }
474         if ( count1 != 0 && cellp == cm_data.allCellsp ||
475              count1 > cm_data.maxCells ) {
476             afsi_log("cm_ValidateCell failure: cm_data.allCellsp infinite loop");
477             fprintf(stderr, "cm_ValidateCell failure: cm_data.allCellsp infinite loop\n");
478             return -2;
479         }
480     }
481
482     for (cellp = cm_data.freeCellsp, count2 = 0; cellp; cellp=cellp->freeNextp, count2++) {
483         if ( count2 != 0 && cellp == cm_data.freeCellsp ||
484              count2 > cm_data.maxCells ) {
485             afsi_log("cm_ValidateCell failure: cm_data.freeCellsp infinite loop");
486             fprintf(stderr, "cm_ValidateCell failure: cm_data.freeCellsp infinite loop\n");
487             return -3;
488         }
489     }
490
491     if ( (count1 + count2) != cm_data.currentCells ) {
492         afsi_log("cm_ValidateCell failure: count != cm_data.currentCells");
493         fprintf(stderr, "cm_ValidateCell failure: count != cm_data.currentCells\n");
494         return -4;
495     }
496
497     return 0;
498 }
499
500
501 long
502 cm_ShutdownCell(void)
503 {
504     cm_cell_t * cellp;
505
506     for (cellp = cm_data.allCellsp; cellp; cellp=cellp->allNextp)
507         lock_FinalizeMutex(&cellp->mx);
508
509     return 0;
510 }
511
512
513 void cm_InitCell(int newFile, long maxCells)
514 {
515     static osi_once_t once;
516
517     if (osi_Once(&once)) {
518         cm_cell_t * cellp;
519
520         lock_InitializeRWLock(&cm_cellLock, "cell global lock", LOCK_HIERARCHY_CELL_GLOBAL);
521
522         if ( newFile ) {
523             cm_data.allCellsp = NULL;
524             cm_data.currentCells = 0;
525             cm_data.maxCells = maxCells;
526             memset(cm_data.cellNameHashTablep, 0, sizeof(cm_cell_t *) * cm_data.cellHashTableSize);
527             memset(cm_data.cellIDHashTablep, 0, sizeof(cm_cell_t *) * cm_data.cellHashTableSize);
528
529 #ifdef AFS_FREELANCE_CLIENT
530             /* Generate a dummy entry for the Freelance cell whether or not
531              * freelance mode is being used in this session
532              */
533
534             cellp = &cm_data.cellBaseAddress[cm_data.currentCells++];
535             memset(cellp, 0, sizeof(cm_cell_t));
536             cellp->magic = CM_CELL_MAGIC;
537
538             lock_InitializeMutex(&cellp->mx, "cm_cell_t mutex", LOCK_HIERARCHY_CELL);
539
540             lock_ObtainMutex(&cellp->mx);
541             lock_ObtainWrite(&cm_cellLock);
542
543             /* copy in name */
544             strncpy(cellp->name, "Freelance.Local.Cell", CELL_MAXNAMELEN); /*safe*/
545             cellp->name[CELL_MAXNAMELEN-1] = '\0';
546
547             /* thread on global list */
548             cellp->allNextp = cm_data.allCellsp;
549             cm_data.allCellsp = cellp;
550
551             cellp->cellID = AFS_FAKE_ROOT_CELL_ID;
552             cellp->vlServersp = NULL;
553             _InterlockedOr(&cellp->flags, CM_CELLFLAG_FREELANCE);
554
555             cm_AddCellToNameHashTable(cellp);
556             cm_AddCellToIDHashTable(cellp);
557             lock_ReleaseWrite(&cm_cellLock);
558             lock_ReleaseMutex(&cellp->mx);
559 #endif
560         } else {
561             lock_ObtainRead(&cm_cellLock);
562             for (cellp = cm_data.allCellsp; cellp; cellp=cellp->allNextp) {
563                 lock_InitializeMutex(&cellp->mx, "cm_cell_t mutex", LOCK_HIERARCHY_CELL);
564                 cellp->vlServersp = NULL;
565                 _InterlockedOr(&cellp->flags, CM_CELLFLAG_VLSERVER_INVALID);
566             }
567             lock_ReleaseRead(&cm_cellLock);
568         }
569
570         osi_EndOnce(&once);
571     }
572 }
573
574 void cm_ChangeRankCellVLServer(cm_server_t *tsp)
575 {
576     cm_cell_t *cp;
577     int code;
578
579     cp = tsp->cellp;    /* cell that this vlserver belongs to */
580     if (cp) {
581         lock_ObtainMutex(&cp->mx);
582         code = cm_ChangeRankServer(&cp->vlServersp, tsp);
583
584         if ( !code )            /* if the server list was rearranged */
585             cm_RandomizeServer(&cp->vlServersp);
586
587         lock_ReleaseMutex(&cp->mx);
588     }
589 }
590
591 int cm_DumpCells(FILE *outputFile, char *cookie, int lock)
592 {
593     cm_cell_t *cellp;
594     int zilch;
595     char output[1024];
596
597     if (lock)
598         lock_ObtainRead(&cm_cellLock);
599
600     sprintf(output, "%s - dumping cells - cm_data.currentCells=%d, cm_data.maxCells=%d\r\n",
601             cookie, cm_data.currentCells, cm_data.maxCells);
602     WriteFile(outputFile, output, (DWORD)strlen(output), &zilch, NULL);
603
604     for (cellp = cm_data.allCellsp; cellp; cellp=cellp->allNextp) {
605         sprintf(output, "%s cellp=0x%p,name=%s ID=%d flags=0x%x timeout=%I64u\r\n",
606                 cookie, cellp, cellp->name, cellp->cellID, cellp->flags, cellp->timeout);
607         WriteFile(outputFile, output, (DWORD)strlen(output), &zilch, NULL);
608     }
609
610     sprintf(output, "%s - Done dumping cells.\r\n", cookie);
611     WriteFile(outputFile, output, (DWORD)strlen(output), &zilch, NULL);
612
613     if (lock)
614         lock_ReleaseRead(&cm_cellLock);
615
616     return(0);
617 }
618
619 /* call with volume write-locked and mutex held */
620 void cm_AddCellToNameHashTable(cm_cell_t *cellp)
621 {
622     int i;
623
624     lock_AssertWrite(&cm_cellLock);
625     lock_AssertMutex(&cellp->mx);
626
627     if (cellp->flags & CM_CELLFLAG_IN_NAMEHASH)
628         return;
629
630     i = CM_CELL_NAME_HASH(cellp->name);
631
632     cellp->nameNextp = cm_data.cellNameHashTablep[i];
633     cm_data.cellNameHashTablep[i] = cellp;
634     _InterlockedOr(&cellp->flags, CM_CELLFLAG_IN_NAMEHASH);
635 }
636
637 /* call with cell write-locked and mutex held */
638 void cm_RemoveCellFromNameHashTable(cm_cell_t *cellp)
639 {
640     cm_cell_t **lcellpp;
641     cm_cell_t *tcellp;
642     int i;
643
644     lock_AssertWrite(&cm_cellLock);
645     lock_AssertMutex(&cellp->mx);
646
647     if (cellp->flags & CM_CELLFLAG_IN_NAMEHASH) {
648         /* hash it out first */
649         i = CM_CELL_NAME_HASH(cellp->name);
650         for (lcellpp = &cm_data.cellNameHashTablep[i], tcellp = cm_data.cellNameHashTablep[i];
651              tcellp;
652              lcellpp = &tcellp->nameNextp, tcellp = tcellp->nameNextp) {
653             if (tcellp == cellp) {
654                 *lcellpp = cellp->nameNextp;
655                 _InterlockedAnd(&cellp->flags, ~CM_CELLFLAG_IN_NAMEHASH);
656                 cellp->nameNextp = NULL;
657                 break;
658             }
659         }
660     }
661 }
662
663 /* call with cell write-locked and mutex held */
664 void cm_AddCellToIDHashTable(cm_cell_t *cellp)
665 {
666     int i;
667
668     lock_AssertWrite(&cm_cellLock);
669     lock_AssertMutex(&cellp->mx);
670
671     if (cellp->flags & CM_CELLFLAG_IN_IDHASH)
672         return;
673
674     i = CM_CELL_ID_HASH(cellp->cellID);
675
676     cellp->idNextp = cm_data.cellIDHashTablep[i];
677     cm_data.cellIDHashTablep[i] = cellp;
678     _InterlockedOr(&cellp->flags, CM_CELLFLAG_IN_IDHASH);
679 }
680
681 /* call with cell write-locked and mutex held */
682 void cm_RemoveCellFromIDHashTable(cm_cell_t *cellp)
683 {
684     cm_cell_t **lcellpp;
685     cm_cell_t *tcellp;
686     int i;
687
688     lock_AssertWrite(&cm_cellLock);
689     lock_AssertMutex(&cellp->mx);
690
691     if (cellp->flags & CM_CELLFLAG_IN_IDHASH) {
692         /* hash it out first */
693         i = CM_CELL_ID_HASH(cellp->cellID);
694         for (lcellpp = &cm_data.cellIDHashTablep[i], tcellp = cm_data.cellIDHashTablep[i];
695              tcellp;
696              lcellpp = &tcellp->idNextp, tcellp = tcellp->idNextp) {
697             if (tcellp == cellp) {
698                 *lcellpp = cellp->idNextp;
699                 _InterlockedAnd(&cellp->flags, ~CM_CELLFLAG_IN_IDHASH);
700                 cellp->idNextp = NULL;
701                 break;
702             }
703         }
704     }
705 }
706
707 long
708 cm_CreateCellWithInfo( char * cellname,
709                        char * linked_cellname,
710                        unsigned short vlport,
711                        afs_uint32 host_count,
712                        char *hostname[],
713                        afs_uint32 flags)
714 {
715     afs_uint32 code = 0;
716     cm_cell_rock_t rock;
717     struct hostent *thp;
718     struct sockaddr_in vlSockAddr;
719     afs_uint32 i, j;
720
721     rock.cellp = cm_GetCell(cellname, CM_FLAG_CREATE | CM_FLAG_NOPROBE);
722     rock.flags = 0;
723
724     cm_FreeServerList(&rock.cellp->vlServersp, CM_FREESERVERLIST_DELETE);
725
726     if (!(flags & CM_CELLFLAG_DNS)) {
727         for (i = 0; i < host_count; i++) {
728             thp = gethostbyname(hostname[i]);
729             if (thp) {
730                 int foundAddr = 0;
731                 for (j=0 ; thp->h_addr_list[j]; j++) {
732                     if (thp->h_addrtype != AF_INET)
733                         continue;
734                     memcpy(&vlSockAddr.sin_addr.s_addr,
735                            thp->h_addr_list[j],
736                            sizeof(long));
737                     vlSockAddr.sin_port = htons(vlport ? vlport : 7003);
738                     vlSockAddr.sin_family = AF_INET;
739                     cm_AddCellProc(&rock, &vlSockAddr, hostname[i], CM_FLAG_NOPROBE);
740                 }
741             }
742         }
743         lock_ObtainMutex(&rock.cellp->mx);
744         _InterlockedAnd(&rock.cellp->flags, ~CM_CELLFLAG_DNS);
745     } else if (cm_dnsEnabled) {
746         int ttl;
747
748         code = cm_SearchCellByDNS(rock.cellp->name, NULL, &ttl, cm_AddCellProc, &rock);
749         lock_ObtainMutex(&rock.cellp->mx);
750         if (code == 0) {   /* got cell from DNS */
751             _InterlockedOr(&rock.cellp->flags, CM_CELLFLAG_DNS);
752             rock.cellp->timeout = time(0) + ttl;
753 #ifdef DEBUG
754             fprintf(stderr, "cell %s: ttl=%d\n", rock.cellp->name, ttl);
755 #endif
756         }
757     } else {
758         lock_ObtainMutex(&rock.cellp->mx);
759         rock.cellp->flags &= ~CM_CELLFLAG_DNS;
760     }
761     _InterlockedOr(&rock.cellp->flags, CM_CELLFLAG_VLSERVER_INVALID);
762     StringCbCopy(rock.cellp->linkedName, CELL_MAXNAMELEN, linked_cellname);
763     lock_ReleaseMutex(&rock.cellp->mx);
764
765     if (rock.cellp->vlServersp)
766         cm_RandomizeServer(&rock.cellp->vlServersp);
767
768     return code;
769 }