home *** CD-ROM | disk | FTP | other *** search
- .key Editor/a,Filename/a
- .bra {
- .ket }
-
- set width 72
-
- failat 99
-
- search "{filename}" "-----BEGIN PGP MESSAGE-----"
- if NOT WARN
- set Msgfile `list "{Filename}" lformat="%s"`
- QuoteMsg "{filename}" "t:$Msgfile" $width UNQUOTE
- copy "t:$Msgfile" "{filename}.bak"
- if not exists ENV:PGPPASS
- setenv PGPPASS "`ESR "" "Enter PGP password:"`"
- endif
- delete {filename}
- path $PGPPATH add
- pgp >>t:out.$Msgfile t:$Msgfile -o {filename}
- if WARN
- copy "{filename}.bak" "{filename}"
- type >"CON:0/10//200/PGP Error Msg/CLOSE/WAIT/ScreenTHOR" "t:out.$Msgfile"
- delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
- skip edit
- endif
- setenv CEDPGP.$Msgfile 1
- QuoteMsg "{filename}" "t:$Msgfile" $width
- assign >nil: exists THOR:
- if NOT WARN
- THOR:bin/AddSig "t:$Msgfile"
- endif
- copy "t:$Msgfile" "{filename}"
- delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
- endif
-
- lab edit
-
- "{editor}" -sticky "{filename}"
-
- if exists ENV:CEDPGP.$Msgfile
- search "{filename}" "-=-=-=-=-=-DO NOT PGPCRYPT!-=-=-=-=-=-"
- if WARN
- skip crypt
- endif
- grep >"t:$Msgfile" -v "PGPCRYPT!" "{filename}"
- copy "t:$Msgfile" "{filename}"
- unsetenv CEDPGP.$Msgfile
- delete t:$Msgfile
- skip quit
- endif
-
- search "{filename}" "-=-=-=-=-=- PGPCRYPT! -=-=-=-=-=-"
- if not WARN
- skip crypt
- endif
-
- skip quit
-
- lab crypt
-
- if exists ENV:CEDPGP.$Msgfile
- grep >"t:$Msgfile" -v "PGPCRYPT!" "{filename}"
- copy "t:$Msgfile" "{filename}"
- endif
- if not exists ENV:PGPPASS
- setenv PGPPASS "`ESR "" "Enter PGP password:"`"
- endif
- path $PGPPATH add
- pgp >>"t:out.$Msgfile" -o "t:$Msgfile" -eas "{filename}" "`ESR "" "Who is the PGP message for?"`"
- if WARN
- type >"CON:0/10//200/PGP Error Msg/CLOSE/WAIT/ScreenTHOR" "t:out.$Msgfile"
- copy "{filename}" "t:$Msgfile.asc"
- endif
- copy "t:$Msgfile.asc" "{filename}"
- delete "t:$Msgfile" "t:$Msgfile.asc" "t:out.$Msgfile"
- unsetenv CEDPGP.$Msgfile
- unset Msgfile
-
- lab quit
-