Reply To: fileset-FTP losing messages

[Michael Hertel]

Try putting this in your Send Fail Procs in the outbound tab.

It takes an argument in the form of:

{NOTIFYLIST “pgmmjh@vmmc.org pgmtlc@vmmc.org“}

Change the email address and see if you get alerted during the day.

Code:

######################################################################
# Name:         ftp_send_fail_argv
# Purpose:              
# UPoC type:    tps
# Args:         tps keyedlist containing the following keys:
#               MODE    run mode (”start”, “run” or “time”)
#               MSGID   message handle
#               ARGS    user-supplied arguments:
#                      
#
# Returns: tps disposition list:
#          
#

proc ftp_send_fail_argv { args } {
   keylget args MODE mode
   keylget args ARGS.NOTIFYLIST notifylist
   global HciSite HciConnName HciSiteDir
   set procname [lindex [info level [info level]] 0]
   set module “$HciSite/$HciConnName/$procname: ”

   set dispList {}

   switch -exact — $mode {
       start {
       # Perform special init functions
       # N.B.: there may or may not be a MSGID key in args
       }

       run {
       keylget args MSGID mh
       set fname [msgmetaget $mh DRIVERCTL]
       exec echo [msgget $mh] | mail -s “$HciSite – FAILURE Report for file [keylget fname FILESET.OBFILE]” $notifylist
       lappend dispList “CONTINUE $mh”
       }

       time {
       # Timer-based processing
       # N.B.: there may or may not be a MSGID key in args
       }

       shutdown {
           # Doing some clean-up work
       }

       default {
           error “$module Unknown mode ‘$mode'”
       }
   }

   return $dispList
}

[/img]