Index: freexp/xp4o.inc =================================================================== RCS file: /server/cvs/freexp/xp4o.inc,v retrieving revision 1.25 retrieving revision 1.26 diff -u -r1.25 -r1.26 --- freexp/xp4o.inc 2 Jan 2006 12:28:49 -0000 1.25 +++ freexp/xp4o.inc 13 Mar 2006 08:25:05 -0000 1.26 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp4o.inc,v 1.25 2006/01/02 12:28:49 mw Exp $ } +{ $Id: xp4o.inc,v 1.26 2006/03/13 08:25:05 mw Exp $ } { XP4O - Reorganisation } @@ -144,7 +144,7 @@ n,ndel, nbesch : longint; bt,dbt, - bbt : longint; + bbt : integer64; disp : string[90]; hzeit : integer16; hzahl : boolean; @@ -165,9 +165,9 @@ gotoxy(x+wdt+3,y+4); write(n:7); gotoxy(x+wdt+3,y+5); write(ndel:7); gotoxy(x+wdt+3,y+6); write(nbesch:7); - gotoxy(x+wdt+12,y+4); write(bt div 1024:7); - gotoxy(x+wdt+12,y+5); write(dbt div 1024:7); - gotoxy(x+wdt+12,y+6); write(bbt div 1024:7); + gotoxy(x+wdt+12,y+4); write(bt/1024:9:0); + gotoxy(x+wdt+12,y+5); write(dbt/1024:9:0); + gotoxy(x+wdt+12,y+6); write(bbt/1024:9:0); mon; end; @@ -234,7 +234,8 @@ if _mbrett=_brett then begin inc(n); dbReadN(mbase,mb_msgsize,msize); - inc(bt,msize); + {inc(bt,msize);} + bt:=bt+msize; dbReadN(mbase,mb_groesse,groesse); dbReadN(mbase,mb_ablage,ablage); dbReadN(mbase,mb_typ,typ); @@ -258,7 +259,7 @@ hflags:=2; { Nachricht defekt } dbWriteN(mbase,mb_halteflags,hflags); if repair then msgaddmark; - inc(nbesch); inc(bbt,msize); + inc(nbesch); {inc(bbt,msize);} bbt:=bbt+msize; end; dbReadN(mbase,mb_empfdatum,edat); dbReadN(mbase,mb_unversandt,uvs); @@ -266,7 +267,8 @@ ((uvs and 1=0) and ((hflags=2) or ((hflags<>1) and htimeout))) then begin inc(ndel); - inc(dbt,msize); + {inc(dbt,msize);} + dbt:=dbt+msize; if _del and (hflags<>2) then begin hflags:=2; dbWriteN(mbase,mb_halteflags,hflags); @@ -293,9 +295,9 @@ if not repair then MausInfoReorg; wdt:=length(getres2(448,4)); msgbox(max(45,wdt+33),iif(_del,9,10),getres2(448,iif(_del,1,iif(repair,2,3))),x,y); - mwrt(x+3,y+4,getres2(448,4)+' / KB'); { 'Nachrichten:' } - mwrt(x+3,y+5,getres2(448,5)+' / KB'); { 'auf Löschen:' } - mwrt(x+3,y+6,getres2(448,6)+' / KB'); { 'fehlerhaft: ' } + mwrt(x+3,y+4,getres2(448,4)+' / KB'); { 'Nachrichten:' } + mwrt(x+3,y+5,getres2(448,5)+' / KB'); { 'auf Löschen:' } + mwrt(x+3,y+6,getres2(448,6)+' / KB'); { 'fehlerhaft: ' } n:=0; ndel:=0; nbesch:=0; bt:=0; dbt:=0; bbt:=0; getablsizes; @@ -727,6 +729,10 @@ end; { $Log: xp4o.inc,v $ + Revision 1.26 2006/03/13 08:25:05 mw + MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem + Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER). + Revision 1.25 2006/01/02 12:28:49 mw MW: - Frohes neues Jahr 2006 Index: freexp/xp4o.pas =================================================================== RCS file: /server/cvs/freexp/xp4o.pas,v retrieving revision 1.58 retrieving revision 1.59 diff -u -r1.58 -r1.59 --- freexp/xp4o.pas 7 Mar 2006 18:08:03 -0000 1.58 +++ freexp/xp4o.pas 13 Mar 2006 08:25:06 -0000 1.59 @@ -8,12 +8,12 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp4o.pas,v 1.58 2006/03/07 18:08:03 mw Exp $ } +{ $Id: xp4o.pas,v 1.59 2006/03/13 08:25:06 mw Exp $ } { CrossPoint - Overlayroutinen, die von XP4 aufgerufen werden } {$I XPDEFINE.INC } -{$O+,F+} +{$O+,F+,E+,N+} {.$DEFINE sDebug} @@ -2960,6 +2960,10 @@ end. { $Log: xp4o.pas,v $ + Revision 1.59 2006/03/13 08:25:06 mw + MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem + Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER). + Revision 1.58 2006/03/07 18:08:03 mw MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das unbeabsichtigte Anlegen von LFNs verhindert. Index: freexp/Trial/newsnap.asc =================================================================== RCS file: /server/cvs/freexp/Trial/newsnap.asc,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- freexp/Trial/newsnap.asc 7 Mar 2006 19:00:48 -0000 1.3 +++ freexp/Trial/newsnap.asc 13 Mar 2006 08:27:08 -0000 1.4 @@ -233,16 +233,22 @@ MW: - Überarbeitete Servers.dat u.a. auf Vorschläge in c.f.d SERVERS.INC, SERVERS.DAT -01.02.2006: +01.03.2006: MW: - Wegfall der Beschränkung auf 20 anzeigbare Server im RFC/Client-Auswahldialog. XP9.INC -07.02.2006: +07.03.2006: MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das unbeabsichtigte Anlegen von LFNs verhindert. FILEIO.PAS, DOCFORM.PAS, MAGGI.PAS, UUCICO.PAS, XP1O.PAS, XP1S.INC, XP2C.PAS XP3O.PAS, XP4.PAS, XP4O.PAS, XP7.PAS, XP9.PAS, XP9SEL.PAS, XP-FM.PAS, XPVIEW.PAS YUP2PKT.PAS, ZFIDO.PAS + +13.03.2006: + +MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem + Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER). + XP4O.PAS, XP4O.INC
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list