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