home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / shell / grabexternal < prev    next >
Encoding:
Text File  |  1992-03-25  |  2.0 KB  |  107 lines
  1. #!/bin/csh -f
  2. # 
  3. # based on Nathaniel Borenstein's "showexternal" code
  4. echo $*
  5. if ($#argv <4) then
  6.     echo "Usage: grabexternal newfile access-type name [site [directory [mode]]]"
  7.     exit -1
  8. endif
  9. set newfile=$1
  10. set atype=`echo $2 | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
  11. set name=$3
  12. if ($#argv > 3) then
  13.     set site=$4
  14. else 
  15.     set site=""
  16. endif
  17. if ($#argv > 4) then
  18.     set dir=$5
  19. else
  20.     set dir=""
  21. endif
  22. if ($#argv > 5) then
  23.     set mode=$6
  24. else
  25.     set mode=""
  26. endif
  27. set username=""
  28. set pass=""
  29.  
  30. switch ($atype)
  31.     case anon-ftp:
  32.     set username=anonymous
  33.     set pass=`whoami`@`hostname`
  34.     # DROP THROUGH
  35.     case ftp:
  36.     if ("$site" == "") then
  37.         echo -n "Site for ftp access: "
  38.         set site=$<
  39.     endif
  40.     if ("$username" == "") then
  41.         echo -n "User name at site ${site}: "
  42.         set username=$<
  43.     endif
  44.     if ("$pass" == "") then
  45.         echo -n "Password for user $username at site ${site}: "
  46.         stty -echo
  47.         set pass=$<
  48.         stty echo
  49.         echo ""
  50.     endif
  51.     if ("$dir" == "") then
  52.         set DIRCMD=""
  53.     else
  54.         set DIRCMD="cd $dir"
  55.     endif
  56.     if ("$mode" == "") then
  57.         set MODECMD=""
  58.     else
  59.         set MODECMD="type $mode"
  60.     endif
  61.     echo OBTAINING MESSAGE BODY USING FTP
  62.     ftp -n <<!
  63. open $site
  64. user $username $pass
  65. $DIRCMD
  66. $MODECMD
  67. get $name $newfile
  68. quit
  69. !
  70.     if (! -e $newfile) then
  71.         echo FTP failed.
  72.         exit -1
  73.     endif
  74.     breaksw
  75.     case afs:
  76.     case local-file:
  77.     if (! -e $name) then
  78.         echo local file not found
  79.         exit -1
  80.     endif
  81.         cp $name $newfile
  82.     breaksw
  83.     case mail-server:  # A very special case DOESN'T WORK
  84.     if ("$bodyfile" == "") then
  85.         echo mail-server access-type requires a body file
  86.         exit -1
  87.     endif
  88.     echo Subject: Automated Mail server request > $newfile
  89.     echo To: ${name}@${site} >> $newfile
  90.     echo "" >> $newfile
  91.     cat $bodyfile >> $newfile
  92.     /usr/lib/sendmail -t  < $newfile
  93.     if ($status) then
  94.         echo sendmail failed
  95.         rm -rf $TMPDIR
  96.         exit -1
  97.     endif
  98.     rm -rf $TMPDIR
  99.     echo Your $ctype data has been requested from a mail server.
  100.     exit 0
  101.     default:
  102.     echo UNRECOGNIZED ACCESS-TYPE
  103.     exit -1
  104. endsw
  105.  
  106. exit 0
  107.