Topic: pgp backup routine..

[Andrea]

hi all..
i'm trying to create a simple pgp backup routine..

Code: [Select]

;;PGP EDITOR
(defun c:pgpe ()
(setq pgpfile (findfile "acad.pgp"))
(startapp "notepad" pgpfile)
)

;;PGP BACKUP
(defun c:pgpbackup ()
(setq pgpfile (findfile "acad.pgp"))
(setq loginname (getvar "loginname"))
(vl-file-copy pgpfile (strcat "x:/acad/pgp/" loginname ".pgp") T)
)

;;PGP RESTORE
(defun c:pgprestore ()
(setq pgpfile (findfile "acad.pgp"))
(setq loginname (getvar "loginname"))
(if (findfile (strcat "x:/acad/pgp/" loginname ".pgp"))
(vl-file-copy (strcat "x:/acad/pgp/" loginname ".pgp") pgpfile T)
(alert "The PGP file is missing.")
))
PGPE and PGPBACKUP is working good..
but don't know why the PGPRESTORE tell me that it replace the file..
but is not true..

any idea why ?

[sinc]

You must REINIT after changing the PGP file.

Do you REALLY have a need for a program like this?  In my experience, I get my aliases set up, and they just stay that way.

[Andrea]

You must REINIT after changing the PGP file.

Do you REALLY have a need for a program like this?  In my experience, I get my aliases set up, and they just stay that way.

dont need to REINIT...
need to copy the PGP file over the existing..

by the way.....the aliaseditor working good ..i agree..
BUT NOT IN FRENCH RELEASE... !

Also the alias editor not doing any backup..