home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
ensmgr14.zip
/
ENS_KEYS.SCR
next >
Wrap
Text File
|
1994-07-24
|
7KB
|
314 lines
; Terry Gildea [70511,2530] FILE: ENS_KEYS.SCR
; Writes local files with specifications for ENS personal folders.
;
; Copyright (c) 1994 Terry L Gildea Free redistribution authorized
;
; +++keyword-flag+++ " %v %d" Requires OzCIS ver 2.0c(1)
; Version " 1:4 24-Jul-94"
;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
; CONFIGURATION OPTIONS; SEE DOCUMENTATION FOR DETAILS
define #speedlimit %true
;define #speedlimit %false
; The variable $path MUST be the same in all ENS scripts!
define $path ""
define $logfile "ens_keys.log"
;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
define #debug %false
;define #debug %true
define $specfile
define $basename
define #folder
define #lofldr
define #hifldr
define #NbrFolders
define #submenu
define #menu
define $fldr1
define $fldr2
define $fldr3
define $flder9
define $flder8
define $flder7
define $name
define $timelog "ens_scpt.log"
timeout 60
onerror handle_error
capture ON $logfile /o
cwrite "ens_keys.scr ON " %date " " %time " " %hostbaud %cr
statline "Executing ENS keys script ENS_KEYS.SCR"
if #speedlimit = %false goto rateOK
if %hostbaud <= 2400 goto rateOK
writeln "Baud rate set above 2400."
cwrite "Baud rate set above 2400."
goto alldone
rateOK:
; create a timelog for this script
fappend &3 $timelog
fwrite &3 "ens_keys.scr ON " %date " at " %time " " %hostbaud %cr
fclose &3
if ferror &3 goto file_error
; ENS_KEYS.SCR Page 1 of 5
; now we're ready to start spending $
LSEND %slash "GO CIS:ENS"
; find personal folders; assume first folder is menu choice 5
set #lofldr 5
set #hifldr 7
set #submenu %false
set #folder #lofldr
menu_loop:
add 1 "5 Review Folders"
add 3 "Review folder"
add 9 ^J "!"
mwait #2
if #2 = 1 gosub submenu
inc #folder
if #2 = 3 goto menu_loop
dec #folder 2
; now we're at main menu ! prompt; check at least one folder exists
set #hifldr #folder
if #hifldr < #lofldr goto nowork
cwrite %cr "Personal folders are menu items: " #lofldr "-" #hifldr %cr
set #NbrFolders #hifldr
dec #NbrFolders #lofldr
inc #NbrFolders
cwrite "Total number of Personal Folders is: " #NbrFolders
; select menu item 4: Create/Change/Delete/List a Personal Folder
LSEND 4
WAIT "!"
; select C/C/D/L menu item 2: Change a Personal Folder
LSEND 2
WAIT "!"
; don't care which folder so pick folder 1 which always exists
LSEND 1
WAIT "!"
set $basename $path
concat $basename "NEWSWIRE.KEY"
cwrite "Moving capture to: " $basename
capture OFF ; $logfile
capture ON $basename /o
; select change folder menu item 4: Wire Services
LSEND 4
WAIT "more wires !"
SEND %cr
WAIT "continue !"
capture OFF ; $basename
capture ON $logfile
cwrite "Return capture fm: " $basename
if #debug = %true cwrite "Send C/R exit more wires"
SEND %cr
WAIT "!"
;Page 2 of 5 ENS_KEYS.SCR
; back up menu hierarchy from area to change to folder to change
if #debug = %true cwrite "Send C/R exit area to change"
SEND %cr
WAIT "!"
; back up one level in menu hierarchy to C/C/D/L
if #debug = %true cwrite "Send C/R exit folder to change"
SEND %cr
WAIT "!"
set $fldr1 ""
set $fldr2 ""
set $fldr3 ""
set $flder7 ""
set $flder8 ""
set $flder9 ""
; select C/C/D/L menu item 4: List a Personal Folder
LSEND "4"
WAIT ^J " 1"
name_loop:
add 8 ^M ^J
add 9 "!"
MWAIT #2
set $flder7 $flder8
set $flder8 $flder9
set $flder9 %lcomdata
if $fldr1 = "" set $fldr3 $flder9
if $fldr1 = "" set $fldr2 $flder8
if $fldr1 = "" set $fldr1 $flder7
if #2 < 9 goto name_loop
if #debug = %false goto list_um
cwrite %cr "Printing results stored in $fldrX"
if $fldr1 != "" cwrite " 1. " $fldr1
if $fldr2 != "" cwrite " 2. " $fldr2
if $fldr3 != "" cwrite " 3. " $fldr3
; look inside each personal folder
list_um:
set $name $fldr1
trim $name
if $name != "" gosub look
set $name $fldr2
trim $name
if $name != "" gosub look
set $name $fldr3
trim $name
if $name != "" gosub look
goto finish
; ENS_KEYS.SCR Page 3 of 5
nowork:
cwrite "No personal folders were found."
writeln "No personal folders were found."
delay 20
; now we've examined every personal folder
finish:
fappend &3 $timelog
fwrite &3 "ens_keys.scr OFF " %date " at " %time %cr
fclose &3
alldone:
cwrite "Normal script termination. " %date " " %time
capture OFF
end
file_error:
writeln "File error on: " $timelog
cwrite "File error on: " $timelog
goto handle_error
parse_error:
cwrite %cr "Parse Error " $name " " $5
handle_error:
cwrite "ERROR occurred. " %date " " %time
fappend &3 $timelog
fwrite &3 "ens_keys.scr OFF " %date " at " %time " ERROR " %cr
fclose &3
capture OFF
fail
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Subroutine to create filename to hold folder's specs
; Parameters: #NbrFolders - folder number to be listed 1-3
; #folder - folder number to be listed 5-7
; $name - name of folder
;
look:
onerror parse_error
midstr $name 1 1 $5
val #NbrFolders $5
midstr $name 3 8 $basename
onerror handle_error
if #debug = %true cwrite "Moving capture to: " $basename
capture OFF ; $logfile
gosub get_key
capture ON $logfile
if #debug = %true cwrite "Return capture fm: " $basename %cr
dec #folder
return
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;Page 4 of 5 ENS_KEYS.SCR
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Subroutine to capture folder's specifications
; Parameters: #NbrFolders - folder number to be listed 1-3
; #folder - folder number to be listed 5-7
; $path - directory in which to place filename
; $basename - filename to contain folder specs
;
get_key:
; select folder number
set $specfile $path
concat $specfile $basename ".KEY"
capture ON $specfile /o
cwrite "List of folder: " #folder " " %date " " %time
LSEND #NbrFolders
WAIT "Press <CR> !"
capture OFF ; $specfile
; return to folder selection menu
SEND %cr
WAIT "!"
return
; - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Subroutine to open submenu and reinitialize variables
; Parameters: none
; Returns: lsend 5, reset global variables listed below
;
submenu:
wait ^J "!"
set #submenu %true
set #lofldr 1
set #hifldr 3
set #folder 0
set #2 3
LSEND 5
return
; - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; END OF FILE
; ENS_KEYS.SCR Page 5 of 5