Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- freexp/xp0.pas 5 Feb 2006 13:29:52 -0000 1.80
+++ freexp/xp0.pas 26 Feb 2006 15:33:10 -0000 1.81
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp0.pas,v 1.80 2006/02/05 13:29:52 mw Exp $ }
+{ $Id: xp0.pas,v 1.81 2006/02/26 15:33:10 mw Exp $ }
{ CrossPoint - Deklarationen }
@@ -601,7 +601,18 @@
PPPNewsMax : longint; { PPP News max.
Artikelanzahl pro Newsgroup }
PPPExternCfg : string[MaxLenPathname]; { PPP externe Config
}
HdrOnly : string[10]; { HdrOnly-Support }
- ReplaceOwn: boolean; { Eigene N. durch Rückläufer
ersetzen }
+ ReplaceOwn: boolean; { Eigene N. durch
Rückläufer ersetzen }
+ Replace_0: boolean; {Backupeintraege }
+ Replace_2: boolean;
+ Replace_3: boolean;
+ Replace_4: boolean;
+ Replace_10: boolean;
+ Replace_11: boolean;
+ Replace_20: boolean;
+ Replace_30: boolean;
+ Replace_31: boolean;
+ Replace_40: boolean;
+ Replace_41: boolean;
eFilter : string[60]; { Eingangsfilter }
aFilter : string[60]; { Ausgangsfilter }
SysopNetcall : boolean; { Netzanruf-Bericht im S.M. }
@@ -1251,6 +1262,12 @@
{
$Log: xp0.pas,v $
+ Revision 1.81 2006/02/26 15:33:10 mw
+ MW: - Replaceown-Einstellung ist jetzt Netztypabhängig:
+ Wird der Netztyp geändert, so wird nicht die Einstellung
+ beibehalten, sondern durch ein netztypspezifisches Backup
+ ersetzt.
+
Revision 1.80 2006/02/05 13:29:52 mw
MW: - Neue Version der XP_NTVDM.DLL (Revision 3):
- Jetzt kann mit Clip.GetConsoleTitle der Windows NT VDM
Index: freexp/xp9.inc
===================================================================
RCS file: /server/cvs/freexp/xp9.inc,v
retrieving revision 1.32
retrieving revision 1.38
diff -u -r1.32 -r1.38
--- freexp/xp9.inc 25 Feb 2006 12:37:27 -0000 1.32
+++ freexp/xp9.inc 26 Feb 2006 22:09:40 -0000 1.38
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9.inc,v 1.32 2006/02/25 12:37:27 mw Exp $ }
+{ $Id: xp9.inc,v 1.38 2006/02/26 22:09:40 mw Exp $ }
{ --- Bearbeitungs-Routinen für Boxen-Liste -----------------------}
@@ -372,9 +372,15 @@
NameRead(nt,name,user,komm,maps,real,dom,fqdom,email,bdom,fido,getreps(915,Netz_Typ(nt)),brk);
+ if (ustr(name)+'.CFG'=CfgFile) or
+ (ustr(name)+'.CFG'=Cfg2File) or
+ (ustr(name)+'.CFG'=Cfg3File) then begin
+ rfehler(902); { 'Ungültiger Boxname!' }
+ brk:=true;
+ end;
if not brk then begin { 'neue Box anlegen (Typ: %s)' }
- dbSeek(d,boiName,ustr(name));
+ dbSeek(d,boiName,ustr(name));
if dbFound then rfehler(921) { 'Box ist bereits vorhanden' }
else begin
b:=cpos('@',email);
@@ -399,6 +405,7 @@
boxpar^.username:=user;
boxpar^._domain:=dom;
boxpar^._fqdn:=fqdom;
+ if (nt=nt_Client) then boxpar^.ReplaceOwn:=true;
boxpar^.passwort:=iifs(deutsch,'GEHEIM','SECRET');
if pppm then boxpar^.PPPMailInEnv:=email;
nt_bpar(nt,boxpar^);
@@ -515,6 +522,13 @@
_era(ownpath+dname+'.FBL');
if exist(ownpath+dname+'.INF') then { Maus-Infofileliste löschen }
_era(ownpath+dname+'.INF');
+ if exist(ownpath+dname+'.BFE') then { UKAW/UKAD-Config löschen }
+ _era(ownpath+dname+'.BFE');
+ if exist(ownpath+dname+'.CFG') and
+ (dname+'.CFG'<>CfgFile) and
+ (dname+'.CFG'<>Cfg2File) and
+ (dname+'.CFG'<>Cfg3File) then { XPNEWS-Config löschen }
+ _era(ownpath+dname+'.CFG');
if pp then _era(OwnPath+dname+'.PP'); { Pollpaket löschen }
if p=1 then dbGoTop(d)
else dbGo(d,drec[1]);
@@ -1269,11 +1283,15 @@
renbox('.BL');
renbox('.FBL');
renbox('.INF');
- renbox('.CFG');
+ if (old_dname<>CfgFile) and
+ (old_dname<>Cfg2File) and
+ (old_dname<>CfgFile) then renbox('.CFG');
+ renbox('.BFE');
renbox2('.BL');
renbox2('.GR');
renbox2('.RC');
renbox2('.CFG');
+ renbox2('.BFE');
renbox2(BfgExt);
ChDir(XFerDir_);
GetDir(0, NewDir);
@@ -1313,6 +1331,12 @@
newibox:=(ustr(name)<>ustr(dbReadStr(d,'boxname')));
if newbox then begin
if newibox then begin
+ if (ustr(name)+'.CFG'=CfgFile) or
+ (ustr(name)+'.CFG'=Cfg2File) or
+ (ustr(name)+'.CFG'=Cfg3File) then begin
+ rfehler(902); { 'Ungültiger Boxname!' }
+ brk:=true;
+ end;
dbSeek(d,boiName,ustr(name));
if dbFound then begin
rfehler(921); { 'Box bereits vorhanden!' }
@@ -2071,6 +2095,7 @@
domain : string[60];
email : string[80];
aliaspt : boolean;
+ BoxPar : BoxPtr;
procedure SetBrettNetztyp;
var n : integer;
@@ -2120,14 +2145,42 @@
end
else begin
dbRead(d,'netztyp',nt); nt1:=nt;
- dbread(d,'boxname',box);
+ dbread(d,'boxname',box);
ReadNetztyp(box,nt,brk);
+ New(boxpar);
+ ReadBox(nt1,dbReadStr(d,'dateiname'),boxpar);
if not brk and (nt<>nt1) and
ReadJN(getreps2(929,5,box),true) then begin
{ 'Möchten Sie den Netztyp für %s wirklich ändern' }
dbWrite(d,'netztyp',nt);
dec(ntused[nt1]);
inc(ntused[nt]);
+ case nt1 of
+ 0 : boxpar^.Replace_0:=boxpar^.ReplaceOwn;
+ 2 : boxpar^.Replace_2:=boxpar^.ReplaceOwn;
+ 3 : boxpar^.Replace_3:=boxpar^.ReplaceOwn;
+ 4 : boxpar^.Replace_4:=boxpar^.ReplaceOwn;
+ 10 : boxpar^.Replace_10:=boxpar^.ReplaceOwn;
+ 11 : boxpar^.Replace_11:=boxpar^.ReplaceOwn;
+ 20 : boxpar^.Replace_20:=boxpar^.ReplaceOwn;
+ 30 : boxpar^.Replace_30:=boxpar^.ReplaceOwn;
+ 31 : boxpar^.Replace_31:=boxpar^.ReplaceOwn;
+ 40 : boxpar^.Replace_40:=boxpar^.ReplaceOwn;
+ 41 : boxpar^.Replace_41:=boxpar^.ReplaceOwn;
+ end;
+ case nt of
+ 0 : boxpar^.ReplaceOwn:=boxpar^.Replace_0;
+ 2 : boxpar^.ReplaceOwn:=boxpar^.Replace_2;
+ 3 : boxpar^.ReplaceOwn:=boxpar^.Replace_3;
+ 4 : boxpar^.ReplaceOwn:=boxpar^.Replace_4;
+ 10 : boxpar^.ReplaceOwn:=boxpar^.Replace_10;
+ 11 : boxpar^.ReplaceOwn:=boxpar^.Replace_11;
+ 20 : boxpar^.ReplaceOwn:=boxpar^.Replace_20;
+ 30 : boxpar^.ReplaceOwn:=boxpar^.Replace_30;
+ 31 : boxpar^.ReplaceOwn:=boxpar^.Replace_31;
+ 40 : boxpar^.ReplaceOwn:=boxpar^.Replace_40;
+ 41 : boxpar^.ReplaceOwn:=boxpar^.Replace_41;
+ end;
if nt=nt_Maus then
begin
maps:='MAUS';
@@ -2154,6 +2207,8 @@
if (dbReadInt(d,'script') and 2=0) then b:=0 else b:=2;
dbWrite(d,'script',b);
end;
+ WriteBox(dbReadStr(d,'dateiname'),boxpar);
+ Dispose(boxpar);
dbFlushClose(d);
SetBrettNetztyp;
dbGo(d,drec[1]);
@@ -2166,6 +2221,36 @@
{
$Log: xp9.inc,v $
+ Revision 1.38 2006/02/26 22:09:40 mw
+ MW: - Bugfix: Replaceown Netztypwechsel
+
+ Revision 1.37 2006/02/26 21:44:02 mw
+ MW: - Alter Netztyp nt1 benutzen!!
+
+ Revision 1.36 2006/02/26 16:01:26 mw
+ MW: - RenameBox ist jetzt gegen XPOINT.CFG/XPOINT2.CFG und Co abgesichert.
+
+ Revision 1.35 2006/02/26 15:33:10 mw
+ MW: - Replaceown-Einstellung ist jetzt Netztypabhängig:
+ Wird der Netztyp geändert, so wird nicht die Einstellung
+ beibehalten, sondern durch ein netztypspezifisches Backup
+ ersetzt.
+
+ Revision 1.34 2006/02/26 13:55:06 mw
+ MW: - Bei RFC/Client ist Replaceown per Default jetzt eingeschaltet.
+
+ Revision 1.33 2006/02/26 11:18:33 mw
+ MW: - BFE-Dateien von UKAW und UKAD werden beim Umbenennen einer Box
+ jetzt mitumbenannt.
+
+ - CFG-Dateien von XPNEWS und BFE-Dateien von UKAW und UKAD werden
+ beim Löschen einer Box ebenfalls mitgelöscht. XPOINT.CFG, XPOINT2.CFG
+ und OPENXP.CFG werden dabei allerdings nicht gelöscht.
+
+ - Die Boxnamen XPOINT, XPOINT2 und OPENXP können nicht mehr
+ vergeben werden, da sie in Konflikt mit Dateien stehen, die
+ zu FreeXP bzw. OpenXP gehören.
+
Revision 1.32 2006/02/25 12:37:27 mw
MW: - Lange Kommentarzeile aufgeteilt.
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.30
retrieving revision 1.33
diff -u -r1.30 -r1.33
--- freexp/xp9.pas 2 Jan 2006 12:28:51 -0000 1.30
+++ freexp/xp9.pas 26 Feb 2006 13:55:06 -0000 1.33
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9.pas,v 1.30 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp9.pas,v 1.33 2006/02/26 13:55:06 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -1031,6 +1031,14 @@
email:='';
dom:=ntDefaultDomain(nt);
+
+ if (ustr(name)+'.CFG'=CfgFile) or
+ (ustr(name)+'.CFG'=Cfg2File) or
+ (ustr(name)+'.CFG'=Cfg3File) then begin
+ rfehler(902); { 'Ungültiger Boxname!' }
+ goto restart;
+ end;
+
if nt = nt_Client then begin
email:=user;
if not is_mailaddress(email,true) then
@@ -1083,6 +1091,7 @@
boxpar^._Domain:=dom;
if (nt=nt_UUCP) and exist('UUCP.SCR') then
boxpar^.script:='UUCP.SCR';
+ if (nt=nt_Client) then boxpar^.ReplaceOwn:=true;
WriteBox(dname,boxpar);
DefaultBox:=name;
if nt=nt_Fido then begin
@@ -1091,7 +1100,9 @@
end;
SaveConfig2;
if (nt=nt_UUCP) or (nt=nt_Client) then begin
- XP_ID_AMs:=false;
+ UserSlash:=false;
+ NewsgroupDisp:=true;
+ NewsgroupDispall:=true;
SaveConfig;
end;
pushkey('e');
@@ -1101,6 +1112,26 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.33 2006/02/26 13:55:06 mw
+ MW: - Bei RFC/Client ist Replaceown per Default jetzt eingeschaltet.
+
+ Revision 1.32 2006/02/26 11:49:23 mw
+ MW: - Beim Anlegen der ersten Box wereden jetzt internetübliche
+ Anzeigedefaults gesetzt. Gruppennamen mit "." sowie kein
+ Slash vor dem E-Mail-Postfach.
+
+ Revision 1.31 2006/02/26 11:18:32 mw
+ MW: - BFE-Dateien von UKAW und UKAD werden beim Umbenennen einer Box
+ jetzt mitumbenannt.
+
+ - CFG-Dateien von XPNEWS und BFE-Dateien von UKAW und UKAD werden
+ beim Löschen einer Box ebenfalls mitgelöscht. XPOINT.CFG, XPOINT2.CFG
+ und OPENXP.CFG werden dabei allerdings nicht gelöscht.
+
+ - Die Boxnamen XPOINT, XPOINT2 und OPENXP können nicht mehr
+ vergeben werden, da sie in Konflikt mit Dateien stehen, die
+ zu FreeXP bzw. OpenXP gehören.
+
Revision 1.30 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp9bp.pas
===================================================================
RCS file: /server/cvs/freexp/xp9bp.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- freexp/xp9bp.pas 9 Jan 2006 16:21:44 -0000 1.23
+++ freexp/xp9bp.pas 26 Feb 2006 15:33:10 -0000 1.24
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9bp.pas,v 1.23 2006/01/09 16:21:44 mw Exp $ }
+{ $Id: xp9bp.pas,v 1.24 2006/02/26 15:33:10 mw Exp $ }
{ CrossPoint - BoxPar verwalten }
@@ -191,6 +191,17 @@
SysopNetcall:=true;
SysopPack:=false;
ReplaceOwn := false;
+ Replace_0:=false;
+ Replace_2:=false;
+ Replace_3:=false;
+ Replace_4:=false;
+ Replace_10:=false;
+ Replace_11:=false;
+ Replace_20:=false;
+ Replace_30:=false;
+ Replace_31:=false;
+ Replace_40:=false;
+ Replace_41:=true;
EB_Daemon:=false;
PacketPW:=false;
ExtPFiles:=false;
@@ -368,6 +379,17 @@
getx(su, 'SysopNetcall',sysopnetcall) or
getx(su, 'SysopPacken',sysoppack) or
getx(su, 'ReplaceOwn', ReplaceOwn) or
+ getx(su, 'Replace_0', Replace_0) or
+ getx(su, 'Replace_2', Replace_2) or
+ getx(su, 'Replace_3', Replace_3) or
+ getx(su, 'Replace_4', Replace_4) or
+ getx(su, 'Replace_10', Replace_10) or
+ getx(su, 'Replace_11', Replace_11) or
+ getx(su, 'Replace_20', Replace_20) or
+ getx(su, 'Replace_30', Replace_30) or
+ getx(su, 'Replace_31', Replace_31) or
+ getx(su, 'Replace_40', Replace_40) or
+ getx(su, 'Replace_41', Replace_41) or
getx(su, 'Mailer-Daemon', EB_Daemon ) or
gets(s,su,'NetcallScript',script,50) or
gets(s,su,'OnlineScript',o_script,50) or
@@ -480,6 +502,17 @@
writeln(t,'SysopNetcall=',jnf(sysopnetcall));
writeln(t,'SysopPacken=',jnf(sysoppack));
writeln(t,'ReplaceOwn=', jnf(ReplaceOwn));
+ writeln(t,'Replace_0=', jnf(Replace_0));
+ writeln(t,'Replace_2=', jnf(Replace_2));
+ writeln(t,'Replace_3=', jnf(Replace_3));
+ writeln(t,'Replace_4=', jnf(Replace_4));
+ writeln(t,'Replace_10=', jnf(Replace_10));
+ writeln(t,'Replace_11=', jnf(Replace_11));
+ writeln(t,'Replace_20=', jnf(Replace_20));
+ writeln(t,'Replace_30=', jnf(Replace_30));
+ writeln(t,'Replace_31=', jnf(Replace_31));
+ writeln(t,'Replace_40=', jnf(Replace_40));
+ writeln(t,'Replace_41=', jnf(Replace_41));
writeln(t,'Mailer-Daemon=', jnf(EB_Daemon));
writeln(t);
writeln(t,'FidoFakenet=',fpointnet);
@@ -671,6 +704,12 @@
end.
{
$Log: xp9bp.pas,v $
+ Revision 1.24 2006/02/26 15:33:10 mw
+ MW: - Replaceown-Einstellung ist jetzt Netztypabhängig:
+ Wird der Netztyp geändert, so wird nicht die Einstellung
+ beibehalten, sondern durch ein netztypspezifisches Backup
+ ersetzt.
+
Revision 1.23 2006/01/09 16:21:44 mw
MY: - Vorbereitung für Hdronly in FreeXP:
Die Aktivierung von hdrOnly für UKAW ist gesetzt, aber inaktiv.
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
