Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- webupdate

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
webupdate
Synopsis
/infobank/programs/dbase/webupdate/webupdate.for
Description
  Program to remotely synchronize SQUID and OCTOPUS Directories.

       
AUTHOR
  Clint Steele    2/29/2000

  Changed all walrus references to octopus  -  C.Degnan, 8/9/2004
  Changed all infobank2 references to infobank - C.Degnan, 9/15/2004
  Changed all infobank3 references to infobank - C.Steele, 10/15/2004
  Changed /bin/rsync to /usr/local/bin/rsync for squid - C.Degnan, 9/15/2004
  Changed all walrus references to octopus  -  C.Degnan, 8/9/2004
  Checked if /imag exists for a file before webupdated - Sumy Tom, 12/3/2010
  Set disk "imag1" for activities A-M and "imag2" for N-Z. CDegnan, 8/24/2012
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

    
Reads
      read (90, '(q,a)') HomeLength, HomeDir(1:HomeLength)
      read (5, '(q,a)', end=99)
     *       SquidLength, SquidDir(1:SquidLength)
      read (91, '(q,a)') SquidLength, SquidDir(1:SquidLength)
Writes
      write (OctopusDir, '(1024x)')
          write (OctopusDir, 10) SquidDir(11:Slash-1)
          write (OctopusDir, 12) SquidDir(10:Slash-1)
          write (OctopusImagDir, 120)
     *        ImageDisk(1:5), SquidDir(10:SquidLength)
          write (SquidImagDir, 121)
     *        ImageDisk(1:5), SquidDir(10:SquidLength)
          write (OctopusDir, 13) SquidDir(1:Slash-1)
      write (Command, '(1024x)')
          write (Command, '(1024x)')
Opens
      open (unit = 90,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'old',
     *      name = '/infobank/tmp/HomeDir.tmp')
      open (unit = 91,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'old',
     *      name = '/infobank/tmp/SquidDir.tmp')
Calls
      call system ('/bin/pwd > /infobank/tmp/HomeDir.tm
      call system ('/bin/echo '//SquidDir(1:SquidLength)//
     *             ' > /infobank/tmp/SquidDir.tm
      call stringlen (OctopusDir, OctopusLength)
      call stringlen (Command, CommandLength)
      call system (Command(1:CommandLength))
          call stringlen (SquidImagDir, SquidImagLength)
          call stringlen (OctopusImagDir, OctopusImagLength)
              call stringlen (Command, CommandLength)
              call system (Command(1:CommandLength))

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/webupdate/webupdate.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:46 PDT 2013  (chd)