Index: freexp/servers.inc
===================================================================
RCS file: /server/cvs/freexp/servers.inc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freexp/servers.inc 27 Feb 2006 11:51:31 -0000 1.3
+++ freexp/servers.inc 1 Mar 2006 14:23:54 -0000 1.4
@@ -6,8 +6,8 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: servers.inc,v 1.3 2006/02/27 11:51:31 mw Exp $ }
-const oldfile=8;
+{ $Id: servers.inc,v 1.4 2006/03/01 14:23:54 mw Exp $ }
+const oldfile=9;
oldfiles:array [1..oldfile] of string[32]=(
'83683051cc566c6d63aa0e6306d98290', {Rev.: 1.1.2.1}
'a4cd5ca774c25ab950cd1382d6fb18d5', {Rev.: 1.1.2.2}
@@ -16,11 +16,15 @@
'2701c3f82e96ed13fd3902718fdd885d', {Rev.: 1.1.2.5 und 1.2
(auto-de-branching)}
'85e0c6ae88fa99f47461e649f2dfaa05', {Rev.: 1.3}
'262798f8ab34bc6c2fcf5f9483ba5d10', {Rev.: 1.4}
- 'a8a639ee38fbba9b5c8d77f9007801fd' {Rev.: 1.5 und 1.4.2.1}
+ 'a8a639ee38fbba9b5c8d77f9007801fd', {Rev.: 1.5 und 1.4.2.1}
+ '8f6f37568b7171927524d061493d5b9f' {Rev.: 1.6 und 1.4.2.2}
);
-{Aktuelle Rev 1.6 und 1.4.2.2: 8f6f37568b7171927524d061493d5b9f (Branch 3.40
und Main)}
+{Aktuelle Rev 1.7 und 1.4.2.3: b1a28ca0d6ce824d549c0b8f696e0c11 (Branch 3.40
und Main)}
{
$Log: servers.inc,v $
+ Revision 1.4 2006/03/01 14:23:54 mw
+ MW: - Aufnahme der neuen Servers.dat
+
Revision 1.3 2006/02/27 11:51:31 mw
MW: - Überarbeitete Servers.dat u.a. auf Vorschläge in c.f.d
Index: freexp/xp9.inc
===================================================================
RCS file: /server/cvs/freexp/xp9.inc,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- freexp/xp9.inc 26 Feb 2006 22:09:40 -0000 1.38
+++ freexp/xp9.inc 1 Mar 2006 14:07:06 -0000 1.39
@@ -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.38 2006/02/26 22:09:40 mw Exp $ }
+{ $Id: xp9.inc,v 1.39 2006/03/01 14:07:06 mw Exp $ }
{ --- Bearbeitungs-Routinen für Boxen-Liste -----------------------}
@@ -1004,24 +1004,18 @@
procedure EditTransport(nt:byte; var brk:boolean);
- const ServersMax = 20; { max. Größe des Arrays 'ServersList' }
- ServersDat = 'SERVERS.DAT'; { Datei für POP3/SMTP/NNTP-Server }
+ const ServersDat = 'SERVERS.DAT'; { Datei für POP3/SMTP/NNTP-Server }
var x,y,j : byte;
MailFallbackName : string[BoxNameLen];
NewsFallbackName : string[BoxNameLen];
NewsMaxLenKB : longint;
- ServersList : array[1..ServersMax] of string;
- { Array für Dateiinhalt SERVERS.DAT }
procedure ReadServersDat(const section:string);
- var i : byte;
- s,s1,s2 : string;
+ var s,s1,s2 : string;
t : text;
- begin
- for i:=1 to ServersMax do ServersList[i] := '';
+ begin
if exist(ownpath+ServersDat) then
- begin
- i:=1;
+ begin
s:=''; s1:=''; s2:='';
assign(t,ownpath+ServersDat);
reset(t);
@@ -1040,14 +1034,13 @@
exit;
end;
s:='';
- while (not eof(t)) and (i <= ServersMax) and (memavail>10000) do
+ while (not eof(t)) and (memavail>10000) do
begin
readln(t,s);
s:=trim(s);
if (s='') or (s[1]='#') or (s[1]=';') then continue; { Kommentar }
- if s[1] = '[' then break; { neue Section }
- ServersList[i]:=s;
- inc(i);
+ if s[1] = '[' then break; { neue Section }
+ mappsel(false,s);
end;
close(t);
end;
@@ -1062,9 +1055,6 @@
{ 'Mail-Server für eingehende Mail (POP3/SMTP/IMAP)' }
maddstring(3,3,getres2(920,113),PPPMailInServer,19,160,''); {
'Servername ' }
ReadServersDat('POP3'); { SERVERS.DAT lesen }
- for j:=1 to ServersMax do
- if ServersList[j] <> '' then { nur Einträge anzeigen, }
- mappsel(false,ServersList[j]); { die nicht leer sind }
mhnr(30130);
MailInServerFld:=fieldpos;
maddstring(44,3,getres2(920,114),PPPMailInPort,6,50,'0123456789 ');
@@ -1086,9 +1076,6 @@
{ 'Mail-Server für ausgehende Mail (SMTP)' }
maddstring(3,9,getres2(920,113),PPPMailOutServer,19,160,''); {
'Servername ' }
ReadServersDat('SMTP'); { SERVERS.DAT lesen }
- for j:=1 to ServersMax do
- if ServersList[j] <> '' then { nur Einträge anzeigen, }
- mappsel(false,ServersList[j]); { die nicht leer sind }
mhnr(30150);
maddstring(44,9,getres2(920,114),PPPMailOutPort,6,50,'0123456789 ');
mappsel(false,'25'); { 'Port' }
@@ -1111,9 +1098,6 @@
{ 'News-Server (NNTP)' }
maddstring(3,16,getres2(920,113),PPPNewsServer,19,160,''); {
'Servername ' }
ReadServersDat('NNTP'); { SERVERS.DAT lesen }
- for j:=1 to ServersMax do
- if ServersList[j] <> '' then { nur Einträge anzeigen, }
- mappsel(false,ServersList[j]); { die nicht leer sind }
mhnr(30170);
maddstring(44,16,getres2(920,114),PPPNewsPort,6,50,'0123456789 ');
mappsel(false,'119'); { 'Port' }
@@ -2221,6 +2205,10 @@
{
$Log: xp9.inc,v $
+ Revision 1.39 2006/03/01 14:07:06 mw
+ MW: - Wegfall der Beschränkung auf 20 anzeigbare Server im
+ RFC/Client-Auswahldialog.
+
Revision 1.38 2006/02/26 22:09:40 mw
MW: - Bugfix: Replaceown Netztypwechsel
Index: freexp/Trial/newsnap.asc
===================================================================
RCS file: /server/cvs/freexp/Trial/newsnap.asc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- freexp/Trial/newsnap.asc 28 Feb 2006 11:30:32 -0000 1.1
+++ freexp/Trial/newsnap.asc 1 Mar 2006 14:08:37 -0000 1.2
@@ -233,3 +233,8 @@
MW: - Überarbeitete Servers.dat u.a. auf Vorschläge in c.f.d
SERVERS.INC, SERVERS.DAT
+01.02.2006:
+
+MW: - Wegfall der Beschränkung auf 20 anzeigbare Server im
+ RFC/Client-Auswahldialog.
+ XP9.INC
\ No newline at end of file
Index: freexp/beispiel/servers.dat
===================================================================
RCS file: /server/cvs/freexp/beispiel/servers.dat,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- freexp/beispiel/servers.dat 27 Feb 2006 11:52:20 -0000 1.6
+++ freexp/beispiel/servers.dat 1 Mar 2006 14:21:06 -0000 1.7
@@ -9,10 +9,12 @@
## beginnen muß. Die Zeichen danach spielen keine Rolle. Die Zeilen
## dürfen mit Leerzeichen eingerückt sein.
##
-## Es sind maximal 20 Servernamen pro Section möglich, darüber
-## hinausgehende Einträge in einer Section werden ignoriert. Servernamen
-## dürfen nicht mit einer eckigen Klammer ("[") beginnen, dies würde als
-## Beginn einer neuen Section interpretiert.
+## Es sind beliebig viele Servernamen möglich, es werden allerdings
+## stets nur soviele Server berücksichtigt, wie in den konventionellen
+## Arbeitsspeicher passen, darüber hinausgehende Einträge in einer
+## Section werden ignoriert. Servernamen dürfen nicht mit einer eckigen
+## Klammer ("[") beginnen, dies würde als Beginn einer neuen Section
+## interpretiert.
##
## Zeilen, die mit "#" oder ";" beginnen, werden als Kommentare
## interpretiert und - genauso wie Leerzeilen - ebenfalls ignoriert.
@@ -20,6 +22,7 @@
[POP3/SMTP/IMAP (Mail eingehend/incoming)]
pop3.freexp.de
+imap.freexp.de
pop.gmx.net
pop3.arcor.de
pop3.web.de
@@ -43,6 +46,7 @@
pop-mail.t-online.de
secure-pop.t-online.de
secure-imap.t-online.de
+mail.nadeshda.org
[SMTP (Mail ausgehend/outgoing)]
smtp.freexp.de
@@ -67,6 +71,7 @@
smtpmail.t-online.de
asmtp.t-online.de
secure-asmtp.t-online.de
+mail.nadeshda.org
[NNTP (News)]
news.freexp.de
@@ -83,6 +88,8 @@
news.heise.de
news.online.de
news.freenet.de
+news.cnntp.org
+news.nadeshda.org
news1.open-news-network.org
news2.open-news-network.org
news3.open-news-network.org
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
