HP3000-L Archives

April 2005, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: sendmail script request
From:
Bob McGregor <[log in to unmask]>
Reply To:
Bob McGregor <[log in to unmask]>
Date:
Mon, 4 Apr 2005 08:53:11 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (79 lines) 
Robert,

Attached is from our sendmail cmdfile that works with the pdf deliveries. We don't do zips but it should work for that as well.

   COMMENT
   COMMENT Insert attachment depending on the file's extension.
   COMMENT
   setvar x_ext,ups(rpt(str(rpt(x_rfn,-1),1,pos(".",rpt(x_rfn,-1))),-1))
   if x_ext = ".ORN"
     setvar x_type, "text/orniwell"
   elseif x_ext = ".XLS"
     setvar x_type, "text/excel"
   elseif x_ext = ".TXT"
     setvar x_type, "text/plain"
   elseif x_ext = ".DAT"
     setvar x_type, "text/plain"
   elseif x_ext = ".PDF"
     setvar x_type, "text/pdf"
   elseif x_ext = ".PCL"
     setvar x_type, "text/pcl"
   else
     setvar x_type, "text/orniwell"
   endif
   ECHO --!X_MAILSPF_SEP>> *CM
   ECHO Content-Type: !x_type; name="!X_RFN">> *CM
   ECHO Content-disposition: attachment>> *CM
   COMMENT If we find a / then it's aready an HSF filename
   IF POS('/','!X_FILENAME') > 0
     SETVAR X_MYINFILE,'!X_FILENAME'
   ELSE
     MPE2HFS !X_FILENAME , X_MYINFILE
   ENDIF
   COMMENT Use tobyte to adjust the file to bystream if needed.
   IF POS("BYTES",FINFO( '!X_FILENAME', 13 )) = 0  THEN
     setvar X_MAIL_FNAME "/tmp/mf!HPSUSAN!HPPIN!HPCPUMSECS"
     IF POS( "BINARY",FINFO( '!X_FILENAME', 13 ))> 0 OR "!X_TYPE" = "text/pcl"
       XEQ TOBYTE.HPBIN.SYS "!X_MYINFILE !X_MAIL_FNAME"
    ELSE
      XEQ TOBYTE.HPBIN.SYS "-at !X_MYINFILE !X_MAIL_FNAME"
      ENDIF
   ELSE
     SETVAR X_MAIL_FNAME, X_MYINFILE
   ENDIF
   FILE XMYIN=!X_MAIL_FNAME,OLD;NOMULTI
   IF "!X_TYPE" <> "text/plain"
     ECHO Content-Transfer-Encoding: x-uuencode>> *CM
     ECHO  >> *CM
     xeq uuencode.hpbin.sys "!X_MAIL_FNAME !X_RFN" >>*CM
   ELSE
     ECHO Content-Transfer-Encoding: 8bit>> *CM
     ECHO  >> *CM
     XEQ CAT.HPBIN.SYS '!X_MAIL_FNAME' >> *CM
   ENDIF


Just reply if there are things that don't make sense...

bob

On Monday, April 4, 2005 8:34 AM, Robert Mills <[log in to unmask]> wrote:
>I am looking for an example of a script that attaches a .zip and/or .pdf
>file to an email that is sent from their e3000 via sendmail.
> 
>
>regards, 
>  
>Robert W.Mills 
>Systems Development Manager 
>Windsong Services 
>(020) 8309 3604 
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit
>http://raven.utc.edu/archives/hp3000-l.html *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2