FreeXP

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