MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
At this moment we doesn't see you have already a working solution.
The most strange thing is in the whole story is,
that
$source='\\file\data\SAPB\SAPB.MDB'
becomes
c:\windows
without any relevant statement between them.
When sealeopard reaction from 17 October 2002 21:23 works like he describes
we have a big problem within kixtart.
Same behaviour we will see during a del command. We think
we are removing the wanted file(s), but at that time "c:\windows"
becomes an empty directory.
We doesn't have such experiences with it. A possible problem can be created
when you are using f.e. following code
code:
USE F: /delete /persistent
USE F: "\\file\data"
F:
CD F:sapb
DEL F:sapb.mdb
and the CD command doesn't work because the directory "\\file\data\sapb"
doesn't exist.
Some questions:
- is your problem already solved? YES, what was the solution?
- which kixtart version were you using?
When it is still a problem please run following script, which we have
extend with debugging code.
It was done with out kixstrip tool which you can find on our site.
Our call was:
kixstrip input.kix output.kix /debug /show_structure
The code is
code:
;CLS
IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
ENDIF
EXIT
ENDIF
COLOR C+/N
;AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
IF (len($_debug_file) <> 0)
IF (substr("%tmp%",len("%tmp%"),1) = "\")
$_debug_file="%tmp%"+$_debug_file
ELSE
$_debug_file="%tmp%\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script starting"
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF ("$_debug_already_starting" <> "yes")
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" (memory "+MemorySize()+" MB)"
? "-"
ENDIF
ENDIF
$_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_temp_name=@msecs
SELECT
CASE (len($_debug_temp_name) = 1)
$_debug_temp_name="00"+$_debug_temp_name
CASE (len($_debug_temp_name) = 2)
$_debug_temp_name="0"+$_debug_temp_name
ENDSELECT
$_debug_temp_name="."+$_debug_temp_name
IF Srnd(@msecs)
ENDIF
SLEEP 0.050
ELSE
IF Srnd((-1)*32767/(substr(@time,7,2)+1))
ENDIF
SLEEP 1
ENDIF
$_debug_temp_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_temp_name+"_"+Rnd()
IF (len($_debug_temp_name) < 25)
$_debug_temp_name=substr($_debug_temp_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+" ",1,12)
ELSE
$_debug_temp_name=$_debug_temp_name+" "+@scriptname
ENDIF
ENDIF
ENDIF
IF ("$_debug_already_starting" <> "yes")
? "-debug file: "+$_debug_file
? "-debug name: "+LCASE($_debug_temp_name)
ELSE
IF (len($_debug_temp_name) <> 0)
? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file
ELSE
? "-debug-file: "+$_debug_file
ENDIF
ENDIF
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4)
GOTO _debug_starting_point
ENDIF
DIM $_debug_name ; -create local variable-
:_debug_starting_point
$_debug_name=LCASE($_debug_temp_name)
$_debug_already_starting="yes"
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? CLS
?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? BIG
?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? $x = 1
?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? DO
?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? COLOR w/n
?"- 6-"+@time+"-"+$_debug_name+"- @error @serror"? At ( $x,$x*3 ) "MAISTO"
?"- 7-"+@time+"-"+$_debug_name+"- @error @serror"? $x = $x+1
?"- 8-"+@time+"-"+$_debug_name+"- @error @serror"? UNTIL $x = 6
?"- 9-"+@time+"-"+$_debug_name+"- @error @serror"? COLOR g+/n
?"- 10-"+@time+"-"+$_debug_name+"- @error @serror"? At ( $x,$x*3 ) "MAISTO"
?"- 11-"+@time+"-"+$_debug_name+"- @error @serror"? At (23,0)
?"- 12-"+@time+"-"+$_debug_name+"- @error @serror"? SMALL
?"- 13-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 14-"+@time+"-"+$_debug_name+"- @error @serror"? SETTIME "\\FILE"
?"- 15-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 16-"+@time+"-"+$_debug_name+"- @error @serror"? IF (Exist("F:\.") = 1)
?"- 17-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: /delete /persistent
?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 19-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: "\\file\data"
?"- 20-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? $defaultuseridkey = ReadValue("HKEY_CURRENT_USER\Identities", "Default User ID")
?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? $oesubkey="HKEY_CURRENT_USER\Identities\$DefaultUserIDKey\Software\Microsoft\Outlook Express\5.0"
?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? $oeregvalue="\\mail\users$$\@USERID"
?"- 24-"+@time+"-"+$_debug_name+"- @error @serror"? $wabsubkey="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WAB\WAB4\Wab File Name"
?"- 25-"+@time+"-"+$_debug_name+"- @error @serror"? $wabregvalue="\\mail\users$$\@USERID\@USERID.wab"
?"- 26-"+@time+"-"+$_debug_name+"- @error @serror"? $mydocsubkey1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
?"- 27-"+@time+"-"+$_debug_name+"- @error @serror"? $mydocsubkey2="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
?"- 28-"+@time+"-"+$_debug_name+"- @error @serror"? $mydocregvalue="\\FILE\USERS$$\@USERID"
?"- 29-"+@time+"-"+$_debug_name+"- @error @serror"? $newiconkey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{24523867-0178-1422-5555-835448663557}"
?"- 30-"+@time+"-"+$_debug_name+"- @error @serror"? $newiconvalue="http://ww2.maisto.com/default.asp"
?"- 31-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 32-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($oesubkey,"Store Root",$oeregvalue,"REG_SZ") <> 0)
?"- 33-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 34-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($oesubkey,"SendMDN","1","REG_DWORD") <> 0)
?"- 35-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 36-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($oesubkey,"SendReceiptToList","0","REG_DWORD") <> 0)
?"- 37-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 38-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($wabsubkey,"",$wabregvalue,"REG_SZ") <> 0)
?"- 39-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 40-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($mydocsubkey1,"Personal",$mydocregvalue,"REG_SZ") <> 0)
?"- 41-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 42-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($mydocsubkey2,"Personal",$mydocregvalue,"REG_SZ") <> 0)
?"- 43-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 44-"+@time+"-"+$_debug_name+"- @error @serror"? IF (WriteValue($newiconkey,"exec",$newiconvalue,"REG_SZ") <> 0)
?"- 45-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 46-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 47-"+@time+"-"+$_debug_name+"- @error @serror"? IF (InGroup("ORDER ENTRY") <> 0) OR (InGroup("SHIPPING") <> 0)
?"- 48-"+@time+"-"+$_debug_name+"- @error @serror"? $source='\\file\data\SAPB\SAPB.MDB'
?"- 49-"+@time+"-"+$_debug_name+"- @error @serror"? $target='C:\MAISTO\'
? " $$source "+$source
? " $$target "+$target
?"- 50-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist($source) AND Exist($target)
?"- 51-"+@time+"-"+$_debug_name+"- @error @serror"? COPY $source $target /h
?"- 52-"+@time+"-"+$_debug_name+"- @error @serror"? IF @error
?"- 53-"+@time+"-"+$_debug_name+"- @error @serror"? ? 'Warning KIX-COPY: problems during copy of "$source" to "$target". status @error (@serror)'
?"- 54-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 55-"+@time+"-"+$_debug_name+"- @error @serror"? ? 'Informative KIX-COPY: no problems during copy of "$source" to "$target".'
?"- 56-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 57-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 58-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 59-"+@time+"-"+$_debug_name+"- @error @serror"?
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script ending"
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; sat 07-dec-2002 11:55:06 (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP: no errors found (input=59 output=59 skip=0).
;
;Summary KIXSTRIP: block structures
; - do:until [1:1]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [11:1:11]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Informative KIXSTRIP: 12 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 2 USE
;
;($end)
We prefer also the notations like
- IF (ExistKey("...") <> 0)
- IF (Ingroup("...") <> 0)
After completion of running this script please return the contents
of debugging output file %tmp%\kixdebug.txt to the board.
Thanks & greetings.
|
