windows-eventlog-20051219
[openafs.git] / src / WINNT / afsd / cm_conn.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 <afs/param.h>
11 #include <afs/stds.h>
12
13 #ifndef DJGPP
14 #include <windows.h>
15 #endif /* !DJGPP */
16 #include <string.h>
17 #include <malloc.h>
18 #include <osi.h>
19 #include <rx/rx.h>
20 #include <rx/rxkad.h>
21 #include "afsd.h"
22
23 osi_rwlock_t cm_connLock;
24
25 long RDRtimeout = CM_CONN_DEFAULTRDRTIMEOUT;
26 unsigned short ConnDeadtimeout = CM_CONN_CONNDEADTIME;
27 unsigned short HardDeadtimeout = CM_CONN_HARDDEADTIME;
28
29 #define LANMAN_WKS_PARAM_KEY "SYSTEM\\CurrentControlSet\\Services\\lanmanworkstation\\parameters"
30 #define LANMAN_WKS_SESSION_TIMEOUT "SessTimeout"
31
32 afs_int32 cryptall = 0;
33
34 void cm_PutConn(cm_conn_t *connp)
35 {
36         lock_ObtainWrite(&cm_connLock);
37         osi_assert(connp->refCount-- > 0);
38         lock_ReleaseWrite(&cm_connLock);
39 }
40
41 void cm_InitConn(void)
42 {
43         static osi_once_t once;
44         long code;
45         DWORD sessTimeout;
46         HKEY parmKey;
47         
48     if (osi_Once(&once)) {
49                 lock_InitializeRWLock(&cm_connLock, "connection global lock");
50
51         /* keisa - read timeout value for lanmanworkstation  service.
52          * jaltman - as per 
53          *   http://support.microsoft.com:80/support/kb/articles/Q102/0/67.asp&NoWebContent=1
54          * the SessTimeout is a minimum timeout not a maximum timeout.  Therefore, 
55          * I believe that the default should not be short.  Instead, we should wait until
56          * RX times out before reporting a timeout to the SMB client.
57          */
58                 code = RegOpenKeyEx(HKEY_LOCAL_MACHINE, LANMAN_WKS_PARAM_KEY,
59                             0, KEY_QUERY_VALUE, &parmKey);
60                 if (code == ERROR_SUCCESS)
61         {
62                     DWORD dummyLen = sizeof(sessTimeout);
63                     code = RegQueryValueEx(parmKey, LANMAN_WKS_SESSION_TIMEOUT, NULL, NULL, 
64                                    (BYTE *) &sessTimeout, &dummyLen);
65                     if (code == ERROR_SUCCESS)
66             {
67                 afsi_log("lanmanworkstation : SessTimeout %d", sessTimeout);
68                 RDRtimeout = sessTimeout;
69                 if ( ConnDeadtimeout < RDRtimeout + 15 ) {
70                     ConnDeadtimeout = RDRtimeout + 15;
71                     afsi_log("ConnDeadTimeout increased to %d", ConnDeadtimeout);
72                 }
73                 if ( HardDeadtimeout < 2 * ConnDeadtimeout ) {
74                     HardDeadtimeout = 2 * ConnDeadtimeout;
75                     afsi_log("HardDeadTimeout increased to %d", HardDeadtimeout);
76                 }
77             }
78         }
79
80         osi_EndOnce(&once);
81     }
82 }
83
84 void cm_InitReq(cm_req_t *reqp)
85 {
86         memset((char *)reqp, 0, sizeof(cm_req_t));
87 #ifndef DJGPP
88         reqp->startTime = GetCurrentTime();
89 #else
90         gettimeofday(&reqp->startTime, NULL);
91 #endif
92 }
93
94 static long cm_GetServerList(struct cm_fid *fidp, struct cm_user *userp,
95         struct cm_req *reqp, cm_serverRef_t ***serversppp)
96 {
97     long code;
98     cm_volume_t *volp = NULL;
99     cm_cell_t *cellp = NULL;
100
101     if (!fidp) {
102         *serversppp = NULL;
103         return 0;
104     }
105
106     cellp = cm_FindCellByID(fidp->cell);
107     if (!cellp) return CM_ERROR_NOSUCHCELL;
108
109     code = cm_GetVolumeByID(cellp, fidp->volume, userp, reqp, &volp);
110     if (code) return code;
111     
112     *serversppp = cm_GetVolServers(volp, fidp->volume);
113
114     cm_PutVolume(volp);
115     return 0;
116 }
117
118 /*
119  * Analyze the error return from an RPC.  Determine whether or not to retry,
120  * and if we're going to retry, determine whether failover is appropriate,
121  * and whether timed backoff is appropriate.
122  *
123  * If the error code is from cm_Conn() or friends, it will be a CM_ERROR code.
124  * Otherwise it will be an RPC code.  This may be a UNIX code (e.g. EDQUOT), or
125  * it may be an RX code, or it may be a special code (e.g. VNOVOL), or it may
126  * be a security code (e.g. RXKADEXPIRED).
127  *
128  * If the error code is from cm_Conn() or friends, connp will be NULL.
129  *
130  * For VLDB calls, fidp will be NULL.
131  *
132  * volSyncp and/or cbrp may also be NULL.
133  */
134 int
135 cm_Analyze(cm_conn_t *connp, cm_user_t *userp, cm_req_t *reqp,
136            struct cm_fid *fidp, 
137            AFSVolSync *volSyncp, 
138            cm_serverRef_t * serversp,
139            cm_callbackRequest_t *cbrp, long errorCode)
140 {
141     cm_server_t *serverp = NULL;
142     cm_serverRef_t **serverspp = NULL;
143     cm_serverRef_t *tsrp;
144     cm_cell_t  *cellp = NULL;
145     cm_ucell_t *ucellp;
146     int retry = 0;
147     int free_svr_list = 0;
148     int dead_session;
149     long timeUsed, timeLeft;
150     long code;
151     char addr[16];
152
153     osi_Log2(afsd_logp, "cm_Analyze connp 0x%p, code 0x%x",
154              connp, errorCode);
155
156     /* no locking required, since connp->serverp never changes after
157      * creation */
158     dead_session = (userp->cellInfop == NULL);
159     if (connp)
160         serverp = connp->serverp;
161
162     /* Update callback pointer */
163     if (cbrp && serverp && errorCode == 0) {
164         if (cbrp->serverp) {
165             if ( cbrp->serverp != serverp ) {
166                 lock_ObtainWrite(&cm_serverLock);
167                 cm_PutServerNoLock(cbrp->serverp);
168                 cm_GetServerNoLock(serverp);
169                 lock_ReleaseWrite(&cm_serverLock);
170             }
171         } else {
172             cm_GetServer(serverp);
173         }
174         lock_ObtainWrite(&cm_callbackLock);
175         cbrp->serverp = serverp;
176         lock_ReleaseWrite(&cm_callbackLock);
177     }
178
179     /* If not allowed to retry, don't */
180     if (reqp->flags & CM_REQ_NORETRY)
181         goto out;
182
183     /* if timeout - check that it did not exceed the SMB timeout
184      * and retry */
185     
186     /* timeleft - get if from reqp the same way as cmXonnByMServers does */
187 #ifndef DJGPP
188     timeUsed = (GetCurrentTime() - reqp->startTime) / 1000;
189 #else
190     gettimeofday(&now, NULL);
191     timeUsed = sub_time(now, reqp->startTime) / 1000;
192 #endif
193             
194     /* leave 5 seconds margin for sleep */
195     timeLeft = RDRtimeout - timeUsed;
196
197     if (errorCode == CM_ERROR_TIMEDOUT) {
198         if (timeLeft > 5 ) {
199             thrd_Sleep(3000);
200             if (cellp == NULL && serverp)
201                 cellp = serverp->cellp;
202             if (cellp == NULL && serversp) {
203                 struct cm_serverRef * refp;
204                 for ( refp=serversp ; cellp == NULL && refp != NULL; refp=refp->next) {
205                     if ( refp->server )
206                         cellp = refp->server->cellp;
207                 }
208             }
209             cm_CheckServers(CM_FLAG_CHECKDOWNSERVERS, cellp);
210             retry = 1;
211         }
212     } 
213
214     /* if there is nosuchvolume, then we have a situation in which a 
215      * previously known volume no longer has a set of servers 
216      * associated with it.  Either the volume has moved or
217      * the volume has been deleted.  Try to find a new server list
218      * until the timeout period expires.
219      */
220     else if (errorCode == CM_ERROR_NOSUCHVOLUME) {
221         osi_Log0(afsd_logp, "cm_Analyze passed CM_ERROR_NOSUCHVOLUME.");
222         if (timeLeft > 7) {
223             thrd_Sleep(5000);
224             
225             retry = 1;
226
227             if (fidp != NULL)   /* Not a VLDB call */
228                 cm_ForceUpdateVolume(fidp, userp, reqp);
229         }
230     }
231
232     else if (errorCode == CM_ERROR_ALLDOWN) {
233         osi_Log0(afsd_logp, "cm_Analyze passed CM_ERROR_ALLDOWN.");
234         /* Servers marked DOWN will be restored by the background daemon
235          * thread as they become available.
236          */
237     }
238
239     else if (errorCode == CM_ERROR_ALLOFFLINE) {
240         if (timeLeft > 7) {
241             osi_Log0(afsd_logp, "cm_Analyze passed CM_ERROR_ALLOFFLINE.");
242             thrd_Sleep(5000);
243             
244             if (fidp) { /* Not a VLDB call */
245                 if (!serversp) {
246                     code = cm_GetServerList(fidp, userp, reqp, &serverspp);
247                     if (code == 0) {
248                         serversp = *serverspp;
249                         free_svr_list = 1;
250                     }
251                 }
252                 if (serversp) {
253                     lock_ObtainWrite(&cm_serverLock);
254                     for (tsrp = serversp; tsrp; tsrp=tsrp->next)
255                         tsrp->status = not_busy;
256                     lock_ReleaseWrite(&cm_serverLock);
257                     if (free_svr_list) {
258                         cm_FreeServerList(&serversp);
259                         *serverspp = serversp;
260                     }
261                     retry = 1;
262                 }
263
264                 cm_ForceUpdateVolume(fidp, userp, reqp);
265             } else { /* VLDB call */
266                 if (serversp) {
267                     lock_ObtainWrite(&cm_serverLock);
268                     for (tsrp = serversp; tsrp; tsrp=tsrp->next)
269                         tsrp->status = not_busy;
270                     lock_ReleaseWrite(&cm_serverLock);
271                     if (free_svr_list) {
272                         cm_FreeServerList(&serversp);
273                         *serverspp = serversp;
274                     }
275                 }
276             }   
277         }
278     }
279
280     /* if all servers are busy, mark them non-busy and start over */
281     else if (errorCode == CM_ERROR_ALLBUSY) {
282         osi_Log0(afsd_logp, "cm_Analyze passed CM_ERROR_ALLBUSY.");
283         if (timeLeft > 7) {
284             thrd_Sleep(5000);
285             if (!serversp) {
286                 code = cm_GetServerList(fidp, userp, reqp, &serverspp);
287                 if (code == 0) {
288                     serversp = *serverspp;
289                     free_svr_list = 1;
290                 }
291             }
292             lock_ObtainWrite(&cm_serverLock);
293             for (tsrp = serversp; tsrp; tsrp=tsrp->next) {
294                 if (tsrp->status == busy)
295                     tsrp->status = not_busy;
296             }
297             lock_ReleaseWrite(&cm_serverLock);
298             if (free_svr_list) {
299                 cm_FreeServerList(&serversp);
300                 *serverspp = serversp;
301             }
302             retry = 1;
303         }
304     }
305
306     /* special codes:  VBUSY and VRESTARTING */
307     else if (errorCode == VBUSY || errorCode == VRESTARTING) {
308         if (!serversp) {
309             code = cm_GetServerList(fidp, userp, reqp, &serverspp);
310             if (code == 0) {
311                 serversp = *serverspp;
312                 free_svr_list = 1;
313             }
314         }
315         lock_ObtainWrite(&cm_serverLock);
316         for (tsrp = serversp; tsrp; tsrp=tsrp->next) {
317             if (tsrp->server == serverp
318                  && tsrp->status == not_busy) {
319                 tsrp->status = busy;
320                 break;
321             }
322         }
323         lock_ReleaseWrite(&cm_serverLock);
324         if (free_svr_list) {
325             cm_FreeServerList(&serversp);
326             *serverspp = serversp;
327         }
328         retry = 1;
329     }
330
331     /* special codes:  missing volumes */
332     else if (errorCode == VNOVOL || errorCode == VMOVED || errorCode == VOFFLINE ||
333              errorCode == VSALVAGE || errorCode == VNOSERVICE || errorCode == VIO) 
334     {       
335         char addr[16];
336         char *format;
337 #ifndef DJGPP
338         DWORD msgID;
339 #endif
340         switch ( errorCode ) {
341         case VNOVOL:
342 #ifndef DJGPP
343             msgID = MSG_SERVER_REPORTS_VNOVOL;
344 #endif
345             format = "Server %s reported volume %d as not attached.";
346             break;
347         case VMOVED:
348 #ifndef DJGPP
349             msgID = MSG_SERVER_REPORTS_VMOVED;
350 #endif
351             format = "Server %s reported volume %d as moved.";
352             break;
353         case VOFFLINE:
354 #ifndef DJGPP
355             msgID = MSG_SERVER_REPORTS_VOFFLINE;
356 #endif
357             format = "Server %s reported volume %d as offline.";
358             break;
359         case VSALVAGE:
360 #ifndef DJGPP
361             msgID = MSG_SERVER_REPORTS_VSALVAGE;
362 #endif
363             format = "Server %s reported volume %d as needs salvage.";
364             break;
365         case VNOSERVICE:
366 #ifndef DJGPP
367             msgID = MSG_SERVER_REPORTS_VNOSERVICE;
368 #endif
369             format = "Server %s reported volume %d as not in service.";
370             break;
371         case VIO:
372 #ifndef DJGPP
373             msgID = MSG_SERVER_REPORTS_VIO;
374 #endif
375             format = "Server %s reported volume %d as temporarily unaccessible.";
376             break;
377         }
378
379         /* Log server being offline for this volume */
380         sprintf(addr, "%d.%d.%d.%d", 
381                  ((serverp->addr.sin_addr.s_addr & 0xff)),
382                  ((serverp->addr.sin_addr.s_addr & 0xff00)>> 8),
383                  ((serverp->addr.sin_addr.s_addr & 0xff0000)>> 16),
384                  ((serverp->addr.sin_addr.s_addr & 0xff000000)>> 24)); 
385
386         osi_Log2(afsd_logp, format, osi_LogSaveString(afsd_logp,addr), fidp->volume);
387 #ifndef DJGPP
388         LogEvent(EVENTLOG_WARNING_TYPE, msgID, addr, fidp->volume);
389 #endif
390
391         /* Mark server offline for this volume */
392         if (!serversp) {
393             code = cm_GetServerList(fidp, userp, reqp, &serverspp);
394             if (code == 0) {
395                 serversp = *serverspp;
396                 free_svr_list = 1;
397             }
398         }
399         for (tsrp = serversp; tsrp; tsrp=tsrp->next) {
400             if (tsrp->server == serverp)
401                 tsrp->status = offline;
402         }   
403         if (free_svr_list) {
404             cm_FreeServerList(&serversp);
405             *serverspp = serversp;
406         }
407         if ( timeLeft > 2 )
408             retry = 1;
409     } else if ( errorCode == VNOVNODE ) {
410         if ( fidp ) {
411             cm_scache_t * scp;
412             osi_Log4(afsd_logp, "cm_Analyze passed VNOVNODE cell %u vol %u vn %u uniq %u.",
413                       fidp->cell, fidp->volume, fidp->vnode, fidp->unique);
414             if (!cm_GetSCache(fidp, &scp, userp, reqp)) {
415                 cm_FlushParent(scp, userp, reqp);
416                 cm_FlushFile(scp, userp, reqp);
417                 cm_ReleaseSCache(scp);
418             }
419         } else {
420             osi_Log0(afsd_logp, "cm_Analyze passed VNOVNODE unknown fid.");
421         }
422     }
423
424     /* RX codes */
425     else if (errorCode == RX_CALL_TIMEOUT) {
426         /* server took longer than hardDeadTime 
427          * don't mark server as down but don't retry
428          * this is to prevent the SMB session from timing out
429          * In addition, we log an event to the event log 
430          */
431
432         /* Log server being offline for this volume */
433         sprintf(addr, "%d.%d.%d.%d", 
434                  ((serverp->addr.sin_addr.s_addr & 0xff)),
435                  ((serverp->addr.sin_addr.s_addr & 0xff00)>> 8),
436                  ((serverp->addr.sin_addr.s_addr & 0xff0000)>> 16),
437                  ((serverp->addr.sin_addr.s_addr & 0xff000000)>> 24)); 
438
439 #ifndef DJGPP
440         LogEvent(EVENTLOG_WARNING_TYPE, MSG_RX_HARD_DEAD_TIME_EXCEEDED, addr);
441 #endif /* !DJGPP */
442           
443         retry = 0;
444         osi_Log1(afsd_logp, "cm_Analyze: hardDeadTime exceeded addr[%s]",
445                  osi_LogSaveString(afsd_logp,addr));
446     }
447     else if (errorCode >= -64 && errorCode < 0) {
448         /* mark server as down */
449         lock_ObtainMutex(&serverp->mx);
450         serverp->flags |= CM_SERVERFLAG_DOWN;
451         lock_ReleaseMutex(&serverp->mx);
452         cm_ForceNewConnections(serverp);
453         if ( timeLeft > 2 )
454             retry = 1;
455     }
456     else if (errorCode == RXKADEXPIRED || 
457              errorCode == RXKADBADTICKET) {
458         if (!dead_session) {
459             lock_ObtainMutex(&userp->mx);
460             ucellp = cm_GetUCell(userp, serverp->cellp);
461             if (ucellp->ticketp) {
462                 free(ucellp->ticketp);
463                 ucellp->ticketp = NULL;
464             }
465             ucellp->flags &= ~CM_UCELLFLAG_RXKAD;
466             ucellp->gen++;
467             lock_ReleaseMutex(&userp->mx);
468             if ( timeLeft > 2 )
469                 retry = 1;
470         }
471     } else {
472         if (errorCode) {
473             char * s = "unknown error";
474             switch ( errorCode ) {
475             case RXKADINCONSISTENCY: s = "RXKADINCONSISTENCY"; break;
476             case RXKADPACKETSHORT  : s = "RXKADPACKETSHORT";   break;
477             case RXKADLEVELFAIL    : s = "RXKADLEVELFAIL";     break;
478             case RXKADTICKETLEN    : s = "RXKADTICKETLEN";     break;
479             case RXKADOUTOFSEQUENCE: s = "RXKADOUTOFSEQUENCE"; break;
480             case RXKADNOAUTH       : s = "RXKADNOAUTH";        break;
481             case RXKADBADKEY       : s = "RXKADBADKEY";        break;
482             case RXKADBADTICKET    : s = "RXKADBADTICKET";     break;
483             case RXKADUNKNOWNKEY   : s = "RXKADUNKNOWNKEY";    break;
484             case RXKADEXPIRED      : s = "RXKADEXPIRED";       break;
485             case RXKADSEALEDINCON  : s = "RXKADSEALEDINCON";   break;
486             case RXKADDATALEN      : s = "RXKADDATALEN";       break;
487             case RXKADILLEGALLEVEL : s = "RXKADILLEGALLEVEL";  break;
488             case VSALVAGE          : s = "VSALVAGE";           break;
489             case VNOVNODE          : s = "VNOVNODE";           break;
490             case VNOVOL            : s = "VNOVOL";             break;
491             case VVOLEXISTS        : s = "VVOLEXISTS";         break;
492             case VNOSERVICE        : s = "VNOSERVICE";         break;
493             case VOFFLINE          : s = "VOFFLINE";           break;
494             case VONLINE           : s = "VONLINE";            break;
495             case VDISKFULL         : s = "VDISKFULL";          break;
496             case VOVERQUOTA        : s = "VOVERQUOTA";         break;
497             case VBUSY             : s = "VBUSY";              break;
498             case VMOVED            : s = "VMOVED";             break;
499             case VIO               : s = "VIO";                break;
500             case VRESTRICTED       : s = "VRESTRICTED";        break;
501             case VRESTARTING       : s = "VRESTARTING";        break;
502             case VREADONLY         : s = "VREADONLY";          break;
503             case EAGAIN            : s = "EAGAIN";             break;
504             case EACCES            : s = "EACCES";             break;
505             }
506             osi_Log2(afsd_logp, "cm_Analyze: ignoring error code 0x%x (%s)", 
507                      errorCode, s);
508             retry = 0;
509         }
510     }
511
512     if (retry && dead_session)
513         retry = 0;
514
515   out:
516     /* drop this on the way out */
517     if (connp)
518         cm_PutConn(connp);
519
520     /* retry until we fail to find a connection */
521     return retry;
522 }
523
524 long cm_ConnByMServers(cm_serverRef_t *serversp, cm_user_t *usersp,
525         cm_req_t *reqp, cm_conn_t **connpp)
526 {
527     long code;
528     cm_serverRef_t *tsrp;
529     cm_server_t *tsp;
530     long firstError = 0;
531     int someBusy = 0, someOffline = 0, allOffline = 1, allBusy = 1, allDown = 1;
532     long timeUsed, timeLeft, hardTimeLeft;
533 #ifdef DJGPP
534     struct timeval now;
535 #endif /* DJGPP */        
536
537     if (serversp == NULL) {
538         osi_Log1(afsd_logp, "cm_ConnByMServers returning 0x%x", CM_ERROR_NOSUCHVOLUME);
539         return CM_ERROR_NOSUCHVOLUME;
540     }
541
542     *connpp = NULL;
543
544 #ifndef DJGPP
545     timeUsed = (GetCurrentTime() - reqp->startTime) / 1000;
546 #else
547     gettimeofday(&now, NULL);
548     timeUsed = sub_time(now, reqp->startTime) / 1000;
549 #endif
550         
551     /* leave 5 seconds margin of safety */
552     timeLeft =  ConnDeadtimeout - timeUsed - 5;
553     hardTimeLeft = HardDeadtimeout - timeUsed - 5;
554
555     lock_ObtainWrite(&cm_serverLock);
556     for (tsrp = serversp; tsrp; tsrp=tsrp->next) {
557         tsp = tsrp->server;
558         cm_GetServerNoLock(tsp);
559         lock_ReleaseWrite(&cm_serverLock);
560         if (!(tsp->flags & CM_SERVERFLAG_DOWN)) {
561             allDown = 0;
562             if (tsrp->status == busy) {
563                 allOffline = 0;
564                 someBusy = 1;
565             } else if (tsrp->status == offline) {
566                 allBusy = 0;
567                 someOffline = 1;
568             } else {
569                 allOffline = 0;
570                 allBusy = 0;
571                 code = cm_ConnByServer(tsp, usersp, connpp);
572                 if (code == 0) {        /* cm_CBS only returns 0 */
573                     cm_PutServer(tsp);
574                     /* Set RPC timeout */
575                     if (timeLeft > ConnDeadtimeout)
576                         timeLeft = ConnDeadtimeout;
577
578                     if (hardTimeLeft > HardDeadtimeout) 
579                         hardTimeLeft = HardDeadtimeout;
580
581                     lock_ObtainMutex(&(*connpp)->mx);
582                     rx_SetConnDeadTime((*connpp)->callp, timeLeft);
583                     rx_SetConnHardDeadTime((*connpp)->callp, (u_short) hardTimeLeft);
584                     lock_ReleaseMutex(&(*connpp)->mx);
585                     return 0;
586                 }
587                 
588                 /* therefore, this code is never executed */
589                 if (firstError == 0)
590                     firstError = code;
591             }
592         }
593         lock_ObtainWrite(&cm_serverLock);
594         cm_PutServerNoLock(tsp);
595     }   
596     lock_ReleaseWrite(&cm_serverLock);
597
598     if (firstError == 0) {
599         if (allDown) 
600             firstError = CM_ERROR_ALLDOWN;
601         else if (allBusy) 
602             firstError = CM_ERROR_ALLBUSY;
603         else if (allOffline || (someBusy && someOffline))
604             firstError = CM_ERROR_ALLOFFLINE;
605         else {
606             osi_Log0(afsd_logp, "cm_ConnByMServers returning impossible error TIMEDOUT");
607             firstError = CM_ERROR_TIMEDOUT;
608         }
609     }
610
611     osi_Log1(afsd_logp, "cm_ConnByMServers returning 0x%x", firstError);
612     return firstError;
613 }
614
615 /* called with a held server to GC all bad connections hanging off of the server */
616 void cm_GCConnections(cm_server_t *serverp)
617 {
618     cm_conn_t *tcp;
619     cm_conn_t **lcpp;
620     cm_user_t *userp;
621
622     lock_ObtainWrite(&cm_connLock);
623     lcpp = &serverp->connsp;
624     for (tcp = *lcpp; tcp; tcp = *lcpp) {
625         userp = tcp->userp;
626         if (userp && tcp->refCount == 0 && (userp->vcRefs == 0)) {
627             /* do the deletion of this guy */
628             cm_PutServer(tcp->serverp);
629             cm_ReleaseUser(userp);
630             *lcpp = tcp->nextp;
631             rx_DestroyConnection(tcp->callp);
632             lock_FinalizeMutex(&tcp->mx);
633             free(tcp);
634         }
635         else {
636             /* just advance to the next */
637             lcpp = &tcp->nextp;
638         }
639     }
640     lock_ReleaseWrite(&cm_connLock);
641 }
642
643 static void cm_NewRXConnection(cm_conn_t *tcp, cm_ucell_t *ucellp,
644                                cm_server_t *serverp)
645 {
646     unsigned short port;
647     int serviceID;
648     int secIndex;
649     struct rx_securityClass *secObjp;
650
651     if (serverp->type == CM_SERVER_VLDB) {
652         port = htons(7003);
653         serviceID = 52;
654     }
655     else {
656         osi_assert(serverp->type == CM_SERVER_FILE);
657         port = htons(7000);
658         serviceID = 1;
659     }
660     if (ucellp->flags & CM_UCELLFLAG_RXKAD) {
661         secIndex = 2;
662         if (cryptall) {
663             tcp->cryptlevel = rxkad_crypt;
664         } else {
665             tcp->cryptlevel = rxkad_clear;
666         }
667         secObjp = rxkad_NewClientSecurityObject(tcp->cryptlevel,
668                                                 &ucellp->sessionKey, ucellp->kvno,
669                                                 ucellp->ticketLen, ucellp->ticketp);    
670     } else {
671         /* normal auth */
672         secIndex = 0;
673         tcp->cryptlevel = rxkad_clear;
674         secObjp = rxnull_NewClientSecurityObject();
675     }
676     osi_assert(secObjp != NULL);
677     tcp->callp = rx_NewConnection(serverp->addr.sin_addr.s_addr,
678                                   port,
679                                   serviceID,
680                                   secObjp,
681                                   secIndex);
682     rx_SetConnDeadTime(tcp->callp, ConnDeadtimeout);
683     rx_SetConnHardDeadTime(tcp->callp, HardDeadtimeout);
684     tcp->ucgen = ucellp->gen;
685     if (secObjp)
686         rxs_Release(secObjp);   /* Decrement the initial refCount */
687 }
688
689 long cm_ConnByServer(cm_server_t *serverp, cm_user_t *userp, cm_conn_t **connpp)
690 {
691     cm_conn_t *tcp;
692     cm_ucell_t *ucellp;
693
694     lock_ObtainMutex(&userp->mx);
695     lock_ObtainWrite(&cm_connLock);
696     for (tcp = serverp->connsp; tcp; tcp=tcp->nextp) {
697         if (tcp->userp == userp) 
698             break;
699     }
700     
701     /* find ucell structure */
702     ucellp = cm_GetUCell(userp, serverp->cellp);
703     if (!tcp) {
704         cm_GetServer(serverp);
705         tcp = malloc(sizeof(*tcp));
706         memset(tcp, 0, sizeof(*tcp));
707         tcp->nextp = serverp->connsp;
708         serverp->connsp = tcp;
709         cm_HoldUser(userp);
710         tcp->userp = userp;
711         lock_InitializeMutex(&tcp->mx, "cm_conn_t mutex");
712         lock_ObtainMutex(&tcp->mx);
713         tcp->serverp = serverp;
714         tcp->cryptlevel = rxkad_clear;
715         cm_NewRXConnection(tcp, ucellp, serverp);
716         tcp->refCount = 1;
717         lock_ReleaseMutex(&tcp->mx);
718     } else {
719         if ((tcp->flags & CM_CONN_FLAG_FORCE_NEW) ||
720             (tcp->ucgen < ucellp->gen) ||
721             (tcp->cryptlevel != (cryptall ? (ucellp->flags & CM_UCELLFLAG_RXKAD ? rxkad_crypt : rxkad_clear) : rxkad_clear)))
722         {
723             if (tcp->ucgen < ucellp->gen)
724                 osi_Log0(afsd_logp, "cm_ConnByServer replace connection due to token update");
725             else
726                 osi_Log0(afsd_logp, "cm_ConnByServer replace connection due to crypt change");
727             lock_ObtainMutex(&tcp->mx);
728             tcp->flags &= ~CM_CONN_FLAG_FORCE_NEW;
729             rx_DestroyConnection(tcp->callp);
730             cm_NewRXConnection(tcp, ucellp, serverp);
731             lock_ReleaseMutex(&tcp->mx);
732         }
733         tcp->refCount++;
734     }
735     lock_ReleaseWrite(&cm_connLock);
736     lock_ReleaseMutex(&userp->mx);
737
738     /* return this pointer to our caller */
739     osi_Log1(afsd_logp, "cm_ConnByServer returning conn 0x%p", tcp);
740     *connpp = tcp;
741
742     return 0;
743 }
744
745 long cm_Conn(struct cm_fid *fidp, struct cm_user *userp, cm_req_t *reqp,
746              cm_conn_t **connpp)
747 {
748     long code;
749
750     cm_serverRef_t **serverspp;
751
752     code = cm_GetServerList(fidp, userp, reqp, &serverspp);
753     if (code) {
754         *connpp = NULL;
755         return code;
756     }
757
758     code = cm_ConnByMServers(*serverspp, userp, reqp, connpp);
759     cm_FreeServerList(serverspp);
760     return code;
761 }
762
763 extern struct rx_connection * 
764 cm_GetRxConn(cm_conn_t *connp)
765 {
766     struct rx_connection * rxconn;
767     lock_ObtainMutex(&connp->mx);
768     rxconn = connp->callp;
769     rx_GetConnection(rxconn);
770     lock_ReleaseMutex(&connp->mx);
771     return rxconn;
772 }
773
774 void cm_ForceNewConnections(cm_server_t *serverp)
775 {
776     cm_conn_t *tcp;
777
778     lock_ObtainWrite(&cm_connLock);
779     for (tcp = serverp->connsp; tcp; tcp=tcp->nextp) {
780         lock_ObtainMutex(&tcp->mx);
781         tcp->flags |= CM_CONN_FLAG_FORCE_NEW;
782         lock_ReleaseMutex(&tcp->mx);
783     }
784     lock_ReleaseWrite(&cm_connLock);
785 }