FileWrite() within a function

[Hammad]

Hi,

I am trying to implement error and debug logging using FileWrite function by calling it from my logging functions. Although it is able to create a log file, I always find it empty for some reason. If I call FileWrite from my main script, it functions well. Can anyone help me out in this regard? Here is my code:

This part is in a custom UDF file I include in my scripts.

Func _DbgPrint($DbgMsg="undef",$FuncName="undef")
if $DbgMsg = "undef" Then
  ConsoleWrite("Undefined Error!" & @CRLF)
  FileWrite($LogDir & $DbgLogFile,$scriptNameNoExt & ": Undefined Breakpoint!" & @CRLF)
Else
  ConsoleWrite("in " & $FuncName & ": " & $DbgMsg & @CRLF)
  $filewritestatus=FileWrite($LogDir & $DbgLogFile,$scriptNameNoExt & ": in " & $FuncName & ": " & $DbgMsg & @CRLF)
  ConsoleWrite($filewritestatus&@CRLF)
EndIf
EndFunc
Func _ErrorNQuit($ErrMsg="undef",$FuncName="undef")
if $ErrMsg = "undef" Then
  ConsoleWrite("Undefined Error!" & @CRLF)
  FileWrite($LogDir & $LogFile,$scriptNameNoExt & ": Undefined Error!" & @CRLF)
Else
  ConsoleWrite("in "& $FuncName & ": " & $ErrMsg & @CRLF)
  FileWrite($LogDir & $LogFile,$scriptNameNoExt & ": in" & $FuncName & ": " & $ErrMsg & @CRLF)
EndIf
ProcessClose($AppProcess)
Call("_StopMSNetMonitor")
Call("_unConfigDataPlane")
Exit
EndFunc

This part is where I call these functions from my script:

Call("_DbgPrint","hello","world")
sleep(10000)

All the variables have the expected values. FileWrite() also returns 1 (success) when it is run. If any more info is required, please let me know.

Thanks.

[Melba23]

Hammad,

If I call FileWrite from my main script, it functions well.

That sounds like a scope problem. You are checking the data you are writing, have you also checked that the file path and name are correct within the function? Do $LogDir, $DbgLogFile and $LogFile have Global scope?

M23

[Hammad]

Melba,

$LogDir, $DbgLogFile and $LogFile are defined with global scope in a separate myDEF.au3 file include at the start of myUDF.au3

The fact that the file is created in the right directory with the right name is also a verfication of that. However, that file is empty at the end of the script runs, as well as just after the function is called (I pause the script to check that).

[Melba23]

Hammad,

I thought that might be too easy a solution!

Could you post the whole script and your own includes so I can take a look?

M23

[Hammad]

This is myDEF.au3

Global $opt_N="defaulttest"
Global $opt_R="default"
Global $TestCaseName=$opt_N
Global $logDir=""
Global $pcapDir=""

Global $timeStamp= @MON & @MDAY & @YEAR &"-" & @HOUR & @MIN & @SEC
Global $scriptNameNoExt=StringSplit(@ScriptName,".")
Global $logFile=$scriptNameNoExt[1] &  "-ERR" & ".txt"
Global $DbgLogFile=$scriptNameNoExt[1] &  "-DBG" & ".txt"

Global $AppName=""
Global $AppProcess=""
Global $AppRuleName="unclassified"

Global $PingInfraction=0

This is myUDF.au3

expandcollapse popup

#include <array.au3>
#include <myDEF.au3>
Func _CreateFolder()
If not FileExists($LogDir) Then
    ;DirRemove($logDir,1)
    DirCreate($LogDir)
EndIf
Func _ErrorNQuit($ErrMsg="undef",$FuncName="undef")
    if $ErrMsg = "undef" Then
        ConsoleWrite("Undefined Error!" & @CRLF)
        FileWrite($LogDir & $LogFile,$scriptNameNoExt & ": Undefined Error!" & @CRLF)
    Else
        ConsoleWrite("in "& $FuncName & ": " & $ErrMsg & @CRLF)
        FileWrite($LogDir & $LogFile,$scriptNameNoExt & ": in" & $FuncName & ": " & $ErrMsg & @CRLF)
    EndIf
    Exit
EndFunc
Func _DbgPrint($DbgMsg="undef",$FuncName="undef")
    if $DbgMsg = "undef" Then
        ConsoleWrite("Undefined Error!" & @CRLF)
        FileWrite($LogDir & $DbgLogFile,$scriptNameNoExt & ": Undefined Breakpoint!" & @CRLF)
    Else
        ConsoleWrite("in " & $FuncName & ": " & $DbgMsg & @CRLF)
        $filewritestatus=FileWrite($LogDir & $DbgLogFile,$scriptNameNoExt & ": in " & $FuncName & ": " & $DbgMsg & @CRLF)
        ConsoleWrite($filewritestatus&@CRLF)
    EndIf
EndFunc
Func _CommonStartup($FallbackBit=1)
    Call("_ReadCmdLineParams", ":N:R")
    $TestCaseName=$opt_N
    $Scenario=$opt_R
    $logDir= @ScriptDir & "..output" & $TestCaseName & "logs"
    $pcapDir=@ScriptDir & "..output" & $TestCaseName & "pcaps" & $AppRuleName & ""
    Call("_DbgPrint","starting connectivity test","_CommonStartup")
    AdlibRegister("_ConnectivityTest",60000)
    Call("_DbgPrint","creating output folders","_CommonStartup")
    Call("_CreateFolder")
    Call("_DbgPrint","moving mouse out of the way","_CommonStartup")
    MouseMove(0,0,5) ;avoid any mouse-over conflics
    Call("_DbgPrint","_CommonStartup completed successfully","_CommonStartup")
EndFunc

Func _CommonEnd()
    AdlibUnRegister("_ConnectivityTest")
EndFunc
Func _ConnectivityTest()
    If Not Ping("8.8.8.8") Then
        $PingInfraction=$PingInfraction+1
        if $PingInfraction = 6 Then
            Call("_ErrorNQuit","Connectivity test failed","_ConnectivityTest")
        EndIf
    Else
        $PingInfraction=0
    EndIf
EndFunc

And this is the script that I am writing using functions from myUDF:

#include<myUDF.au3>
Call("_CommonStartup",1)
Call("_DbgPrint","hello","world")
sleep(10000)
Call("_CommonEnd")

[water]

Are the two variables $LogDir & $LogFile set correctly? I mean has $LogDir a "" at the end or does $LogFile start with a ""?

[Melba23]

Hammad,

You need to use $scriptNameNoExt[1] in functions _DbgPrint and _ErrorNQuit - at the moment you use the whole $scriptNameNoExt array and so Autoit refuses to print anything.

M23

[Hammad]

Thanks, Melba

That took care of the problem. (stupid me)