home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091sub.adf / aweb.LZX / aweb_save / AWebSave next >
Text File  |  1997-12-31  |  3KB  |  182 lines
  1. ;                                        
  2. ; AWebSave - Script to save anything viewed/played within AWeb.
  3. ;                                        
  4. ; Based on MosaicSave - written by Stuart Toll.
  5. ;                                        
  6. ; Version 1.0 - Lovingly put together by Rob Hockley.
  7. ;                                        
  8. ; $VER:AWebSend 2.0  [20-Sep-96]
  9. ;
  10. ;     / __  __ __      / __       ___  /  
  11. ;    / (_  (_ (_      / /_/ /) / / _  /  /
  12. ;(__/ (__ /  /    (__/ / / / (/ /__/ (_ /
  13. ;_______________________________________________________________
  14. ;Email: jeff.jangli@tip.nl  |  WWW: www.tip.nl/users/jeff.jangli
  15. ;                                        
  16.  
  17.  
  18.                                         
  19. ; BEGIN of Localization                                
  20.                                         
  21.                     
  22. ; "Please select action for this file"    
  23.                     
  24. SETENV Init0AWS        "Wat wilt u met dit bestand doen?"
  25.  
  26.                 
  27. ; "Use external program"    
  28.                 
  29. SETENV Init1AWS        "Extern programma gebruiken"
  30.  
  31.         
  32. ; "Save"    
  33.         
  34. SETENV Init2AWS        "Bewaar"
  35.  
  36.         
  37. ; "Abort"    
  38.         
  39. SETENV Init3AWS        "Annuleer"
  40.  
  41.  
  42.                     
  43. ; "Would you like to save this file?"    
  44.                     
  45. SETENV SaveAWS        "Wilt u dit bestand bewaren?"
  46.  
  47.             
  48. ; "Yes", "No", "OK"    
  49.             
  50. SETENV YesAWS        "Ja"
  51. SETENV NoAWS        "Nee"
  52. SETENV OkAWS        "OK"
  53.  
  54.         
  55. ; "Save as..."    
  56.         
  57. SETENV SaveAsAWS    "Opslaan als..."
  58.  
  59.  
  60.                         
  61. ; "ERROR: Change filename for saving!"        
  62. ; "ERROR: File is not present in cache."    
  63.                         
  64. SETENV ErrSave1AWS    "FOUT: Wijzig de bestandsnaam!"
  65. SETENV ErrSave2AWS    "FOUT: Bestand staat niet meer in de cache."
  66.                                         
  67. ; END of Localization                                
  68.                                         
  69.  
  70.  
  71.                                         
  72. ; String for window title, THIS one only to be updated by the programmer    
  73.                                         
  74. SETENV AWebTool        "AWebSave 2.0"
  75.  
  76.  
  77.  
  78.  
  79. .BRA {
  80. .KET }
  81.  
  82. .KEY AWebFile,ScreenName,Viewer,DownloadDir
  83.  
  84.  
  85.  
  86. RequestChoice >ENV:InitAWS TITLE="$AWebTool" BODY="$Init0AWS" GADGETS="$Init1AWS""$Init2AWS""$Init3AWS" PUBSCREEN={ScreenName}
  87.  
  88. IF $InitAWS EQ 0
  89.     SKIP ExitProg
  90. ENDIF
  91.  
  92. IF $InitAWS EQ 2
  93.     SETENV AnswerAWS 1
  94.     SKIP SaveFile
  95. ENDIF
  96.  
  97. IF $InitAWS EQ 1
  98.                                         
  99.     ; Show/Play file                            
  100.     ; Find out the pubscreen parameter for your viewer.            
  101.     ; For MultiView you would enter: PUBSCREEN {ScreenName}            
  102.                                         
  103.     {Viewer} PUBSCREEN={ScreenName} {AWebFile}
  104.     
  105.     
  106.                             
  107.     ; Still give user a change to save the file    
  108.                             
  109.     RequestChoice >ENV:AnswerAWS TITLE="$AWebTool" BODY="$SaveAWS" GADGETS="$YesAWS""$NoAWS" PUBSCREEN={ScreenName}
  110.     
  111.     IF $AnswerAWS EQ 1
  112.         SKIP SaveFile
  113.     ENDIF
  114. ENDIF
  115.  
  116.  
  117.                 
  118. ; Save file on user demand    
  119.                 
  120. LAB SaveFile
  121. IF $AnswerAWS EQ 1
  122.     IF EXISTS {AWebFile} THEN
  123.                             
  124.         ; Get the drawer and/or filename    
  125.                             
  126.         RequestFile PUBSCREEN={ScreenName} TITLE="$SaveAsAWS" DRAWER={DownloadDir} FILE={AWebFile} SAVEMODE >ENV:SaveNameAWS
  127.         
  128.         
  129.                                         
  130.         ; Got all the info we need, proceed when users confirms        
  131.                                         
  132.         IF NOT WARN
  133.                                         
  134.     ; File from AWeb is a cache file, make sure user changed filename    
  135.                                         
  136.             IF $SaveNameAWS EQ {AWebFile}
  137.                 Requestchoice TITLE="$AWebTool" BODY="$ErrSave1AWS" GADGETS="$OkAWS" >NIL:
  138.                 
  139.                 SKIP ExitProg
  140.             ENDIF
  141.             
  142.             
  143.             COPY {AWebFile} TO $SaveNameAWS
  144.         ENDIF
  145.         
  146.         
  147.         SKIP ExitProg
  148.     ENDIF
  149.     
  150.     
  151.                             
  152.     ; File is no longer present in AWeb's cache...    
  153.                             
  154.     Requestchoice TITLE="$AWebTool" BODY="$ErrSave2AWS" GADGETS="$OkAWS" >NIL:
  155. ENDIF     
  156.  
  157.  
  158.             
  159. ; Clean-up and exit    
  160.             
  161. LAB ExitProg
  162. UNSETENV InitAWS
  163. UNSETENV Init0AWS
  164. UNSETENV Init1AWS
  165. UNSETENV Init2AWS
  166. UNSETENV Init3AWS
  167.  
  168. UNSETENV SaveAWS
  169. UNSETENV YesAWS
  170. UNSETENV NoAWS
  171. UNSETENV OkAWS
  172.  
  173. UNSETENV SaveAsAWS
  174.  
  175. UNSETENV ErrSave1AWS
  176. UNSETENV ErrSave2AWS
  177.  
  178. UNSETENV AWebTool
  179.  
  180. UNSETENV AnswerAWS
  181. UNSETENV SaveNameAWS
  182.