2 problems

[Victor Repetsky]

Hi!
I have samba 2.0.3 working on linux box (rh5.2, 2.0.36). It works
as PDC for several NT4.0 sp4 boxes. I have following problems
1) local copy of users's roaming profile remains on nt box after log
out. Regestry setting DeleteRoamingCache is set. In addition Delete
Roming Profiles (or smth similar) is set in ntconfig.pol. Other settings 
in ntconfig.pol are working fine. 
2) Quota doesn't work properly. If a user writes something via explorer
or other "good" tool, it checks free space and doesn't copy big files.
But programs using, for example, blockwrite from pascal, can write
huge files! The following is example of such a program

==cut==
{$X+}
Uses CRT,DOS;
Label LoopExit;
Var
  F:File;
  Buf:Array[0..$8000] of byte;
  i:Byte;
  Count:LongInt;
  SR:SearchRec;
  Name:String;
Begin
  {$I-}
  Count:=-1;
  Repeat
    Inc(Count);
    Str(Count:4,Name);
    For i:=1 to Byte(Name[0]) Do if Name[i]=' ' then Name[i]:='0';
    Name:='Z:\'+Name+'.XXX';
    FindFirst(Name,AnyFile,SR);
  Until DosError=18;
  Assign(F,Name);
  Rewrite(F,1);
  Count:=0;
  Repeat
    For i:=0 to 255 do
    Begin
      Inc(Count);
      FillChar(Buf,SizeOf(Buf),i);
      BlockWrite(F,Buf,SizeOf(Buf));
      Write(#13'Writing byte ',i:3,' to file ',Name,' ',Count,'
times.         ');
      if KeyPressed then Goto LoopExit;
      Write(#13'Writing byte ',i:3,' to file ',Name,' ',Count,' times,
total ',
             Count*SizeOf(Buf) div 1048576,' Mbytes.         ');
    End;
    LoopExit:
  Until KeyPressed;    While KeyPressed Do ReadKey;  Close(F);
  Writeln(#13'Processing
broken.                                                     ');
End. 
==cut==

Unfortunetly, the only solution I found is to delete files on close
if an error occuerd during writing. ugly patch.

Bye!