The real, definitive, Visual C++ support branch. Accept no substitutes
[reactos.git] / drivers / network / afd / afd / main.c
1 /* $Id$
2 * COPYRIGHT: See COPYING in the top level directory
3 * PROJECT: ReactOS kernel
4 * FILE: drivers/net/afd/afd/main.c
5 * PURPOSE: Ancillary functions driver
6 * PROGRAMMER: Art Yerkes (ayerkes@speakeasy.net)
7 * UPDATE HISTORY:
8 * 20040630 Created
9 *
10 * Suggestions: Uniform naming (AfdXxx)
11 */
12
13 /* INCLUDES */
14
15 #include "afd.h"
16 #include "tdi_proto.h"
17 #include "tdiconn.h"
18 #include "debug.h"
19
20 #ifdef DBG
21
22 /* See debug.h for debug/trace constants */
23 //DWORD DebugTraceLevel = DEBUG_ULTRA;
24 DWORD DebugTraceLevel = 0;
25
26 #endif /* DBG */
27
28 void OskitDumpBuffer( PCHAR Data, UINT Len ) {
29 unsigned int i;
30
31 for( i = 0; i < Len; i++ ) {
32 if( i && !(i & 0xf) ) DbgPrint( "\n" );
33 if( !(i & 0xf) ) DbgPrint( "%08x: ", (UINT)(Data + i) );
34 DbgPrint( " %02x", Data[i] & 0xff );
35 }
36 DbgPrint("\n");
37 }
38
39 /* FUNCTIONS */
40
41 NTSTATUS STDCALL
42 DriverEntry(PDRIVER_OBJECT DriverObject, PUNICODE_STRING RegistryPath);
43
44 static NTSTATUS STDCALL
45 AfdCreateSocket(PDEVICE_OBJECT DeviceObject, PIRP Irp,
46 PIO_STACK_LOCATION IrpSp) {
47 PAFD_FCB FCB;
48 PFILE_OBJECT FileObject;
49 PAFD_DEVICE_EXTENSION DeviceExt;
50 PFILE_FULL_EA_INFORMATION EaInfo;
51 PAFD_CREATE_PACKET ConnectInfo = NULL;
52 ULONG EaLength;
53 PWCHAR EaInfoValue = NULL;
54 UINT Disposition, i;
55 NTSTATUS Status = STATUS_SUCCESS;
56
57 AFD_DbgPrint(MID_TRACE,
58 ("AfdCreate(DeviceObject %p Irp %p)\n", DeviceObject, Irp));
59
60 DeviceExt = DeviceObject->DeviceExtension;
61 FileObject = IrpSp->FileObject;
62 Disposition = (IrpSp->Parameters.Create.Options >> 24) & 0xff;
63
64 Irp->IoStatus.Information = 0;
65
66 EaInfo = Irp->AssociatedIrp.SystemBuffer;
67
68 if( EaInfo ) {
69 ConnectInfo = (PAFD_CREATE_PACKET)(EaInfo->EaName + EaInfo->EaNameLength + 1);
70 EaInfoValue = (PWCHAR)(((PCHAR)ConnectInfo) + sizeof(AFD_CREATE_PACKET));
71
72 EaLength = sizeof(FILE_FULL_EA_INFORMATION) +
73 EaInfo->EaNameLength +
74 EaInfo->EaValueLength;
75
76 AFD_DbgPrint(MID_TRACE,("EaInfo: %x, EaInfoValue: %x\n",
77 EaInfo, EaInfoValue));
78 }
79
80 AFD_DbgPrint(MID_TRACE,("About to allocate the new FCB\n"));
81
82 FCB = ExAllocatePool(NonPagedPool, sizeof(AFD_FCB));
83 if( FCB == NULL ) {
84 Irp->IoStatus.Status = STATUS_NO_MEMORY;
85 IoCompleteRequest(Irp, IO_NO_INCREMENT);
86 return STATUS_NO_MEMORY;
87 }
88
89 AFD_DbgPrint(MID_TRACE,("Initializing the new FCB @ %x (FileObject %x Flags %x)\n", FCB, FileObject, ConnectInfo ? ConnectInfo->EndpointFlags : 0));
90
91 RtlZeroMemory( FCB, sizeof( *FCB ) );
92
93 FCB->Flags = ConnectInfo ? ConnectInfo->EndpointFlags : 0;
94 FCB->State = SOCKET_STATE_CREATED;
95 FCB->FileObject = FileObject;
96 FCB->DeviceExt = DeviceExt;
97 FCB->Recv.Size = DEFAULT_RECEIVE_WINDOW_SIZE;
98 FCB->Send.Size = DEFAULT_SEND_WINDOW_SIZE;
99
100 KeInitializeSpinLock( &FCB->SpinLock );
101 ExInitializeFastMutex( &FCB->Mutex );
102 KeInitializeEvent( &FCB->StateLockedEvent, NotificationEvent, FALSE );
103
104 for( i = 0; i < MAX_FUNCTIONS; i++ ) {
105 InitializeListHead( &FCB->PendingIrpList[i] );
106 }
107
108 InitializeListHead( &FCB->DatagramList );
109 InitializeListHead( &FCB->PendingConnections );
110
111 AFD_DbgPrint(MID_TRACE,("%x: Checking command channel\n", FCB));
112
113 if( ConnectInfo ) {
114 FCB->TdiDeviceName.Length = ConnectInfo->SizeOfTransportName;
115 FCB->TdiDeviceName.MaximumLength = FCB->TdiDeviceName.Length;
116 FCB->TdiDeviceName.Buffer =
117 ExAllocatePool( NonPagedPool, FCB->TdiDeviceName.Length );
118
119 if( !FCB->TdiDeviceName.Buffer ) {
120 ExFreePool(FCB);
121 AFD_DbgPrint(MID_TRACE,("Could not copy target string\n"));
122 Irp->IoStatus.Status = STATUS_NO_MEMORY;
123 IoCompleteRequest( Irp, IO_NETWORK_INCREMENT );
124 return STATUS_NO_MEMORY;
125 }
126
127 RtlCopyMemory( FCB->TdiDeviceName.Buffer,
128 ConnectInfo->TransportName,
129 FCB->TdiDeviceName.Length );
130
131 AFD_DbgPrint(MID_TRACE,("Success: %s %wZ\n",
132 EaInfo->EaName, &FCB->TdiDeviceName));
133 } else {
134 AFD_DbgPrint(MID_TRACE,("Success: Control connection\n"));
135 }
136
137 FileObject->FsContext = FCB;
138
139 /* It seems that UDP sockets are writable from inception */
140 if( FCB->Flags & SGID_CONNECTIONLESS ) {
141 AFD_DbgPrint(MID_TRACE,("Packet oriented socket\n"));
142 /* Allocate our backup buffer */
143 FCB->Recv.Window = ExAllocatePool( NonPagedPool, FCB->Recv.Size );
144 if( !FCB->Recv.Window ) Status = STATUS_NO_MEMORY;
145 FCB->Send.Window = ExAllocatePool( NonPagedPool, FCB->Send.Size );
146 if( !FCB->Send.Window ) {
147 if( FCB->Recv.Window ) ExFreePool( FCB->Recv.Window );
148 Status = STATUS_NO_MEMORY;
149 }
150 /* A datagram socket is always sendable */
151 FCB->PollState |= AFD_EVENT_SEND;
152 PollReeval( FCB->DeviceExt, FCB->FileObject );
153 }
154
155 if( !NT_SUCCESS(Status) ) {
156 if( FCB->TdiDeviceName.Buffer ) ExFreePool( FCB->TdiDeviceName.Buffer );
157 ExFreePool( FCB );
158 FileObject->FsContext = NULL;
159 }
160
161 Irp->IoStatus.Status = Status;
162 IoCompleteRequest( Irp, IO_NETWORK_INCREMENT );
163
164 return Status;
165 }
166
167 VOID DestroySocket( PAFD_FCB FCB ) {
168 UINT i;
169 BOOLEAN ReturnEarly = FALSE;
170 PAFD_IN_FLIGHT_REQUEST InFlightRequest[IN_FLIGHT_REQUESTS];
171
172 AFD_DbgPrint(MIN_TRACE,("Called (%x)\n", FCB));
173
174 if( !SocketAcquireStateLock( FCB ) ) return;
175
176 FCB->State = SOCKET_STATE_CLOSED;
177
178 InFlightRequest[0] = &FCB->ListenIrp;
179 InFlightRequest[1] = &FCB->ReceiveIrp;
180 InFlightRequest[2] = &FCB->SendIrp;
181 InFlightRequest[3] = &FCB->ConnectIrp;
182
183 /* Return early here because we might be called in the mean time. */
184 if( FCB->Critical ||
185 FCB->ListenIrp.InFlightRequest ||
186 FCB->ReceiveIrp.InFlightRequest ||
187 FCB->SendIrp.InFlightRequest ||
188 FCB->ConnectIrp.InFlightRequest ) {
189 AFD_DbgPrint(MIN_TRACE,("Leaving socket alive (%x %x %x %x)\n",
190 FCB->ListenIrp.InFlightRequest,
191 FCB->ReceiveIrp.InFlightRequest,
192 FCB->SendIrp.InFlightRequest,
193 FCB->ConnectIrp.InFlightRequest));
194 ReturnEarly = TRUE;
195 }
196
197 /* After PoolReeval, this FCB should not be involved in any outstanding
198 * poll requests */
199
200 /* Cancel our pending requests */
201 for( i = 0; i < IN_FLIGHT_REQUESTS; i++ ) {
202 if( InFlightRequest[i]->InFlightRequest ) {
203 AFD_DbgPrint(MID_TRACE,("Cancelling in flight irp %d (%x)\n",
204 i, InFlightRequest[i]->InFlightRequest));
205 IoCancelIrp(InFlightRequest[i]->InFlightRequest);
206 InFlightRequest[i]->InFlightRequest = NULL;
207 }
208 }
209
210 SocketStateUnlock( FCB );
211
212 if( ReturnEarly ) return;
213
214 if( FCB->Recv.Window )
215 ExFreePool( FCB->Recv.Window );
216 if( FCB->Send.Window )
217 ExFreePool( FCB->Send.Window );
218 if( FCB->AddressFrom )
219 ExFreePool( FCB->AddressFrom );
220 if( FCB->LocalAddress )
221 ExFreePool( FCB->LocalAddress );
222 if( FCB->RemoteAddress )
223 ExFreePool( FCB->RemoteAddress );
224 if( FCB->ListenIrp.ConnectionReturnInfo )
225 ExFreePool( FCB->ListenIrp.ConnectionReturnInfo );
226 if( FCB->ListenIrp.ConnectionCallInfo )
227 ExFreePool( FCB->ListenIrp.ConnectionCallInfo );
228 if( FCB->TdiDeviceName.Buffer )
229 ExFreePool(FCB->TdiDeviceName.Buffer);
230
231 ExFreePool(FCB);
232 AFD_DbgPrint(MIN_TRACE,("Deleted (%x)\n", FCB));
233
234 AFD_DbgPrint(MIN_TRACE,("Leaving\n"));
235 }
236
237 static NTSTATUS STDCALL
238 AfdCloseSocket(PDEVICE_OBJECT DeviceObject, PIRP Irp,
239 PIO_STACK_LOCATION IrpSp)
240 {
241 PFILE_OBJECT FileObject = IrpSp->FileObject;
242 PAFD_FCB FCB = FileObject->FsContext;
243
244 AFD_DbgPrint(MID_TRACE,
245 ("AfdClose(DeviceObject %p Irp %p)\n", DeviceObject, Irp));
246
247 AFD_DbgPrint(MID_TRACE,("FCB %x\n", FCB));
248
249 FCB->PollState |= AFD_EVENT_CLOSE;
250 PollReeval( FCB->DeviceExt, FileObject );
251 KillSelectsForFCB( FCB->DeviceExt, FileObject, FALSE );
252
253 if( FCB->EventSelect ) ObDereferenceObject( FCB->EventSelect );
254
255 FileObject->FsContext = NULL;
256 DestroySocket( FCB );
257
258 Irp->IoStatus.Status = STATUS_SUCCESS;
259 Irp->IoStatus.Information = 0;
260 IoCompleteRequest(Irp, IO_NO_INCREMENT);
261
262 AFD_DbgPrint(MID_TRACE, ("Returning success.\n"));
263
264 return STATUS_SUCCESS;
265 }
266
267 static NTSTATUS STDCALL
268 AfdDisconnect(PDEVICE_OBJECT DeviceObject, PIRP Irp,
269 PIO_STACK_LOCATION IrpSp) {
270 PFILE_OBJECT FileObject = IrpSp->FileObject;
271 PAFD_FCB FCB = FileObject->FsContext;
272 PAFD_DISCONNECT_INFO DisReq;
273 IO_STATUS_BLOCK Iosb;
274 PTDI_CONNECTION_INFORMATION ConnInfo;
275 NTSTATUS Status;
276 USHORT Flags = 0;
277
278 if( !SocketAcquireStateLock( FCB ) ) return LostSocket( Irp );
279
280 if( !(DisReq = LockRequest( Irp, IrpSp )) )
281 return UnlockAndMaybeComplete( FCB, STATUS_NO_MEMORY,
282 Irp, 0, NULL );
283
284 if (NULL == FCB->RemoteAddress)
285 {
286 ConnInfo = NULL;
287 }
288 else
289 {
290 Status = TdiBuildNullConnectionInfo
291 ( &ConnInfo, FCB->RemoteAddress->Address[0].AddressType );
292
293 if( !NT_SUCCESS(Status) || !ConnInfo )
294 return UnlockAndMaybeComplete( FCB, STATUS_NO_MEMORY,
295 Irp, 0, NULL );
296 }
297
298 if( DisReq->DisconnectType & AFD_DISCONNECT_SEND )
299 Flags |= TDI_DISCONNECT_RELEASE;
300 if( DisReq->DisconnectType & AFD_DISCONNECT_RECV ||
301 DisReq->DisconnectType & AFD_DISCONNECT_ABORT )
302 Flags |= TDI_DISCONNECT_ABORT;
303
304 Status = TdiDisconnect( FCB->Connection.Object,
305 &DisReq->Timeout,
306 Flags,
307 &Iosb,
308 NULL,
309 NULL,
310 FCB->AddressFrom,
311 ConnInfo);
312
313 if (ConnInfo) ExFreePool( ConnInfo );
314
315 return UnlockAndMaybeComplete( FCB, Status, Irp, 0, NULL );
316 }
317
318 static NTSTATUS STDCALL
319 AfdDispatch(PDEVICE_OBJECT DeviceObject, PIRP Irp)
320 {
321 PIO_STACK_LOCATION IrpSp = IoGetCurrentIrpStackLocation(Irp);
322 NTSTATUS Status = STATUS_SUCCESS;
323 #ifdef DBG
324 PFILE_OBJECT FileObject = IrpSp->FileObject;
325 #endif
326
327 AFD_DbgPrint(MID_TRACE,("AfdDispatch: %d\n", IrpSp->MajorFunction));
328 if( IrpSp->MajorFunction != IRP_MJ_CREATE) {
329 AFD_DbgPrint(MID_TRACE,("FO %x, IrpSp->FO %x\n",
330 FileObject, IrpSp->FileObject));
331 ASSERT(FileObject == IrpSp->FileObject);
332 }
333
334 Irp->IoStatus.Information = 0;
335
336 switch(IrpSp->MajorFunction)
337 {
338 /* opening and closing handles to the device */
339 case IRP_MJ_CREATE:
340 /* Mostly borrowed from the named pipe file system */
341 return AfdCreateSocket(DeviceObject, Irp, IrpSp);
342
343 case IRP_MJ_CLOSE:
344 /* Ditto the borrowing */
345 return AfdCloseSocket(DeviceObject, Irp, IrpSp);
346
347 /* write data */
348 case IRP_MJ_WRITE:
349 return AfdConnectedSocketWriteData( DeviceObject, Irp, IrpSp, TRUE );
350
351 /* read data */
352 case IRP_MJ_READ:
353 return AfdConnectedSocketReadData( DeviceObject, Irp, IrpSp, TRUE );
354
355 case IRP_MJ_DEVICE_CONTROL:
356 {
357 switch( IrpSp->Parameters.DeviceIoControl.IoControlCode ) {
358 case IOCTL_AFD_BIND:
359 return AfdBindSocket( DeviceObject, Irp, IrpSp );
360
361 case IOCTL_AFD_CONNECT:
362 return AfdStreamSocketConnect( DeviceObject, Irp, IrpSp );
363
364 case IOCTL_AFD_START_LISTEN:
365 return AfdListenSocket( DeviceObject, Irp, IrpSp );
366
367 case IOCTL_AFD_RECV:
368 return AfdConnectedSocketReadData( DeviceObject, Irp, IrpSp,
369 FALSE );
370
371 case IOCTL_AFD_SELECT:
372 return AfdSelect( DeviceObject, Irp, IrpSp );
373
374 case IOCTL_AFD_EVENT_SELECT:
375 return AfdEventSelect( DeviceObject, Irp, IrpSp );
376
377 case IOCTL_AFD_ENUM_NETWORK_EVENTS:
378 return AfdEnumEvents( DeviceObject, Irp, IrpSp );
379
380 case IOCTL_AFD_RECV_DATAGRAM:
381 return AfdPacketSocketReadData( DeviceObject, Irp, IrpSp );
382
383 case IOCTL_AFD_SEND:
384 return AfdConnectedSocketWriteData( DeviceObject, Irp, IrpSp,
385 FALSE );
386
387 case IOCTL_AFD_SEND_DATAGRAM:
388 return AfdPacketSocketWriteData( DeviceObject, Irp, IrpSp );
389
390 case IOCTL_AFD_GET_INFO:
391 return AfdGetInfo( DeviceObject, Irp, IrpSp );
392
393 case IOCTL_AFD_GET_CONTEXT:
394 return AfdGetContext( DeviceObject, Irp, IrpSp );
395
396 case IOCTL_AFD_SET_CONTEXT:
397 return AfdSetContext( DeviceObject, Irp, IrpSp );
398
399 case IOCTL_AFD_WAIT_FOR_LISTEN:
400 return AfdWaitForListen( DeviceObject, Irp, IrpSp );
401
402 case IOCTL_AFD_ACCEPT:
403 return AfdAccept( DeviceObject, Irp, IrpSp );
404
405 case IOCTL_AFD_DISCONNECT:
406 return AfdDisconnect( DeviceObject, Irp, IrpSp );
407
408 case IOCTL_AFD_GET_SOCK_NAME:
409 return AfdGetSockOrPeerName( DeviceObject, Irp, IrpSp, TRUE );
410
411 case IOCTL_AFD_GET_PEER_NAME:
412 return AfdGetSockOrPeerName( DeviceObject, Irp, IrpSp, FALSE );
413
414 case IOCTL_AFD_GET_TDI_HANDLES:
415 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_TDI_HANDLES\n"));
416 break;
417
418 case IOCTL_AFD_SET_INFO:
419 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_INFO\n"));
420 break;
421
422 case IOCTL_AFD_SET_CONNECT_DATA:
423 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_CONNECT_DATA\n"));
424 break;
425
426 case IOCTL_AFD_SET_CONNECT_OPTIONS:
427 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_CONNECT_OPTIONS\n"));
428 break;
429
430 case IOCTL_AFD_SET_DISCONNECT_DATA:
431 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_DISCONNECT_DATA\n"));
432 break;
433
434 case IOCTL_AFD_SET_DISCONNECT_OPTIONS:
435 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_DISCONNECT_OPTIONS\n"));
436 break;
437
438 case IOCTL_AFD_GET_CONNECT_DATA:
439 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_CONNECT_DATA\n"));
440 break;
441
442 case IOCTL_AFD_GET_CONNECT_OPTIONS:
443 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_CONNECT_OPTIONS\n"));
444 break;
445
446 case IOCTL_AFD_GET_DISCONNECT_DATA:
447 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_DISCONNECT_DATA\n"));
448 break;
449
450 case IOCTL_AFD_GET_DISCONNECT_OPTIONS:
451 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_DISCONNECT_OPTIONS\n"));
452 break;
453
454 case IOCTL_AFD_SET_CONNECT_DATA_SIZE:
455 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_CONNECT_DATA_SIZE\n"));
456 break;
457
458 case IOCTL_AFD_SET_CONNECT_OPTIONS_SIZE:
459 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_CONNECT_OPTIONS_SIZE\n"));
460 break;
461
462 case IOCTL_AFD_SET_DISCONNECT_DATA_SIZE:
463 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_DISCONNECT_DATA_SIZE\n"));
464 break;
465
466 case IOCTL_AFD_SET_DISCONNECT_OPTIONS_SIZE:
467 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_SET_DISCONNECT_OPTIONS_SIZE\n"));
468 break;
469
470 case IOCTL_AFD_DEFER_ACCEPT:
471 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_DEFER_ACCEPT\n"));
472 break;
473
474 case IOCTL_AFD_GET_PENDING_CONNECT_DATA:
475 AFD_DbgPrint(MIN_TRACE, ("IOCTL_AFD_GET_PENDING_CONNECT_DATA\n"));
476 break;
477
478 default:
479 Status = STATUS_NOT_IMPLEMENTED;
480 AFD_DbgPrint(MIN_TRACE, ("Unknown IOCTL (0x%x)\n",
481 IrpSp->Parameters.DeviceIoControl.
482 IoControlCode));
483 break;
484 }
485 break;
486 }
487
488 /* unsupported operations */
489 default:
490 {
491 Status = STATUS_NOT_IMPLEMENTED;
492 AFD_DbgPrint(MIN_TRACE,
493 ("Irp: Unknown Major code was %x\n",
494 IrpSp->MajorFunction));
495 break;
496 }
497 }
498
499 AFD_DbgPrint(MID_TRACE, ("Returning %x\n", Status));
500 Irp->IoStatus.Status = Status;
501 IoCompleteRequest(Irp, IO_NO_INCREMENT);
502
503 return (Status);
504 }
505
506 static VOID STDCALL
507 AfdUnload(PDRIVER_OBJECT DriverObject)
508 {
509 }
510
511 NTSTATUS STDCALL
512 DriverEntry(PDRIVER_OBJECT DriverObject, PUNICODE_STRING RegistryPath)
513 {
514 PDEVICE_OBJECT DeviceObject;
515 UNICODE_STRING wstrDeviceName = RTL_CONSTANT_STRING(L"\\Device\\Afd");
516 PAFD_DEVICE_EXTENSION DeviceExt;
517 NTSTATUS Status;
518
519 /* register driver routines */
520 DriverObject->MajorFunction[IRP_MJ_CLOSE] = AfdDispatch;
521 DriverObject->MajorFunction[IRP_MJ_CREATE] = AfdDispatch;
522 DriverObject->MajorFunction[IRP_MJ_WRITE] = AfdDispatch;
523 DriverObject->MajorFunction[IRP_MJ_READ] = AfdDispatch;
524 DriverObject->MajorFunction[IRP_MJ_DEVICE_CONTROL] = AfdDispatch;
525 DriverObject->DriverUnload = AfdUnload;
526
527 Status = IoCreateDevice
528 ( DriverObject,
529 sizeof(AFD_DEVICE_EXTENSION),
530 &wstrDeviceName,
531 FILE_DEVICE_NAMED_PIPE,
532 0,
533 FALSE,
534 &DeviceObject );
535
536 /* failure */
537 if(!NT_SUCCESS(Status))
538 {
539 return (Status);
540 }
541
542 DeviceExt = DeviceObject->DeviceExtension;
543 KeInitializeSpinLock( &DeviceExt->Lock );
544 InitializeListHead( &DeviceExt->Polls );
545
546 AFD_DbgPrint(MID_TRACE,("Device created: object %x ext %x\n",
547 DeviceObject, DeviceExt));
548
549 return (Status);
550 }
551
552 /* EOF */