home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / ums / umspgp02.lha / pgp / umspgpcheck < prev   
Encoding:
Text File  |  1994-12-09  |  1.7 KB  |  46 lines
  1. .bra {
  2. .ket }
  3. .key user/a,pass/a,post/a,postpass/a,server/a
  4.  
  5. ;umspgp
  6. ;v0.2
  7. ;9412082147
  8. ;written by Jochen Borgmann <gio@cyra.westfalen.de>
  9.  
  10. if not exists ums:pgp/temp
  11.     makedir ums:pgp/temp
  12. endif
  13.  
  14.  
  15. ;generate script-mfm
  16. echo  >t:script_begin "sumsprint >ums:pgp/temp/send.data<MsgNum> u=*"{user}*" p=*"{userpass}*" s=*"{server}*" *"msgnum=<msgnum>*" file=ums:pgp/pgp_msg_txt.mfm"
  17. echo >>t:script_begin "sumsprint >ums:pgp/temp/head.data<MsgNum> u=*"{user}*" p=*"{userpass}*" s=*"{server}*" *"msgnum=<msgnum>*" file=ums:pgp/pgp_from_txt.mfm"
  18.  
  19. echo  >t:script_end "sumswrite                                      u=*"{post}*" p=*"{postpass}*" s=*"{server}*" \<ums:pgp/temp/mail.data<MsgNum>"
  20. echo >>t:script_end "sumsprint >ums:pgp/temp/send_info.data<MsgNum> u=*"{user}*" p=*"{userpass}*" s=*"{server}*" *"msgnum=<msgnum>*" file=pgp_txt_info.mfm"
  21. echo >>t:script_end "sumswrite                                      u=*"{post}*" p=*"{postpass}*" s=*"{server}*" \<ums:pgp/temp/send_info.data<MsgNum>"
  22. echo >>t:script_end "sumsset                                        u=*"{user}*" p=*"{userpass}*" s=*"{server}*" *"msgnum=<msgnum>*" exported,old"
  23.  
  24. join t:script_begin script_main t:script_end as ums:pgp/pgp_script.mfm
  25.  
  26.  
  27. ;generate info-mfm
  28. echo >T:info_begin "ToName {user}"
  29. echo >T:info_end   "{post}"
  30. join t:info_begin info_main t:info_end       as ums:pgp/pgp_txt_info.mfm
  31.  
  32. delete >nil: ums:pgp/temp/#? quiet
  33.  
  34. cd ums:pgp
  35. sumsprint >ums:pgp/temp/pgp_script u="{user}" p="{pass}" s="{server}" "old=0 and msgtext=*"#?-----BEGIN PGP MESSAGE-----#?*" and group=*"*"" file=pgp_script.mfm
  36.  
  37. execute ums:pgp/temp/pgp_script
  38.  
  39. delete t:script_begin
  40. delete t:script_end
  41. delete t:info_begin
  42. delete t:info_end
  43. delete ums:pgp/temp all
  44. delete ums:pgp/pgp_script.mfm
  45. delete ums:pgp/pgp_txt_info.mfm
  46.