Conference eps::command_procedures

    
	OK, we're using DELIVER to automate the answering of requests for
    	softball information from anyone who cares to know.  This was fine
    	when everyone was on VMS and had node::name addresses, but in the
    	days of non-Digital employees and Exchange it doesn't seem to work
    	as well.
    
    	I'd figure I'm missing some quotes or something [well, "I" isn't
    	exactly right since I didn't/couldn't write this anyways, but I
    	own it now so it might as well be mine], but I don't know where to
    	put them.
    
    	I'm going to see if CS/IT would be willing to load SCORES onto an
    	NT server and set it up with Exchange, so that I can use a series
    	of Inbox Assistants to replace DELIVER, but for now I'd like to try
    	and get this thing working.
    
    	Any/all help would be appreciated.  Thanks.
     
    							Shawn L.
    							BUSY::SLAB
    
    
    
$!	These two lines are used to debug this thing. If debugging is 
$!	desired, remove the comment characters from the next three
$!
$! Define sys$output sys$login:deliver.log
$! Set Verify
$  Debug = 1
$! Debug = 0
$       If Debug
$         Then
$         Define Sys$output [scores.temp]deliver.log
$         Set Verify
$         Endif
$!
$!
$	Spaces = "                                        "
$!
$Start:	
$	From = f$extract(0,f$locate(" ",From),From)
$       Count = 1
$Get_Info_Loop:
$       Element = F$Element(Count," ",Subject)
$       Count = Count+1
$       If Element .eqs. " " Then Goto Done_Searching
$       Search [Scores.Deliver]valid_team_names.txt 'Element'
$       If $Status .ne. 1 Then Goto Invalid_Team
$       Mail/Noself [SCORES.DIS.TEAM_ROSTERS.1997]'Element'.dis 'From'/subj="Current League Roster for ''Element'"
$       Goto Get_Info_Loop
$!
$Invalid_Team:
$       Mail/subj="Request Roster for Invalid Team Name - ''Element', try again" nl0: 'From'
$       Goto Abort
$!
$Done_Searching:
$!
$!	Just for yucks, copy the com file and message file to a temporary
$!	directory to see what's happening
$!
$!
$Abort:
$!
$	if .NOT. Debug Then Exit
$!
$	Copy 'message_file' [scores.temp]*
$	Copy 'command_file' [scores.temp]*
$	Exit

    re .5
    
    Without looking too deeply...
    
    replace 'from' with "''qfrom'" in the MAIL send command line.
    
    DELIVER makes the symbol, qfrom, available precisely for this reason
    (and I am myself using it successfully in a little hack that I have
    that is triggered by DELIVER).
    
    
    Another (untested) workaround is to replace 'from' with &from in the
    MAIL send command line.
    
    
    If neither of these resolves the problem then you need to show us the
    exact line that is failing and show us what it looks like after symbol
    substitution i.e. SET VERIFY output for the line.
                                                     

    
    	Ahah, here it is:
    
    	[using "''from'"]
    
    
    $       Mail/Noself [SCORES.DIS.TEAM_ROSTERS.1997]gazintas.dis -
    "US6RMC::"Labounty@Mail.Dec.Com""/subj="Current League Roster for gazintas"
    
    %DCL-W-IVQUAL, unrecognized qualifier - check validity, spelling, and
    placement
    
    
    	It's missing the 2nd " before Labounty and the 3rd " at the end.
    

    
    	Ooh, this looks like it might have worked:
    
    $       Mail/Noself [SCORES.DIS.TEAM_ROSTERS.1997]gazintas.dis -
      "US6RMC::""Labounty@Mail.Dec.Com"" ""Shawn Labounty"""/subj="Current
    League Ro
    ster for gazintas"
    
    
    	I'll be back in a few minutes to let you know.
    

    
    	Yes, it did work ... thanks!!
    
    	I owe you one.  Actually, how many am I up to now?  8^)
    

re .9
    
>    	I owe you one.  Actually, how many am I up to now?  8^)

    Payment is accepted in the form of a free feed. The good news is that
    you don't have to pay unless we find ourselves in the same city. (-:

    
    	If you ever get to the Marlboro MA area, look me up.  I'm in ELF
    	and sometimes even answer my phone if I recognize the ring.