; $VER: FSEScriptIn  V1.3 (16.12.93) PGP support by Christian Sandberg
.key Filename/a,Width/a
.bra {
.ket }

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 quit
          endif
     setenv FSEPGP.$Msgfile "Yepp!"
	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"
     unset Msgfile
     endif

lab quit

quit
