home *** CD-ROM | disk | FTP | other *** search
- /*
- * $Filename: system.c $
- * $Revision: 1.2 $
- * $Date: 1993/09/24 23:12:19 $
- *
- * This file contains all routines accessing the AmigaOS. This is
- * the file you should look into when porting PGPSendMail.
- *
- * © Copyright 1993 Peter Simons, Germany
- * All Rights Reserved
- *
- * $Id: system.c,v 1.2 1993/09/24 23:12:19 simons Stab simons $
- *
- * ------------------------------ log history ----------------------------
- * $Log: system.c,v $
- * Revision 1.2 1993/09/24 23:12:19 simons
- * Added ConfirmEncryption().
- *
- * Revision 1.1 1993/09/24 22:47:13 simons
- * Initial revision
- *
- */
-
-
- /**************************************************************************
- * *
- * Sektion: Macros, Definitions, Includes, Structures *
- * *
- **************************************************************************/
-
- /************************************* Includes ***********/
- #include <proto/dos.h>
- #include <dos/dos.h>
- #include <proto/intuition.h>
- #include <intuition/intuition.h>
-
- /************************************* Defines ************/
-
- /************************************* Prototypes *********/
-
- /************************************* global Variables ***/
-
-
- static const char __RCSId[] = "$Id: system.c,v 1.2 1993/09/24 23:12:19 simons Stab simons $";
-
-
- /**************************************************************************
- * *
- * Sektion: Subroutines *
- * *
- **************************************************************************/
-
- int TruncFile(char *filename, int pos)
- /*
- * Function: This routine truncates a file at a given positition.
- * Comment : AmigaDOS v2.04+ is required.
- */
- {
- BPTR fh;
-
- if ((fh = Open(filename, MODE_OLDFILE)) == NULL)
- return 0;
-
- pos = SetFileSize(fh, pos, OFFSET_BEGINNING);
- Close(fh);
- return (pos == -1) ? 0 : 1;
- }
-
-
- int ConfirmEncryption(void)
- {
- struct EasyStruct es = {
- sizeof(struct EasyStruct),
- 0L,
- "PGPSendMail",
- "A public key for all receipients of this mail is\n" \
- "available. Shall I encrypt it, using PGP?",
- "yes|no"
- };
-
- return EasyRequestArgs(0L, &es, 0L, 0L);
- }
-