Index: freexp/docform.pas
===================================================================
RCS file: /server/cvs/freexp/docform.pas,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- freexp/docform.pas 3 Jan 2006 19:12:21 -0000 1.24
+++ freexp/docform.pas 7 Mar 2006 18:08:03 -0000 1.25
@@ -12,7 +12,7 @@
{ --------------------------------------------------------------- }
{ Originalautor : Peter Mandrella }
{ Datum : Nov. 1991 }
-{ $Id: docform.pas,v 1.24 2006/01/03 19:12:21 mw Exp $ }
+{ $Id: docform.pas,v 1.25 2006/03/07 18:08:03 mw Exp $ }
{$R-}
{$M 32768,0,655360}
@@ -1900,12 +1900,12 @@
if rand=0 then rand:=3;
end;
if not exist(infile) then stop('Eingabedatei nicht vorhanden');
- if not validfilename(outfile) then stop('ungültige Ausgabedatei');
+ if not validfilename(outfile,true) then stop('ungültige Ausgabedatei');
if SwitchThere('_') then begin
if switchdata('_')<>'' then begin
logfile:=switchdata('_');
- if not validfilename(logfile) then begin
+ if not validfilename(logfile,true) then begin
WriteLn('ungültiges Logfile, der Name wurde in DocForm.Log
geändert');
logfile:='DOCFORM.LOG';
end;
@@ -2085,6 +2085,10 @@
end.
{
$Log: docform.pas,v $
+ Revision 1.25 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.24 2006/01/03 19:12:21 mw
MW: - Reparatur eines unglücklichen Zeilenfehlers, der das Compilieren
verhinderte.
Index: freexp/fileio.pas
===================================================================
RCS file: /server/cvs/freexp/fileio.pas,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- freexp/fileio.pas 2 Jan 2006 12:28:50 -0000 1.57
+++ freexp/fileio.pas 7 Mar 2006 18:08:03 -0000 1.58
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: fileio.pas,v 1.57 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: fileio.pas,v 1.58 2006/03/07 18:08:03 mw Exp $ }
{ File-I/O, Locking und Dateinamenbearbeitung }
@@ -44,7 +44,7 @@
Function existf(var f):boolean; { Datei vorhanden ? }
Function existrf(var f):boolean; { D.v. (auch hidden etc.) }
function existBin(const fn: pathstr): boolean; { Datei vorhanden
(PATH) }
-Function ValidFileName(const name:PathStr):boolean; { gültiger Dateiname ?
}
+Function ValidFileName(const name:PathStr;savemode:boolean):boolean; {
gültiger Dateiname ? }
Function IsPath(name:PathStr):boolean; { Pfad vorhanden ? }
function TempFile(const path:pathstr):pathstr; { TMP-Namen erzeugen
}
function TempExtFile(const path,ld,ext:pathstr):pathstr; { Ext-Namen erzeugen
}
@@ -224,13 +224,14 @@
existrf:=e;
end;
-Function ValidFileName(const name:PathStr):boolean;
+Function ValidFileName(const name:PathStr;savemode:boolean):boolean;
var f : file;
begin
if (name='') or multipos('*?/',name) then { Fehler in DR-DOS 5.0 umgehen }
ValidFileName:=false
else begin
- assign(f,name);
+ if savemode then assign(f,ustr(name))
+ else assign(f,name);
if existf(f) then ValidFileName:=true
else begin
rewrite(f);
@@ -255,7 +256,7 @@
if doserror=0 then
IsPath:=true
else
- IsPath:=validfilename(name+'1$2$3.xx');
+ IsPath:=validfilename(name+'1$2$3.xx',false);
findclose(sr);
end
else
@@ -429,7 +430,7 @@
exit;
end;
if right(path,1)<>DirSepa then path:=path+DirSepa;
- if validfilename(path+testfile) then
+ if validfilename(path+testfile,false) then
res:=0
else
if pos(DirSepa,path)<=1 then begin
@@ -883,6 +884,10 @@
end.
{
$Log: fileio.pas,v $
+ Revision 1.58 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.57 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/maggi.pas
===================================================================
RCS file: /server/cvs/freexp/maggi.pas,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- freexp/maggi.pas 31 Jan 2006 12:16:51 -0000 1.31
+++ freexp/maggi.pas 7 Mar 2006 18:08:03 -0000 1.32
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: maggi.pas,v 1.31 2006/01/31 12:16:51 mw Exp $ }
+{ $Id: maggi.pas,v 1.32 2006/03/07 18:08:03 mw Exp $ }
{ ZConnect <-> Magic/Quick - Konvertierer }
{ PM 04/92 }
@@ -367,7 +367,7 @@
procedure testfiles;
begin
if not exist(infile) then error('Eingabedatei nicht vorhanden');
- if not validfilename(outfile) then error('ungültige Ausgabedatei');
+ if not validfilename(outfile,true) then error('ungültige Ausgabedatei');
end;
{ --- Konvertierung -------------------------------------------------- }
@@ -1839,6 +1839,10 @@
end.
{
$Log: maggi.pas,v $
+ Revision 1.32 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.31 2006/01/31 12:16:51 mw
MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
Index: freexp/uucico.pas
===================================================================
RCS file: /server/cvs/freexp/uucico.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- freexp/uucico.pas 2 Jan 2006 12:28:50 -0000 1.11
+++ freexp/uucico.pas 7 Mar 2006 18:08:03 -0000 1.12
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: uucico.pas,v 1.11 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: uucico.pas,v 1.12 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - UUCICO }
{$I XPDEFINE.INC }
@@ -295,9 +295,9 @@
rerror(103); { 'UUCP Command file missing' }
if comnr=0 then rerror(104); { 'Port number missing' }
if right(FilePath,1)<>'\' then FilePath:=FilePath+'\';
- if not ValidFilename(FilePath+'1$2$3.9x9') then
+ if not ValidFilename(FilePath+'1$2$3.9x9',false) then
rerror(105); { 'Illegal File Path' }
- if (uulogfile<>'') and not validfilename(uulogfile) then
+ if (uulogfile<>'') and not validfilename(uulogfile,true) then
rerror1(106,ustr(uulogfile)); { 'Illegal logfile name: %s' }
if onlinetime=0 then onlinetime:=ticker;
end;
@@ -1569,7 +1569,7 @@
p:=blankpos(fn);
if p=0 then goto next;
fn:=left(fn,p-1);
- if not validfilename(FilePath+fn) then begin
+ if not validfilename(FilePath+fn,true) then begin
logerror('invalid request destination file: '+fn);
goto next;
end;
@@ -1936,6 +1936,10 @@
{
$Log: uucico.pas,v $
+ Revision 1.12 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.11 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp-fm.pas
===================================================================
RCS file: /server/cvs/freexp/xp-fm.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- freexp/xp-fm.pas 2 Jan 2006 12:28:50 -0000 1.22
+++ freexp/xp-fm.pas 7 Mar 2006 18:08:03 -0000 1.23
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp-fm.pas,v 1.22 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: xp-fm.pas,v 1.23 2006/03/07 18:08:03 mw Exp $ }
{ Fido-Mailer für CrossPoint }
{ (c) 06/92 by PM }
@@ -385,15 +385,15 @@
perr:=getres(100);
if FilePath='' then rerror(112); { 'InPath missing' }
if right(FilePath,1)<>'\' then FilePath:=FilePath+'\';
- if not ValidFilename(FilePath+'1$2$3.9x9') then
+ if not ValidFilename(FilePath+'1$2$3.9x9',false) then
rerror(101); { 'Illegal InPath' }
if MailPath='' then rerror(102); { 'MailPath missing' }
if right(MailPath,1)<>'\' then MailPath:=MailPath+'\';
- if not ValidFilename(MailPath+'1$2$3.9x9') then
+ if not ValidFilename(MailPath+'1$2$3.9x9',false) then
rerror(103); { 'Illegal MailPath' }
- if not ValidFilename(zmtempfile) then
+ if not ValidFilename(zmtempfile,true) then
rerror(114); { 'Illegal temporary file name' }
- if not validfilename(logfile) then
+ if not validfilename(logfile,true) then
rerror1(104,ustr(logfile)); { 'Illegal logfile name: %s' }
for i:=1 to sendfiles do
if not exist(sendfile[i]^) then
@@ -1034,6 +1034,10 @@
end.
{
$Log: xp-fm.pas,v $
+ Revision 1.23 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.22 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp1o.pas
===================================================================
RCS file: /server/cvs/freexp/xp1o.pas,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- freexp/xp1o.pas 2 Jan 2006 12:28:51 -0000 1.45
+++ freexp/xp1o.pas 7 Mar 2006 18:08:03 -0000 1.46
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp1o.pas,v 1.45 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp1o.pas,v 1.46 2006/03/07 18:08:03 mw Exp $ }
{ Overlay-Teil zu xp1 }
@@ -169,7 +169,7 @@
s:=s+DirSepa+WildCard;
if (cpos('?',s)>0) or (cpos('*',s)>0) then lastpath:=fexpand(s);
file_box(s,subs);
- if (s<>'') and (IsDevice(s) or not ValidFilename(s)) then begin
+ if (s<>'') and (IsDevice(s) or not ValidFilename(s,false)) then begin
rfehler(3); { Ungültiger Pfad- oder Dateiname! }
s:='';
end;
@@ -308,7 +308,7 @@
fname:=extractpath+fname;
while cpos('/',fname)>0 do
fname[cpos('/',fname)]:='\';
- if not validfilename(fname) then begin
+ if not validfilename(fname,false) then begin
rfehler(316); { 'Ungültiger Pfad- oder Dateiname!' }
exit;
end;
@@ -1042,6 +1042,10 @@
end.
{
$Log: xp1o.pas,v $
+ Revision 1.46 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.45 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp1s.inc
===================================================================
RCS file: /server/cvs/freexp/xp1s.inc,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- freexp/xp1s.inc 2 Jan 2006 12:28:49 -0000 1.29
+++ freexp/xp1s.inc 7 Mar 2006 18:08:03 -0000 1.30
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp1s.inc,v 1.29 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xp1s.inc,v 1.30 2006/03/07 18:08:03 mw Exp $ }
{ DOS-Shell }
@@ -113,7 +113,7 @@
end;
cursor(curon);
- if (getenv('XPSWAP')<>'') and validfilename(getenv('XPSWAP')) then
+ if (getenv('XPSWAP')<>'') and validfilename(getenv('XPSWAP'),true) then
ExecSwapfile:=getenv('XPSWAP')
else
ExecSwapfile:=TempPath+SwapFileName;
@@ -495,6 +495,10 @@
end;
{
$Log: xp1s.inc,v $
+ Revision 1.30 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.29 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp2c.pas
===================================================================
RCS file: /server/cvs/freexp/xp2c.pas,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- freexp/xp2c.pas 2 Jan 2006 12:28:51 -0000 1.52
+++ freexp/xp2c.pas 7 Mar 2006 18:08:03 -0000 1.53
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2c.pas,v 1.52 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp2c.pas,v 1.53 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - Config bearbeiten }
@@ -1028,7 +1028,7 @@
s:=ustr(FExpand(s));
if (s<>'') and (right(s,1)<>DirSepa) then
s:=s+DirSepa;
- if not validfilename(s+'1$2$3.xxx') then
+ if not validfilename(s+'1$2$3.xxx',false) then
if ReadJN(getres2(262,1),true) then { 'Verzeichnis ist nicht vorhanden.
Neu anlegen' }
begin
mklongdir(s,res);
@@ -1534,6 +1534,10 @@
{
$Log: xp2c.pas,v $
+ Revision 1.53 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.52 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp3o.pas
===================================================================
RCS file: /server/cvs/freexp/xp3o.pas,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- freexp/xp3o.pas 2 Jan 2006 12:28:51 -0000 1.30
+++ freexp/xp3o.pas 7 Mar 2006 18:08:03 -0000 1.31
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp3o.pas,v 1.30 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp3o.pas,v 1.31 2006/03/07 18:08:03 mw Exp $ }
{ Overlay-Teil von XP3: Nachrichten-Verwaltung }
@@ -653,7 +653,7 @@
if (cpos('\',fname)=0) and (cpos(':',fname)=0) then
fname:=extractpath+fname;
if ok then
- if not ValidFileName(fname) then
+ if not ValidFileName(fname,false) then
fehler(getres2(324,5)) { 'ungültiger Datei- oder Pfadname' }
else begin
@@ -1521,6 +1521,10 @@
end.
{
$Log: xp3o.pas,v $
+ Revision 1.31 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.30 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp4.pas
===================================================================
RCS file: /server/cvs/freexp/xp4.pas,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- freexp/xp4.pas 2 Jan 2006 12:28:51 -0000 1.32
+++ freexp/xp4.pas 7 Mar 2006 18:08:03 -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: xp4.pas,v 1.32 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp4.pas,v 1.33 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - Hauptmodul }
@@ -1334,7 +1334,7 @@
begin
GoP;
GetAutoFN(fn);
- if not ValidFilename(fn) then
+ if not ValidFilename(fn,true) then
rfehler(412) { 'ungültiger Dateiname' }
else begin
dbRead(auto,'typ',typ);
@@ -2261,6 +2261,10 @@
end.
{
$Log: xp4.pas,v $
+ Revision 1.33 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.32 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp4o.pas
===================================================================
RCS file: /server/cvs/freexp/xp4o.pas,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- freexp/xp4o.pas 2 Jan 2006 12:28:51 -0000 1.57
+++ freexp/xp4o.pas 7 Mar 2006 18:08:03 -0000 1.58
@@ -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.pas,v 1.57 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp4o.pas,v 1.58 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - Overlayroutinen, die von XP4 aufgerufen werden }
@@ -1720,7 +1720,7 @@
useclip:=true;
if ReadFilename(getres2(457,iif(user,1,2)),fname,true,useclip)
then
- if not ValidFileName(fname) then
+ if not ValidFileName(fname,true) then
fehler(getres2(457,3)) { 'ungültiger Dateiname' }
else begin
if user then getuserinfos
@@ -2307,7 +2307,7 @@
UpString(dp);
if (dp<>'') and (right(dp,1)<>':') and (right(dp,1)<>'\') then
dp:=dp+'\';
- if not validfilename(dp+'test.$$1') then
+ if not validfilename(dp+'test.$$1',false) then
rfehler(433) { 'ungültiges Verzeichnis' }
else begin
sex:=exdir;
@@ -2960,6 +2960,10 @@
end.
{
$Log: xp4o.pas,v $
+ Revision 1.58 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.57 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp7.inc
===================================================================
RCS file: /server/cvs/freexp/xp7.inc,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- freexp/xp7.inc 2 Jan 2006 12:28:49 -0000 1.30
+++ freexp/xp7.inc 7 Mar 2006 18:08:03 -0000 1.31
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp7.inc,v 1.30 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xp7.inc,v 1.31 2006/03/07 18:08:03 mw Exp $ }
function BoxParOk:string;
var uucp : boolean;
@@ -968,7 +968,7 @@
inmsgs:=0; outmsgs:=0; outemsgs:=0;
with boxpar^ do
begin
- if not ValidFilename(SysopOut) then
+ if not ValidFilename(SysopOut,false) then
begin
trfehler(723,30); { 'ungültige Ausgabedatei' }
exit;
@@ -1542,6 +1542,10 @@
end;
{
$Log: xp7.inc,v $
+ Revision 1.31 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.30 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- freexp/xp9.pas 6 Mar 2006 22:33:24 -0000 1.35
+++ freexp/xp9.pas 7 Mar 2006 18:08:03 -0000 1.36
@@ -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.35 2006/03/06 22:33:24 mw Exp $ }
+{ $Id: xp9.pas,v 1.36 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -121,7 +121,7 @@
getdname:=ustr(formi(fa.net mod 10000,4)+formi(fa.node mod 10000,4));
end
else
- if validfilename(ustr(left(boxname,8)+BfgExt)) then
+ if validfilename(left(boxname,8)+BfgExt,true) then
getdname:=ustr(left(boxname,8))
else
getdname:='BOX-0001';
@@ -1112,6 +1112,10 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.36 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.35 2006/03/06 22:33:24 mw
MW: - Bugfix: Dateinamen von BFG-Dateien konnten mit nicht ausschließlicher
Großschreibung angelegt werden, da der Test auf Gültigkeit
Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- freexp/xp9sel.pas 2 Jan 2006 12:28:51 -0000 1.17
+++ freexp/xp9sel.pas 7 Mar 2006 18:08:03 -0000 1.18
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.17 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.18 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -1047,7 +1047,7 @@
end;
goto restart;
end;
- if (s2<>'') and (IsDevice(s2) or not ValidFilename(s2)) then
+ if (s2<>'') and (IsDevice(s2) or not ValidFilename(s2,true)) then
begin
rfehler(3); { 'Ungültiger Pfad- oder Dateiname!' }
goto restart;
@@ -1186,7 +1186,7 @@
function validfile(var s:string):boolean; { Sysop-Mode }
begin
- if (trim(s)<>'') and not ValidFilename(s) then begin
+ if (trim(s)<>'') and not ValidFilename(s,true) then begin
rfehler(904); { 'ungültiger Dateiname' }
validfile:=false
end
@@ -1654,7 +1654,7 @@
fn:=logpath+s
else
fn:=s;
- if validfilename(fn) then
+ if validfilename(fn,true) then
testlogfile:=true
else begin
rfehler(928); { 'ungültiger Dateiname!' }
@@ -2110,6 +2110,10 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.18 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.17 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xpterm.pas
===================================================================
RCS file: /server/cvs/freexp/xpterm.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- freexp/xpterm.pas 2 Jan 2006 12:28:51 -0000 1.15
+++ freexp/xpterm.pas 7 Mar 2006 18:08:03 -0000 1.16
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpterm.pas,v 1.15 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpterm.pas,v 1.16 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - Terminal und Scripts }
@@ -154,7 +154,7 @@
savewin;
if not multipos(':\',fn) then
fn:=logpath+fn;
- if not validfilename(fn) then
+ if not validfilename(fn,true) then
rfehler(2001)
else begin
rmessage(2001);
@@ -1616,6 +1616,10 @@
end.
{
$Log: xpterm.pas,v $
+ Revision 1.16 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.15 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xpview.pas
===================================================================
RCS file: /server/cvs/freexp/xpview.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- freexp/xpview.pas 2 Jan 2006 12:28:51 -0000 1.21
+++ freexp/xpview.pas 7 Mar 2006 18:08:03 -0000 1.22
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpview.pas,v 1.21 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpview.pas,v 1.22 2006/03/07 18:08:03 mw Exp $ }
{ CrossPoint - Binärfile-Viewer }
@@ -184,7 +184,7 @@
['0'..'9','a'..'z','A'..'Z','-','_','.','~','$','(',')','ä','ö','ü','Ä','Ö','Ü','ß'])
do
dec(p);
delete(betreff,1,p-1);
- if validfilename(betreff) then viewer.fn:=betreff;
+ if validfilename(betreff,false) then viewer.fn:=betreff;
end;
dbSetIndex(mimebase,mtiTyp);
end;
@@ -214,13 +214,13 @@
begin
fn1:='';
orgfn:=iifs(viewer.fn<>'',GetFileDir(fn)+GetFileName(viewer.fn),'');
- if (not ValidFileName(orgfn) or exist(orgfn)) and (viewer.ext<>'') and
+ if (not ValidFileName(orgfn,false) or exist(orgfn)) and (viewer.ext<>'') and
(cpos('.',fn)>0) then
orgfn:=left(fn,rightpos('.',fn))+viewer.ext;
if not fileattach then
begin
- if stricmp(fn,orgfn) or not ValidFileName(orgfn) or (cpos(' ',orgfn)>0)
+ if stricmp(fn,orgfn) or not ValidFileName(orgfn,false) or (cpos(' ',orgfn)>0)
then orgfn:=TempS(_filesize(fn)+5000);
if copyfile(fn,orgfn) then fn1:=orgfn;
end;
@@ -256,6 +256,10 @@
end.
{
$Log: xpview.pas,v $
+ Revision 1.22 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.21 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/yup2pkt.pas
===================================================================
RCS file: /server/cvs/freexp/yup2pkt.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- freexp/yup2pkt.pas 2 Jan 2006 12:28:52 -0000 1.10
+++ freexp/yup2pkt.pas 7 Mar 2006 18:08:03 -0000 1.11
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: yup2pkt.pas,v 1.10 2006/01/02 12:28:52 mw Exp $ }
+{ $Id: yup2pkt.pas,v 1.11 2006/03/07 18:08:03 mw Exp $ }
{$I XPDEFINE.INC }
@@ -176,7 +176,7 @@
if not exist(YupDir+AreaDB+'.DBF') then
error('Keine AREABASE vorhanden.');
outfile:=ustr(paramstr(2));
- if not validfilename(outfile) then
+ if not validfilename(outfile,true) then
error('ungültige Ausgabedatei: '+outfile);
splitfido(paramstr(3),address,2);
end;
@@ -368,6 +368,10 @@
end.
{
$Log: yup2pkt.pas,v $
+ Revision 1.11 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.10 2006/01/02 12:28:52 mw
MW: - Frohes neues Jahr 2006
Index: freexp/zfido.pas
===================================================================
RCS file: /server/cvs/freexp/zfido.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- freexp/zfido.pas 2 Jan 2006 12:28:52 -0000 1.29
+++ freexp/zfido.pas 7 Mar 2006 18:08:03 -0000 1.30
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: zfido.pas,v 1.29 2006/01/02 12:28:52 mw Exp $ }
+{ $Id: zfido.pas,v 1.30 2006/03/07 18:08:03 mw Exp $ }
{ XP-ZConnect <-> FTS-0001 - Konvertierer }
{ (c) PM 06/92 FTS-0001, FSC-0039 }
@@ -395,7 +395,7 @@
helppage;
if not exist(infile) then
error('Eingabedatei fehlt: '+infile);
- if not validfilename(outfile) then
+ if not validfilename(outfile,true) then
error('Ungültige Ausgabedatei: '+outfile);
findfirst('BAD',Directory,sr);
baddir:=(doserror=0) and (sr.attr and Directory<>0);
@@ -1739,6 +1739,10 @@
end.
{
$Log: zfido.pas,v $
+ Revision 1.30 2006/03/07 18:08:03 mw
+ MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
+ unbeabsichtigte Anlegen von LFNs verhindert.
+
Revision 1.29 2006/01/02 12:28:52 mw
MW: - Frohes neues Jahr 2006
Index: freexp/Trial/maggi.pas
===================================================================
RCS file: /server/cvs/freexp/Trial/maggi.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freexp/Trial/maggi.pas 28 Feb 2006 12:20:56 -0000 1.3
+++ freexp/Trial/maggi.pas 7 Mar 2006 17:46:23 -0000 1.4
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: maggi.pas,v 1.3 2006/02/28 12:20:56 mw Exp $ }
+{ $Id: maggi.pas,v 1.4 2006/03/07 17:46:23 mw Exp $ }
{ ZConnect <-> Magic/Quick - Konvertierer }
{ PM 04/92 }
@@ -368,7 +368,7 @@
procedure testfiles;
begin
if not exist(infile) then error('Eingabedatei nicht vorhanden');
- if not validfilename(outfile) then error('ungültige Ausgabedatei');
+ if not validfilename(outfile,true) then error('ungültige Ausgabedatei');
end;
{ --- Konvertierung -------------------------------------------------- }
@@ -1887,6 +1887,9 @@
end.
{
$Log: maggi.pas,v $
+ Revision 1.4 2006/03/07 17:46:23 mw
+ MW: - Anpassung an den Savemode von fileio.Validfilename()
+
Revision 1.3 2006/02/28 12:20:56 mw
MW: - Experimenteller Maggi jetzt wieder compilierbar.
(Customheader 3 wurde noch nicht übernommen)
Index: freexp/Trial/newsnap.asc
===================================================================
RCS file: /server/cvs/freexp/Trial/newsnap.asc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- freexp/Trial/newsnap.asc 1 Mar 2006 14:08:37 -0000 1.2
+++ freexp/Trial/newsnap.asc 7 Mar 2006 19:00:48 -0000 1.3
@@ -237,4 +237,12 @@
MW: - Wegfall der Beschränkung auf 20 anzeigbare Server im
RFC/Client-Auswahldialog.
- XP9.INC
\ No newline at end of file
+ XP9.INC
+
+07.02.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
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
