482 lines
12 KiB
Plaintext
Executable File
482 lines
12 KiB
Plaintext
Executable File
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ X P N E T R O M . P A S ³
|
|
³ ³
|
|
³ Netrom-Datenbank-Verwaltung und Online-Ansicht ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
Function NodesAnzahl;
|
|
var BFNa:string[12];
|
|
N:integer;
|
|
Bcdt:file of Broadcast;
|
|
ioo:word;
|
|
|
|
begin
|
|
{$I-}
|
|
if NAfu then bfna:=BCastHAM else bfna:=BCastCB;
|
|
assign(bcdt, sys1pfad+BFNa);
|
|
reset(bcdt);
|
|
if ioresult=0 then N:=FileSize(bcdt) else N:=0;
|
|
ioo:=ioresult;
|
|
close(bcdt);
|
|
ioo:=ioresult;
|
|
{$I+}
|
|
Nodesanzahl:=N;
|
|
end;
|
|
|
|
Function BCastBackupRename (AltNam : String) :boolean;
|
|
var ior : word;
|
|
bkflg:boolean;
|
|
BKD_ : file;
|
|
begin
|
|
{$I-}
|
|
bkflg:=false;
|
|
assign (BKD_, sys1pfad+BcastBAK);
|
|
erase(BKD_);
|
|
ior:=ioresult;
|
|
close(BKD_);
|
|
ior:=ioresult;
|
|
assign (BKD_, AltNam);
|
|
rename (BKd_, sys1pfad+BCastBAK);
|
|
ior:=ioresult;
|
|
if ior<1 then bkflg:=true;
|
|
BCastBackupRename := bkflg;
|
|
close(bKD_);
|
|
ior:=ioresult;
|
|
{$I+}
|
|
end;
|
|
|
|
|
|
Procedure BCastKillen;
|
|
var ior : word;
|
|
bkflg:boolean;
|
|
BKD_ : file;
|
|
|
|
begin
|
|
{$I-}
|
|
bkflg:=false;
|
|
assign (BKD_, sys1pfad+BcastCB);
|
|
erase(BKD_);
|
|
ior:=ioresult;
|
|
close(BKD_);
|
|
ior:=ioresult;
|
|
|
|
assign (BKD_, sys1pfad+BcastHAM);
|
|
erase(BKD_);
|
|
ior:=ioresult;
|
|
close(BKD_);
|
|
ior:=ioresult;
|
|
{$I+}
|
|
end;
|
|
|
|
|
|
|
|
Procedure NodesLifetime;
|
|
var bfn : string[12];
|
|
i, kill : integer;
|
|
durch : byte;
|
|
bdbk,
|
|
bd : file of broadcast;
|
|
bdd : broadcast;
|
|
AktDT : longint;
|
|
min1, min2:longint;
|
|
gekillt : boolean;
|
|
ioo : word;
|
|
|
|
begin
|
|
aktDT:=LastLTCheck;
|
|
{aktdt:=589865783+14400;}
|
|
|
|
{(Dtst-bcast.DatTime) div 60)*2));}
|
|
ioo:=NodesAnzahl(false);
|
|
{$I-}
|
|
for durch:=1 to 2 do
|
|
begin
|
|
gekillt:=false;
|
|
if durch=1 then bfn:=BCastHAM else bfn:=BCastCB;
|
|
if BCastBackupRename (Sys1Pfad+bfn) then
|
|
begin
|
|
assign(bd, sys1pfad+bfn);
|
|
rewrite(bd);
|
|
ioo:=ioresult;
|
|
assign(BDBK, Sys1Pfad+BCastBAK); reset(BDBK);
|
|
if ioresult=0 then
|
|
begin
|
|
kill:=0; i:=0;
|
|
while not eof(bdbk) do
|
|
begin
|
|
read(bdbk, bdd);
|
|
ioo:=ioresult;
|
|
{(Dtst-bcast.DatTime) div 60)*2));}
|
|
min1:=0;
|
|
min1:=(aktdt-bdd.dattime) *2;
|
|
if min1>=Konfig.Lifetime then gekillt:=true;;
|
|
if (not gekillt) then write(bd, bdd);
|
|
gekillt:=false;
|
|
ioo:=ioresult;
|
|
end;
|
|
end;
|
|
close(bd);
|
|
ioo:=ioresult;
|
|
close(BDBK);
|
|
ioo:=ioresult;
|
|
end; {if BackupRename}
|
|
end; {for}
|
|
ioo:=ioresult;
|
|
ioo:=NodesAnzahl(false);
|
|
{$I+}
|
|
end;
|
|
|
|
Procedure NodesSortieren;
|
|
Var du, x,i,j : longInt;
|
|
N : longint;
|
|
Change : Boolean;
|
|
bfn:string[12];
|
|
bcda : file of Broadcast;
|
|
bcda1, bcda2, bcda3 : Broadcast;
|
|
obf:boolean;
|
|
ioo:word;
|
|
|
|
Begin
|
|
{if inUDB then WriteRam(1,3,Attrib[5],1,EFillStr(80,B1,B1+InfoZeile(402)));}
|
|
|
|
{$I-}
|
|
for DU:=1 to 2 do
|
|
begin
|
|
if Du=1 then
|
|
begin
|
|
bfn:=BCastHAM;
|
|
N:=NodesAnzahl(true);
|
|
end
|
|
else
|
|
begin
|
|
bfn:=BCastCB;
|
|
N:=NodesAnzahl(false);
|
|
end;
|
|
assign(bcda, sys1pfad+bfn);reset(bcda);
|
|
ioo:=ioresult;
|
|
|
|
if N>0 then
|
|
begin
|
|
if N > 1 then
|
|
begin
|
|
x := 1;
|
|
While x <= N do x := x * 3 + 1;
|
|
x := x div 3;
|
|
While x > 0 do
|
|
begin
|
|
i := x;
|
|
While i <= N do
|
|
begin
|
|
j := i - x;
|
|
Change := true;
|
|
While (j > 0) and Change do
|
|
begin
|
|
Seek(bcda, j-1); read(bcda, bcda1);
|
|
Seek(bcda, j+x-1); read(bcda, bcda2);
|
|
if bcda2.DatTime > bcda1.DatTime then
|
|
begin
|
|
bcda3 := bcda2;
|
|
bcda2 := bcda1;
|
|
bcda1 := bcda3;
|
|
Seek(bcda, j-1); write(bcda, bcda1);
|
|
Seek(bcda, j+x-1); write(bcda, bcda2);
|
|
j := j - x;
|
|
end else Change := false;
|
|
end;
|
|
i := i + 1;
|
|
end;
|
|
x := x div 3;
|
|
end;
|
|
end;
|
|
|
|
|
|
end; {if N}
|
|
obf:=ioresult<1;
|
|
close(bcda);
|
|
obf:=ioresult<0;
|
|
{$I+}
|
|
end;{for du}
|
|
End;
|
|
|
|
|
|
Procedure NodeListen (* (Naf : Boolean) *) ;
|
|
var BCast : Broadcast;
|
|
BCDat : file of broadcast;
|
|
HamZ,
|
|
CBZ,
|
|
bfn : string[12];
|
|
dummy : String[80];
|
|
DatPos : Longint;
|
|
BPos,
|
|
i,
|
|
y : Byte;
|
|
ZMax : byte;
|
|
dtst : longint;
|
|
MaxNodes: integer;
|
|
ioo : word;
|
|
Raus,
|
|
Change : boolean;
|
|
KC : Sondertaste;
|
|
VC : Char;
|
|
|
|
Procedure NodeLesen;
|
|
begin
|
|
{ dtst:=packdt;}
|
|
{$I-}
|
|
Seek(BCDat, DatPos); read(BCdat,BCast);
|
|
ioo:=ioresult;
|
|
if ioo<>0 then FillChar(BCast,SizeOf(Bcast), 0);
|
|
{$I+}
|
|
dummy:=b1+efillstr(22,B1,BCast.NodeCall+':'+BCast.NodeAlias);
|
|
dummy:=dummy+efillstr(22,B1,BCast.SourceCall+':'+Bcast.SourceAlias);
|
|
dummy:=dummy+SfillStr(5,B1,int_Str(Bcast.quality))+b2+b1;
|
|
dummy:=dummy+b2+int_Str(Bcast.Port); {+B2+int_str((Konfig.Lifetime div 60));
|
|
dummy:=dummy+sfillstr(6,b1,int_Str(((Dtst-bcast.DatTime) div 60)*2)); }
|
|
if ioo<>0 then dummy:='';
|
|
end;
|
|
|
|
Procedure NodeDateiSchalten;
|
|
begin
|
|
{$I-}
|
|
if NAf then bfn:=BCastHAM
|
|
else bfn:=BCastCB;
|
|
MaxNodes:=NodesAnzahl(Naf);
|
|
assign(BCDat, sys1pfad+bfn);reset(BCDat);
|
|
ioo:=ioresult;
|
|
{$I+}
|
|
end;
|
|
|
|
begin
|
|
InNodeListe:=true;
|
|
NodesSortieren;
|
|
HamZ:=ParmStr(1,b1,InfoZeile(431));
|
|
CBZ :=ParmStr(2,b1,InfoZeile(431));
|
|
Raus:=False;
|
|
Moni_Off(0);
|
|
DirScroll := true;
|
|
NowFenster := false;
|
|
NodeDateiSchalten;
|
|
if MaxNodes=0 then
|
|
begin
|
|
Naf:=Not Naf;
|
|
{$I-}
|
|
Close(Bcdat);
|
|
datpos:=ioresult;
|
|
{$I+}
|
|
NodeDateiSchalten;
|
|
end;
|
|
{ NodeDateiSchalten;}
|
|
ZMax:=MaxZ-4;
|
|
DatPos:=0;
|
|
WriteRam(1,1,Attrib[5],1,EFillStr(64,B1,B1+InfoZeile(432)));
|
|
|
|
WriteRam(1,2,Attrib[5],1,EFillStr(64,B1,B1+InfoZeile(429)));
|
|
WriteRam(1,MaxZ,Attrib[5],1,EFillStr(80,B1,B1+'Bl„ttern mit PgUp/PgDn - AFU/CB umschalten mit Cursor rechts/links'));
|
|
Change:=true;
|
|
repeat
|
|
if Change then
|
|
begin
|
|
if Naf then WriteRam(65,1,Attrib[5],1,SFillStr(16,B1,HamZ+b1))
|
|
else WriteRam(65,1,Attrib[5],1,sFillStr(16,B1,CBZ+b1));
|
|
WriteRam(65,2,Attrib[5],1,sFillStr(16,B1,'('+int_str(maxNodes)+')'+B1));
|
|
i:=3;
|
|
BPos:=DatPos;
|
|
For DatPos:=Bpos to Bpos+ZMax do
|
|
begin
|
|
NodeLesen;
|
|
WriteRam(1,i,Attrib[2],1,EFillStr(80,b1,Dummy));
|
|
inc(i);
|
|
end;
|
|
Change:=false;
|
|
datpos:=Bpos;
|
|
end;
|
|
_ReadKey(KC,VC);
|
|
Case KC of
|
|
_ESC : raus:=true;
|
|
_AltH: XP_Help(G^.OHelp[94]);
|
|
_Home: begin
|
|
DatPos:=0;
|
|
Change:=true;
|
|
end;
|
|
_PGDn: begin
|
|
if (DatPos+zmax+1)<MaxNodes then
|
|
begin
|
|
inc(DatPos,zmax+1);
|
|
Change:=true;
|
|
end;
|
|
end;
|
|
_PGUp: begin
|
|
if ((DatPos+zmax+1)>zmax) and ((DatPos-(zmax+1))>=0) then
|
|
begin
|
|
Dec(DatPos,zmax+1);
|
|
Change:=true;
|
|
end;
|
|
end;
|
|
_Right, _Left:
|
|
begin
|
|
Naf := Not Naf;
|
|
DatPos:=0;
|
|
Change:=true;
|
|
{$I-}
|
|
Close(BCDat);
|
|
ioo:=ioresult;
|
|
{$I+}
|
|
NodeDateiSchalten;
|
|
end;
|
|
|
|
end;
|
|
until Raus;
|
|
{$I-}
|
|
Close(BCDat);
|
|
ioo:=ioresult;
|
|
{$I+}
|
|
DirScroll := false;
|
|
Moni_On;
|
|
inNodeListe:=false;
|
|
end;
|
|
|
|
|
|
|
|
Procedure REMNodesListen (*Kanal:Byte;CZeile:String*);
|
|
Var i,i1,i2,
|
|
ix : Integer;
|
|
dB,Tn,C,
|
|
Anz : Byte;
|
|
Bstr,
|
|
Dummy : String;
|
|
P : String[4];
|
|
Komm : String[80];
|
|
Path : String[80];
|
|
Rufz : String[6];
|
|
RufzStr : String[9];
|
|
Hstr : String[9];
|
|
srec : SearchRec;
|
|
flagq,
|
|
Flag : Boolean;
|
|
Parm : Array[1..3] of String[60];
|
|
Udb : User_typ2;
|
|
L_I : Longint;
|
|
ENTFG,
|
|
RICHTG : REAL;
|
|
STATUS : Boolean;
|
|
OESLAE,NOEBRE:real;
|
|
BCDat : file of Broadcast;
|
|
BCDatNam : string[12];
|
|
BCast : Broadcast;
|
|
|
|
begin
|
|
With K[Kanal]^ do
|
|
begin
|
|
|
|
if Konfig.MaxNodes>0 then
|
|
begin
|
|
i2:=str_int(RestStr(upcaseStr(CZeile)));
|
|
if i2=0 then i2:=50;
|
|
NodesSortieren;
|
|
if TNC[TncNummer]^.AfuPort then BCDatNam:=BCastHAM else BCDatnam:=BCastCB;
|
|
i:=NodesAnzahl(TNC[TncNummer]^.AfuPort);
|
|
assign (BCDat, sys1pfad+BCDatNam);
|
|
{$I-}
|
|
i1:=0;
|
|
reset(BCDat);
|
|
if (i<=0) or (ioresult<>0) then S_Pac(kanal, nu, false, InfoZeile(430)+M1)
|
|
else
|
|
begin
|
|
S_Pac(kanal, nu, false, m1+InfoZeile(434)+M2);
|
|
while (not eof(BCDat)) and (i1<i2) do
|
|
begin
|
|
read(BCdat,BCast);
|
|
{l„nge: max 19 je node}
|
|
dummy:=efillstr(19,B1,BCast.NodeCall+':'+BCast.NodeAlias);
|
|
inc(i1);
|
|
if (i1 mod 4)=0 then S_Pac(kanal,Nu, false, dummy+m1)
|
|
else S_Pac(kanal,Nu, false, dummy);
|
|
end;
|
|
end;
|
|
if not ((i1 mod 4)=0) then s_pac(kanal, nu, false, m1);
|
|
close(BCDat);
|
|
i:=ioresult;
|
|
{$I+}
|
|
end else S_Pac(kanal, nu, false, InfoZeile(430)+M1)
|
|
|
|
end;{with kanal}
|
|
|
|
|
|
end;
|
|
|
|
|
|
Procedure REMRoutesListen (*Kanal:Byte; CZeile:String*);
|
|
Var i,i1,i2,
|
|
ix : Integer;
|
|
dB,Tn,C,
|
|
Anz : Byte;
|
|
Bstr,
|
|
Dummy : String;
|
|
P : String[4];
|
|
Komm : String[80];
|
|
Path : String[80];
|
|
Rufz : String[6];
|
|
RufzStr : String[9];
|
|
Hstr : String[9];
|
|
srec : SearchRec;
|
|
flagq,
|
|
Flag : Boolean;
|
|
Parm : Array[1..3] of String[60];
|
|
Udb : User_typ2;
|
|
L_I : Longint;
|
|
ENTFG,
|
|
RICHTG : REAL;
|
|
STATUS : Boolean;
|
|
OESLAE,NOEBRE:real;
|
|
BCDat : file of Broadcast;
|
|
BCDatNam : string[12];
|
|
BCast : Broadcast;
|
|
|
|
begin
|
|
with K[Kanal]^ do
|
|
begin
|
|
|
|
if Konfig.MaxNodes>0 then
|
|
begin
|
|
hstr:=RestStr(upcaseStr(CZeile));
|
|
if hstr<>'' then
|
|
begin
|
|
if TNC[TncNummer]^.AfuPort then BCDatNam:=BCastHAM else BCDatnam:=BCastCB;
|
|
assign (BCDat, sys1pfad+BCDatNam);
|
|
{$I-}
|
|
i1:=0;
|
|
reset(BCDat);
|
|
if (ioresult<>0) then S_Pac(kanal, nu, false, InfoZeile(430)+M1)
|
|
else
|
|
begin
|
|
flag:=false;
|
|
while (not eof(BCDat)) do
|
|
begin
|
|
read(BCdat,BCast);
|
|
if (pos(hstr,bcast.NodeCall)=1) or (pos(hstr, bcast.nodealias)=1) then
|
|
begin
|
|
if not flag then S_Pac(kanal, nu, false, m1+InfoZeile(435)+m2+InfoZeile(429)+M2);
|
|
flag:=true;
|
|
dummy:=efillstr(22,B1,BCast.NodeCall+':'+BCast.NodeAlias);
|
|
dummy:=dummy+efillstr(22,B1,BCast.SourceCall+':'+Bcast.SourceAlias);
|
|
dummy:=dummy+SfillStr(5,B1,int_Str(Bcast.quality))+b2+b1;
|
|
dummy:=dummy+b2+int_Str(Bcast.Port){+B2+int_str(Bcast.DatTime)};
|
|
inc(i1);
|
|
if (i1 mod 4)=0 then S_Pac(kanal,Nu, true, dummy+m1)
|
|
else S_Pac(kanal,Nu, false, dummy+m1);
|
|
end;
|
|
end; {while not eof}
|
|
if not flag then S_Pac(kanal, nu, false, m1+InfoZeile(436)+M1);
|
|
end;
|
|
close(BCDat);
|
|
i:=ioresult;
|
|
{$I+}
|
|
end else parmwrong:=true; {if hstr<>'' ...}
|
|
end else S_Pac(kanal, nu, false, InfoZeile(430)+M1)
|
|
|
|
end; {with kanal}
|
|
end; |