WINDOWS/snapcontrol
1
Fork 0
Code Issues Releases 3 Activity

moved check for cmail.exe to beginning

Browse Source
This commit is contained in:
Michael H.G. Schmidt 2021-10-03 16:02:47 +02:00
parent 499cd1487b
commit 15a4c8a8e1
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
snapcontrol.pb
View File

@ -29,7 +29,7 @@ EnableGraphicalConsole(0)
Dim filelist$(0) Dim filelist$(0)
Global VERSION$="V1.06" Global VERSION$="V1.07"
Global installme = 0 Global installme = 0
Global updatesched = 0 Global updatesched = 0
Global dryrun = 0 Global dryrun = 0
@ -148,6 +148,14 @@ If ( FileSize ( SnapshotBin$ ) < 0 )
End 1 End 1
EndIf EndIf
Global MailCommand$ = BinPath$ + "\cmail.exe"
; CMail found ?
If ( FileSize ( MailCommand$ ) < 0 And MailReport$ = "yes")
PrintN("ERROR: [ " + MailCommand$ + " ] NOT found.")
End 1
EndIf
; Version check for Drive Snapshot ... ; Version check for Drive Snapshot ...
DriveSnapshot = RunProgram(SnapshotBin$, "/?", "", #PB_Program_Open | #PB_Program_Read) DriveSnapshot = RunProgram(SnapshotBin$, "/?", "", #PB_Program_Open | #PB_Program_Read)
If DriveSnapshot If DriveSnapshot
@ -206,13 +214,6 @@ Procedure IsAdmin()
EndProcedure EndProcedure
Procedure LogSend(subject$) Procedure LogSend(subject$)
Protected MailCommand$ = BinPath$ + "\cmail.exe"
; CMail found ?
If ( FileSize ( MailCommand$ ) < 0 )
LogMe("ERROR: [ " + MailCommand$ + " ] NOT found.")
ProcedureReturn false
EndIf
; use debug mode ? ; use debug mode ?
If (MailDebug$ = "yes" ) If (MailDebug$ = "yes" )
@ -231,7 +232,7 @@ Procedure LogSend(subject$)
; show full command in debug mode ... ; show full command in debug mode ...
If (MailDebug$ = "yes" ) If (MailDebug$ = "yes" )
Print(MailCommand$ + Chr($0d) + Chr($0a)) PrintN(MailCommand$)
EndIf EndIf
dummy=system(MailCommand$) dummy=system(MailCommand$)
@ -571,8 +572,8 @@ EndProg(e)
; IDE Options = PureBasic 5.73 LTS (Windows - x64) ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
; ExecutableFormat = Console ; ExecutableFormat = Console
; CursorPosition = 236 ; CursorPosition = 153
; FirstLine = 214 ; FirstLine = 141
; Folding = -- ; Folding = --
; EnableXP ; EnableXP
; Executable = snapcontrol.exe ; Executable = snapcontrol.exe