home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2317 / autoftp30.sh next >
Encoding:
Linux/UNIX/POSIX Shell Script  |  1990-12-28  |  5.6 KB  |  170 lines
  1. #! /bin/sh
  2. #
  3. # AutoFtp Version 3.0, by Mingqi Deng, July 6, 1989
  4. # -------------------------------------------------
  5. # 
  6. # Refer to file README for instructions to run the program
  7.  
  8. # Set-up: 
  9. #
  10. # 1. Set the following 3 parameters in this program on lines 23-62:
  11. #
  12. #              ALARM, RemoteHost, FtpLibDir 
  13. #
  14. #    Instructions and examples are given as comments in the following.
  15. #
  16. # 2. Make sure that you do NOT have any executable files of the same
  17. #    name as the following UNIX commands' names:
  18. #
  19. #        cat chmod cp echo expr grep mv rm sh sleep sed test
  20. #
  21. #    Otherwise, rename your files to different names.
  22.  
  23. # An ftp attempt will be aborted after ALARM many seconds. It must at 
  24. # least be equal to 300. The default # is 3600, eg., ALARM=3600 (do 
  25. # not leave blanks between '=' and '3600'!)
  26.  
  27. ALARM=3600
  28.  
  29. # Define host names:
  30. #   Use one of the following addresses for simtel20 archive site for the
  31. # parameter RemoteHost below:
  32. #         "26.2.0.74"
  33. #         "WSMR-SIMTEL20.ARMY.MIL"
  34. #         "SIMTEL20.ARPA"
  35. # The first one is highly recommended if it works, since it is the 
  36. # most time-saving address to use. The second is the official name. The
  37. # third is an alias, thus least recommended. However, you may find only
  38. # one of them works for you, depending on how your UNIX installation
  39. # handles the addresses. One symptom is a quickly failed ftp (less than
  40. # 5 seconds), which can be noticed by the ps command of UNIX.
  41. #
  42. # Also note that it has been noticed that some system does not recognize
  43. # the address in upper case. Therefore, if none of the above three
  44. # works for you, change the names to lower case and try again.
  45. #
  46. # LocalHost is set to "guest". If you find it not working, replace
  47. # it with the host name of your machine on which this program is run.
  48. #   eg.,     RemoteHost="26.2.0.74"
  49. #            LocalHost="shire.cs.psu.edu"
  50.  
  51. RemoteHost="26.2.0.74" 
  52. LocalHost="guest"
  53.  
  54. # Set the path name for the directory where three compiled C programs
  55. # ftpget.c, nextfile.c and checkout.c are. This program assumes as 
  56. # default that the three compiled programs are in $HOME/bin (a directory
  57. # "bin" in your home directory). If they are to be put in a different
  58. # directory, say, lib in your home directory, you should set FtpLibDir 
  59. # as:
  60. #        FtpLibDir="$HOME/lib"
  61. # Otherwise, just leave 'FtpLibDir=""' on next line as it is.
  62. FtpLibDir=""
  63.  
  64. #
  65. #-------AUTOFTP30.SH Set-up Stops Here: No further set-up needed------
  66. #
  67.  
  68. test 1$FtpLibDir = 1 && FtpLibDir=$HOME/bin
  69. _ftpget="$FtpLibDir/ftpget"
  70. _checkout="$FtpLibDir/checkout"
  71. _nextfile="$FtpLibDir/nextfile"
  72.  
  73. test -s "$_ftpget" ||
  74.    { echo "***Cannot find file '$_ftpget'!"
  75.      echo "   Please compile 'ftpget.c', name the compiled program as"
  76.      echo "   'ftpget' and place it in your '$FtpLibDir' directory." ; 
  77.      exit 2 ; }
  78. test -s "$_checkout" ||
  79.    { echo "***Cannot find file '$_checkout'!"
  80.      echo "   Please compile 'checkout.c', name the compiled program as"
  81.      echo "   'checkout' and place it in your '$FtpLibDir' directory." ;
  82.      exit 2 ; }
  83. test -s "$_nextfile" ||
  84.    { echo "***Cannot find file '$_nextfile'!"
  85.      echo "   Please compile 'nextfile.c', name the compiled program as"
  86.      echo "   'nextfile' and place it in your '$FtpLibDir' directory." ;
  87.      exit 2 ; }
  88.  
  89. test $# != 1 && 
  90.    { echo "***Usage: sh autoftp30.sh in_file" ; exit 2; }
  91.  
  92. exec 1>$$stdout 2>$$stderr
  93.  
  94. # Try FTP into simtel20 SLEEP many seconds until being connected
  95. # SLEEP will be increased and decreased randomly for subsequent tries.
  96. SLEEP=60
  97.  
  98. # save messages
  99. cat  $$stdout $$stderr > $$msg
  100.  
  101. #initialize the loop
  102. WS=`expr \( $SLEEP \* 47 + 31 \) \% 89 + 50`
  103.  
  104. ctr=1
  105. cp $1 $$input
  106. retry=no
  107.  
  108. # Repeat if there is more request in the input file or if the last
  109. # attempt failed and a retry can be performed.
  110. while { test -s $$input || test $retry = yes ; }
  111. do
  112.  
  113.   > $$stderr
  114.   > $$stdout
  115.  
  116. # If not a re-try for a requested file, then fetch next requested 
  117. # file name. If the fetch fails, then quit autoftp30.sh.
  118.   test $retry = no && 
  119.   { echo "%%%%%%% Process File Request #$ctr %%%%%%%" >> $$msg
  120.     ctr=`expr $ctr + 1`
  121.     $_nextfile $$input $RemoteHost anonymous $LocalHost $$ftp.script >> $$msg || 
  122.     { status=92; break;}
  123.   }
  124.  
  125. # Attempt to get the file. If not able to make an attempt, then quit.
  126. # Note that exit status=99 means there is no alarm call.
  127.   chmod og-rx $$ftp.script
  128.   $_ftpget $ALARM $$ftp.script ||
  129.   { test $? = 99 &&        # alarm called, do not quit yet, $_checkout 
  130.                # will respond 
  131.      { status=93; break; } ; }
  132.  
  133. # Check the result of the transfer. If a retry is not to be made, then 
  134. # set "retry" to no, otherwise set it to yes.
  135.   $_checkout $$stdout $$stderr $$ftp.script $$tmp >> $$msg
  136.   status=$?
  137.   { test $status = 99 && { status=94; break ; } ; } ||
  138.   { test $status = 0  && retry=no ; } || retry=yes
  139.  
  140. # if not the last request, i.e., $$input is not empty or retry=yes, 
  141. # then wait for a while before next attempt. Otherwise done!!!
  142.   test -s $$input || test $retry = yes || { status=95; break ; }
  143.  
  144. # save the messages for only the last attempt on a request
  145.   test $retry = no && cat  $$tmp >> $$msg
  146.   rm $$tmp
  147.  
  148.   sleep $WS
  149.   WS=`expr \( $WS \* 13 \/ 10 \) \% 900 + 60`
  150.  
  151. done
  152.  
  153. test $status -ge 92 && 
  154.    { test $status -le 93 &&  cat $$stderr >> $$msg || 
  155.         { cat $$tmp >> $$msg ; rm $$tmp ; }   # status=94,95
  156.    }
  157.   
  158. case $status in
  159.  92) echo "*******Fatal error: when preparing an ftp attempt!*******" >> $$msg;;
  160.  93) echo "*******Fatal error: during an ftp attempt!*******" >> $$msg;;
  161.  94) echo "*******Fatal error: when checking last ftp result!*******" >> $$msg;;
  162.  95) echo "###################Execution Completed###################" >> $$msg;;
  163.   *) ;;
  164. esac
  165.  
  166. #remove ftp command and working files
  167. rm $$ftp.script $$stderr $$stdout $$input
  168.  
  169. exit 0
  170.