Code: Select all
:global addLogToFile do={
:local filename "$1"
:local fileext ".txt"
:local maxlen 4095
/file
:if ([:len [find where name="flash" and type="disk"]] = 1) do={:set filename "flash/$filename"}
:local wkfilename "$filename$fileext"
:if ([:len [find where name=$wkfilename]] = 0) do={print file="$wkfilename"; :delay 5s; set $wkfilename contents=""}
:local filecon [get $wkfilename contents]
:local filelen [:len $filecon]
:local addthis "$2\r\n"
:local addlen [:len $addthis]
:if (($filelen + $addlen) > $maxlen) do={
:set filecon ""
:set filelen 0
:delay 1s
}
:set filecon "$filecon$addthis"
set $wkfilename contents=$filecon
:delay 1s
}
/system
:local date [clock get date]
:set $date ([:pick "$date" 4 7]."".[:pick "$date" 0 4]."".[:pick "$date" 7 11])
:local time [clock get time]
:set $time ([:pick "$time" 0 2]."".[:pick "$time" 2 8])
/file
:local filename "TESTING"
:local filecontent [get $filename contents]
:local newfilecontent "*********************************************\r\nTIME: $time DATE: $date\r\n$filecontent"
[$addLogToFile $filename $newfilecontent]
set $filename contents=$newfilecontent
taking advantage of the help, how would I send the file by mail before it is deleted?
Thanks for the help.
EL DONCITO.