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