CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Fre Jan 7 00:01:05 CET 2005
Index: freexp/xp-d.rq
===================================================================
RCS file: /server/cvs/freexp/xp-d.rq,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -r1.63 -r1.64
--- freexp/xp-d.rq 1 Jan 2005 11:16:31 -0000 1.63
+++ freexp/xp-d.rq 6 Jan 2005 16:59:20 -0000 1.64
@@ -3,7 +3,7 @@
K (c) 1993-1999 Peter Mandrella
K (c) 2000-2001 OpenXP-Team
K (c) 2002-2005 FreeXP, http://www.freexp.de
-# $Id: xp-d.rq,v 1.63 2005/01/01 11:16:31 mw Exp $
+# $Id: xp-d.rq,v 1.64 2005/01/06 16:59:20 mw Exp $
# Online-Hilfe, Tastenmakros
1 XP.HLP
@@ -833,6 +833,7 @@
9 alle Nachrichten signieren
10 PGP auch für RFC/UUCP verwenden
11 PGP auch für Fido verwenden
+12 GPG-Optionen
+ 272
# 06.02.2000 MH: RFC: X-Priority: 1, 2, 3, 4, 5
0 30
Index: freexp/xp-e.rq
===================================================================
RCS file: /server/cvs/freexp/xp-e.rq,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -r1.97 -r1.98
--- freexp/xp-e.rq 1 Jan 2005 11:16:31 -0000 1.97
+++ freexp/xp-e.rq 6 Jan 2005 16:59:20 -0000 1.98
@@ -3,7 +3,7 @@
K (c) 1993-1999 Peter Mandrella
K (c) 2000-2001 OpenXP-Team
K (c) 2002-2005 FreeXP, http://www.freexp.de
-# $Id: xp-e.rq,v 1.97 2005/01/01 11:16:31 mw Exp $
+# $Id: xp-e.rq,v 1.98 2005/01/06 16:59:20 mw Exp $
# Online Help File, Key Macros
1 XP-E.HLP
@@ -824,6 +824,7 @@
9 Sign all messages
10 Use PGP for RFC/UUCP
11 Use PGP for Fido (not allowed in FidoNet!)
+12 GPG options
+ 272
# 06.02.2000 MH: RFC: X-Priority: 1, 2, 3, 4, 5
0 30
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -r1.73 -r1.74
--- freexp/xp0.pas 2 Jan 2005 02:29:59 -0000 1.73
+++ freexp/xp0.pas 6 Jan 2005 16:59:20 -0000 1.74
@@ -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.73 2005/01/02 02:29:59 mw Exp $ }
+{ $Id: xp0.pas,v 1.74 2005/01/06 16:59:20 mw Exp $ }
{ CrossPoint - Deklarationen }
@@ -1086,6 +1086,7 @@
PGP_waitkey : boolean; { 'Taste drücken ...' nach PGP }
PGP_log : boolean; { Logfile für PGP-Aktivitäten }
PGP_signall : boolean; { alle Nachrichten signieren }
+ PGP_GPGEncodingOptions : string; { Standardparameter fuer GPG }
IntVorwahl : string[15]; { internationale Vorwahl }
NatVorwahl : string[10]; { nationale Vorwahl, normalerweise 0 }
@@ -1257,6 +1258,9 @@
{
$Log: xp0.pas,v $
+ Revision 1.74 2005/01/06 16:59:20 mw
+ MW: - Erweiterte GnuPG-Unterstützung.
+
Revision 1.73 2005/01/02 02:29:59 mw
MW: - Neue experimentelle GnuPG-Unterstützung.
Index: freexp/xp2c.pas
===================================================================
RCS file: /server/cvs/freexp/xp2c.pas,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- freexp/xp2c.pas 2 Jan 2005 02:29:59 -0000 1.47
+++ freexp/xp2c.pas 6 Jan 2005 16:59:20 -0000 1.48
@@ -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.47 2005/01/02 02:29:59 mw Exp $ }
+{ $Id: xp2c.pas,v 1.48 2005/01/06 16:59:20 mw Exp $ }
{ CrossPoint - Config bearbeiten }
@@ -106,7 +106,7 @@
{$IFDEF CAPI }
isdnx,isdny : byte; { x/y bei IsdnConfig }
{$ENDIF }
-
+ GPGEncodingOptionsField: integer;
function testbrett(var s:string):boolean;
begin
@@ -1443,7 +1443,9 @@
function testpgpexe(var s:string):boolean;
begin
if (s=_jn_[1]) and (fsearch('PGP.EXE',getenv('PGPPATH'))='') and
- (fsearch('PGP.EXE',getenv('PATH'))='') then begin
+ (fsearch('PGP.EXE',getenv('PATH'))='') and
+ (fsearch('GPG.EXE',getenv('PGPPATH'))='') and
+ (fsearch('GPG.EXE',getenv('PATH'))='') then begin
rfehler(217); { 'PGP ist nicht vorhanden oder nicht per Pfad erreichbar.' }
s:=_jn_[2];
end;
@@ -1463,7 +1465,7 @@
sall: boolean;
begin
sall:=(ustr(GetRes2(29900,2))<>'N');
- dialog(ival(getres2(271,0)),iif(sall,14,13),getres2(271,1),x,y); { 'PGP-Einstellungen' }
+ dialog(ival(getres2(271,0)),iif(sall,15,14),getres2(271,1),x,y); { 'PGP-Einstellungen' }
maddstring(3,2,'PGP-Version ',PGPVersion,5,5,'');
mappsel(false,PGP2+'∙'+PGP5+'∙'+PGP6+'∙'+GPG);
@@ -1478,11 +1480,17 @@
if sall then
maddbool(3,11,getres2(271,9),PGP_signall); { 'alle Nachrichten signieren' }
maddstring(3,iif(sall,13,12),getres2(271,7),PGP_UserID,33,80,''); { 'User-ID' }
- mhnr(1018);
+ mhnr(1018);
+ maddstring(3,iif(sall,14,13),getres2(271,12),PGP_GPGEncodingOptions,33,120,''); { 'GPG-Optionen' }
+ mhnr(1023);
+ mappsel(false,'--rfc1991 --cipher-algo idea∙--compress-algo 1 --cipher-algo cast5');
+ GPGEncodingOptionsField:= fieldpos;
+
(* maddbool(3,12,getres2(271,10),PGP_UUCP); { 'PGP auch für RFC/UUCP verwenden' }
mset1func(testxpgp);
maddbool(3,13,getres2(271,11),PGP_Fido); { 'PGP auch für Fido verwenden' }
mset1func(testxpgp); *)
+
readmask(brk);
if not brk and mmodified then
GlobalModified;
@@ -1541,6 +1549,9 @@
{
$Log: xp2c.pas,v $
+ Revision 1.48 2005/01/06 16:59:20 mw
+ MW: - Erweiterte GnuPG-Unterstützung.
+
Revision 1.47 2005/01/02 02:29:59 mw
MW: - Neue experimentelle GnuPG-Unterstützung.
Index: freexp/xp2cfg.inc
===================================================================
RCS file: /server/cvs/freexp/xp2cfg.inc,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- freexp/xp2cfg.inc 1 Jan 2005 11:16:27 -0000 1.71
+++ freexp/xp2cfg.inc 6 Jan 2005 16:59:19 -0000 1.72
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2cfg.inc,v 1.71 2005/01/01 11:16:27 mw Exp $ }
+{ $Id: xp2cfg.inc,v 1.72 2005/01/06 16:59:19 mw Exp $ }
const cfs : array[0..4] of string[5] = ('Z','Shift','Ctrl','Alt','#Z');
saveCFG : boolean = false;
@@ -796,6 +796,7 @@
PGP_log:=false;
PGP_signall:=false;
PGPVersion:=PGP2; { Default-Version ist PGP 2.6.x }
+ PGP_GPGEncodingOptions:='';
RTAMode := 128 + 13; { RTA und/oder WAB vorhanden }
RTAStandard := true;
RTAOwnAddresses := nil;
@@ -1028,6 +1029,7 @@
writeln(t,'PGP-Logfile=',jnf(PGP_log));
writeln(t,'PGP-SignAll=',jnf(PGP_signall));
writeln(t,'PGP-Version=',PGPVersion);
+ writeln(t,'PGP-GPGEncodingOptions=',PGP_GPGEncodingOptions);
{ writeln(t,'AutoDatumsBezuege=',jnf(AutoDatumsBezuege)); }
{ unnötig seit Fix von jg in XP3O2.PAS und XP4.PAS (2001/05/23 und 2001/06/10) }
writeln(t,'IgnoreSupCancel=',jnf(IgnoreSupCancel));
@@ -1693,6 +1695,7 @@
getx(su, 'pgp-logfile',PGP_log) or
getx(su, 'pgp-signall',PGP_signall) or
gets(s,su,'pgp-version',PGPVersion,5) or
+ gets(s,su,'pgp-gpgencodingoptions',PGP_GPGEncodingOptions,120) or
getx(su, 'messagebeep',msgbeep) or
getx(su, 'netcallunmark',netcallunmark) or
getx(su, 'defaultnokop',defaultnokop) or
@@ -1881,6 +1884,9 @@
{
$Log: xp2cfg.inc,v $
+ Revision 1.72 2005/01/06 16:59:19 mw
+ MW: - Erweiterte GnuPG-Unterstützung.
+
Revision 1.71 2005/01/01 11:16:27 mw
MW: - Willkommen im Jahr 2005
Index: freexp/xp_pgp.pas
===================================================================
RCS file: /server/cvs/freexp/xp_pgp.pas,v
retrieving revision 1.25
retrieving revision 1.29
diff -u -r1.25 -r1.29
--- freexp/xp_pgp.pas 2 Jan 2005 08:10:22 -0000 1.25
+++ freexp/xp_pgp.pas 6 Jan 2005 22:03:10 -0000 1.29
@@ -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_pgp.pas,v 1.25 2005/01/02 08:10:22 mw Exp $ }
+{ $Id: xp_pgp.pas,v 1.29 2005/01/06 22:03:10 mw Exp $ }
{ PGP-Codierung }
@@ -24,6 +24,7 @@
procedure LogPGP(const s:string); { s in PGP.LOG schreiben }
procedure RunPGP(const par:string); { PGP 2.6.x bzw. 6.5.x aufrufen }
procedure RunPGP5(const exe:string;const par:string); { PGP 5.x aufrufen }
+procedure RunGPG(const par:string); { GPG aufrufen }
procedure UpdateKeyfile;
procedure WritePGPkey_header(var f:file); { PGP-PUBLIC-KEY: ... erzeugen }
procedure PGP_SendKey(const empfaenger:string); { Antwort auf Key-Request senden }
@@ -50,7 +51,9 @@
const
savekey : string = '';
flag_PGPSigOk = $01;
- flag_PGPSigErr = $02;
+ flag_PGPSigErr = $02;
+ gpgcomment='';
+ {'--comment "Using GnuPG with FreeXP - http://www.freexp.de" ';}
{ MK 06.01.00: die drei ASM-Routinen in Inline-Asm umgeschrieben
JG 08.01.00: Routine optimiert }
@@ -180,7 +183,7 @@
{ /oh }
{ GnuPG 1.x+ }
-procedure RunGPG(par:string);
+procedure RunGPG(const par:string);
const
PGPEXE = 'GPG.EXE';
PGPBAT = 'XGPG.BAT';
@@ -374,7 +377,8 @@
else if PGPVersion=PGP5 then
RunPGP5('PGPE.EXE','-a '+t+' '+filename(source)+' -r '+IDform(UserID)+' -o '+tmp)
else if PGPVersion=GPG then
- RunGPG('-e'+t+' -o '+tmp+' -r '+IDform(UserID)+' '+filename(source))
+ RunGPG(gpgcomment+'-e'+t+' -o '+tmp+' -r '+IDform(UserID)+' '+
+ PGP_GPGEncodingOptions+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -392,7 +396,7 @@
else if PGPVersion=PGP5 then
RunPGP5('PGPS.EXE','-a '+t+' '+filename(source)+uid+' -o '+tmp )
else if PGPVersion=GPG then
- RunGPG(iifs(hd.typ='T','--clearsign','-s')+' --force-v3-sigs -o '+tmp+' '+uid+' '+filename(source))
+ RunGPG(iifs(hd.typ='T',gpgcomment+'--clearsign','-s')+' --force-v3-sigs -o '+tmp+' '+uid+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -411,7 +415,8 @@
else if PGPVersion=PGP5 then
RunPGP5('PGPE.EXE','-sa '+t+' '+filename(source)+' -r '+IDform(UserID)+uid+' -o '+tmp)
else if PGPVersion=GPG then
- RunGPG('-es'+t+' --force-v3-sigs -o '+tmp+' '+uid+' -r '+IDform(UserID)+' '+filename(source))
+ RunGPG(gpgcomment+'-es'+t+' --force-v3-sigs -o '+tmp+' '+uid+' -r '+IDform(UserID)+' '
+ +PGP_GPGEncodingOptions+' '+filename(source))
else begin
{ Sourcefile xxxx.TMP nach xxxx kopieren }
_source:=GetFileDir(filename(source))+GetBareFileName(filename(source));
@@ -846,6 +851,18 @@
end.
{
$Log: xp_pgp.pas,v $
+ Revision 1.29 2005/01/06 22:03:10 mw
+ MW: - Bugfix: Für einen Kommentar reicht die Kommandozeilenlänge nicht.
+
+ Revision 1.28 2005/01/06 21:51:35 mw
+ MW: - Nochmalige Änderung der GnuPG-Schnittstelle
+
+ Revision 1.27 2005/01/06 18:09:28 mw
+ MW: - Kleinere Verfeinerung
+
+ Revision 1.26 2005/01/06 16:59:20 mw
+ MW: - Erweiterte GnuPG-Unterstützung.
+
Revision 1.25 2005/01/02 08:10:22 mw
MW: - GnuPG-Signaturtest angefügt.
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- freexp/doc/snapshot.dq 4 Jan 2005 13:03:31 -0000 1.29
+++ freexp/doc/snapshot.dq 6 Jan 2005 17:02:56 -0000 1.30
@@ -4618,3 +4618,9 @@
%----------------------------------
I. Snapshot vom xx.xx.2005, xx:xx Uhr
---------------------------------------
+■ 06.01.2005
+----------------
+MW:
+- Erweiterung der GnuPG-Unterstützung (unterstützt jetzt auch
+ Optionen).
+
Index: freexp/doc/xp-e.ihq
===================================================================
RCS file: /server/cvs/freexp/doc/xp-e.ihq,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- freexp/doc/xp-e.ihq 4 Nov 2004 11:39:15 -0000 1.80
+++ freexp/doc/xp-e.ihq 6 Jan 2005 17:02:57 -0000 1.81
@@ -8917,6 +8917,16 @@
(ie. incl. ".BAT")
@
+1023
+Here you may enter the command line parameters
+for GnuPG.
+
+The first parameter set (press [F2] to get it)
+offers compatibility to PGP 2.x and higher. You
+must have installed the IDEA-PlugIn for GnuPG.
+The second parameter makes GnuPG compatible to
+PGP version 5.x and newer (no plugin needed here).
+@
8071
Wenn Dateien mit externen Viewerprogrammen geöffnet
sind, kann mit Crosspoint weitergearbeitet werden.
Index: freexp/doc/xp.ihq
===================================================================
RCS file: /server/cvs/freexp/doc/xp.ihq,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -r1.75 -r1.76
--- freexp/doc/xp.ihq 17 Oct 2004 18:29:40 -0000 1.75
+++ freexp/doc/xp.ihq 6 Jan 2005 17:02:57 -0000 1.76
@@ -14408,6 +14408,18 @@
diesem Fall die Signatur ohne weiteres zusammen mit
dem Key gefälscht werden könnte.
@
+1023
+Hier können sie die Kommandozeilenparameter
+angeben, die GnuPG beim Verschlüsseln von
+Nachrichten verwenden soll.
+
+Die erste Variante unter <<[F2]>> bietet KompatibilitΣt
+zu PGP 2.x und höher. Das funktioniert allerdings
+nur, wenn die IDEA-Erweiterung für GnuPG installiert
+ist. Die zweite Parameterzusammenstellung bietet
+Kompatibilität zu den PGP Versionen ab 5.x. Es
+wird hierfür keine GnuPG-Erweiterung benötigt.
+@
1500
Wählen Sie <<Ja>>, um eine Kopie der gewählten Nach-
richt im Userbrett des Absenders zu archivieren. Auf
Mehr Informationen über die CVS-List Mailingliste
