set comment {
 ==============================================================================

   Navn          : Peter Laulund, KMS

   Oprettet dato : 08 september 2005 - 13:50

   Beskrivelse   :

 =============================================================================}

# =============================================================================
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if { ![info exists gsPath2App ] } {
     source [regsub -all -- {\\} $env(LDS_HOME) {/} ]/TCL/header.tcl
}

source $gsPath2App/util/blat/blatmail.tcl
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc ldsDataMail {{flag 1}} {
     variable ldsAll::lds
     if {! $flag } { return }

     set user     [regsub -all --  {[']} $lds(user) {}]
     set zip [file tail $lds(zipName) ]

     switch -- [regexp -- {@kms.dk$} [string trim [string tolower $lds(email)] ] ] {
            0  { set url "http://dataforsyning.kms.dk/SDexport/data/$user/$zip" }
            1  { set url "http://dataforsyning-intern.kms.dk/SDexport/data/$user/$zip" }
     }

     set mtf "$::gsPath2App/util/blat/resc/dataLDS.msg"
     set frm "%-10s : %30s"

     foreach e $lds(THEMES) {
         lappend ds [lindex [split $e _ ] 0]
     }
     lappend log  [format $frm "Datasæt" [ regsub -all -- {[']} [ join $ds ] {} ] ]
     lappend log  [format $frm "Område" [ regsub -all -- {[']} $lds(name) {} ] ]
     lappend log  [format $frm "Projektion" [ regsub -all -- {[']} $lds(DestCoordSys) {} ] ]
     lappend log  [format $frm "Format" [ regsub -all -- {[']} $lds(Format) {} ] ]

     lappend replaceLst ":dato:" "[getDkDato] klokken [getTime]"
     lappend replaceLst ":log:" $log
     lappend replaceLst ":url:" $url
     lappend replaceLst ":delDato:" [ getDate2Drop ]

     set mesgFile [ getMailFromFile $mtf $replaceLst ]

     set to [ regsub -all -- {[']} $lds(email) {} ]
     lappend cmd "-to" $to

     sendMail $cmd
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc ldsAllErrorMail {msg} {
     variable ldsAll::lds

     set mtf "$::gsPath2App/util/blat/resc/errorSDAll.msg"

     lappend replaceLst ":dato:"   "[getDkDato] klokken [getTime]"
     lappend replaceLst ":errmsg:" [list $msg ]
     lappend replaceLst ":param:"  [ getArrayLst lds ]
     catch { lappend replaceLst ":pc:" $::env(COMPUTERNAME) }

     set mesgFile [ getMailFromFile $mtf $replaceLst ]
     sendMail $cmd
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc ldsUserErrorMail {} {
     variable ldsAll::lds

     set mtf "$::gsPath2App/util/blat/resc/errorSDuser.msg"

     lappend replaceLst ":dato:"   "[getDkDato] klokken [getTime]"
     lappend replaceLst ":param:"  [ getArrayLst lds ]

     set mesgFile [ getMailFromFile $mtf $replaceLst ]
     lappend cmd "-to" [ regsub -all -- {[']} $lds(email) {} ]

     sendMail $cmd
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc ldsMailNoSupport {dataset format} {
#     global lds
     variable ldsAll::lds

     set mtf "$::gsPath2App/util/blat/resc/errorNoSupport.msg"

     lappend replaceLst ":dato:"   "[getDkDato] klokken [getTime]"
     lappend replaceLst ":dataset:" $dataset
     lappend replaceLst ":format:"  $format

     set mesgFile [ getMailFromFile $mtf $replaceLst ]
     lappend cmd "-to" [ regsub -all -- {[']} $lds(email) {} ]
     sendMail $cmd
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc ldsErrorMail {} {
     global lds

     set mtf "$::gsPath2App/util/blat/resc/errorLDS.msg"

     lappend replaceLst ":dato:"   "[getDkDato] klokken [getTime]"
     lappend replaceLst ":errmsg:" [list $::FME_FailureMessage ]
     lappend replaceLst ":param:"  [ getArrayLst lds ]

     catch { lappend replaceLst ":pc:" $::env(COMPUTERNAME) }
     catch { lappend replaceLst ":bruger:" $::env(USERNAME) }

     set mesgFile [ getMailFromFile $mtf $replaceLst ]
     sendMail $cmd
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
proc getDate2Drop {{addTime 24}} {

    set toTime [clock format [clock scan "$addTime hours" -base [clock seconds]] -format %c]

    lappend retVal [lrange [split $toTime ] 0 2 ]
    lappend retVal klokken
    lappend retVal [join [lrange [split [lindex [split $toTime ] end ] :] 0 1] :]

    join $retVal
}

#puts [ getDate2Drop ]

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# =============================================================================