home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAEF21.ZIP / EXTERNAL.ZIP / EFPWAFV.PPS < prev    next >
Text File  |  1994-12-04  |  2KB  |  63 lines

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ; EFPWAFV.PPE by Drew [PWA]
  3. ; Last updated 12-04-94
  4. ;
  5. ; This is a little front-end for use with PWAFV.  This was hacked together
  6. ; from the modified FLAG.PPS that comes with PWAFV.
  7. ;
  8. ; To install this, copy this PPE and its config file (EFPWAFV.CFG) into the
  9. ; directory of your choice (the most logical place would be in the same
  10. ; directory as EFLAG or PWAFV), and then edit either PROMPT1.CFG and/or
  11. ; PROMPT2.CFG and for your "V"iew command, make it point at this ppe.
  12. ;
  13. ;         ie: !C:\PPE\EFLAG\EFPWAFV.PPE
  14. ;
  15. ; You will then have to edit EFPWAFV.CFG, which contains only one line, and
  16. ; have it indicate the full pathname (location) of PWAFV.
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. STRING  PWAFV          ' Name and Location of PWA File Viewer
  19. STRING  PWA_FV_PPE          ' Name and location of PWA File View CNF File
  20. STRING  FVTFILE
  21. PWA_FV_PPE = READLINE(STRING(PPEPATH()+ "EFPWAFV.CFG"),1)
  22. ' ^- Initialize Variable PWAFV as the corect path
  23.  
  24. string filename
  25. filename = gettoken()
  26.  
  27.           '*** Added by Defcon 4 for use with PWA File Viewer
  28.  
  29.           IF (EXIST(PWA_FV_PPE)) THEN
  30.  
  31.           'If the CNF file exists then continue to view fiel
  32.  
  33.                 LET FVTFILE = MID(PWA_FV_PPE,1,STRING((LEN(PWA_FV_PPE)-9)))
  34.                 FCREATE 1,FVTFILE + "FILE.$"+STRING(PCBNODE()),O_RW,S_DN
  35.  
  36.           'Creates temporary file to call PWAFV
  37.  
  38.                 FPUTLN 1,"!"+PWA_FV_PPE+" "+FILENAME
  39.  
  40.           'Writes location of PWAFV and the file being viewed
  41.  
  42.                 FCLOSE 1
  43.                 DISPFILE FVTFILE + "FILE.$"+STRING(PCBNODE()),0
  44.                 DELETE FVTFILE+"FILE.$"+STRING(PCBNODE())
  45.  
  46.           'Closes temporary file and then displays it thus call PWAFV.  After
  47.           'user finishes viewing the file, the temporary file is deleted
  48.  
  49.                 END
  50.           ELSE
  51.  
  52.                 PRINTLN "** Error, you cannot view files because FLAG.PPE cannont find"
  53.                 PRINTLN "** either FLAGFV.DAT or the PWAFV PPE.  Make sure the sysop"
  54.                 PRINT "** coppied the DAT file to the "
  55.                 PRINTLN PPEPATH() + " directory"
  56.                 END
  57.  
  58.           'Display error message if it cannot find the correct files
  59.  
  60.           ENDIF
  61.  
  62.           '*** End of Defcon 4's modifiction for use with PWA File Viewer
  63.